;$VER: Install Scuba Diver 1.0 (01-10-1994)
;Scuba Diver Hard Drive Installation Script

(complete 0)

;=============================================================================

(set #ask-Aquarius-dir
	(cat
		"In which disk or drawer should a drawer \"Scuba_Diver\" "
		"be created, where all files will be copied?"
	)
)

(set #ask-Aquarius-dir-help
	(cat
		"Where you want to install Scuba Diver and all"
		"support files. A drawer \"Scuba_Diver\" will "
		"be created, so you select \"DH0:\" to install Scuba Diver"
		"in a drawer \"DH0:Scuba_Diver\".\n\n"
	)
)

(set #ask-Aquarius-mesg-insert
	(cat
		"\n"
		"Please insert a floppy disk to be formatted\ninto drive DF0:"
	)
)

(set #ask-Aquarius-working-formatting
	(cat
		"\n"
		"Formatting disk in drive DF0:\nPlease wait...."
	)
)

(set #ask-Aquarius-copying
	(cat
		"\n"
		"Copying Scuba Diver files....\n\n"
		"Look out for other Surreal Games\n\n"
		"Crystal Skull - Isometric Adventure 1992\n"
		"An adventure with Populous style graphics\n\n"
		"Pssst AGA - Vastly updated Spectrum game 1995\n"
		"In top twenty PD Games in XMas Amiga Power\n\n"
		"Don't splat the babies AGA - Autumn 1996\n"
		"Frantic Hospital action with babies & lift shafts & Plug sockets!\n" 
	)
)

;=============================================================================

(
	(set #ask-Aquarius-dir #ask-Aquarius-dir)
	(set #ask-Aquarius-dir-help #ask-Aquarius-dir-help)
	(set #ask-Aquarius-mesg-insert #ask-Aquarius-mesg-insert)
;	(set #ask-Aquarius-working-formatting #ask-Aquarius-working-formatting)
	(set #ask-Aquarius-copying #ask-Aquarius-copying)
	(set #ask-Aquarius-diskfull #ask-Aquarius-diskfull)
)


(set Aquarius_dest
	(tackon
		(askdir
			(prompt #ask-Aquarius-dir)
			(help
				#ask-Aquarius-dir-help
				@askdir-help
			)
			(default "Work:")
		)
		"Scuba_Diver"
	)
)
(set @default-dest Aquarius_dest)
(complete 10)

(working #ask-Aquarius-copying)

(makedir Aquarius_dest
	(infos)
)

(complete 20)

;Copy all the program files from disk 1 to dest

(copyfiles
	(source "Disk 001:")
	(dest Aquarius_dest)
	(pattern "~((Install)#?)")
	(infos)
	(help @copyfiles-help)
)

(complete 40)



;Copy all the program files from disk 2 to dest

(copyfiles
	(source "Disk 002:")
	(dest Aquarius_dest)
	(pattern "~((Install)#?)")
	(infos)
	(help @copyfiles-help)
)

(complete 60)



;Copy all the program files from disk 3 to dest

(copyfiles
	(source "Disk 003:")
	(dest Aquarius_dest)
	(pattern "~((Install)#?)")
	(infos)
	(help @copyfiles-help)
)

(complete 80)

(rename (cat Aquarius_dest "/Scuba_Diver") (cat Aquarius_dest "/Scuba_Diver_HD")
	(help @rename-help)
)
(rename (cat Aquarius_dest "/Scuba_Diver.info") (cat Aquarius_dest "/Scuba_Diver_HD.inf")
	(help @rename-help)
)
(rename (cat Aquarius_dest "/HD_Scuba_Diver") (cat Aquarius_dest "/Scuba_Diver")
	(help @rename-help)
)
(rename (cat Aquarius_dest "/HD_Scuba_Diver.inf") (cat Aquarius_dest "/Scuba_Diver.info")
	(help @rename-help)
)
(complete 100)
(exit)