; Installer script For BlueInstall v. 1.0
; by Marek Zvolsky 17.04.99

(complete 0)

(Message
    "\n\nWelcome to Install BlueInstall.\n"
;   (ALL)
)

(complete 5)

(Set #DEST0
    (askdir
        (prompt "Where do you want to have BlueInstall? A drawer called BlueIstall will be created")
        (help (cat @askdir-help)
        )
        (default "Work:")
    )
)

(complete 12)

(Set #DEST (tackon #DEST0 "BlueInstall"))
(makedir #DEST (infos))

(Set @default-dest #DEST)

(complete 20)

(copyfiles (dest #DEST) (source "BlueInstallPrefs"))
(copyfiles (dest #DEST) (source "BlueInstallPrefs.info"))
(copyfiles (dest #DEST) (source "BlueInstall.guide"))
(copyfiles (dest #DEST) (source "BlueInstall.guide.info"))

(complete 35)

(set #DEST2 (tackon #DEST "bin"))
(makedir #DEST2)

(copyfiles (dest #DEST2) (source "bin/BlueInstall"))

(set #DEST3 (tackon #DEST "Templates"))
(makedir #DEST3)
(copyfiles (dest #DEST3) (source "templates/ExampleTemplate"))
(copyfiles (dest #DEST) (source "Templates.info"))


(complete 65)

(Set #CATALOGS
    (askoptions
        (Prompt "Catalogs to install")
        (help (cat @askoptions-help))
        (default 2)
        (choices "English (built-in)" "Czech (KOI8)" "Czech (E2)")
    )
)


(If (in #CATALOGS 0)
    (copyfiles (source "catalogs/english/BlueInstall.catalog") (dest "LOCALE:Catalogs/english/")))
(If (in #CATALOGS 1)
    (copyfiles (source "catalogs/ÃeÓtina/BlueInstall.catalog") (dest "LOCALE:Catalogs/ÃeÓtina/")))
(If (in #CATALOGS 2)
    (copyfiles (source "catalogs/çeský/BlueInstall.catalog") (dest "LOCALE:Catalogs/çeský/")))


(complete 90)


(If (= (exists "Libs:reqtools.library") 0)
    (copylib
        (source "libs/reqtools.library")
        (dest "libs:")
        (confirm)
        (prompt "\n\nInstall reqtools.library?\nOnly If You don't have it installed")
        (help
            (cat @copylib-help)
        )
    )
)

(complete 100)