; $VER: rEAL-wALL-Install.script V1.0 (2.5.1996)
; copyright  1996 hIGH-SPEEd/rEAL
; all rights reserved

(set progname "rEAL-wALL")
(set version "V1.2")

(complete 0)

; select program: /X or FAME
(set program
	(askchoice
		(prompt
			("Install %s %s for which program?" progname version)
		)
		(help
			("You can install %s %s for /X or FAME.\n\n" progname version)
			@askoptions-help
		)
		(choices
			"AmiExpress"
			"FAME"
		)
	)
)

(set directory "DOORS:")

(if	(= (exists directory (noreq)) 0)
	(set directory
		(askdir
			(prompt "Go into your DOORS: directory!")
			(help @askdir-help)
			(disk)
		)
	)
)

(set directory
	(tackon
		directory
		"rEAL"
	)
)
(makedir
	directory
	(infos)
)

(set directory
	(tackon
		directory
		"rEAL-wALL"
	)
)
(makedir
	directory
	(infos)
)

(complete 10)

(copyfiles
	(prompt
		("Copy %s %s to DOORS:rEAL/rEAL-wALL/" progname version)
	)
	(help @copyfiles-help)
	(source "rEAL-wALL")
	(dest directory)
)

(complete 40)

(copyfiles
	(prompt
		("Copy %s.guide to DOORS:rEAL/rEAL-wALL/" progname)
	)
	(help @copyfiles-help)
	(source "rEAL-wALL.guide")
	(dest directory)
	(infos)
)

(complete 80)

; Spezial-Installation fr AmiExpress
(if (= program 0)
	(
		(copyfiles
			(prompt "Copy WALL.info to BBS:Commands/BBSCMD/")
			(help @copyfiles-help)
			(source "AmiExpress/WALL.info")
			(dest "BBS:Commands/BBSCMD")
		)
	)
)

; Spezial-Installation fr FAME
(if (= program 1)
	(
		(copyfiles
			(prompt "Copy settings to FAME:Settings/Doors/BBSCMD/")
			(help @copyfiles-help)
			(source "FAME/WALL")
			(dest "FAME:Settings/Doors/BBSCMD")
		)

		(complete 90)

		(if	(= (exists "BBS:" (noreq)) 0)
			(
				(makedir "FAME:Commands")
				(makedir "FAME:Commands/BBSCMD")

				(complete 92)

				(copyfiles
					(prompt "Copy WALL.info to FAME:Commands/BBSCMD/")
					(help @copyfiles-help)
					(source "FAME/WALL.info")
					(dest "FAME:Commands/BBSCMD")
				)

				(complete 98)

				(makeassign "BBS:" "FAME:")

				(complete 99)

				(startup "rEAL-wALL bY hIGH-SPEEd/rEAL"
					(command "Assign BBS: FAME:")
				)
			)
			; else
			(
				(makedir "BBS:Commands")
				(makedir "BBS:Commands/BBSCMD")

				(complete 92)

				(copyfiles
					(prompt "Copy WALL.info to BBS:Commands/BBSCMD/")
					(help @copyfiles-help)
					(source "FAME/WALL.info")
					(dest "BBS:Commands/BBSCMD")
				)

				(complete 98)

				(makeassign "BBS:" "FAME:")

				(complete 99)

				(startup "rEAL-wALL bY hIGH-SPEEd/rEAL"
					(command "Assign BBS: FAME:")
				)
			)
		)
	)
)

(complete 100)
