;
; $VER: Installation de BGUI-Exchange v1.0 (28.5.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")


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

(copyfiles
    (prompt "Copie du catalogs de BGUI-Exchange")
    (source Path.source)
    (dest Path.dest)
    (choices "catalogs")
)


; Copie de la documentation
; *************************
(set Doc (askchoice
            (prompt "Documentation de BGUI-Exchange")
            (choices "Française" "Anglaise")
            (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)
        )
    )




; On copie les icônes
; *******************
(set Icon (askchoice
            (prompt "Quel type d'icône voulais 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)
)

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