;Installer script for WarpWB 1.2 and higher

;WarpWB by Marcus Tobias

(transcript "Install WarpWB")

(set #dir
	(askdir
		(prompt "Where to install WarpWB?")
		(help @askdir-help)
		(default "SYS:WBStartup")
	)
)

(set #docs
	(askdir
		(prompt "Where to copy the docs")
		(help @askdir-help)
		(default "HELP:")
	)
)

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

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


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

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


(copylib
	(prompt "Copy lowlevel.library to LIBS:")
	(help @copylib-help)
	(source "/libs/lowlevel.library")
	(dest "LIBS:")
	(confirm)
)
(message "Well, I hope you like WarpWB!")