;
; $VER: Installation de AppAssign v3.1 (26.1.1996)
;
;       Scripte Installer pour AppAssign.
;

        (set UserLevel.old @user-level)

; Initialisation des messages.

        (set Language 16)

        (set #WrongKickStart "\nAppAssign ne fonctionne qu'avec un KickStart >= à 2.04.")



; S'assurer que l'on utilise un KickStart >= à 2.04.

        (if (< (/ (getversion) 65536) 37)
          (abort #WrongKickStart)
        )


(set LangueHelp "Choisisser dans quelle langue vous voulez la documentation.")

(set IconHelp "Choisissez dans quel format vous-voulez vos icônes:\n\n- 4 couleurs:          Icônes standards\n- 8 couleurs MagicWB : Standard MagicWB\n- NewIcon :            Standard NewIcon")
(set bguiHelp "La bgui.library est une library facilitant la création d'interface et offrant de plus belle interface\n\nbgui.library   (C) 1993-1995 Jan van den Baard")
(set Refresh  "Mode de refresh de la fenêtre")
(set Aspect   "Choix de l'epaisseur des bordures:\n\n- AutoAspect:  Respecte le ration écran\n- Thin:        Force le mode fin\n- Standard:    Comme le système")
(set Frame    "Choix du look des boutons")
(set WindowPos  "De quel façon la fenêtre doit s'ouvrir ?")
(set NewLook    "Le mode NewLook Permet d'avoir en blanc la barre scroller de la listview")
(set BufferRP   "L'utilisation d'un tampon pour le RastPort permet l'affichage de l'interface d'un bloque. Mais sous RTG cela rallenti l'affichage.\n\nSous RTG répondre NON")


;
; Répertoire de destination
; *************************
;

(set Path.source (pathonly @icon) )

(set  Path.dest
        (askdir
                (prompt "\nSélectionner ou créer un répertoire dans lequel vous voulez installer AppAssign.\n")
                (help @askdir-help)
                ;(default "RAM:")
                (default "Sys:Tools/Commodities")
        )
)


; Copie de l'executable
; **********************
(copyfiles
        (prompt "Copie de AppAssign")
        (help @copyfiles-help)
        (source Path.source)
        (dest Path.dest)
        (choices "AppAssign" "AppAssign.info")
)


; Copie du catalogs Français
; **************************
(set CatPath (tackon Path.dest "catalogs"))
(makedir CatPath)
(set CatPath (tackon Path.dest "catalogs/français"))
(makedir CatPath)

(copyfiles
    (prompt "Copie du catalogs de AppAssign")
    (source Path.source)
    (dest CatPath)
    (choices "catalogs/français/AppAssign.catalog")
)


; Copie de la documentation
; *************************
(set Doc (askchoice
            (prompt "Documentation de AppAssign")
            (choices "Française" "Anglaise" )
            (help LangueHelp)
            (default 0)

    )
)


    (if (= Doc 0)
        (copyfiles
            (source "AppAssign_FR.guide")
            (dest Path.dest)
            (newname "AppAssign.guide")
            (infos)
        )
    )

    (if (= Doc 1)
        (copyfiles
            (source "AppAssign_ENG.guide")
            (dest Path.dest)
            (newname "AppAssign.guide")
            (infos)
        )
    )



; On copie les icônes
; *******************
(set Icon (askchoice
            (prompt "Quel type d'icône voulez-vous utiliser ?")
            (choices "4 couleurs" "MagicWB" "NewIcon")
            (help IconHelp)
    )
)

    ; MagicWB ?
    ; *********
    (if (= Icon 1)
        (
        (copyfiles
            (source "Icons/EXE_MagicWb.info")
            (dest Path.dest)
            (newname "AppAssign.info")
        )

        (copyfiles
            (source "Icons/Guide_MagicWb.info")
            (dest Path.dest)
            (newname "AppAssign.guide.info")
        )
        )
    )

    ; NewIcon ?
    ; *********
    (if (= Icon 2)
        (
        (copyfiles
            (source "Icons/EXE_NewIcon.info")
            (dest Path.dest)
            (newname "AppAssign.info")
        )

        (copyfiles
            (source "Icons/Guide_NewIcon.info")
            (dest Path.dest)
            (newname "AppAssign.guide.info")
        )
        )
    )


; Copie de la bgui.library
; ************************
(copylib
    (prompt "Copie de la bgui.library")
    (source "libs/bgui.library")
    (dest "Libs:")
    (help bguiHelp)
    (confirm)
)

; Parametrage du programme
; ************************

; On prend le chemin de destination et le nom
(set DestName (tackon Path.dest "AppAssign"))


; ***********
; * REFRESH *
; ***********
(set Icon (askchoice
            (prompt "Quel type de refresh vous voulez pour la fenêtre ?")
            (choices "SmartRefresh" "SimpleRefresh")
            (help Refresh)
    )
)

    (if (= Icon 0)
        (tooltype
            (settooltype "SMARTREFRESH" "YES")
            (dest DestName)
        )
    )

    (if (= Icon 1)
        (tooltype
            (settooltype "SMARTREFRESH" "NO" )
            (dest DestName)
        )
    )

; **********
; * ASPECT *
; **********
(Set Icon (askchoice
            (prompt "Quel aspect voulez-vous pour l'interface ?")
            (choices "Automatique (en fonction de l'écran)" "Fin" "Standard")
            (help Aspect)
        )
)
    (if (= Icon 0)
        (tooltype
            (settooltype "ASPECT" "AUTO")
            (dest DestName)
        )
    )

    (if (= Icon 1)
        (tooltype
            (settooltype "ASPECT" "THIN")
            (dest DestName)
        )
    )

    (if (= Icon 2)
        (tooltype
            (settooltype "ASPECT" "STANDARD")
            (dest DestName)
        )
    )

; *********
; * FRAME *
; *********
(Set Icon (askchoice
            (prompt "Quel type de 'FRAME' voulez-vous pour l'interface ?")
            (choices "Normal" "XEN")
            (help Frame)
        )
)
    (if (= Icon 0)
        (tooltype
            (settooltype "FRAME" "STANDARD")
            (dest DestName)
        )
    )

    (if (= Icon 1)
        (tooltype
            (settooltype "FRAME" "XEN")
            (dest DestName)
        )
    )


; *******************
; * NEWLOOKSCROLLER *
; *******************
(Set Icon (askchoice
            (prompt "Utiliser le mode NewLook pour le scroller de la ListView ?")
            (choices "Oui" "Non")
            (default 1)
            (help NewLook)
        )
)
    (if (= Icon 0)
        (tooltype
            (settooltype "NEWLOOKSCROLLER" "YES")
            (dest DestName)
        )
    )

    (if (= Icon 1)
        (tooltype
            (settooltype "NEWLOOKSCROLLER" "NO")
            (dest DestName)
        )
    )


; ******************
; * WINDOWPOSITION *
; ******************
(Set Icon (askchoice
            (prompt "Où voulez-vous que l'interface s'ouvre ?")
            (choices "Au centre de l'écran" "Sous la souris" "En haut à gauche")
            (help WindowPos)
        )
)
    (if (= Icon 0)
        (tooltype
            (settooltype "WINDOWPOSITION" "CENTERSCREEN")
            (dest DestName)
        )
    )

    (if (= Icon 1)
        (tooltype
            (settooltype "WINDOWPOSITION" "CENTERMOUSE")
            (dest DestName)
        )
    )

    (if (= Icon 2)
        (tooltype
            (settooltype "WINDOWPOSITION" "TOPLEFT")
            (dest DestName)
        )
    )

; **************
; * NoBufferRP *
; **************
(Set Icon (askchoice
            (prompt "Utilisation de l'option BufferRP ?")
            (choices "Oui" "Non")
            (default 1)
            (help BufferRP)
        )
)
    (if (= Icon 0)
        (tooltype
            (settooltype "NOBUFFERRP" "NO")
            (dest DestName)
        )
    )

    (if (= Icon 1)
        (tooltype
            (settooltype "NOBUFFERRP" "YES")
            (dest DestName)
        )
    )


(message "Regarder la documation pour toutes les options")



(set @default-dest Path.dest )
        (exit)