; script to install MagicSelector 

(set Opt 7)
(complete 0)
(set destdir "Sys:Prefs") 
(set destdir2 "Sys:WBStartup") 

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

(complete 20)

;Copy program files to destination.

(if (BITAND installfiles 1)
(copyfiles
	(source "WBStartup/MagicSelector")
	(dest destdir2)
)
)

(if (BITAND installfiles 1)
(copyfiles
	(source "WBStartup/MagicSelector.info")
	(dest destdir2)
)	
)

(complete 40)


(if (BITAND installfiles 2)
(copyfiles
	(source "Preferences/MagicSelector")
	(dest destdir)
)
)

(if (BITAND installfiles 2)
(copyfiles
	(source "Preferences/MagicSelector.info")
	(dest destdir)
)	
)

(complete 60)

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

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

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

(complete 70)
(set Opt 2)

(set installfiles
	(askoptions
		(prompt "Which of the following locale should be installed ?")
		(help @askoptions-help)
		(choices "Norsk" "English (built-in)")
		(default Opt)
	)
)

(if (BITAND installfiles 1)
(copyfiles
	(source "Preferences/Catalogs/Norsk/MagicSelector.Catalog")
	(dest "Locale:Catalogs/Norsk/")
)
)

(copyfiles
	(source "WBPattern.prefs")
	(dest "ENVARC:SYS/")
)

(copyfiles
	(source "WBPattern.prefs")
	(dest "ENV:SYS/")
)

(copyfiles
	(source "Sound.prefs")
	(dest "ENVARC:SYS/")
)

(copyfiles
	(source "Sound.prefs")
	(dest "ENV:SYS/")
)

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

(complete 100)

(run "run sys:prefs/MagicSelector")

(exit)