;;
;;  Shaq-Fu AGA
;;  HDInstall, v1.0, 1995-02-20, 14:28:05
;;  by Rikki Ratboy/dA hOlY bRoThErHoOd!
;;

(complete 0)

(set sf_dest
	(askdir
		(prompt
			"In which disk or drawer should the Shaq-Fu "
			"drawer be created?"
		)
		(help
			"The installation utility will create a drawer named"
			" \"Shaq\" in this directory.  All Shaq-Fu "
			"files will be placed inside that directory.\n\n"
			"The selected directory must have about 3.7Mb free storage"
			"left.\n\n"
		)
		(default @default-dest)
	)
)

(makedir (tackon sf_dest "Shaq") (infos))
(set sf_dest (tackon sf_dest "Shaq"))
(set @default-dest sf_dest)
(set disk_space (getdiskspace sf_dest))

(working "Installing...")
	(copyfiles
	(source "")
	(dest sf_dest)
	(pattern "shaq_hd")
)

(complete 4)
(askdisk
	(prompt "Please insert the disk labeled \"Disk 1\"")
	(help "Simply copying the files, Ok?")
	(dest "Shaq-Fu Boot Disk AGA")
)

(set @execute-dir sf_dest)

(working "Installing...")
	(copyfiles
	(source "Shaq-Fu Boot Disk AGA:")
	(dest sf_dest)
	(pattern "(1#?|SHAQ.bin)")
)

(complete 20)
(askdisk
	(prompt "Please insert the disk labeled \"Disk 2\"" )
	(help "Simply copying the files, Ok?")
	(dest "Shaq-Fu Disk 2 AGA")
)

(working "Installing....")
(copyfiles
	(source "Shaq-Fu Disk 2 AGA:")
	(dest sf_dest)
	(pattern "2#?" )
)

(complete 36)
(askdisk
	(prompt "Please insert the disk labeled \"Disk 3\"" )
	(help "Simply copying the files, Ok?")
	(dest "Shaq-Fu Disk 3 AGA")
)

(working "Installing....")
(copyfiles
	(source "Shaq-Fu Disk 3 AGA:")
	(dest sf_dest)
	(pattern "(-#?|3#?)")
)

(complete 52)
(askdisk
	(prompt "Please insert the disk labeled \"Disk 4\"" )
	(help "Simply copying the files, Ok?")
	(dest "Shaq-Fu Disk 4 AGA")
)

(working "Installing....")
(copyfiles
	(source "Shaq-Fu Disk 4 AGA:")
	(dest sf_dest)
	(pattern "4#?")
)

(complete 68)
(askdisk
	(prompt "Please insert the disk labeled \"Disk 5\"" )
	(help "Simply copying the files, Ok?")
	(dest "Shaq-Fu Disk 5 AGA")
)

(working "Installing....")
(copyfiles
	(source "Shaq-Fu Disk 5 AGA:")
	(dest sf_dest)
	(pattern "5#?")
)

(complete 84)
(askdisk
	(prompt "Please insert the disk labeled \"Disk 6\"" )
	(help "Simply copying the files, Ok?")
	(dest "Shaq-Fu Disk 6 AGA")
)

(working "Installing....")
(copyfiles
	(source "Shaq-Fu Disk 6 AGA:")
	(dest sf_dest)
	(pattern "6#?")
)

(complete 100)