; $VER: FACTS2Install 1.1 (02.02.99)

(welcome)

(set @default-dest
	(askdir
		(prompt "Where would you like to install FACTS?")
		(help "It is recommended that FACTS be running all the time, so "
		"WBStartUp is the logical place.\n\n" @askdir-help)
		(default "SYS:WBStartUp")
	)
)

(startup "RexxMast"
	(prompt "FACTS REQUIRES ARexx to be active when it starts up.  "
	"To do this, the RexxMast command should be executed in your "
	"user-startup script.\n\nDoes this need adding? (if you are not "
	"sure, it is safe to proceed with this anyway)")
	(help @startup-help)
	(command "RexxMast >NIL:")
	(confirm)
)

(set #already-installed (exists (tackon @default-dest "Facts.info")))

(if #already-installed
	(
		(copylib
			(prompt "Please check the version of FACTS you are copying against "
			"any which might already be installed.")
			(help @copylib-help)
			(source "Facts")
			(dest @default-dest)
			(optional "askuser" "force" "oknodelete")
		)
	)

	(
		(copylib
			(prompt "Please check the version of FACTS you are copying against "
			"any which might already be installed.")
			(help @copylib-help)
			(source "Facts")
			(dest @default-dest)
			(infos)
		)

		(tooltype
			(prompt "Do you want FACTS to run silently in the background?\n\n"
			"If you would prefer it to show the GUI on startup, please skip "
			"this part.")
			(help @tooltype-help)
			(dest (tackon @default-dest "Facts"))
			(settooltype "CXPOPUP" "NO")
			(confirm)
		)

	)
)

(copyfiles
	(prompt "Do you want to copy the documentation?")
	(help @copyfiles-help)
	(source "Facts.guide")
	(infos)
	(dest "HELP:English")
	(optional "askuser" "force")
	(confirm)
)

(copylib
	(prompt "Do you want to install the example ARexx script in REXX:?\n\n"
	"This will allow you to set your clock by calling rx "
	"REXX:correctclock.rexx at any time (subject to being on-line of "
	"course)")
	(help @copyfiles-help)
	(source "correctclock.rexx")
	(dest "REXX:")
	(optional "askuser" "force")
	(confirm)
)

(working "Starting ARexx...")

(run "RexxMast >NIL:")

(rexx "install.rexx"
	(prompt "I will now quit any old versions of FACTS, and "
	"load the new one")
	(help "Does what it says!  Needs ARexx to be running.")
)

(set #time (getenv "T:TIME"))

(exit "Finished!\n\n\nThe current time is\n\n" #time
"\n\n\nFACTS has been started, please ensure your timezone is set "
"correctly and then save config." (quiet))