; Installer script For Amindex v. 1.0
; by Marek Zvolsky 22.07.98

(complete 0)

(Message
    "\n\nAmIndex 1.0 is shareware.\n\nSee the doc For more Info."
;   (ALL)
)

(complete 5)

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

(complete 12)

(Set #DEST (tackon #DEST0 "AmIndex"))
(makedir #DEST)

(Set @default-dest #DEST)

(complete 20)

(copyfiles (dest #DEST0) (source "icons/def_drawer.Info") (newname "AmIndex.Info"))

(copyfiles (dest #DEST) (source "AmIndex"))
(copyfiles (dest #DEST) (source "AmIndex.Info"))
(copyfiles (dest #DEST) (source "music/med.AmIndex"))

(complete 30)

(run "Run >nil: Sys:Utilities/Multiview icons/collect")

(Set #ICONS
    (askchoice
    (prompt "Choose an icon For AmIndex")
    (help (cat @askchoice-help))
    (default 1)
    (choices
        "#1: Classic MagicWB 8 colors"
        "#2: Star 8 colors"
        "#3: Standart 4 colors"
        "#4: NewIcon style"
        )
    )
)

(If (= #ICONS 0) (copyfiles (source "icons/AmIndex_MWB1.Info") (dest #DEST) (newname "AmIndex.Info")))
(If (= #ICONS 1) (copyfiles (source "icons/AmIndex_MWB2.Info") (dest #DEST) (newname "AmIndex.Info")))
(If (= #ICONS 2) (copyfiles (source "icons/AmIndex_Std.Info") (dest #DEST) (newname "AmIndex.Info")))
(If (= #ICONS 3) (copyfiles (source "icons/AmIndex_NI.Info") (dest #DEST) (newname "AmIndex.Info")))

(complete 47)

(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/AmIndex.catalog") (dest "LOCALE:Catalogs/english/")))
(If (in #CATALOGS 1)
    (copyfiles (source "catalogs/ÃeÓtina/AmIndex.catalog") (dest "LOCALE:Catalogs/ÃeÓtina/")))
(If (in #CATALOGS 2)
    (copyfiles (source "catalogs/çeský/AmIndex.catalog") (dest "LOCALE:Catalogs/çeský/")))


(complete 72)

(Set #GUIDE
    (askoptions
        (Prompt "Guide to install")
        (help (cat @askoptions-help))
        (default 7)
        (choices "English" "Czech (KOI8)" "Czech (E2)")
    )
)

(If (in #GUIDE 0)
    (copyfiles (source "docs/AmIndex_eng.guide") (dest #DEST) (infos)))
(If (in #GUIDE 1)
    (copyfiles (source "docs/AmIndex_cz.guide") (dest #DEST) (infos)))
(If (in #GUIDE 2)
    (copyfiles (source "docs/AmIndex_e2.guide") (dest #DEST) (infos)))

(complete 81)

(If (exists "AmIndex.keyfile")
    (
        (Set #REG 1)
        (Set #KEYDEST #DEST)
        (If (= @user-level 2)
            (Set #KEYDEST
                (askdir
                    (prompt "Where do you want to install Keyfile")
                    (help (cat @askdir-help))
                    (default #DEST)
                )
            )
        )
    (copyfiles (dest #DEST) (source "AmIndex.keyfile"))
    )
)

(complete 88)

(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
                "reqtools.library is used by AmIndex For all requesters."
                @copylib-help
            )
        )
    )
)

(complete 92)

(copylib
    (source "libs/medplayer.library")
    (dest "libs:")
    (confirm)
    (prompt "\n\nInstall medplayer.library?")
    (help
        (cat "medplayer.library is user to play music" @copylib-help
        )
    )
)


(complete 99)

(If (= #REG 1)
    (Message
        "\n\n\nThank You for\nregister\nAmIndex1.0"
    )
)

(complete 100)