Metropoli BBS
VIEWER: install adprorunner MODE: TEXT (ASCII)
; script to install ADProRunner 

(set Opt 3)
(complete 0)

;Get directory to install ADProRunner in.
(set destdir 
	(askdir 
		(prompt "In which drawer should ADProRunner be installed?") 
		(help @askdir-help)
		(default ("ADPro:"))
	)
)

(complete 10)

(set installfiles
	(askoptions
		(prompt "Which of the following optional programs/helpfile should be installed ?")
		(help @askoptions-help)
		(choices "ADProRunner" "ADProRunner.Guide")
		(default Opt)
	)
)

(complete 30)

;Copy program files to destination.

(if (BITAND installfiles 1)
(copyfiles
	(source "ADProRunner")
	(dest destdir)
)
)

(if (BITAND installfiles 1)
(copyfiles
	(source "ADProRunner.info")
	(dest destdir)
)	
)

(complete 60)

(if (BITAND installfiles 2)
(
	(makedir ("Help:English")
	)

(copyfiles
	(source "Help/ADProRunner.guide")
	(dest "help:english/")
)
)
)

(if (BITAND installfiles 2)
(copyfiles
	(source "Help/ADProRunner.guide.info")
	(dest "help:english/")
)
)

;Correct @default-dest so that final information is correct.
(set @default-dest destdir)

(complete 100)

(exit)
[ RETURN TO DIRECTORY ]