; thing, ish subsystem Installer script. © THP / citrus '94-95.

             ; If 6 was 9, sex would be much more interesting...


; /******************************************************************************/

                                   ; Uh?

(set #copying-arplib "Copying ARP.library to LIBS:")
(set #copying-reqtoolslib "Copying ReqTools.library to LIBS:")
(set #copying-thing  "Copying Thing to C:")
(set #copying-du "Copying DU to C:")


; /******************************************************************************/

                    ; Enough kacking around, let's GO!


(set reqtoolslib "libs/20/reqtools.library")

(if (< (/ (getversion) 65536) 37)
	(
	(set reqtoolslib "libs/13/reqtools.library")
	(copylib
		(prompt "\n" #copying-arplib)
		(help @copylib-help)
		(source "libs/arp.library")
		(dest "libs:")
		(confirm)
		)

	(copyfiles
		(prompt "\n" #copying-du)
		(help @copyfiles-help)
		(source "du/du")
		(dest "c:")
		(confirm)
		)

	)
)


(copylib
	(prompt "\n" #copying-reqtoolslib)
	(help @copylib-help)
	(source reqtoolslib)
	(dest "libs:")
	(confirm)
)


(copylib
	(prompt "\n" #copying-thing)
	(help @copylib-help)
	(source "thing")
	(dest "C:")
	(confirm)
)

(message (cat "\n"
	       "'ish, thing' is almost installed.\n\n"
	       "All that's left is for you to drag the 'ish' icon to"
	       " wherever you'd like to have it on your drives, and then simply"
	       " double-click on it to fire it up.")
)

(exit (quiet))