; ProWrite Hard Disk Installer script
; Written by Mark Thomas

(if (< @user-level 1)
	(user 1)
	(user 2)
)

(set vernum (getversion "c:iconx"))
(set ver (/ vernum 65536))
(set rev (- vernum (* ver 65536) ) )

(set @default-dest
	(askdir
		(prompt "Please select a drawer where ProWrite is to be installed.")
		(help "All ProWrite files will be installed into the drawer selected.  If you need a new drawer, select the 'Make New Drawer' button.")
		(default @default-dest)
	)
)

(set pwfile (tackon @default-dest "ProWrite"))

(set answer 1)
(if (> @user-level 1)
	(set answer
		(askbool
			(prompt "Do you wish to install the ProWrite program?")
			(help "The ProWrite program is necessary for running ProWrite.  It is the main program in the ProWrite package.")
		)
	)
)
(if answer
	(
		(askdisk
			(prompt "Please insert the Program disk in any drive.")
			(help "The Program disk is needed to install the files: ProWrite, PostScript Prep, Thesaurus, sample macros, and Main Dictionary.")
			(dest "Program")
		)

		(copyfiles
			(source "Program:")
			(dest @default-dest)
			(infos)
			(choices "ProWrite" "PostScript Prep")
		)

		(tooltype
			(dest (tackon @default-dest "ProWrite"))
			(noposition)
		)
		(tooltype
			(dest (tackon @default-dest "PostScript Prep"))
			(noposition)
		)

	)
)

(set answer 1)
(if (> @user-level 1)
	(set answer
		(askbool
			(prompt "Do you wish to install the Thesaurus?")
			(help "The Thesaurus file is needed to use the Thesaurus option in ProWrite.")
		)
	)
)
(if answer
	(
		(askdisk
			(prompt "Please insert the Program disk in any drive.")
			(help "The Program disk is needed to install the files: ProWrite, PostScript Prep, Thesaurus, sample macros, and Main Dictionary.")
			(dest "Program")
		)

		(copyfiles
			(source "Program:")
			(dest @default-dest)
			(infos)
			(choices "Thesaurus")
		)

		(tooltype
			(dest (tackon @default-dest "Thesaurus"))
			(noposition)
		)
	)
)

(set answer 1)
(if (> @user-level 1)
	(set answer
		(askbool
			(prompt "Do you wish to install the ProWrite example AREXX macros?")
			(help "The ProWrite example AREXX macros are macros that can be used if you have AREXX installed in you system.  If you do not have AREXX then you cannot use them, although you may still install them.\n\nAREXX comes standard with the 2.0 Workbench and is also available separately for the 1.3 Workbench.")
		)
	)
)
(if answer
	(
		(askdisk
			(prompt "Please insert the Program disk in any drive.")
			(help "The Program disk is needed to install the files: ProWrite, PostScript Prep, Thesaurus, sample macros, and Main Dictionary.")
			(dest "Program")
		)

		(copyfiles
			(source "Program:")
			(dest @default-dest)
			(infos)
			(choices
				"HangingIndent"
				"Indent"
				"UnIndent"
				"Transpose"
				"EndNote"
				"Math"
				"ChangeFont"
				"ChangeDocFont"
			)
		)

		(tooltype
			(dest (tackon @default-dest "HangingIndent"))
			(setdefaulttool pwfile)
		)
		(tooltype
			(dest (tackon @default-dest "Indent"))
			(setdefaulttool pwfile)
		)
		(tooltype
			(dest (tackon @default-dest "UnIndent"))
			(setdefaulttool pwfile)
		)
		(tooltype
			(dest (tackon @default-dest "Transpose"))
			(setdefaulttool pwfile)
		)
		(tooltype
			(dest (tackon @default-dest "EndNote"))
			(setdefaulttool pwfile)
		)
		(tooltype
			(dest (tackon @default-dest "Math"))
			(setdefaulttool pwfile)
		)
		(tooltype
			(dest (tackon @default-dest "ChangeFont"))
			(setdefaulttool pwfile)
		)
		(tooltype
			(dest (tackon @default-dest "ChangeDocFont"))
			(setdefaulttool pwfile)
		)

		(if
			(askbool
				(prompt "Do you wish to install a default FKeys file?  (see help for more info)")
				(help "This file contains default settings for the Macro menu.  Choosing to install this file may overwrite your current settings.")
			)
			(copyfiles
				(source "Program:")
				(dest @default-dest)
				(infos)
				(choices "ProWrite FKeys")
			)
		)
	)
)

