;
; $VER: Installer Script for StarBase_CLI
;

(set #wrongOS  "StarBase_CLI Needs OS3.0 Or Better\n")
(set #wrongCPU "StarBase_CLI Needs 68020 Or Better\n")

(set #StarBase_CLI_dir (cat "Choose Directory To Install StarBase_CLI\n"
                            "** A Drawer Will NOT Be Created **"))

(set #done (cat "\nStarBase_CLI Has Been Installed.\n\n"))

(set OS_ver (getversion "exec.library" (resident)))
(if (< OS_ver (* 39 65536)) (abort #wrongOS))

(set cpu_type (database "cpu"))
(if (< cpu_type "68020") (abort #wrongCPU))

(complete 0)

(set StarBase_CLI_def_dir "Work:StarBase")

(set StarBase_CLI_dir
 (askdir
  (default StarBase_CLI_def_dir)
  (prompt #StarBase_CLI_dir)
  (help @askdir-help)
 )
)

(complete 5)

(set Data_CLI_dir (tackon StarBase_CLI_dir "Data"))

(set SRTK_CLI_dir (tackon Data_CLI_dir "SRTK"))

(set Settings_CLI_dir (tackon Data_CLI_dir "Settings"))

(complete 10)

(if (not (exists Data_CLI_dir))
 (makedir Data_CLI_dir)
)

(complete 15)

(if (not (exists SRTK_CLI_dir))
 (makedir SRTK_CLI_dir)
)

(complete 20)

(if (not (exists Settings_CLI_dir))
 (makedir Settings_CLI_dir)
)

(complete 25)

(if (not (exists "FONTS:SBCP"))
 (makedir "FONTS:SBCP")
)

(complete 30)

(copyfiles (source "StarBase_CLI") (dest StarBase_CLI_dir))
(copyfiles (source "StarBase_CLI.info") (dest StarBase_CLI_dir))

(complete 35)

(copyfiles (source "StarBase_CLI.guide") (dest StarBase_CLI_dir))
(copyfiles (source "StarBase_CLI.guide.info") (dest StarBase_CLI_dir))

(complete 40)

(copyfiles (source "StarBase_CLI.readme") (dest StarBase_CLI_dir))
(copyfiles (source "StarBase_CLI.readme.info") (dest StarBase_CLI_dir))

(complete 45)

(copyfiles (source "Script_CLI") (dest StarBase_CLI_dir))
(copyfiles (source "Script_CLI.info") (dest StarBase_CLI_dir))

(complete 50)

(copyfiles (source "Font/SBCP.font") (dest "FONTS:"))

(complete 55)

(copyfiles (source "Font/SBCP/7f") (dest "FONTS:SBCP"))

(complete 60)

(copyfiles (source "Data/Settings/1.8svx") (dest Settings_CLI_dir))

(complete 65)

(copyfiles (source "Data/Settings/2.8svx") (dest Settings_CLI_dir))

(complete 70)

(copyfiles (source "Data/Settings/3.8svx") (dest Settings_CLI_dir))

(complete 75)

(copyfiles (source "Data/Settings/4.8svx") (dest Settings_CLI_dir))

(complete 80)

(copyfiles (source "Data/SRTK.Text") (dest Data_CLI_dir))

(complete 90)

(copyfiles (source "Data/SRTK/One.Iff") (dest SRTK_CLI_dir))

(complete 95)

(copyfiles (source "Data/SRTK/One.Ilbm") (dest SRTK_CLI_dir))

(complete 100)

(message #done "\"" StarBase_CLI_dir "\"")

(exit (QUIET))