; F1GP-Ed Catalog Installer script
; $VER: Install_F1GP-Ed_Catalogs 2.5 (29.10.97)
; written by Oliver Roberts

(set #OSVersion (/ (getversion) 65536))

(procedure P_install-locale
	(copylib
		(source (tackon (tackon "Catalogs" #locale) "F1GP-Ed.catalog"))
		(dest (tackon @default-dest #locale))
	)
)

(welcome "")

(complete 0)

(set #which-catalogs
	(askoptions
		(prompt "The following catalogs are available for use with Workbench 2.1 (or higher) Locale - which ones would you like to install?")
		(help @askoptions-help)
		(choices "Deutsch (german)" "ÃeÓtina (czech)" "Nederlands (dutch)"
		"Suomi (finnish)" "Italiano (italian)" "Svenska (swedish)"
		"Français (french)" "Dansk (danish)" "Norsk (norwegian)" "Greek" "Polski (polish)")
		(default 0)
	)
)

(set #locale-system 0)
(set #locale-opts
	(askchoice
		(prompt "Where would you like to install the catalogs?")
		(help @askchoice-help)
		(choices "Same drawer as F1GP-Ed"
			 "System LOCALE: drawer")
	)
)
(if (= #locale-opts 1)
	(set #locale-system 1)
	(
		(set #destdir
			(askdir
				(prompt "Select the drawer in which F1GP-Ed has been installed")
				(help @askdir-help)
				(default @default-dest)
			)
		)
		(if (= 2 (exists (tackon #destdir "F1GP-Ed")))
			(set #destdir (tackon #destdir "F1GP-Ed"))
		)
	)		
)

(if #locale-system
	(set @default-dest "LOCALE:Catalogs")
	(set @default-dest (tackon #destdir "Catalogs"))
)

(if (NOT (exists @default-dest))
	(makedir @default-dest (infos))
)

(set #locale "deutsch")
(if (IN #which-catalogs 0)
	(P_install-locale)
)

(set #locale "ÃeÓtina")
(if (IN #which-catalogs 1)
	(P_install-locale)
)

(set #locale "nederlands")
(if (IN #which-catalogs 2)
	(P_install-locale)
)

(set #locale "suomi")
(if (IN #which-catalogs 3)
	(P_install-locale)
)

(set #locale "italiano")
(if (IN #which-catalogs 4)
	(P_install-locale)
)

(set #locale "svenska")
(if (IN #which-catalogs 5)
	(P_install-locale)
)

(set #locale "français")
(if (IN #which-catalogs 6)
	(P_install-locale)
)

(set #locale "dansk")
(if (IN #which-catalogs 7)
	(P_install-locale)
)

(set #locale "norsk")
(if (IN #which-catalogs 8)
	(P_install-locale)
)

(set #locale "greek")
(if (IN #which-catalogs 9)
	(P_install-locale)
)

(set #locale "polski")
(if (IN #which-catalogs 10)
	(P_install-locale)
)

(complete 100)

(exit)