(set answer 1)
(if (> @user-level 1)
	(set answer
		(askchoice
			(prompt "Select which dictionary to install, or none.")
			(help "The Main Dictionary is a small dictionary containing about 50,000 words.  The Big Dictionary is a dictionary containing over 100,000 words.  Most hard drive users will want to install the Big Dictionary.  If you do not want the dictionary option in ProWrite, then choose None.")
			(choices
				"Small Dictionary (50,000 words)"
				"Big Dictionary (100,000 words)"
				"None"
			)
			(default 1)
		)
	)
)
(if (= answer 0)
	(
		(askdisk
			(prompt "Please insert the Program disk in any drive.")
			(help "The Program disk is needed to install the files: ProWrite, PostScript Prep, Thesaurus, sample macros, Main Dictionary.")
			(dest "Program")
		)

		(copyfiles
			(source "Program:")
			(dest @default-dest)
			(infos)
			(choices "Main Dictionary")
		)

		(tooltype
			(dest (tackon @default-dest "Main Dictionary"))
			(noposition)
		)
	)
)
(if (= answer 1)
	(
		(askdisk
			(prompt "Please insert the Extras disk in any drive.")
			(help "The Extras disk is needed to install the files: Big Dictionary, File Convert, RAMStart, sample documents, and an optional Flow demo.")
			(dest "Extras")
		)

		(copyfiles
			(source "Extras:")
			(dest @default-dest)
			(infos)
			(choices "Big Dictionary")
		)

		(tooltype
			(dest (tackon @default-dest "Big Dictionary"))
			(noposition)
		)

		(delete (tackon @default-dest "Main Dictionary"))
		(delete (tackon @default-dest "Main Dictionary.info"))

		(rename (tackon @default-dest "Big Dictionary") (tackon @default-dest "Main Dictionary"))
		(rename (tackon @default-dest "Big Dictionary.info") (tackon @default-dest "Main Dictionary.info"))
	)
)

(set answer 1)
(if (> @user-level 1)
	(set answer
		(askbool
			(prompt "Do you wish to install the ProWrite sample documents?")
			(help "The ProWrite sample documents contain examples of a letter, a merge letter, data for the merge letter, and several resumes.")
		)
	)
)
(if answer
	(
		(askdisk
			(prompt "Please insert the Extras disk in any drive.")
			(help "The Extras disk is needed to install the files: Big Dictionary, File Convert, RAMStart, sample documents, and an optional Flow demo.")
			(dest "Extras")
		)

		(copyfiles
			(source "Extras:")
			(dest @default-dest)
			(infos)
			(choices "Documents")
		)

		(set docdrawer (tackon @default-dest "Documents"))

		(tooltype
			(dest docdrawer)
			(noposition)
		)
		(tooltype
			(dest (tackon docdrawer "Memo"))
			(setdefaulttool pwfile)
		)
		(tooltype
			(dest (tackon docdrawer "Merge Letter"))
			(setdefaulttool pwfile)
		)
		(tooltype
			(dest (tackon docdrawer "Chronological Resume"))
			(setdefaulttool pwfile)
		)
		(tooltype
			(dest (tackon docdrawer "Targeted Resume"))
			(setdefaulttool pwfile)
		)
		(tooltype
			(dest (tackon docdrawer "Merge Data"))
			(setdefaulttool pwfile)
		)
		(tooltype
			(dest (tackon docdrawer "Functional Resume"))
			(setdefaulttool pwfile)
		)
	)
)

(set answer 1)
(if (> @user-level 1)
	(set answer
		(askbool
			(prompt "Do you wish to install the File Convert utility?")
			(help "The File Convert utility is useful for converting other word processor documents into the ProWrite document format.\n\nSupported formats are BeckerText, excellence!, Final Copy, KindWords, Pen Pal, RTF, Scribble!, Textcraft, Textcraft Plus, TextPro, and WordPerfect.")
		)
	)
)
(if answer
	(
		(askdisk
			(prompt "Please insert the Extras disk in any drive.")
			(help "The Extras disk is needed to install the files: Big Dictionary, File Convert, RAMStart, sample documents, and an optional Flow demo.")
			(dest "Extras")
		)

		(copyfiles
			(source "Extras:")
			(dest @default-dest)
			(infos)
			(choices "Convert")
		)

		(tooltype
			(dest (tackon @default-dest "Convert"))
			(noposition)
		)
	)
)

