;          Gate2Freedom
;Skrypt instalacyjny na dysk twardy
;Autor: Krzysztof Dura / Serio-Comic.

(complete 0)

(message "\n\n\n\n\n\nInstalacja gry \"Gate2Freedom\".\n"
	 "Wymaga 1,8 MB wolnego miejca na dysku twardym.")

(set destdir
  (askdir
    (prompt "Wybierz katalog, gdzie mam zainstalowaê \"Gate2Freedom\".")
    (help @askdir-help)
    (default @default-dest)
  )
)

(set @default-dest destdir)

(makedir (tackon destdir "level1"))
(makedir (tackon destdir "level2"))
(makedir (tackon destdir "level3"))
(makedir (tackon destdir "endseq"))
(makedir (tackon destdir "others"))

(complete 10)

(working "Instalowanie \"Gate2Freedom\"...")

(copyfiles
  (source "Gate2Freedom_dysk2:level2/level2.01")
  (dest (tackon destdir "level2"))
  (help @copyfiles-help)
)

(complete 20)

(copyfiles
  (source "Gate2Freedom_dysk2:level3/")
  (dest (tackon destdir "level3"))
  (help @copyfiles-help)
  (choices
     "level3"
     "level3.01"
     "level3.02"
     "level3.03"
  )
)

(complete 40)

(askdisk
  (prompt "\n\n\n\n\n\nWîóû \"Gate2Freedom_dysk1:\".")
  (help @askdisk-help)
  (dest "Gate2Freedom_dysk1")
)

(complete 45)

(copyfiles
  (source "Gate2Freedom_dysk1:level1/")
  (dest (tackon destdir "level1"))
  (help @copyfiles-help)
  (choices
     "level1"
     "level1.01"
     "level1.02"
     "level1.03"
     "level1.04"
  )
)

(complete 55)

(copyfiles
  (source "Gate2Freedom_dysk1:level2/")
  (dest (tackon destdir "level2"))
  (help @copyfiles-help)
  (choices
     "level2"
     "level2.02"
     "level2.03"
  )
)

(complete 60)

(copyfiles
  (source "Gate2Freedom_dysk1:others/")
  (dest (tackon destdir "others"))
  (help @copyfiles-help)
  (choices
     "scintro"
     "menu"
     "menu.01"
     "miragelogo"
  )
)

(complete 65)

(copyfiles
  (source "Gate2Freedom_dysk1:endseq/endseq")
  (dest (tackon destdir "endseq"))
  (help @copyfiles-help)
)

(complete 70)

(copyfiles
  (source "Gate2Freedom_dysk1:")
  (dest destdir)
  (help @copyfiles-help)
  (choices
     "Gate2Freedom.exe"
     "Gate2Freedom.info"
  )
)

(complete 75)

(set libsdir
  (askdir
    (prompt "Wskaû katalog, gdzie umieôciê bibliotekë\n\"serio-comic.library\".")
    (help @askdir-help)
    (default "LIBS:")
  )
)

(complete 80)

(copylib
  (source "Gate2Freedom_dysk1:libs/serio-comic.library")
  (dest libsdir)
  (help @copylib-help)
)

(complete 90)

(textfile
  (dest
    (tackon destdir "Gate2Freedom")
  )
  (prompt "Tworzenie skryptu uruchamiajâcego grë...")
  (append "assign Gate2Freedom_dysk1: " destdir "\n"
	  "assign Gate2Freedom_dysk2: " destdir "\n"
	  "Gate2Freedom_dysk1:Gate2Freedom.exe\n")
)

(complete 100)

(message "\n\n\n\n\nGra \"Gate2Freedom\" zostaîa zainstalowana.\n"
	 "Ûyczymy miîej zabawy.\n\n"
	 "Serio-Comic. (1995)")

(exit)