; This is the installation of Züri to your Hard-Disk

(transcript "Züri little big City")


(set dest_name
	(askdir
		(prompt "Wo soll ein Ordner Züri installiert werden??")
		(help @askdir-help)
		(default @default-dest)
	)
)

(set dest_name (tackon dest_name "Züri")
)


(makedir dest_name
	(prompt "Es wird ein Ordner \"" dest_name "\" kreiert.")
	(help @makedir-help)
	(confirm)
)

;We now have a valid destination, so tell Installer where Züri will end up
;so the exit page will be correct.
(set @default-dest dest_name)

(copylib
	(prompt "Züri braucht smusplayer.library.")
	(help @copylib-help)
	(source "libs/smusplayer.library")
	(dest dest_name)
	(confirm)
)

(copylib
	(prompt "Züri braucht arp.library.")
	(help @copylib-help)
	(source "libs/arp.library")
	(dest "libs:")
	(confirm)
)

(copyfiles
	(source "Züri")
	(dest dest_name)
	(infos)
)

(message "Habe eben Züri kopiert.")

(copyfiles
	(source "Instru")
	(dest (tackon dest_name "Instru"))
	(all)
)

(copyfiles
	(source "Sample")
	(dest (tackon dest_name "Sample"))
	(all)
)


(copyfiles
	(source "Scores")
	(dest (tackon dest_name "Scores"))
	(all)
)

(copyfiles
	(source "InfOrt")
	(dest (tackon dest_name "InfOrt"))
	(all)
)

(copyfiles
	(source "Pictur")
	(dest (tackon dest_name "Pictur"))
	(all)
)



(makedir 
	(tackon dest_name "Games")
)

(copyfiles
	(source "Games.info")
	(dest dest_name)
)

(exit)