; BlitzBombers v60 Installer Script
; ©1995 Leading Edge Software

(set sourcepath @icon)

(set path
	(askdir
		(prompt "Where do you wish to install BlitzBombers?\nA \"BlitzBombers\" directory will be created.")
		(help @askdir-help)
		(default "Work:")
	)
)

(set devicename
	(substr	path (- (strlen path) 1) 1)
)

(set slash "")

(if (= devicename ":")
	(set slash "")
	(set slash "/")
)

(set path
	(cat path slash "BlitzBombers")
)
(makedir path
  (prompt "Creating BlitzBombers directory....")
  (help @makedir-help)  
  (infos)
)

(copyfiles
	(help @copyfiles-help)
	(source "")
	(dest path)
	(all)
)
	

(set @default-dest path)