(if (> @user-level 1)
	(if
		(askbool
			(prompt "Do you wish to install the Flow demo program?")
			(help "Flow is an outline processor and is available separately from New Horizons Software, Inc.  A demo version that does not save or print is included with the ProWrite package.")
		)
		(
			(askdisk
				(prompt "Please insert the Extras disk in any drive.")
				(help "The Extras disk is needed to install the files: Big Dictionary, File Convert, RAMStart, sample documents, and an optional Flow demo.")
				(dest "Extras")
			)

			(copyfiles
				(source "Extras:")
				(dest @default-dest)
				(infos)
				(choices "Flow" "Flow Info")
			)

			(tooltype
				(dest (tackon @default-dest "Flow"))
				(noposition)
			)
			(tooltype
				(dest (tackon @default-dest "Flow Info"))
				(noposition)
			)
		)
	)
)

(set sysmdrawer "SYS:Utilities")
(set sysanswer 1)
(if (> @user-level 1)
	(
		(set sysanswer
			(askbool
				(prompt "Do you wish to install the System Mover utility?")
				(help "The System Mover program is used for moving system files such as fonts, printer drivers, devices, libraries, and other files.  The natural place to install this program is in your SYS:Utilities drawer.")
			)
		)
	)
)
(if sysanswer
	(
		(askdisk
			(prompt "Please insert the Fonts & Devices disk in any drive.")
			(help "The Fonts & Devices disk is needed to install the files: System Mover, fonts, devices, and printer drivers.")
			(dest "Fonts & Devices")
		)

		(if (> @user-level 1)
			(set sysmdrawer
				(askdir
					(prompt "Please select the drawer where System Mover is to be installed.")
					(help "The System Mover program is used for moving system files such as fonts, printer drivers, devices, libraries, and other files.  The natural place to install this program is in your SYS:Utilities drawer.")
					(default "SYS:Utilities")
				)
			)
		)

		(copyfiles
			(source "Fonts & Devices:")
			(dest sysmdrawer)
			(infos)
			(choices "System Mover")
		)
		(tooltype
			(dest (tackon sysmdrawer "System Mover"))
			(noposition)
		)
	)
)

(set answer 1)
(if (> @user-level 1)
	(set answer
		(askbool
			(prompt "Do you wish to install the ProWrite fonts?")
			(help "This option will install the fonts that come with ProWrite into your system fonts drawer.  The fonts are used mainly for printing in Draft, NLQ, or PostScript mode, but can be used in any mode.\n\nIf the ProWrite fonts do not show up in the font list in ProWrite, then you may need to run FixFonts normally located in your SYS:System drawer.")
		)
	)
)
(if answer
	(
		(askdisk
			(prompt "Please insert the Fonts & Devices disk in any drive.")
			(help "The Fonts & Devices disk is needed to install the files: System Mover, fonts, devices, and printer drivers.")
			(dest "Fonts & Devices")
		)

		(foreach "FONTS:Times" "#?"
			(delete ("FONTS:Times/%s" @each-name))
		)
		(foreach "FONTS:Helvetica" "#?"
			(delete ("FONTS:Helvetica/%s" @each-name))
		)
		(foreach "FONTS:Courier" "#?"
			(delete ("FONTS:Courier/%s" @each-name))
		)
		(copyfiles
			(source "Fonts & Devices:fonts")
			(dest "FONTS:")
			(pattern "#?")
		)
	)
)

