(set noHelp "No help for this function")
(set dosID (getversion))
(set ver (/ dosID 65536))
(set rev (- dosID (* ver 65536)))
(if (< ver 39) ((message ("\n\nYour OS version: %ld.%ld\n\n\nThis product needs OS 3.0 (39.xx) or higher." ver rev)) (exit (quiet))))

(set dirname
	(askdir
		(prompt "Where do you want IMAGEVISION the be installed?\n (A new drawer will be created.)")
		(help noHelp)
		(default "SYS:")
	)
)

(set name (tackon dirname "IMAGEVISION"))

(makedir name)
(makedir (tackon name "Temp"))

(set @default-dest name)

(set style (askchoice
	(prompt	"Select iconset to use with IMAGEVISION.")
	(help noHelp)
	(choices "MagicWB style." "Original style.")
))

(if style
	(set iconname "Icons_ORG.lzh")
	(set iconname "Icons_MWB.lzh")
)

(set cdrom (askbool
	(prompt	"\n\n\nDo you wish to install from CD-ROM?\n\n(if so, insert data-CD now)")
	(help noHelp)
	(choices "Install from CD-ROM" "Skip CD-ROM")
))

(if cdrom (
	(set cdID (/ (getsum "IV_CD:ID") 65536))
	(set mpeg (askbool
		(prompt	"\n\n\nDo you have a MPEG card installed?")
		(help noHelp)
		(choices "Yes" "No")
	))
	(set cdmask (askoptions
		(prompt	"Select items to install from CD.")
		(help noHelp)
		(default 62)
		(if mpeg 
			(choices "Demo Script (34 Mb)" "Fonts (1.2 Mb)" "Cliparts/Symbols (644 Kb)" "Buttons (46 Kb)" "Sounds (2.7 Mb)" "Music (344 Kb)")
			(choices "Demo Script (22 Mb)" "Fonts (1.2 Mb)" "Cliparts/Symbols (644 Kb)" "Buttons (46 Kb)" "Sounds (2.7 Mb)" "Music (344 Kb)")
		)
	))
))

(startup "IMAGEVISION"
	(prompt	"We need to add a Assign to the \"S:user-startup\" so that your system will be properly configured to use IMAGEVISION.")
	(help noHelp)
	(command "Assign IV: "name"\n")
	(command "Assign >NIL: IV_CD: IV: PATH\n")
	(command "Assign IV_Temp: IV:Temp\n")
)

(working "\n\nExtracting icons...")

(run ("IV_Install_1.0:c/LHex -qfw=%s x IV_Install_1.0:IMAGEVISION/%s" dirname iconname))

(copyfiles
	(prompt "Copying fonts used in IMAGEVISION")
	(help noHelp)
	(source "IV_Install_1.0:Fonts")
	(dest "Fonts:")
	(all)
)

(copyfiles
	(prompt "Copying prefs used in IMAGEVISION")
	(help noHelp)
	(source "IV_Install_1.0:ENVARC")
	(dest "ENVARC:")
	(all)
)

(working "\n\nChecking for old libraries...")

(copylib
	(prompt "Copying asl.library used in IMAGEVISION")
	(help noHelp)
	(source "IV_Install_1.0:libs/asl.library")
	(dest "Libs:")
	(confirm)
)

(copylib
	(prompt "Copying amigaguide.library used in IMAGEVISION")
	(help noHelp)
	(source "IV_Install_1.0:libs/amigaguide.library")
	(dest "Libs:")
	(confirm)
)

(working "\n\nExtracting IMAGEVISION...\n\n\nSupplied by NARWHAL / DiGiTaL CoRRuPTiON.")

(run ("IV_Install_1.0:c/LHex -qfw=%s x IV_Install_1.0:IMAGEVISION/IV.lha" name))

(working "\n\nExtracting tutorial...\n\n\nCleaned by SYNTHETIX / DiGiTaL CoRRuPTiON.")

(run ("IV_Install_1.0:c/LHex -qfw=%s x IV_Install_1.0:IMAGEVISION/Tutorial.lzh" name))

(working "\n\nWorking on tutorial...")

(run ("IV_Install_1.0:c/ANIM2ILBM %s/Scripts/IMAGES %s/Scripts/Tutorial/Frame 10" name name))

(delete ("%s/Scripts/IMAGES" name))

(copyfiles
	(source ("%s/Scripts/Tutorial/Frame0000" name))
	(dest ("%s/Scripts/Tutorial/Step01" name))
	(nogauge)
	(newname "AnimMenu.pic"))
(copyfiles
	(source ("%s/Scripts/Tutorial/Frame0001" name))
	(dest ("%s/Scripts/Tutorial/Step01" name))
	(nogauge)
	(newname "SoundMenu.pic"))
(copyfiles
	(source ("%s/Scripts/Tutorial/Frame0002" name))
	(dest ("%s/Scripts/Tutorial/Step01" name))
	(nogauge)
	(newname "MainMenu.pic"))
(copyfiles
	(source ("%s/Scripts/Tutorial/Frame0003" name))
	(dest ("%s/Scripts/Tutorial/Step02" name))
	(nogauge)
	(newname "Slide1.pic"))
(copyfiles
	(source ("%s/Scripts/Tutorial/Frame0004" name))
	(dest ("%s/Scripts/Tutorial/Step02" name))
	(nogauge)
	(newname "Slide2.pic"))
(copyfiles
	(source ("%s/Scripts/Tutorial/Frame0005" name))
	(dest ("%s/Scripts/Tutorial/Step02" name))
	(nogauge)
	(newname "Slide3.pic"))
