; NewIcons Installer Script
; $Ver: 38.3 (8-Jan-95)
; Written by Philip A. Vedovatti
; for Program Author Nicola Salmoria,
; with many thanks for his fine programming work.

(set @default-dest "SYS:C")

(set #bad-kick
   (cat "\n\nSpiacente! Devi avere il Workbench 2.0"
        "o superiore per usare questo pacchetto."))

(set #hello-message
   (cat "\nGrazie per aver provato NewIcons, la rivoluzionaria"
        "\nInterfaccia Grafica per l'Utente per il sistema"
        "\nAmiga. Per favore leggi la documentazione per"
        "\nottenere il massimo da questo pacchetto. Nulla sarà"
        "\ncancellato dal tuo sistema con questa installazione."
        "\nLe tue vecchie icone del WB saranno ancora lì, anche"
        "\nse non sembrerà così sul tuo schermo. Se non capisci"
        "\nqualche parte della installazione, clicca sul gadget"
        "\n\"Aiuto\" che ntroverai durante l'installazione per"
        "\naltre informazioni."
        "\n\nCLICCA PER CONTINUARE"))

(set #install-which
   (cat "\nQuali parti del sistema NewIcons vorresti"
        "\ninstallare sul tuo disco rigido?\n"))

(set #install-library
   (cat "\n\nInstallo NewIcon.library in LIBS:. Ciò è"
        "\nnecessario per l'installazione delle icone."))

(set #install-library-help
   (cat "\n\nQuesta libreria è necessaria per usare NewIcons"
        "\ned è necessaria per l'installazione delle icone."))

(set #install-icons
   (cat "\n\nInstallo i files NewIcons nella tua directory C:"
        "\ne le immagini NewIcon nella tua partizione SYS:."
        "\n\nLe tue vecchie icone NON saranno rimosse."
        "\n\nNOTA: assicurati di avere il comando standard Amiga"
        "\n'list' nel tuo path di comandi prima di continuare."))

(set #install-icons-help
   (cat "\n\nLe nuove immagini delle icone saranno"
        "\ninserite nei tooltypes dei files .info"
        "\nesistenti. Le linee di tooltype saranno"
        "\ninvisibili una volta che NewIcons é in"
        "\nazione, sicchè l'operazione sarà del"
        "\ntutto trasparente per l'utente."))

(set #install-newicons
   (cat "\n\nCopio i file NewIcons principali in C:"
        "\ne la newicon.library in LIBS:"))

(set #install-newicons-help
   (cat "\n\nQuesta parte installa NewIcons, Injectbrush"
        "\ne PatchOpenWB nella tua directory C:."
        "\nInoltre,la newicon.library verrà copiata"
        "\nnella tua directory LIBS:."))

(set #tools-dest
   (cat "\nIn quale cassetto vuoi installare le"
        "\nutility di manipolazione NewIcons?\n"))

(set #startup-newicon
   (cat "\n\nAggiungo una linea alla tua S:User-Startup"
        "\nper lanciare NewIcons ogni volta che il"
        "\nsistema viene avviato."))

(set #install-deficons
   (cat "\n\nInstallo il demone DefIcons nella tua"
        "\ndirectory C:, e copio le icone di default"
        "\nnella tua directory ENVARC:Sys."))

(set #install-deficons-help
   (cat "\nQuesta parte installa il programma DefIcons"
        "\ne copia le necessarie def_icons nella tua"
        "\ndirectory ENVARC:."))

(set #move-olddefs-dir
   (cat "L'Installer muoverà le tue vecchie icone di"
        "\ndefault in un altro posto per sicurezza."
        "\nDove vuoi che creo una directory per"
        "\nimmagazzinarle?"))

(set #move-olddefs-help
   (cat "\nQuesta parte copia le tue vecchie icone di"
        "\ndefault in un posto sicuro invece di"
        "\nsovrascriverle. Se tu vorrai rimuovere"
        "\nDeficons, le avrai subito disponibili."))

(set #move-olddefs
   (cat "Muovo le tue vecchie icone predefinite in \n"
        destdir))

(set #install-envarc
   (cat "\nCopio le icone di default e il brainfile in"
        "\nENVARC: affinchè DefIcons le possa usare.\n"))

