;script to install "Der Produzent - Die Welt des Films" AGA version (German)


(set #intro
(cat "\n\n\n\n\n\nWillkommen zum Installationsprogramm für\n "
     "'Der Produzent - Die Welt des Films AGA'"
))

(set #extro
(cat "\n\n\n\n\nDie Installation von\n "
     "\"Der Produzent - Die Welt des Films (AGA)\"\n"
     "ist erfolgreich abgeschlossen worden.\n"
     "Viel Spaß beim Spielen!"
))


(set #select_dir_help
(cat "In diesem Menü koennen sie das Verzeichniss wählen, in das "
     "Spiel installiert werden soll.\n"
     "Sollte das gewünschte Verzeichniss noch nicht existieren so "
     "koennen sie dieses selbst anlegen."
))



(set #ask-disk1
(cat "\n\n\n\n\nBitte legen Sie die Diskette mit der Aufschrift "
     "\"Der Produzent - Die Welt des Films 1 (AGA)\"\nin ein beliebiges Laufwerk."
))

(set #ask-disk2
(cat "\n\n\n\n\nBitte legen Sie die Diskette mit der Aufschrift "
     "\"Der Produzent - Die Welt des Films 2 (AGA)\"\nin ein beliebiges Laufwerk."
))

(set #ask-disk3
(cat "\n\n\n\n\nBitte legen Sie die Diskette mit der Aufschrift "
     "\"Der Produzent - Die Welt des Films 3 (AGA)\"\nin ein beliebiges Laufwerk."
))

(set #ask-disk4
(cat "\n\n\n\n\nBitte legen Sie die Diskette mit der Aufschrift "
     "\"Der Produzent - Die Welt des Films 4 (AGA)\"\nin ein beliebiges Laufwerk."
))

(set #ask-disk5
(cat "\n\n\n\n\nBitte legen Sie die Diskette mit der Aufschrift "
     "\"Der Produzent - Die Welt des Films 5 (AGA)\"\nin ein beliebiges Laufwerk."
))

(set #ask-savedisk
(cat "\n\n\n\n\nBitte legen Sie die Diskette mit der Aufschrift "
     "\"Der Produzent - Die Welt des Films - Spielstände\"\nin ein beliebiges Laufwerk."
))







(message #intro)


(complete 0)


(set destdir
	(askdir
		(prompt "Wohin soll das Spiel installiert werden?\n"
		 "Es wird dort das Verzeichnis \"Der_Produzent\" "
		 "angelegt, in welches alle Dateien kopiert werden.")
		(help #select_dir_help)
		(default "sys:")
	)
)


(makedir (tackon destdir "Der_Produzent"))

(complete 5)





(askdisk (prompt #ask-disk1)
	 (help @askdisk-help)
         (dest "WF_AGA1")
)







(copyfiles
	(source "WF_AGA1:s/Der_Produzent.info")
	(dest destdir)
)

(set destdir (tackon destdir "Der_Produzent"))

(copyfiles
	(source "WF_AGA1:Der_Produzent.info")
	(dest destdir)
)

(copyfiles
	(source "WF_AGA1:s/Der_Produzent")
	(dest destdir)
)

(copyfiles
	(source "WF_AGA1:TopTen.pal")
	(dest destdir)
)

(copyfiles
	(source "WF_AGA1:TopTen.raw")
	(dest destdir)
)

(copyfiles
	(source "WF_AGA1:g4e")
	(dest destdir)
)

(copyfiles
	(source "WF_AGA1:SilverStyle")
	(dest destdir)
)

(copyfiles
	(source "WF_AGA1:mm")
	(dest destdir)
)

(copyfiles
	(source "WF_AGA1:TRSi-DP.EXE")
	(dest destdir)
)

(complete 10)





(askdisk (prompt #ask-savedisk)
	 (help @askdisk-help)
         (dest "WF_SAVE")
)

(makedir (tackon destdir "Save"))

(copyfiles
	(source "WF_SAVE:")
	(dest (tackon destdir "Save"))
	(all)
)

(complete 20)





(askdisk (prompt #ask-disk2)
	 (help @askdisk-help)
         (dest "WF_AGA2")
)

(copyfiles
	(source "WF_AGA2:")
	(dest destdir)
	(all)
)

(complete 40)





(askdisk (prompt #ask-disk3)
	 (help @askdisk-help)
         (dest "WF_AGA3")
)

(copyfiles
	(source "WF_AGA3:")
	(dest destdir)
	(all)
)

(complete 60)




(askdisk (prompt #ask-disk4)
	 (help @askdisk-help)
         (dest "WF_AGA4")
)

(copyfiles
	(source "WF_AGA4:")
	(dest destdir)
	(all)
)

(complete 80)




(askdisk (prompt #ask-disk5)
	 (help @askdisk-help)
         (dest "WF_AGA5")
)

(copyfiles
	(source "WF_AGA5:")
	(dest destdir)
	(all)
)



(complete 100)

(message #extro)

(set @default-dest destdir)

(exit)