;========================================================================
; $VER CheatList HDInstall Script V1.83 (05.11.94) written by Texas / TFF
;========================================================================
(set installto	(askchoice
		(prompt "Select the drive you want to install to:\n")
		(default 0)
		(choices "DH0:" "DH1:" "HD0:" "WORK:" "Other...")
		(help @askchoice-help)))
(if (= installto 0) (set root "DH0:"))
(if (= installto 1) (set root "DH1:"))
(if (= installto 2) (set root "HD0:"))
(if (= installto 3) (set root "WORK:"))
(if (= installto 4) ((set dest-dir (askdir "disk"
					(Prompt "OK, where do you want it?")
					(default "SYS:")
					(help @askdir-help)))
		    (set dest-dev (getdevice (dest-dir)))
		    (set root (cat dest-dev ":"))))
(set c (cat root "c"))
(set font (cat root "fonts"))
(set libs (cat root "libs"))
(set @default-dest (cat root "CHEATS"))
(set icon (cat root "CHEATS.info"))
(set diskspace (getdiskspace (root)))
(if (< diskspace 1500000) (abort (cat "Ooops, I'm afraid you don't have enough "
				      "room to install CheatList.")))
(makedir (prompt "")
	 (@default-dest)
	 (help @makedir-help))
(makedir (prompt "")
	 (c)
	 (help @makedir-help))
(makedir (prompt "")
	 (font)
	 (help @makedir-help))
(makedir (prompt "")
	 (libs)
	 (help @makedir-help))
(copyfiles (prompt "")
	   (source "Disk_1:CHEATS.inf")
	   (dest root)
	   (newname icon)
	   (optional "askuser")
	   (help @copyfiles-help))
(copyfiles (prompt "")
	   (source "Disk_1:c/RunBack")
	   (dest c)
	   (optional "askuser")
	   (help @copyfiles-help))
(copyfiles (prompt "")
	   (source "Disk_1:c/Run")
	   (dest c)
	   (optional "askuser")
	   (help @copyfiles-help))
(copyfiles (prompt "")
	   (source "Disk_1:c/Resident")
	   (dest c)
	   (optional "askuser")
	   (help @copyfiles-help))
(copyfiles (prompt "")
	   (source "Disk_1:c/Assign")
	   (dest c)
	   (optional "askuser")
	   (help @copyfiles-help))
(copyfiles (prompt "")
	   (source "Disk_1:c/MakeDir")
	   (dest c)
	   (optional "askuser")
	   (help @copyfiles-help))
(copyfiles (prompt "")
	   (source "Disk_1:c/PP")
	   (dest c)
	   (optional "askuser")
	   (help @copyfiles-help))
(copyfiles (prompt "")
	   (source "Disk_1:c/FF")
	   (dest c)
	   (optional "askuser")
	   (help @copyfiles-help))
(copyfiles (prompt "")
	   (source "Disk_1:c/PPShow")
	   (dest c)
	   (optional "askuser")
	   (help @copyfiles-help))
(copyfiles (prompt "")
	   (source "Disk_1:c/IconX")
	   (dest c)
	   (optional "askuser")
	   (help @copyfiles-help))
(copyfiles (prompt "")
	   (source "Disk_1:c/AmigaGuide")
	   (dest c)
	   (optional "askuser")
	   (help @copyfiles-help))
(copyfiles (prompt "")
	   (source "Disk_1:CheatList")
	   (dest @default-dest)
	   (optional "askuser")
	   (help @copyfiles-help))
(copyfiles (prompt "")
	   (source "Disk_1:CheatList.info")
	   (dest @default-dest)
	   (optional "askuser")
	   (help @copyfiles-help))
(copyfiles (prompt "")
	   (source "Disk_1:fonts")
	   (dest font)
	   (all)
	   (optional "askuser")
	   (help @copyfiles-help))
(working (cat "Checking for any needed libraries..."))
(copylib (prompt "")
	 (source "Disk_1:libs/amigaguide.library")
	 (dest libs)
	 (help @copylib-help))
(copylib (prompt "")
	 (source "Disk_1:libs/diskfont.library")
	 (dest libs)
	 (help @copylib-help))
(copylib (prompt "")
	 (source "Disk_1:libs/powerpacker.library")
	 (dest libs)
	 (help @copylib-help))
(copyfiles (prompt "")
	   (source "Disk_1:CHEATS")
	   (dest @default-dest)
	   (all)
	   (optional "askuser")
	   (help @copyfiles-help))
(askdisk (prompt "\nPlease insert CheatList Disk 2 in any drive.")
	 (dest "Disk_2")
	 (help @askdisk-help))
(copyfiles (prompt "")
	   (source "Disk_2:CHEATS")
	   (dest @default-dest)
	   (all)
	   (optional "askuser")
	   (help @copyfiles-help))
(startup   ("CheatList")
           (prompt (cat "\nPutting required assigns in your user-startup...\n"
		       "\n\nWARNING:\n~~~~~~~ \nIf you have a virus checker, "
		       "running, it might inform you of a possible virus in your "
		       "system.\n\nDon't Panic!!!  It is not a virus!!!  It is just "
		       "this program making changes to your user-startup file "
		       "and there is nothing at all to worry about."))
	   (help @startup-help)
	   (command (cat "Assign Disk_1: " root"\nAssign Disk_2: " root"\n")))
(exit (cat "\nOnce your system has been re-booted, you "
	   "can load the lists by opening the \'Cheats\' "
	   "drawer and double-clicking on the \'CheatList\' icon."
	   "\n\n\nI hope the lists prove useful :-)\n\n"))