(set #install-envarc-help
   (cat "\n\nQuesta parte installa le icone che DefIcons"
        "\nuserà per mostrare i files che non hanno"
        "\nicone già associate ad essi."))

(set #startup-deficons
   (cat "\n\nAggiungi una linea alla tua S:user-Startup"
        "\nper lanciare DefIcons ogni volta che il"
        "\nsistema viene avviato."))

(set #powb-message
   (cat "\n\nSe hai installato NewIcons, devi aggiungere"
           "\nuna linea alla tua S:Startup-Sequence:\n\n"
           "C:PatchOpenWB\n"
           "\nper correggere un bug del Sistema Operativo 3.x!"
           "\n\nAssicurati di porre la linea dopo Setpatch"
           "\ne prima di IPrefs."))

(set #exit-message
   (cat "Per favore riavvia il sistema per attivare\n"
        "del tutto i sistemi NewIcons e/o Deficons."
        "\n\n\nDivertiti usando NewIcons!"))

(set #docs-dest
   (cat "Dove vuoi che la documentazione Guida di"
        "\nNewIcons venga installata?"))

; ------------------------------
; Check Kickstart Version
; ------------------------------

 (if (< (getversion "LIBS:version.library") (* 37 65536))
        (abort #bad-kick)
 )

(message #hello-message)

; ------------------------------
; What should I install?
; ------------------------------

(set InstallOpt
      (askoptions (prompt #install-which)
                  (help @askoptions-help)
                  (choices "NewIcons" "DefIcons" "Documentazione")
      )
)

; ------------------------------
; Install NewIcon.library
; ------------------------------

(copylib
      (source "/libs/newicon.library")
      (dest "libs:")
      (prompt #install-library)
      (help #install-library-help)
      (confirm)
)

;-------------------------------------------------------
;Install icon images, NewIcons, and icon support files
;-------------------------------------------------------


(if (BITAND InstallOpt 1)

  ((message #install-icons)

   (execute "Install_Icons"
      (help #install-icons-help)
   )

   (copylib
      (prompt #install-newicons)
      (source "/C/NewIcons")
      (dest "c:")
      (help #install-newicons-help)
   )

   (copylib
      (source "/C/InjectBrush")
      (dest "c:")
   )

   (copylib
      (source "/C/PatchOpenWB")
      (dest "c:")
   )


   (set destdir
      (askdir
            (prompt #tools-dest)
            (help @askdir-help)
            (default "Sys:Utilities")
      )
   )

   (copyfiles
      (source "/Utilities/CopyNewIcon")
      (dest destdir)
      (infos)
   )

   (copyfiles
      (source "/Utilities/CreateDefaultIcon")
      (dest destdir)
      (infos)
   )

   (copyfiles
      (source "/Utilities/KillNewIcon")
      (dest destdir)
      (infos)
   )

   (startup "NewIcons"
      (prompt #startup-newicon)
      (command "NewIcons")
      (help @startup-help)
   )
  )
)

;------------------------------
;Install Deficons
;------------------------------

(if (BITAND InstallOpt 2)


  ((set destdir
      (askdir
           (prompt #move-olddefs-dir)
           (help #move-olddefs-help)
           (default "Sys:Storage")
      )
   )

   (set destdir
      (tackon destdir "Old_Def_icons")
   )

   (makedir destdir
   )

   (copyfiles
      (prompt #move-olddefs)
      (source "Envarc:sys")
      (dest destdir)
      (pattern "def#?")
      (help #move-olddefs-help)
   )

   (copylib
      (prompt #install-deficons)
      (source "/C/DefIcons")
      (dest "C:")
      (help #install-deficons-help)
      (confirm)
   )

   (copyfiles
      (prompt #install-envarc)
      (source "/envarc")
      (dest "ENVARC:")
      (all)
      (infos)
      (help #install-envarc-help)
   )

   (startup "DefIcons"
      (prompt #startup-deficons)
      (command "DefIcons")
      (help @startup-help)
   )
  )
)


;------------------------------
;Install Documentation
;------------------------------

(if (BITAND InstallOpt 4)

   ((set destdir
      (askdir
            (prompt #docs-dest)
            (help @askdir-help)
            (default "Help:")
      )
    )
    (copyfiles
      (source "/NewIcons.guide")
      (dest destdir)
      (infos)
    )
   )
)

(message #powb-message)

(exit #exit-message)