(set pranswer 1)
(if (> @user-level 1)
	(set pranswer
		(askbool
			(prompt "Do you wish to install a printer driver?")
			(help "Printer drivers are needed to use the print feature of ProWrite.")
		)
	)
)
(if pranswer
	(
		(set printer
			(askoptions
				(prompt "Select printer drivers to install. (Window 1 of 2)")
				(help "If you do not wish to select one of the printer drivers here, then remove all check marks from the boxes.\n\nIf your printer is not listed, then choose a printer that is compatible with your printer or look for your printer on the next option window.")
				(choices
					"Alphacom_Alphapro_101"
					"Brother_HR-15XL"
					"Calcomp_Colormaster"
					"Calcomp_Colormaster2"
					"CBM_MPS1000"
					"Diablo_630"
					"Diablo_Advantage_D25"
					"Diablo_C-150"
					"EpsonQ"
					"EpsonX"
					"EpsonXOld"
					"Generic"
					"Howtek_Pixelmaster"
					"HP_DeskJet"
					"HP_LaserJet"
					"HP_PaintJet"
				)
				(default 512)
			)
		)

		(askdisk
			(prompt "Please insert the Fonts & Devices disk in any drive.")
			(help "The Fonts & Devices disk is needed to install the files: System Mover, fonts, devices, and printer drivers.")
			(dest "Fonts & Devices")
		)

		(if (> printer 0)
			(
				(if (IN printer 0)
					(copyfiles
						(source "Fonts & Devices:devs/printers")
						(choices "Alphacom_Alphapro_101")
						(dest "DEVS:printers")
					)
				)
				(if (IN printer 1)
					(copyfiles
						(source "Fonts & Devices:devs/printers")
						(choices "Brother_HR-15XL")
						(dest "DEVS:printers")
					)
				)
				(if (IN printer 2)
					(copyfiles
						(source "Fonts & Devices:devs/printers")
						(choices "Calcomp_Colormaster")
						(dest "DEVS:printers")
					)
				)
				(if (IN printer 3)
					(copyfiles
						(source "Fonts & Devices:devs/printers")
						(choices "Calcomp_Colormaster2")
						(dest "DEVS:printers")
					)
				)
				(if (IN printer 4)
					(copyfiles
						(source "Fonts & Devices:devs/printers")
						(choices "CBM_MPS1000")
						(dest "DEVS:printers")
					)
				)
				(if (IN printer 5)
					(copyfiles
						(source "Fonts & Devices:devs/printers")
						(choices "Diablo_630")
						(dest "DEVS:printers")
					)
				)
				(if (IN printer 6)
					(copyfiles
						(source "Fonts & Devices:devs/printers")
						(choices "Diablo_Advantage_D25")
						(dest "DEVS:printers")
					)
				)
				(if (IN printer 7)
					(copyfiles
						(source "Fonts & Devices:devs/printers")
						(choices "Diablo_C-150")
						(dest "DEVS:printers")
					)
				)
				(if (IN printer 8)
					(copyfiles
						(source "Fonts & Devices:devs/printers")
						(choices "EpsonQ")
						(dest "DEVS:printers")
					)
				)
				(if (IN printer 9)
					(copyfiles
						(source "Fonts & Devices:devs/printers")
						(choices "EpsonX")
						(dest "DEVS:printers")
					)
				)
				(if (IN printer 10)
					(copyfiles
						(source "Fonts & Devices:devs/printers")
						(choices "EpsonXOld")
						(dest "DEVS:printers")
					)
				)
				(if (IN printer 11)
					(copyfiles
						(source "Fonts & Devices:devs/printers")
						(choices "generic")
						(dest "DEVS:printers")
					)
				)
				(if (IN printer 12)
					(copyfiles
						(source "Fonts & Devices:devs/printers")
						(choices "Howtek_Pixelmaster")
						(dest "DEVS:printers")
					)
				)
				(if (IN printer 13)
					(copyfiles
						(source "Fonts & Devices:devs/printers")
						(choices "HP_DeskJet")
						(dest "DEVS:printers")
					)
				)
				(if (IN printer 14)
					(copyfiles
						(source "Fonts & Devices:devs/printers")
						(choices "HP_LaserJet")
						(dest "DEVS:printers")
					)
				)
				(if (IN printer 15)
					(copyfiles
						(source "Fonts & Devices:devs/printers")
						(choices "HP_PaintJet")
						(dest "DEVS:printers")
					)
				)
			)
		)

		(set printer
			(askoptions
				(prompt "Select printer drivers to install. (Window 2 of 2)")
				(help "If you do not wish to select one of the printer drivers here, then remove all check marks from the boxes.\nIf your printer is not listed, then choose a printer that is compatible with your printer.")
				(choices "HP_ThinkJet"
					"ImageWriterII"
					"NEC_Pinwriter"
					"Okidata_293I"
					"Okidata_92"
					"Okimate_20"
					"Quadram_Quadjet"
					"Qume_LetterPro_20"
					"Seiko_5300"
					"Seiko_5300a"
					"Sharp_JX-730"
					"Tektronix_4693D"
					"Tektronix_4696"
					"Toshiba_P351C"
					"Toshiba_P351SX"
					"Xerox_4020"
				)
				(default 0)
			)
		)

		(askdisk
			(prompt "Please insert the Fonts & Devices disk in any drive.")
			(help "The Fonts & Devices disk is needed to install the files: System Mover, fonts, devices, and printer drivers.")
			(dest "Fonts & Devices")
		)

		(if printer
			(
				(if (IN printer 0)
					(copyfiles
						(source "Fonts & Devices:devs/printers")
						(choices "HP_ThinkJet")
						(dest "DEVS:printers")
					)
				)
				(if (IN printer 1)
					(copyfiles
						(source "Fonts & Devices:devs/printers")
						(choices "ImageWriterII")
						(dest "DEVS:printers")
					)
				)
				(if (IN printer 2)
					(copyfiles
						(source "Fonts & Devices:devs/printers")
						(choices "NEC_Pinwriter")
						(dest "DEVS:printers")
					)
				)
				(if (IN printer 3)
					(copyfiles
						(source "Fonts & Devices:devs/printers")
						(choices "Okidata_293I")
						(dest "DEVS:printers")
					)
				)
				(if (IN printer 4)
					(copyfiles
						(source "Fonts & Devices:devs/printers")
						(choices "Okidata_92")
						(dest "DEVS:printers")
					)
				)
				(if (IN printer 5)
					(copyfiles
						(source "Fonts & Devices:devs/printers")
						(choices "Okimate_20")
						(dest "DEVS:printers")
					)
				)
				(if (IN printer 6)
					(copyfiles
						(source "Fonts & Devices:devs/printers")
						(choices "Quadram_Quadjet")
							(dest "DEVS:printers")
					)
				)
				(if (IN printer 7)
					(copyfiles
						(source "Fonts & Devices:devs/printers")
						(choices "Qume_LetterPro_20")
						(dest "DEVS:printers")
					)
				)
				(if (IN printer 8)
					(copyfiles
						(source "Fonts & Devices:devs/printers")
						(choices "Seiko_5300")
						(dest "DEVS:printers")
					)
				)
				(if (IN printer 9)
					(copyfiles
						(source "Fonts & Devices:devs/printers")
						(choices "Seiko_5300a")
						(dest "DEVS:printers")
					)
				)
				(if (IN printer 10)
					(copyfiles
						(source "Fonts & Devices:devs/printers")
						(choices "Sharp_JX-730")
						(dest "DEVS:printers")
					)
				)
				(if (IN printer 11)
					(copyfiles
						(source "Fonts & Devices:devs/printers")
						(choices "Tektronix_4693D")
						(dest "DEVS:printers")
					)
				)
				(if (IN printer 12)
					(copyfiles
						(source "Fonts & Devices:devs/printers")
						(choices "Tektronix_4696")
						(dest "DEVS:printers")
					)
				)
				(if (IN printer 13)
					(copyfiles
						(source "Fonts & Devices:devs/printers")
						(choices "Toshiba_P351C")
						(dest "DEVS:printers")
					)
				)
				(if (IN printer 14)
					(copyfiles
						(source "Fonts & Devices:devs/printers")
						(choices "Toshiba_P351SX")
						(dest "DEVS:printers")
					)
				)
				(if (IN printer 15)
					(copyfiles
						(source "Fonts & Devices:devs/printers")
						(choices "Xerox_4020")
						(dest "DEVS:printers")
					)
				)
			)
		)

		(message "Make sure that your printer driver is selected in Workbench preferences.")
	)
	(message "Make sure that you have a printer driver installed and selected." "  The System Mover utility can be used to install printer drivers and devices." (if sysanswer ("  The System Mover can be found in %s." sysmdrawer) "  The System Mover can be found on the Fonts & Devices disk.") "  To select a printer driver, use Workbench preferences.")
)

(set devanswer 1)
(if (> @user-level 1)
	(set devanswer
		(askbool
			(prompt "Do you wish to install system software (libraries and devices) needed by ProWrite?")
			(help "This option will install these files: printer.device, serial.device, printer.device, clipboard.device, and iffparse.library.  The files are used for printing and accessing the clipboard.")
		)
	)
)
(if devanswer
	(
		(askdisk
			(prompt "Please insert the Fonts & Devices disk in any drive.")
			(help "The Fonts & Devices disk is needed to install the files: System Mover, fonts, devices, and printer drivers.")
			(dest "Fonts & Devices")
		)

		(copyfiles
			(source "Fonts & Devices:devs")
			(pattern "#?")
			(dest "DEVS:")
			(files)
		)

		(copyfiles
			(source "Fonts & Devices:libs")
			(pattern "#?")
			(dest "LIBS:")
			(files)
		)
	)
)
(exit)