;
; $VER: Installation de BGUI-Exchange v1.1 (25.7.1995)
;
;       Installer script pour BGUI-Exchange.
;

        (set UserLevel.old @user-level)

; Initialisation des messages.

        (set Language 16)

        (set #WrongKickStart "\nBGUI-Exchange 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")

;
; 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 BGUI-Exchange.\n")
                (help @askdir-help)
                ;(default "RAM:")
                (default "Sys:Tools/Commodities")
        )
)


; Copie de l'executable
; **********************
(copyfiles
        (prompt "Copie de BGUI-Exchange")
        (help @copyfiles-help)
        (source Path.source)
        (dest Path.dest)
        (choices "BGUI-Exchange" "BGUI-Exchange.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 BGUI-Exchange")
    (source Path.source)
    (dest CatPath)
    (choices "catalogs/français/BGUI-Exchange.catalog")
)


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

    )
)


    (if (= Doc 0)
        (copyfiles
            (source "BGUI-Exchange_FR.guide")
            (dest Path.dest)
            (newname "BGUI-Exchange.guide")
            (infos)
        )
    )

    (if (= Doc 1)
        (copyfiles
            (source "BGUI-Exchange_ENG.guide")
            (dest Path.dest)
            (newname "BGUI-Exchange.guide")
            (infos)
        )
    )

    (if (= Doc 2)
        (copyfiles
            (source "BGUI-Exchange_D.guide")
            (dest Path.dest)
            (newname "BGUI-Exchange.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 "BGUI-Exchange.info")
        )

        (copyfiles
            (source "Icons/Guide_MagicWb.info")
            (dest Path.dest)
            (newname "BGUI-Exchange.guide.info")
        )
        )
    )

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

        (copyfiles
            (source "Icons/Guide_NewIcon.info")
            (dest Path.dest)
            (newname "BGUI-Exchange.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 "BGUI-Exchange"))


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

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



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