;
; Zeus Professional Bulletin Board System Installation Script
;
; Zeus BBS (c)1992-1996 Alex May & Nick Loman
;
; Installation Script by Alex May & Nick Loman
;

(set src-dir "ZDist:")
(set dir-name "ZInstall:")
(set arc-cmd (tackon src-dir (cat "C/LhArc -x -a -m x " (tackon src-dir "Zeus/"))))

(set @default-dest
	(askdir
		(prompt "Select directory to install Zeus into.\n(No directory will be created)")
		(help @askdir-help)
		(default "Work:")
	)
)

(makeassign "Zeus" @default-dest)
(makeassign "ZInstall" @default-dest)

(makedir (tackon dir-name "Users")
	(prompt "Making the Users directory")
	(help @makedir-help)
)

(makedir (tackon dir-name "Logs")
	(prompt "Making the Logs directory")
	(help @makedir-help)
)

(makedir (tackon dir-name "Mail")
	(prompt "Making the Mail directory")
	(help @makedir-help)
)

(makedir (tackon dir-name "FCat")
	(prompt "Making the File directory")
	(help @makedir-help)
)

(working "Installing binaries...")
(set prog (tackon arc-cmd (cat "Bin.LZH " dir-name)))
(run prog)

(working "Installing development libraries...")
(set prog (tackon arc-cmd (cat "Developers.LZH " dir-name)))
(run prog)

(askdisk
	(prompt "Please Insert ZDist disk 2")
	(help @askdisk-help)
	(dest "ZDist2")
)

(set src-dir "ZDist2:")
(set arc-cmd (tackon src-dir (cat "C/LhArc -x -a -m x " (tackon src-dir "Zeus/"))))

(if (= 0 (exists "Doors:" (noreq) ) )
	(
		(makedir (tackon dir-name "Doors")
			(prompt "Making the Doors directory")
			(help @makedir-help)
			)

		(set door-def (tackon dir-name "Doors"))
	)
	(set door-def "Doors:")
)

(set door-dir
	(askdir
		(prompt "Select directory to install the online doors into.")
		(help @askdir-help)
		(default door-def)
	)
)

(makeassign "Doors" door-dir)

(working "Installing Doors...")
(set prog (tackon arc-cmd (cat "Doors.LZH Doors:")))
(run prog)

(working "Installing Preferences...")
(set prog (tackon arc-cmd (cat "Prefs.LZH " dir-name)))
(run prog)

(working "Installing Configs...")
(set prog (tackon arc-cmd (cat "Config.LZH " dir-name)))
(run prog)

(working "Installing RIP...")
(set prog (tackon arc-cmd (cat "RIP.LZH " dir-name)))
(run prog)

(working "Installing Fonts...")
(set prog (tackon arc-cmd (cat "Fonts.LZH Fonts:" dir-name)))
(run prog)

(working "Installing conversion utilities...")
(set prog (tackon arc-cmd (cat "Conversion.LZH " dir-name)))
(run prog)

(askdisk
	(prompt "Please Insert ZDist disk 3")
	(help @askdisk-help)
	(dest "ZDist2")
)

(set src-dir "ZDist3:")
(set arc-cmd (tackon src-dir (cat "C/LhArc -x -a -m x " (tackon src-dir "Zeus/"))))

(working "Installing libraries...")
(set prog (tackon arc-cmd (cat "Libs.LZH " dir-name)))
(run prog)

(working "Installing ARexx scripts...")
(set prog (tackon arc-cmd (cat "Rexx.LZH " dir-name)))
(run prog)

(working "Installing utilities...")
(set prog (tackon arc-cmd (cat "Utils.LZH " dir-name)))
(run prog)

(working "Installing scripts and texts...")
(set prog (tackon arc-cmd (cat "ZeusBBS.LZH " dir-name)))
(run prog)

(working "Installing Zeus...")
(set prog (tackon arc-cmd (cat "Zeus.LZH " dir-name)))
(run prog)

(working "Installing Docs...")
(set prog (tackon arc-cmd (cat "Docs.LZH " dir-name)))
(run prog)

(set rip-dir "Zeus:RIP")

(set cmd (cat cmd '\nAssign Zeus: "' @default-dest '"') )
(set cmd (cat cmd '\nAssign RIPICONS: "' rip-dir '/Icons"') )
(set cmd (cat cmd '\nAssign RIPFONTS: "' rip-dir '/Fonts"') )
(set cmd (cat cmd '\nAssign Logs: Zeus:Logs/') )
(set cmd (cat cmd '\nAssign Doors: "' door-dir '"'))
(set cmd (cat cmd '\nAssign Libs: Zeus:Libs ADD'))
(set cmd (cat cmd '\nAssign Devs: Zeus:Devs ADD'))
(set cmd (cat cmd '\nSetEnv FileEditor c:ED %s'))

(startup "Zeus Professional Bulletin Board System"
	(prompt (cat "Shall I append the following lines to your S:User-Startup file?\n\n" cmd) )
	(help @startup-help)
	(command cmd)
)

(exit "Zeus is now installed and ready to run. Reboot the machine. It is recommended, to protect path information, to run Zeus from the CLI. After Zeus has loaded, click on the ANSI 0 icon to popup the Line 0 watcher. Hit [RETURN] from this screen to logon locally.")