(copyfiles
	(source ("%s/Scripts/Tutorial/Frame0006" name))
	(dest ("%s/Scripts/Tutorial/Step05" name))
	(nogauge)
	(newname "MPEGMenu.pic"))
(copyfiles
	(source ("%s/Scripts/Tutorial/Frame0007" name))
	(dest ("%s/Scripts/Tutorial/Step05" name))
	(nogauge)
	(newname "MPEGSlide1.pic"))
(copyfiles
	(source ("%s/Scripts/Tutorial/Frame0008" name))
	(dest ("%s/Scripts/Tutorial/Step05" name))
	(nogauge)
	(newname "MPEGSlide2.pic"))
(copyfiles
	(source ("%s/Scripts/Tutorial/Frame0009" name))
	(dest ("%s/Scripts/Tutorial/Step05" name))
	(nogauge)
	(newname "MPEGSlide3.pic"))

(set cnt 0)
(while (<= cnt 9)
	(delete ("%s/Scripts/Tutorial/Frame%04ld" name cnt))
	(set cnt (+ cnt 1))
)

(if cdrom (
	(if (BITAND 1 cdmask)
		(if mpeg
		((working "\n\n\nCopying Demo script (34 Mb)...")
		(copyfiles
			(prompt "")
			(help noHelp)
			(source "IV_CD:Scripts/Demo")
			(dest ("%s/Scripts/Demo" name))
			(nogauge)
			(optional "nofail" "force")
			(all))
		)
		((working "\n\n\nCopying Demo script (22 Mb)...")
		(copyfiles
			(prompt "")
			(help noHelp)
			(source "IV_CD:Scripts/Demo")
			(dest (tackon name "Scripts/Demo"))
			(pattern "~(#?.mpg)")
			(nogauge)
			(optional "nofail" "force"))
		(delete ("%s/Scripts/Demo/Animations/MPEG/Sweden01.mpg" name))
		(delete ("%s/Scripts/Demo/Animations/MPEG/Sweden02.mpg" name))
		(delete ("%s/Scripts/Demo/Animations/MPEG/Sweden03.mpg" name))
		))
	)
	(if (BITAND 2 cdmask)
		((working "\n\n\nCopying Fonts (1.2 Mb)...")
		(copyfiles
			(prompt "")
			(help noHelp)
			(source "IV_CD:Fonts")
			(dest "FONTS:")
			(nogauge)
			(optional "nofail" "force")
			(all))
		))
	(if (BITAND 4 cdmask)
		((working "\n\n\nCopying Cliparts/Symbols (644 Kb)...")
		(copyfiles
			(prompt "")
			(help noHelp)
			(source "IV_CD:Symbols")
			(dest ("%s/Symbols" name))
			(nogauge)
			(optional "nofail" "force")
			(all))
		))
	(if (BITAND 8 cdmask)
		((working "\n\n\nCopying Buttons (46 Kb)...")
		(copyfiles
			(prompt "")
			(help noHelp)
			(source "IV_CD:Buttons")
			(dest ("%s/Buttons" name))
			(nogauge)
			(optional "nofail" "force")
			(all))
		))
	(if (BITAND 16 cdmask)
		((working "\n\n\nCopying Sounds (2.2 Mb)...")
		(copyfiles
			(prompt "")
			(help noHelp)
			(source "IV_CD:Sounds")
			(dest ("%s/Sounds" name))
			(files)
			(nogauge)
			(optional "nofail" "force")
			(pattern "#?"))
		))
	(if (BITAND 32 cdmask)
		((working "\n\n\nCopying Music (344 Kb)...")
		(copyfiles
			(prompt "")
			(help noHelp)
			(source "IV_CD:Music")
			(dest ("%s/Music" name))
			(nogauge)
			(optional "nofail" "force")
			(all))
		))
))

(working "\n\n\nCleaning up...")
(foreach name "#?" (
	(set fileName1 (tackon name @each-name))
	(protect fileName1 0)
	(if (> @each-type 0)
		(foreach fileName1 "#?" (
		((set fileName2 (tackon fileName1 @each-name))
		(protect fileName2 0))
		(if (> @each-type 0)
			(foreach fileName2 "#?" (
			((set fileName3 (tackon fileName2 @each-name))
			(protect fileName3 0))
			(if (> @each-type 0)
				(foreach fileName3 "#?" (
				((set fileName4 (tackon fileName3 @each-name))
				(protect fileName4 0))
				(if (> @each-type 0)
					(foreach fileName4 "#?" (
					((set fileName5 (tackon fileName4 @each-name))
					(protect fileName5 0))
					))
				)))
			)))
		)))
	)
))

(foreach "FONTS:" "I#?" (
	(set fileName1 (tackon "FONTS:" @each-name))
	(protect fileName1 0)
	(if (> @each-type 0)
		(foreach fileName1 "#?" (
		((set fileName2 (tackon fileName1 @each-name))
		(protect fileName2 0))
	)))
))

(set username "")
(while (= username "")
	(set username (askstring
		(prompt	"\nPlease register ImageVision now.\n\nEnter your full name...")
		(help noHelp)
)))
(set username (cat '"' username '"'))
(set company (askstring
	(prompt	"\nPlease register ImageVision now.\n\nEnter your organisation name...")
	(help noHelp)
))
(set company (cat '"' company '"'))
(run ("IV_Install_1.0:c/RegInfo %s/IMAGEVISION %s %s" name username company))
(message "\n\n\nYou will need to reboot your computer to make all changes active...")