;Boydell, I can't believe I understand all this.  Now I'll NEVER be normal!

(transcript "Thankyou for trying Motion·Collage!\n\n")

(set version
	(askchoice
		(prompt "Which version of DPaint do you own?")
		(help @askchoice-help)
		(choices "DPaintIV:" "DPaintV:")
		(default "DPaintV:")
	)
)

(debug "Customer is using " version)

(set VersionName
	(if version 
		("DPaintV:") ;value is 1, true
		("DPaintIV:")  ;value is 0, false
	)
)

(debug "Customer is using " VersionName)

(message "This installation requires that you have an assign for DPaintIV or DPaintV.\n\n\nIf you do not have this assign,\nplease type \n\nASSIGN DPAINTIV(or V): (YOUR PATH)\n\nin an AmigaShell before you proceed.")

(set name
	(askdir
		(prompt "We recommend you make a directory called \"Motion·Collage\" for the tutorial, animations,\n& documents.  Simply type \"DPaintIV\" or \"DPaintV\" in the string below, then click on \"Make New Drawer...\"")
		(help @askdir-help)
		(default VersionName)
	)
)

(debug "Directory was " name)

(run "LhA e ezreader.lha ram:")

(copyfiles
	(prompt "Moving EasyReader to SYS:")
	(help @copyfiles-help)
	(source "RAM:")
	(dest "sys:")
	(choices "EasyReader" "EasyReader Help.text")
	(files)
	(infos)
)
 
(run "delete ram:Eas#? all quiet force")

(copyfiles
	(prompt "Moving some text files to "name)
	(help @copyfiles-help)
	(source "")
	(dest name)
	(choices "Read Me!")
	(files)
	(infos)
)

(copyfiles
	(prompt "Moving Copyright notice to "name)
	(help @copyfiles-help)
	(source "")
	(dest name)
	(choices "Hey!")
	(files)
	(infos)
)

(message "Please wait while the Motion Clips\nare dearchived into RAM:")

(run "LhA e Move.LhA ram:")

(copyfiles
	(prompt "We're now ready to install the Motion Clips(tm)...")
	(help @copyfiles-help)
	(source "RAM:")
	(dest VersionName)
	(choices "Move")
	(files)
	(confirm)
)

(run "delete ram:mov#? all quiet force")

(run "LhA e vt.LhA ram:")

(copyfiles
	(prompt "Copying VT to C:")
	(help "VT is short for ViewTek, an excellent graphics viewing utility by Thomas Krehbiel.  If you already have this program in your path you can skip this part.")
	(source "RAM:")
	(dest "C:")
	(choices "VT")
	(files)
	(confirm)
)

(run "delete ram:vt#? all quiet force")

(message "We've made reference animations to go along with the 20 Motion Clips(tm) in this archive.  We highly suggest that you install these animations for your own convenience.  They will take up approximately 467K of space...")

(run "LhA x reference1.LhA ram:")

(copyfiles
	(prompt "If you'd like to install the reference animations, select \"Proceed\"")
	(help "Each animation is a lo-res, 2 color, 30 frame example of the associated Motion Clip(tm).  The animations are indespensible in selecting the proper motion for the job.")
	(source "RAM:")
	(dest name)
	(choices "Animations")
	(files)
	(infos)
	(confirm)
)

(run "delete ram:Animations#? all quiet force")

(run "sys:EasyReader \"Read Me!\"")

(exit "Be sure to read the Copyright notice, not only for your own protection, but also because it contains our mail and e-mail addresses should you ever need to get in contact with us.\n\n\nThankyou for trying Motion·Collage!")