; NewIcons Installer Script
; $Ver: 38.3 (8-Jan-95)
; Rédigé par Philip A. Vedovatti
; pour Nicola Salmoria, auteur du logiciel.
; (Merci Nicola pour l'excellent travail!)
; Traduction française par Eric Sauvageau.

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

(set #bad-kick
   (cat "\n\nDésolé!  Vous devez utiliser le Workbench 2.0"
        "ou mieux pour utiliser ce logiciel."))

(set #hello-message
   (cat "\nMerci d'utiliser NewIcons, le système"
        "\nrévolutionnaire d'icônes pour l'Amiga."
        "\nS'il-vous-plait, lisez la documentation "
        "\nafin de tirer le maximum de ce logiciel."
        "\nRien ne sera effacé de votre système lors de"
        "\nl'installation du logiciel.  Vos anciens icônes"
        "\nseront toujours là, quoiqu'ils n'auront plus le"
        "\nmême aspect sur votre écran.  Si vous désirez plus"
        "\nd'informations sur une étape de l'installation,"
        "\ncliquez sur le gadget \"Help\" (Aide)."
        "\ndisponible au bas de l'écran."
        "\n\nCLIQUEZ POUR CONTINUER"))

(set #install-which
   (cat "\nQuelle(s) partie(s) du système NewIcons désirez-vous"
        "\ninstaller sur votre disque dur?\n"))

(set #install-library
   (cat "\n\nInstallation de la newicon.library dans LIBS:."
        "\nCeci est nécessaire pour l'installation des icônes."))

(set #install-library-help
   (cat "\n\n    Cette librairie est nécessaire pour utiliser NewIcons"
        "\n ainsi que pour l'installation des icônes."))

(set #install-icons
   (cat "\n\nInstallation des fichiers de NewIcons dans le"
        "\nrépertoire C: ainsi que des images NewIcon sur"
        "\nvotre partition SYS:."
        "\n\nVos icônes originaux ne seront PAS effacés."
        "\n\nNOTEZ-BIEN: Soyez certains que vous avez la commande"
        "\nAmigaDOS 'list' originale dans le chemin de"
        "\nrecherche des commandes avant de poursuivre."))

(set #install-icons-help
   (cat "\n\nLes images des nouveaux icônes seront"
        "\nincorporés dans les types d'outils des fichiers"
        "\n'.info'.  Ces nouveaux types d'outils seront"
        "\ninvisibles une fois que NewIcons sera lancé,"
        "\nrendant le fonctionnement de NewIcons tout à"
        "\nfait transparent du point de vue de"
        "\nl'utilisateur."))

(set #install-newicons
   (cat "\n\nCopie des fichiers principaux de NewIcons"
        "\ndans le répertoire C: et de"
        "\nla newicon.library dans Libs:"))

(set #install-newicons-help
   (cat "\n\nCette étape installera NewIcons, Injectbrush"
        "\net PatchOpenWB dans votre répertoire C:."
        "\nDe plus, newicon.library sera copiée"
        "\ndans le répertoire Libs:."))

(set #tools-dest
   (cat "\nDans quel répertoire désirez-vous installer les"
        "\noutils servant à manipuler les NewIcons?\n"))

(set #startup-newicon
   (cat "\n\nAjout d'une commande au fichier"
        "\nS:User-Startup pour lancer NewIcons"
        "\nlorsque vous démarrez votre systeme."))

(set #install-deficons
   (cat "\n\nInstallation du serveur DefIcons dans le"
        "\nrépertoire C:, et copie des icônes génériques"
        "\ndans le répertoire Envarc:sys/."))

(set #install-deficons-help
   (cat "\nCette étape installe le logiciel Deficons"
        "\net copie les fichiers 'def_icons' dans le"
        "\nrépertoire ENVARC:sys/."))

(set #move-olddefs-dir
   (cat "L'Installer va déplacer vos anciens icônes"
        "\ngénériques dans un autre endroit afin de"
        "\nles préserver. Où désirez-vous créer le"
        "\nrépertoire qui les contiendra?"))

(set #move-olddefs-help
   (cat "\nCette étape copie vos anciens icônes génériques"
        "\ndans un autre répertoire plutot que de ré-écrire"
        "\npar-dessus.  Si jamais vous désirez retirer"
        "\nNewIcons de votre système, vous n'aurez qu'à"
        "\naller les récuperer dans ce répertoire."))

(set #move-olddefs
   (cat "Déplacement des anciens icônes génériques dans \n"
        destdir))

(set #install-envarc
   (cat "\nCopie des icônes génériques et du fichier de"
        "\nconfiguration pour DefIcons dans ENVARC:.\n"))

(set #install-envarc-help
   (cat "\n\nCette étape installe les icônes que DefIcons"
        "\nutilisera comme image générique pour les fichiers"
        "\nne possédant pas d'icône."))

(set #startup-deficons
   (cat "\n\nAjout d'une commande au fichier"
        "\nS:User-Startup pour lancer DefIcons"
        "\nlorsque vous démarrez votre systeme."))

(set #powb-message
   (cat "\n\nSi vous avez installé NewIcons, vous devez "
           "ajouter une ligne à votre S:Startup-Sequence:\n\n"
           "C:PatchOpenWB\n"
           "\nafin de corriger un bug dans le Kickstart 3.x!"
           "\n\n Cette ligne doit être placée après Setpatch"
           "\net avant IPrefs."))
(set #exit-message
   (cat "Veuillez redémarrer votre système afin d'activer\n"
        "les logiciels NewIcons et/ou Deficons."
        "\n\n\nMerci d'utiliser NewIcons!"))

(set #docs-dest
   (cat "Où désirez-vous installer la documentation"
        "\nAmigaGuide de NewIcons?"))

; ------------------------------
; 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" "Documentation")
      )
)

; ------------------------------
; 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)