;Installer script für WarpWB 1.2 oder höher

;WarpWB von Marcus Tobias

(transcript "Install WarpWB")

(set #dir
	(askdir
		(prompt "Wo soll WarpWB installiert werden?")
		(help @askdir-help)
		(default "SYS:WBStartup")
	)
)

(set #docs
	(askdir
		(prompt "Wohin soll die deutsche Anleitung kopiert werden?")
		(help @askdir-help)
		(default "HELP:")
	)
)

(copyfiles
	(prompt "Kopiere WarpWB")
	(help @copyfiles-help)
	(source "/")
	(dest #dir )
        (choices "WarpWB")
)

(copyfiles
	(prompt "Kopiere WarpWB.info")
	(help @copyfiles-help)
	(source "/")
	(dest #dir )
        (choices "WarpWB.info")
)


(copyfiles
	(prompt "Kopiere WarpWB_GER.guide")
	(help @copyfiles-help)
	(source "/Documents")
	(dest #docs )
        (choices "WarpWB_GER.guide")
)

(copyfiles
	(prompt "Kopiere WarpWB_GER.guide.info")
	(help @copyfiles-help)
	(source "/Documents")
	(dest #docs )
        (choices "WarpWB_GER.guide.info")
)

(copylib
	(prompt "Kopiere lowlevel.library nach LIBS:")
	(help @copylib-help)
	(source "/libs/lowlevel.library")
	(dest "LIBS:")
	(confirm)
)
(message "Ok, Viel Spaß noch mit WarpWB!")