; $VER: GestaCompte Banque V2.01
; Script d'installation V1.0 (28.02.97)
; ROM 2.X minimum

;============================== Variables ================================
 
(set @source-dir     "/GestaCompte_DP")
(set #Kickstart      "\n Désolé, il vous faut absolument le kickstart 2.0 ou\n plus pour installer ce programme.")
(set #Destdir        "Veuillez indiquer le chemin d'accès complet de votre répertoire GestaCompte")
(set #Message        "Un répertoire nommé 'GestaCompte va être créé dans le chemin que vous allez choisir.")
(set #Icones         "Quel style d'icônes voulez-vous installer ?")
(set #Termine        "\n\nL'installation s'est exécutée sans problème.\n\nToute l'équipe d'A.F.L.E. vous souhaite de trouver beaucoup de plaisir dans l'utilisation de ce programme.")

;=====================  Début installation =======================

(if (= @language "français")
(

(if (< (/ (getversion) 65536) 37)

    (
      (message #Kickstart) 
      (exit (quiet))
    )
)

(set chemin
    (tackon
       (askdir
       (prompt #Message)
       (help @askdir-help)
       (default "SYS:")
       )
       "GestaCompte"
    )
)

(set Icones (askchoice (prompt #Icones)
                       (help @askchoice-help)
                       (choices "MagicWB" "NewIcons" "Aucun")
                       (default 0)
            )
)

(set @source-dest chemin)
(set @source_boutons (tackon chemin "boutons"))
(makedir @source_boutons)

(copyfiles
        (prompt)
        (help @copyfiles-help)
        (source (cat @source-dir "/Lisez-moi!"))
        (dest @source-dest)
        (infos)
)

(copyfiles
        (prompt)
        (help @copyfiles-help)
        (source (cat @source-dir "/Comptes/GestaCompte"))
        (dest @source-dest)
)

(copyfiles
        (prompt)
        (help @copyfiles-help)
        (source (cat @source-dir "/Comptes/Libelles"))
        (dest @source-dest)
)

(copyfiles
        (prompt)
        (help @copyfiles-help)
        (source (cat @source-dir "/Comptes/Assigner_GestaCompte"))
        (dest @source-dest)
)

(copyfiles
        (prompt)
        (help @copyfiles-help)
        (source (cat @source-dir "/Comptes/"))
        (dest @source-dest)
        (pattern "Com#?")
)

(if (= Icones 0)
(
 (copyfiles
        (prompt)
        (help @copyfiles-help)
        (source (cat @source-dir "/Comptes/boutons/MagicWB/"))
        (dest (cat @source-dest "/boutons"))
        (all)
 )

 (copyfiles
        (prompt)
        (help @copyfiles-help)
        (source (cat @source-dir "/Comptes/Icônes/MagicWB/"))
        (dest @source-dest)
        (all)
 )
))

(if (or (= Icones 1) (= Icones 2))
(
 (copyfiles
        (prompt)
        (help @copyfiles-help)
        (source (cat @source-dir "/Comptes/boutons/NewIcons"))
        (dest (cat @source-dest "/boutons"))
        (all)
 )

 (copyfiles
        (prompt)
        (help @copyfiles-help)
        (source (cat @source-dir "/Comptes/Icônes/NewIcons"))
        (dest @source-dest)
        (all)
 )
))

(copyfiles
        (prompt)
        (help @copyfiles-help)
        (source (cat @source-dir "/Comptes/Images"))
        (dest (cat @source-dest "/Images"))
        (all)
        (infos)
)

(copyfiles
        (prompt)
        (help @copyfiles-help)
        (source (cat @source-dir "/Comptes/Scripts_ARexx"))
        (dest (cat @source-dest "/Scripts_ARexx"))
        (all)
)

(copyfiles
        (prompt)
        (help @copyfiles-help)
        (source (cat @source-dir "/Comptes/envarc"))
        (dest (cat @source-dest "/envarc"))
        (all)
)

(copyfiles
        (prompt)
        (help @copyfiles-help)
        (source (cat @source-dir "/Comptes/libs"))
        (dest (cat @source-dest "/libs"))
        (all)
)

(copyfiles
        (prompt)
        (help @copyfiles-help)
        (source (cat @source-dir "/Comptes/fonts"))
        (dest (cat @source-dest "/fonts"))
        (all)
)
))

(set @default-dest @source-dest)
(exit #Termine)