; 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.
; 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 "\n\nBIENVENUE UTILISATEUR DE NEWICONS!"
        "\n\n Si vous n'avez pas une version précédante de"
        "\nNewIcons ET Deficons d'installée, avortez ce script"
        "\net exécutez plutôt le script Install_NewIcons."
        "\n\nCette installation sert à mettre à jour les "
        "\nlogiciels associés à NewIcons/Deficons."
        "\n\nSI VOUS AVEZ ACTUELLEMENT NEWICONS ET DEFICONS"
        "\nD'INSTALLE SUR VOTRE SYSTEME, VOUS POUVEZ PROCEDER."))

(set #install-which
   (cat "\nQuelle(s) partie(s) du système NewIcons"
        "\ndésirez-vous mettre à jour?\n"))

(set #install-library
   (cat "\n\nCopie de la newicon.library dans LIBS:."))

(set #install-library-help
   (cat "\n\n    Cette librairie est nécessaire à la fois pour"
        "\nutiliser NewIcons."))

(set #install-newicons
   (cat "\n\nCopie des exécutables dans le répertoire C:"))

(set #install-newicons-help
   (cat "\n\nCette étape installe NewIcons, Injectbrush"
        "\net PatchOpenWB dans le répertoire C:."))

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

(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 #exit-message
   (cat "Veuillez redémarrez votre système afin d'activier"
        "\nles nouvelles versions des systèmes NewIcons/Deficons."
        "\n\n\nEn espérant que vous appréciez cette mise à jour!"))

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

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



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





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


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

   (copyfiles
      (source "/envarc/deficons.prefs")
      (dest "ENVARC:")
   )


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


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


(exit #exit-message)