; ----------------------------------------------------------------------------
; HD-Installscript für WARRIOR`S INN by Twist
; $VER: WI HD Install 1.3
; ----------------------------------------------------------------------------



(SET @abort-button "Abbrechen")
(SET @default-dest "SYS:")
(SET @error-msg "Haha! Da is`n Fehler aufgetreten... :(")
(SET @special-msg "Ein katastrophaler Fehler ist aufgetreten! Wir werden alle sterben.")

(WELCOME "Willkommen zur Harddisk-Installation des WARRIOR`S INN, dem einzigartigen Diskettenmagazin für Science Fiction, Fantasy, Science Fantasy, Horror, Dark Future, Rollenspiele...*N")
(COMPLETE 0)

; ---------- Zielverzeichnis aussuchen ---

(SET @default-dest
  (ASKDIR (PROMPT "Ziel wählen (Directory `WI_11` wird generiert!):")
          (HELP @askdir-help)
          (DEFAULT @default-dest))
)
(COMPLETE 5)

(SET maindir (TACKON @default-dest "WI_11"))
(MAKEDIR maindir)
(COPYFILES (SOURCE "WI_11:data/WI_11.info") (DEST @default-dest))
(COMPLETE 10)

; ********************************************************************* Mainpart

(COPYFILES (SOURCE "WI_11:c/LookV3.5") (DEST "c:"))
(COMPLETE 15)

(SET datadir (TACKON maindir "Battle"))
(MAKEDIR datadir)
(COPYFILES (SOURCE "WI_11:Battle") (ALL) (DEST (TACKON maindir "Battle")))
(COMPLETE 20)

(SET datadir (TACKON maindir "ComStar"))
(MAKEDIR datadir)
(COPYFILES (SOURCE "WI_11:ComStar") (ALL) (DEST (TACKON maindir "ComStar")))
(COMPLETE 25)

(SET datadir (TACKON maindir "Pix"))
(MAKEDIR datadir)
(COPYFILES (SOURCE "WI_11:Pix") (ALL) (DEST (TACKON maindir "Pix")))
(COMPLETE 30)

(SET datadir (TACKON maindir "Progs"))
(MAKEDIR datadir)
(COPYFILES (SOURCE "WI_11:Progs") (ALL) (DEST (TACKON maindir "Progs")))
(COMPLETE 35)

(SET datadir (TACKON maindir "Stories"))
(MAKEDIR datadir)
(COPYFILES (SOURCE "WI_11:Stories") (ALL) (DEST (TACKON maindir "Stories")))
(COMPLETE 40)

(SET datadir (TACKON maindir "Text"))
(MAKEDIR datadir)
(COPYFILES (SOURCE "WI_11:Text") (ALL) (DEST (TACKON maindir "Text")))
(COMPLETE 45)

(SET datadir (TACKON maindir "Werbung"))
(MAKEDIR datadir)
(COPYFILES (SOURCE "WI_11:Werbung") (ALL) (DEST (TACKON maindir "Werbung")))
(COMPLETE 50)

(SET datadir (TACKON maindir "data"))
(MAKEDIR datadir)
(COPYFILES (SOURCE "WI_11:data") (ALL) (DEST (TACKON maindir "data")))
(COMPLETE 55)

(SET datadir (TACKON maindir "s"))
(MAKEDIR datadir)
(COPYFILES (SOURCE "WI_11:s") (ALL) (DEST (TACKON maindir "s")))
(COMPLETE 60)

(COPYFILES (SOURCE "WI_11:INNtro!") (DEST (TACKON @default-dest "WI_11")) (INFOS))
(COMPLETE 65)

(COPYFILES (SOURCE "WI_11:Gotcha!") (DEST (TACKON @default-dest "WI_11")) (INFOS))
(COMPLETE 65)

(COPYFILES (SOURCE "WI_11:data/Click_me_first!") (DEST (TACKON @default-dest "WI_11")))
(COMPLETE 70)

(COPYFILES (SOURCE "WI_11:Click_me_first!.info") (DEST (TACKON @default-dest "WI_11")))
(COMPLETE 70)



; **************************************************************** LIBS kopieren

(IF (ASKBOOL (PROMPT "\nexplode.library 5.-1 nach LIBS: kopieren?") (HELP "Entscheide Dich, ob die Library in das assignte LIBS:-Verzeichnis kopiert werden soll (das Vorhandensein der Library ist notwendig, um das WI zum Laufen zu bekommen)."))
    (COPYLIB (SOURCE "WI_11:libs/explode.library") (DEST "LIBS:"))
)
(COMPLETE 75)

(IF (ASKBOOL (PROMPT "\nicon.library 39.3 nach LIBS: kopieren?") (HELP "Entscheide Dich, ob die Library in das assignte LIBS:-Verzeichnis kopiert werden soll (das Vorhandensein der Library ist notwendig, um das WI zum Laufen zu bekommen)."))
    (COPYLIB (SOURCE "WI_11:libs/icon.library") (DEST "LIBS:"))
)
(COMPLETE 80)

(IF (ASKBOOL (PROMPT "\niff.library 23.2 nach LIBS: kopieren?") (HELP "Entscheide Dich, ob die Library in das assignte LIBS:-Verzeichnis kopiert werden soll (das Vorhandensein der Library ist notwendig, um das WI zum Laufen zu bekommen)."))
    (COPYLIB (SOURCE "WI_11:libs/iff.library") (DEST "LIBS:"))
)
(COMPLETE 85)

(IF (ASKBOOL (PROMPT "\npowerpacker.library 35.347 nach LIBS: kopieren?") (HELP "Entscheide Dich, ob die Library in das assignte LIBS:-Verzeichnis kopiert werden soll (das Vorhandensein der Library ist notwendig, um das WI zum Laufen zu bekommen)."))
    (COPYLIB (SOURCE "WI_11:libs/powerpacker.library") (DEST "LIBS:"))
)
(COMPLETE 90)

(IF (ASKBOOL (PROMPT "\nIconX nach C: kopieren?") (HELP "Entscheide Dich, ob IconX kopiert werden soll. Es ist auf jeden Fall für das WI notwendig..."))
    (COPYFILES (SOURCE "WI_11:c/IconX") (DEST "C:"))
)
(COMPLETE 100)

(MESSAGE "\n\nInstallation beendet. Um das WARRIOR`S INN auf Deiner Platte zum Laufen zu bringen, muß die WI-Disk aus dem Laufwerk. Und sonst? HAVE FUN!!!")