;
;----------------------------------------------------------------------------
;
; mui36loc - Installer script by Marcin Orlowski <carlos@dedal.man.szczecin.pl>
;
;----------------------------------------------------------------------------
;
; $VER: Installer script v3.6.5 for mui36loc (18.10.96) © Marcin Orlowski
;
;
;  History
; --------------------
;
; - Tue Sep 24 12:24:00 1996 - Initial release
; - Thu Sep 26 10:14:20 1996 - Fixed bug setting Svenska for Suomi
;                              and nothing for Svenska
; - Wed Oct  9 12:24:42 1996 - Català translations added
;                              Español translation of installer script
; - Mon Oct 14 18:53:01 1996 - Smarter MUI version checking
;                            - Nederlands translation of installer
;                            - French was hard to install...
;                            - Catalan too...
;                            - Removed some unwanted (N/A)'s
; - Fri Oct 18 18:08:07 1996 - Italian translations added
;
;----------------------------------------------------------------------------
;
;                                     C  I

(set #def_lang_English       0)    ;  *  *
(set #def_lang_Català        1)    ;  *  *
(set #def_lang_Czech         2)    ;  *  -
(set #def_lang_Dansk         4)    ;  *  *
(set #def_lang_Español       8)    ;  *  *
(set #def_lang_Français     16)    ;  *  *
(set #def_lang_Greek        32)    ;  *  *
(set #def_lang_Italiano     64)    ;  *  *
(set #def_lang_Nederlands  128)    ;  *  *
(set #def_lang_Norsk       256)    ;  *  *
(set #def_lang_Polski      512)    ;  *  *
(set #def_lang_Português  1024)    ;  *  *
(set #def_lang_Suomi      2048)    ;  *  *
(set #def_lang_Svenska    4096)    ;  *  -

;----------------------------------------------------------------------------

;/// Strings
;/// ***** English
(set #def_lang #def_lang_English)
(set #welcome  (cat "\nWelcome to localization set for MUI 3.5-3.6\n\n"
					"This package has been created for SASG\n"
					"by Amiga Translators' Organization\n\n"
					"(http://www2.dk-online.dk/users/Ole_Friis/Trans/)\n\n"
					"Note: these localizations work with MUI 3.6 only."))
(set #wrongMUI  "You need MUI 3.6 to use this package\n")
(set #lang      "Select language you want to use with MUI")
;//|
;/// ***** Català
(if (= @language "català")

(
(set #def_lang #def_lang_Català)

(set #welcome  (cat "\nBenvingut al paquet de locals pel MUI 3.6\n\n"
					"Aquest paquet ha estat creat per SASG\n"
					"per Amiga Translators' Organization\n\n"
					"(http://www2.dk-online.dk/users/Ole_Friis/Trans/)\n\n"
					"Nota: Aquest locals només funcionen amb el MUI 3.6!"))
(set #wrongMUI  "Necesites el MUI 3.6 per utilitzar aquest paquet\n")
(set #lang      "Tria l'idioma que vols fer servir amb el MUI")
)
)
;//|
;/// ***** Czech       (NO STRINGS)
(if (= @language "czech")
(
(set #def_lang #def_lang_Czech)
)
)
;//|
;/// ***** Dansk
(if (= @language "dansk")
(
(set #def_lang #def_lang_dansk)
(set #welcome  (cat "\nVelkommen til lokaliserings-sættet for MUI 3.6\n\n"
					"Denne pakke er skabt for SASG\n"
					"af Amiga Translators' Organization\n\n"
					"(http://www2.dk-online.dk/users/Ole_Friis/Trans/)\n\n"
					"Bemærk: Disse lokaliseringer virker kun med MUI 3.6!"))
(set #wrongMUI  "Du skal have MUI 3.6 for at bruge denne pakke.\n")
(set #lang      "Vælg det sprog du ønsker at bruge med MUI")
)
)
;//|
;/// ***** Español
(if (= @language "español")
(
(set #def_lang #def_lang_Español)
(set #welcome  (cat "\nBienvenido a el paquete de locales para el MUI 3.6\n\n"
					"Este paquete ha sido creado para SASG\n"
					"por Amiga Translators' Organization\n\n"
					"(http://www2.dk-online.dk/users/Ole_Friis/Trans/)\n\n"
					"Nota: Estos locales solo funcionan con el MUI 3.6!"))
(set #wrongMUI  "Necesitas el MUI 3.6 para usar este paquete\n")
(set #lang      "Escoge el lenguaje que quieres usar con el MUI")
)
)
;//|
;/// ***** Français
(if (= @language "français")
(
(set #def_lang #def_lang_français)
(set #welcome  (cat "\nBienvenue dans le système de localisation pour MUI 3.6\n\n"
					"Ce système a été pour le SASG\n"
					"par l'Organisation des Traducteurs Amiga\n\n"
					"(http://www2.dk-online.dk/users/Ole_Friis/Trans/)\n\n"
					"Note : Ces localisations ne fonctionnent qu'avec MUI 3.6 !"))
(set #wrongMUI  "MUI 3.6 est nécessaire pour utiliser ce système\n")
(set #lang      "Choisir la langue à utiliser avec MUI")
)
)
;//|
;/// ***** Greek
(if (= @language "greek")
(
(set #def_lang #def_lang_greek)
(set #welcome  (cat "\nÊáëþò Þëèáôå, óôï ðñüãñáììá Åëëçíïðïßçóçò ãéá ôï MUI 3.6\n\n"
					"Ôï ðáêÝôï áõôü, åôïéìÜóôçêå ãéá ôçí SASG\n"
					"áðü ôïí Amiga Translators' Organization\n\n"
					"(http://www2.dk-online.dk/users/Ole_Friis/Trans/)\n\n"
					"Óçìåßùóç: Ôï localization áõôü ëåéôïõñãåß ìüíï ìå ôï MUI"))
(set #wrongMUI  "Áõôü ôï ðáêÝôï, áðáéôåß ãéá ôçí ÷ñÞóç ôïõ, ôï MUI 3.6\n")
(set #lang      "EðéëÝîôå ôçí ãëþóóá, ðïõ èÝëåôå íá ÷ñçóéìïðïéÞóåôå óôï MUI")
)
)
;//|
;/// ***** Italiano
(if (= @language "italiano")
(
(set #def_lang #def_lang_italiano)

(set #welcome  (cat "\nBenvenuto al pacchetto di localizzazione di MUI 3.6\n"
					"Questo pacchetto è stato creato per SASG\n"
					"da Amiga Translators' Organization\n\n"
					"(http://www2.dk-online.dk/users/Ole_Friis/Trans/)\n\n"
					"Attenzione: questa localizzazione è valida solo per MUI 3.6!"))
(set #wrongMUI  "Questo pacchetto può essere usato solo con MUI 3.6\n")
(set #lang      "Scegli il linguaggio in cui vuoi usare MUI")
)
)
;//|
;/// ***** Nederlands
(if (= @language "nederlands")
(
(set #def_lang #def_lang_nederlands)
(set #welcome  (cat "\nWelkom bij het vertalingspakket voor MUI 3.6\n\n"
							 "Dit pakket is gemaakt voor SASG door de\n"
							 "Amiga Translators' Organization\n\n"
							 "(http://www2.dk-online.dk/users/Ole_Friis/Trans/)\n\n"
							 "Nederlandse afdeling:\n"
							 "(http://www.stack.urc.tue.nl/~leon/ATO/)\n\n\n"
							 "Opm.: Deze vertalingen werken alleen met MUI 3.6!"))
(set #wrongMUI  "U heeft MUI 3.6 nodig om dit pakket te gebruiken\n")
(set #lang      "Kies de taal die u in MUI wilt gebruiken")
)
)
;//|
;/// ***** Norsk
(if (= @language "norsk")
(
(set #def_lang #def_lang_norsk)
(set #welcome  (cat "\nVelkommen til lokalisering av MUI 3.6\n\n"
					"Denne pakken er laget for SASG\n"
					"av Amiga Translators' Organization\n\n"
					"(http://www2.dk-online.dk/users/Ole_Friis/Trans/)\n\n"
					"Viktig: Disse oversettingene virker bare med MUI 3.6!"))
(set #wrongMUI  "Du trenger MUI 3.6 for å bruke denne pakken\n")
(set #lang      "Velg språket du vil bruke i MUI")
)
)
;//|
;/// ***** Polski
(if (= @language "polski")
(
(set #def_lang #def_lang_polski)
(set #welcome  (cat "\nWitaj w pakiecie lokalizacyjnym dla MUI 3.6\n\n"
					"Pakiet ten zostaî stworzony dla SASG Intl.\n"
					"przez Amiga Translators' Organization\n\n"
					"(http://www2.dk-online.dk/users/Ole_Friis/Trans/)\n\n"
					"Uwaga: znajdujâce sië w tym pakiecie tîumaczenia\n"
					"sâ zgodne wyîâcznie z MUI 3.6!"))
(set #wrongMUI  "Musisz mieê MUI w wersji 3.6 aby uûyê tego pakietu\n")
(set #lang      "Wybierz jëzyk jakiego chcesz uûywaê z MUI")
)
)
;//|
;/// ***** Português
(if (= @language "português")
(
(set #def_lang #def_lang_português)
(set #welcome  (cat "\nBenvindo á configuração da linguagem para o MUI 3.6\n\n"
					"Este pacote foi criado para a SASG\n"
					"por Amiga Translators' Organization\n\n"
					"(http://www2.dk-online.dk/users/Ole_Friis/Trans/)\n\n"
					"Nota: Estas configurações só funcionam com o MUI3.6!"))
(set #wrongMUI  "Necessita do MUI 3.6 para usar este programa\n")
(set #lang      "Seleccione a linguagem que quer usar com o MUI")
)
)
;//|
;/// ***** Suomi
(if (= @language "suomi")
(
(set #def_lang #def_lang_suomi)
(set #welcome  (cat "\nTervetuloa asentamaan MUI 3.6:n käännöstä.\n\n"
		 "Tämän kokoelman on SASG:lle tehnyt\n"
		 "Amiga Translators' Organization.\n\n"
		 "(http://www2.dk-online.dk/users/Ole_Friis/Trans/)\n\n"
		 "Huomio: nämä paikallisteet toimivat vain MUI:n versiossa 3.6!"))
(set #wrongMUI  "Tarvitset MUI 3.6:n käyttääksesi tätä kokoelmaa.\n")
(set #lang      "Valitse kieli, jota haluat käyttää MUI:ssa.")
)
)
;//|
;/// ***** Svenska     (NO STRINGS)
(if (= @language "svenska")
(
(set #def_lang #def_lang_svenska)
)
)
;//|
;//|
;/// Checking environment
;----------------------------------------------------------------------------

(complete 0)

(message #welcome)

(if (= 0 (exists "MUI:" (noreq))) (abort #wrongMUI))

(set MUI_ver (getversion "MUI:Libs/muimaster.library"))
(if (AND (AND (< MUI_ver (* 16 65536)) (>= MUI_ver (* 18 65536))) (<> MUI_ver 0)) (abort #wrongMUI))

;//|
;/// Make a choice...
;----------------------------------------------------------------------------

(set Catalog_lang
	(askoptions
		(prompt  #lang)
		(help @askoptions-help)

		(choices "Català"
						 "Czech"
						 "Dansk"
						 "Español"
						 "Français"
						 "Greek"
						 "Italiano"
						 "Nederlands"
						 "Norsk"
						 "Polski"
						 "Português"
						 "Suomi"
						 "Svenska"
		)
		(default #def_lang)
	)
)
;//|
;/// Here we go...
;-------------------------- here we go... -----------------------------------

(set Cat_Dir "MUI:Locale/Catalogs")
(if (> Catalog_lang 0)
	 (
	 (if (not (exists Cat_dir))  (makedir Cat_dir))


	 (if (bitand Catalog_lang #def_lang_Català    ) ((set lang "català")     (copyfiles (source (tackon "Catalogs" lang)) (all) (dest (tackon Cat_dir lang)))))
	 (if (bitand Catalog_lang #def_lang_Czech     ) ((set lang "czech")      (copyfiles (source (tackon "Catalogs" lang)) (all) (dest (tackon Cat_dir lang)))))
	 (if (bitand Catalog_lang #def_lang_Dansk     ) ((set lang "dansk")      (copyfiles (source (tackon "Catalogs" lang)) (all) (dest (tackon Cat_dir lang)))))
	 (if (bitand Catalog_lang #def_lang_Español   ) ((set lang "español")    (copyfiles (source (tackon "Catalogs" lang)) (all) (dest (tackon Cat_dir lang)))))
	 (if (bitand Catalog_lang #def_lang_Français  ) ((set lang "français")   (copyfiles (source (tackon "Catalogs" lang)) (all) (dest (tackon Cat_dir lang)))))
	 (if (bitand Catalog_lang #def_lang_Greek     ) ((set lang "greek")      (copyfiles (source (tackon "Catalogs" lang)) (all) (dest (tackon Cat_dir lang)))))
;   (if (bitand Catalog_lang #def_lang_Italiano  ) ((set lang "italiano")   (copyfiles (source (tackon "Catalogs" lang)) (all) (dest (tackon Cat_dir lang)))))
	 (if (bitand Catalog_lang #def_lang_Nederlands) ((set lang "nederlands") (copyfiles (source (tackon "Catalogs" lang)) (all) (dest (tackon Cat_dir lang)))))
	 (if (bitand Catalog_lang #def_lang_Norsk     ) ((set lang "norsk")      (copyfiles (source (tackon "Catalogs" lang)) (all) (dest (tackon Cat_dir lang)))))
	 (if (bitand Catalog_lang #def_lang_Polski    ) ((set lang "polski")     (copyfiles (source (tackon "Catalogs" lang)) (all) (dest (tackon Cat_dir lang)))))
	 (if (bitand Catalog_lang #def_lang_Português ) ((set lang "português")  (copyfiles (source (tackon "Catalogs" lang)) (all) (dest (tackon Cat_dir lang)))))
	 (if (bitand Catalog_lang #def_lang_Suomi     ) ((set lang "suomi")      (copyfiles (source (tackon "Catalogs" lang)) (all) (dest (tackon Cat_dir lang)))))
	 (if (bitand Catalog_lang #def_lang_Svenska   ) ((set lang "svenska")    (copyfiles (source (tackon "Catalogs" lang)) (all) (dest (tackon Cat_dir lang)))))
	 )
)

;-------------------------- ... and we gone. -------------------------------

(complete 100)

;********************

(exit (QUIET))
;//|

