; Install script for ReqTools (Workbench 2.1 or higher)

(set @default-dest "")
(set #old_level @user-level)

(set #reqtoolslib "//libs/reqtools.library")
(set #rtpatch "//RTPatch/RTPatch")
(set #catalogdir "//Catalogs/")

(set #lang_danish        1)
(set #lang_german        2)
(set #lang_english       4)
(set #lang_english_num   2)	; Bit number for english language
(set #lang_spanish       8)
(set #lang_french       16)
(set #lang_italian      32)
(set #lang_hungarian    64)
(set #lang_dutch       128)
(set #lang_norwegian   256)
(set #lang_polish      512)
(set #lang_portugues  1024)
(set #lang_russian    2048)
(set #lang_swedish    4096)

;=============================================================================
; English strings

(set #default_lang #lang_english)

(set #bad-kick
(cat "You must be using Kickstart 2.04 to install using this script!"
	  " Double-click the 'Workbench_1.2-1.3' icon to install ReqTools on"
	  " Kickstart 1.2 or 1.3 machines."
))

(set #copying-reqtools "Copying reqtools.library to Libs:...")
(set #copying-rtpatch  "Copying RTPatch...")

(set #which-language
(cat "\nWhich languages should be installed?"
))
(set #which-language-help
(cat "\nThe Amiga can be operated in many different"
	  " languages. If you want ReqTools requesters to"
	  " use the same language as the Amiga Workbench"
	  " then a catalog file must be copied to your"
	  " system disk for each language supported.\n\n"
	  "To reduce the amount of space consumed by the"
	  " language files, you can select to have only the"
	  " files of specific languages copied.\n\n"
	  "Simply check the boxes of the languages you wish"
	  " to have available on your system.\n\n"
	  @askoptions-help
))

(set #install-msg
(cat "\n\nReqTools installation script.\n"
     "This script installs ReqTools library on your Amiga.\n\n"
     "Read the DISTRIBUTION file for\n"
     "more information on the distribution\n"
     "and commercial usage of ReqTools.\n\n"
     "ReqTools © 1991-1994 Nico François\n"
     "           1995-1996 Magnus Holmgren\n"
     "All rights reserved."
))

;=============================================================================
; Portugues strings

(if (= @language "português")
(

(set #default_lang #lang_portugues)

(set #bad-kick
(cat "É preciso de ter o Kickstart 2.04 para poder instalar!" ))

(set #copying-reqtools "Copiando reqtools.library para a Libs:...")
(set #copying-rtpatch  "Copiando RTPatch...")

(set #which-language
(cat "\nQue linguagens deverão ser instaladas?" ))

(set #which-language-help
(cat "\nO Amiga pode ser operado em muitas linguagens "
     "diferentes. Alguns ficheiros têm de ser copiados "
     "para o seu disco rígido por cada linguagem suportada.\n\n"
     "Para reduzir o consumo de espaço no disco pelas linguagens "
     "poderá apenas escolher aquelas que lhe serão úteis.\n\n"
     "Para isto basta apenas marcar as caixas com os nomes das "
     "linguagens para que estas sejam instaladas.\n\n"
     @askoptions-help
))


(set #install-msg
(cat "\n\nScript de Instalação do ReqTools.\n"
     "Este script instala o ReqTools no seu Amiga.\n\n"
     "Leia o ficheiro DISTRIBUTION para\n"
     "mais informação acerca da distribuição\n"
     "e uso comercial do ReqTools.\n\n"
     "ReqTools © 1991-1994 Nico François\n"
     "           1995-1996 Magnus Holmgren\n"
     "Todos os Direitos Reservados."
))

))

;=============================================================================
; Spanish strings

(if (= @language "español")
(

(set #default_lang #lang_spanish)

; string needs to be changed (see english string)
(set #bad-kick
(cat "Necesita usar el Kickstart 2.04 para instalar!"
))

(set #copying-reqtools "Copiado reqtools.library a Libs:...")
(set #copying-rtpatch  "Copiado RTPatch...")

(set #which-language
(cat "\n¿Qué lenguaje quiere instalar?"
))

; string needs to be changed (see english string)
(set #which-language-help
(cat "\nAmiga puede operar en diferentes idiomas. "
     "Se copiarán algunos ficheros a su disco duro "
     "por cada idioma utilizado.\n\n"
     "Para reducir el espacio usado en disco duro "
     "puede seleccionar sólo los ficheros del idioma "
     "que va a utilizar.\n\n"
     "Sólamente tiene que pulsar en el idioma que "
     "quiera instalar en su sistema.\n\n"
     @askoptions-help
))

; not translated yet!
;(set #install-msg
;(cat "\n\nReqTools installation script.\n"
;     "This script installs ReqTools library on your Amiga.\n\n"
;     "Read the DISTRIBUTION file for\n"
;     "more information on the distribution\n"
;     "and commercial usage of ReqTools.\n\n"
;     "ReqTools © 1991-1994 Nico François\n"
;     "           1995-1996 Magnus Holmgren\n"
;     "All rights reserved."
;))

))

;=============================================================================
; French strings

(if (= @language "français")
(

(set #default_lang #lang_french)

(set #bad-kick
(cat "Vous devez utiliser le Kickstart 2.04 pour pouvoir installer Reqtools"
   " avec ce script\n."
   " Double-cliquer sur l'icône 'Workbench_1.2-1.3' pour installer ReqTools"
   " sur une machine possédant le Kickstart 1.2 où 1.3." ))

(set #copying-reqtools "Copie du fichier reqtools.library vers Libs:...") (set
#copying-rtpatch  "Copie du fichier RTPatch...")

(set #which-language
(cat "\nQuelles sont les langues à installer ?" ))

(set #which-language-help
(cat "\nL'Amiga peut fonctionner dans différentes langues. "
     "Plusieurs fichiers doivent être copiés sur le disque dur "
     "pour chaque langue utiliséee\n\n"
     "Pour réduire la quantité d'espace utilisé par ces fichiers, "
     "vous devez sélectionner seulement les langues qui vous seront "
     "utiles.\n\n"
     "Cochez les langues que vous souhaitez être disponibles "
     "sur votre système\n\n"
     @askoptions-help
))

(set #install-msg
(cat "\n\nScript d'installation de ReqTools.\n"
     "Ce script installe la librairie ReqTools sur votre Amiga.\n\n"
     "Lisez le fichier intitulé DISTRIBUTION pour\n"
     "de plus amples informations sur la distribution\n"
     "et l'utilisation commerciale de ReqTools.\n\n"
     "ReqTools © 1991-1994 Nico François\n"
     "           1995-1996 Magnus Holmgren\n"
     "Tous Droits réservés."
))

))

;=============================================================================
; German strings

(if (= @language "deutsch")
(

(set #default_lang #lang_german)

(set #bad-kick
(cat "Sie müssen Kickstart 2.04 benutzen, um dieses Skript zur Installation "
	  "benutzen zu können! Klicken sie zweimal auf das 'Workbench_1.2-1.3'"
	  "-Piktogramm, um ReqTools auf Rechnern mit Kickstart 1.2 oder 1.3 zu "
	  "installieren."
))

(set #copying-reqtools "Kopieren Datei reqtools.library nach Libs:...")
(set #copying-rtpatch  "Kopieren Datei RTPatch...")

(set #which-language
(cat "\nWelche Sprachen sollen installiert werden?"
))
(set #which-language-help
(cat "\nDer Amiga kann in vielen verschiedenen Sprachen betrieben werden. "
	  "Wenn Sie wollen, daß die ReqTools-Dialogfenster die gleiche Sprache "
	  "wie die Amiga-Workbench benutzen, müssen für jede zu installierende Sprache "
	  "zwei Dateien auf Ihre Festplatte kopiert werden.\n\n"
	  "Um den Platz in Grenzen zu halten, den die Sprachentreiberdateien "
	  "einnehmen, können Sie wählen, nur die Treiber für bestimmte "
	  "Sprachen zu installieren.\n\n"
	  "Klicken Sie einfach die Felder derjenigen Sprachen an, die Sie in "
	  "Ihrem System verfügbar haben wollen, so daß diese Sprachen mit "
	  "einem Häkchen markiert sind.\n\n"
	  @askoptions-help
))

(set #install-msg
(cat "\n\nReqTools Installationsskript.\n"
	  "Diese Befehlsdatei installiert die ReqTools-Library auf Ihrem Amiga.\n\n"
	  "Lesen Sie die 'DISTRIBUTION'-Datei für\n"
	  "weitere Informationen über Weitergeabe\n"
	  "und kommerzielle Nutzung von ReqTools.\n\n"
	  "ReqTools © 1991-1994 Nico François\n"
	  "           1995-1996 Magnus Holmgren\n"
	  "All rights reserved."
))

))

;=============================================================================
; Dutch strings

(if (= @language "nederlands")
(

(set #default_lang #lang_dutch)

(set #bad-kick
(cat "U moet Kickstart 2.04 gebruiken om met dit installatie script te"
	  " installeren!  Dubbel-klik het 'Workbench_1.2-1.3' ikoon om ReqTools"
	  " te installeren op Kickstart 1.2 of 1.3 machines."
))

(set #copying-reqtools "Kopieer reqtools.library naar Libs:...")
(set #copying-rtpatch  "Kopieer RTPatch...")

(set #which-language
(cat "\nWelke talen moeten geïnstalleerd worden?"
))
(set #which-language-help
(cat "\nDe Amiga kan werken in verschillende talen."
	  " Als u wilt dat ReqTools in dezelfde taal werkt"
	  " dan moet er voor elke taal een bestand naar"
	  " uw systeem disk gekopieerd worden.\n\n"
	  "Om de grootte van het geheugen die de taal bestanden"
	  " innemen te verkleinen, kunt u een keuze maken uit"
	  " de talen, die vervolgens naar uw systeem disk worden"
	  " gekopieerd .\n\nU hoeft alleen die talen die u op"
	  " uw systeem wilt hebben aan te klikken.\n\n"
     @askoptions-help
))

(set #install-msg
(cat "\n\nReqTools installatie script.\n"
     "Dit script installeert 'ReqTools library' op uw Amiga.\n\n"
     "Lees het 'DISTRIBUTION' bestand voor\n"
     "meer informatie over de verspreiding\n"
     "en het commcerciële gebruik van ReqTools.\n\n"
     "ReqTools © 1991-1994 Nico François\n"
     "           1995-1996 Magnus Holmgren\n"
     "All rights reserved."
))

))

;=============================================================================
; Italian strings

(if (= @language "italiano")
(
(set #default_lang #lang_italian)

; string needs to be changed (see english string)
(set #bad-kick
(cat "E' necessario il Kickstart 2.04 per installare!"
))

(set #copying-reqtools "Copia reqtools.library nel Libs:...")
(set #copying-rtpatch  "Copia RTPatch...")

(set #which-language
(cat "\nQuali lingue devono essere installate? "
))

; string needs to be changed (see english string)
(set #which-language-help
(cat "\nAmiga può operate con lingue differenti. "
     "Per ogni lingua supportata saranno copiati "
     "numerosi file sul vostro disco fisso.\n\n"
     "Per ridurre lo spazio occupato da questi "
     "file, potete installare solo quelli di una "
     "lingua specifica.\n\n"
     "Segnate solo i riquadri delle lingue che volete "
     "siano disponibili sul vostro sistema.\n\n"
     @askoptions-help
))

; not translated yet!
;(set #install-msg
;(cat "\n\nReqTools installation script.\n"
;     "This script installs ReqTools library on your Amiga.\n\n"
;     "Read the DISTRIBUTION file for\n"
;     "more information on the distribution\n"
;     "and commercial usage of ReqTools.\n\n"
;     "ReqTools © 1991-1994 Nico François\n"
;     "           1995-1996 Magnus Holmgren\n"
;     "All rights reserved."
;))

))

;=============================================================================
; Danish strings

(if (= @language "dansk")
(

(set #default_lang #lang_danish)

(set #bad-kick
(cat "Din maskine har ikke Kickstart 2.04, mindstekravet"
     " for dette installations-program.\n\n"
     "Dobbeltklik på 'Workbench_1.2-1.3' ikonet for at installere"
     " ReqTools på maskiner med Kickstart 1.2 eller 1.3"
))

(set #copying-reqtools "Kopierer reqtools.library til Libs:...")
(set #copying-rtpatch  "Kopierer RTPatch...")

(set #which-language
(cat "\nHvilke(t) sprog skal installeres?"
))

(set #which-language-help
(cat "\nDin Amiga kan arbejde på mange forskellige sprog.\n"
     "Der skal kopieres adskillige filer til din system-disk"
     " for hvert sprog du vil benytte.\n\n"
     "Hvis ReqTools kun skal kommunikere på Engelsk,"
     " behøver du ikke at vælge andre sprog.\n\n"
     "Klik på knapperne ud for hvert sprog du vil have til"
     " rådighed på dit system.\n\n"
     @askoptions-help
))

; not translated yet!
;(set #install-msg
;(cat "\n\nReqTools installation script.\n"
;     "This script installs ReqTools library on your Amiga.\n\n"
;     "Read the DISTRIBUTION file for\n"
;     "more information on the distribution\n"
;     "and commercial usage of ReqTools.\n\n"
;     "ReqTools © 1991-1994 Nico François\n"
;     "           1995-1996 Magnus Holmgren\n"
;     "All rights reserved."
;))

))

;=============================================================================
; Swedish strings

(if (= @language "svenska")
(
(set #default_lang #lang_swedish)

; string needs to be changed (see english string)
(set #bad-kick
(cat "Du måste använda Kickstart 2.04 för att kunna installera ReqTools!"
))

(set #copying-reqtools "Kopierar reqtools.library till Libs:...")
(set #copying-rtpatch  "Kopierar RTPatch...")

(set #which-language
(cat "\nVilka språk skall installeras?"
))

; string needs to be changed (see english string)
(set #which-language-help
(cat "\n  Amigan kan arbeta med flera olika språk. Ett flertal filer "
     "måste kopieras till hårddisken för varje språk du vill kunna "
     "använda.\n\n"
     "  För att minimera hårddiskutrymmet för språkfiler kan du "
     "välja att bara installera filerna för vissa språk.\n\n"
     "  Markera bara rutorna för de språk du önskar installera "
     "i din dator.\n\n"
     @askoptions-help
))

(set #install-msg
(cat "\n\nInstallationsprogram för ReqTools.\n"
     "Det här programmet installerar ReqTools-biblioteket på din Amiga.\n\n"
     "Läs filen DISTRIBUTION för mer\n"
     "information om distributiionen och\n"
     "kommersiellt användade av ReqTools.\n\n"
     "ReqTools © 1991-1994 Nico François\n"
     "           1995-1996 Magnus Holmgren\n"
     "Alla rättigheter reserverade."
))

))

;=============================================================================
; Norwegian strings

(if (= @language "norsk")
(

(set #default_lang #lang_norwegian)

(set #bad-kick
(cat "Du må ha Kickstart 2.04 for å installere!"
         "Dobbel-klikk på 'Workbench_1.2-1.3' ikonet for å installere"
         "ReqTools på maskiner med Kickstart 1.2 eller 1.3"
))

(set #copying-reqtools "Kopier fil reqtools.library til Libs:...")
(set #copying-rtpatch  "Kopier fil RTPatch...")

(set #which-language
(cat "\nHvilke språk skal installeres?"
))

(set #which-language-help
(cat "Amiga kan benytte mange forskjellige språk. "
     "Dersom du vil ha ReqTools til å bruke samme språk "
     "som er benyttet på Amiga Workbench'en, må en "
     "språkfil kopieres til system disken din. "
     "Språkfiler må kopieres til disken for hvert språk"
     " som du installerer.\n\n"
     "For å redusere plassen som benyttes til språkfiler, "
     "kan du velge ut de språkene du vil ha tilgjengelige "
     "på maskinen din.\n\n"
     "Sett en hake ved de språkene du ønsker å ha "
     "tilgjengelige på din maskin.\n\n"
     @askoptions-help
))

; not translated yet!
;(set #install-msg
;(cat "\n\nReqTools installation script.\n"
;     "This script installs ReqTools library on your Amiga.\n\n"
;     "Read the DISTRIBUTION file for\n"
;     "more information on the distribution\n"
;     "and commercial usage of ReqTools.\n\n"
;     "ReqTools © 1991-1994 Nico François\n"
;     "           1995-1996 Magnus Holmgren\n"
;     "All rights reserved."
;))

))

;=============================================================================
; Polish strings

(if (= @language "polski")
(

(set #default_lang #lang_polish)

(set #bad-kick
(cat "Musisz uûywaê co najmniej Kickstartu 2.04 aby zainstalowaê ReqTools uûywajâc tego skryptu!"
     " Dwukliknij na ikonce 'Workbench_1.2-1.3' aby zainstalowaê ReqTools"
     "w komputerach z Kickstarem 1.2 lub 1.3"
))

(set #copying-reqtools "Kopiujë reqtools.library do LIBS:...")
(set #copying-rtpatch  "Kopiujë program RTPatch...")

(set #which-language
(cat "\nJakie jëzyki chciaîbyô zainstalowaê?"
))

(set #which-language-help
(cat "\nAmiga moûe pracowaê w róûnych jëzykach. Jeôli chcesz aby"
     " requestery ReqTools uûywaîy tego samego jëzyka jakiego"
     " uûywa Amiga Workbench, plik 'reqtools.catalog' musi zostaê"
     " skopiowany na dysk systemowy dla kaûdego z obsîugiwanych jëzyków.\n\n"
     "Aby ograniczyê miejsce zajmowane na dysku"
     " przez powyûsze pliki, zaznacz tylko te z wyôwietlonych"
     " jëzyków (poprzez klikniëcie na gadgecie znajdujâcym"
     " sië obok), które bëdâ Ci naprawdë potrzebne.\n\n"
     @askoptions-help
))

(set #install-msg
(cat "\n\nReqTools - skrypt instalacyjny.\n"
     "Skrypt ten instaluje ReqTools w Twojej Amidze.\n\n"
     "Przeczytaj plik DISTRIBUTION aby uzyskaê\n"
     "informacje na temat dystrybucji\n"
     "oraz komercyjnego wykorzystania\n"
     "pakietu ReqTools.\n\n"
     "ReqTools © 1991-1994 Nico François\n"
     "           1995-1996 Magnus Holmgren\n"
     "Wszelkie prawa zastrzeûone."
))

))

;=============================================================================
; Hungarian strings

(if (= @language "magyar")
(

(set #default_lang #lang_hungarian)
))

;=============================================================================
; Russian strings

(if (= @language "russian")
  (
    (set #default_lang #lang_russian)
    (set #bad-kick (cat
      "Ãêþ üñíè çìðñaêþõçíììíè îïíâïaëëú çïäàòäñðþ éaé ëçìçëòë "
      "Kickstart 2.04! Ù½êéìçñä ãáaåãú îí çéíìéä 'Workbench_1.2-1.3', "
      "öñíàú òðñaìíáçñû Reqtools ìa éíëîûýñäï ð Kickstart 1.2 ÷ 1.3 "
    ))
    (set #copying-reqtools "Éíîçïòý àçàêçíñäéò reqtools.library á LIBS:...")
    (set #copying-rtpatch  "Éíîçïòý îïíâïaëëò RTPatch...")
    (set #which-language )
    (set #which-language-help (cat
     "\nÎíðéíêûéò Aëçâa ëíåäñ ïaàíñañû ìa ïaæêçöìúô þæúéaô, Áú ëíåäñä "
     "ðãäêañû ñaé, öñíàú ïçéáäðñäïú àçàêçíñäéç reqtools çðîíêûæíáaêç "
     "ñíñ åä þæúé, öñí ç Workbench. Îïç üñíë Áaë àòãäñ ìäíàôíãçëí "
     "ðéíîçïíáañû þæúéíáíè éañaêíâ ãêþ éaåãíâí çæ îíããäïåçáaäëíâí Áaøäè "
     "ðçðñäëíè þæúéa (æa çðéêýöäìçäë aìâêçèðéíâí). Öñíàú òëäìûøçñû "
     "ãçðéíáíä îïíðñïaìðñáí, æaìçëaäëíä þæúéíáúëç éañaêíâaëç, éíîçïòèñä "
     "ñíêûéí ñä çæ ìçô, éíñíïúä ëíâòñ ãäèðñáçñäêûìí Áaë îíñïäàíáañûðþ.\n\n"
     "Îïíðñí îíëäñûñä ñä þæúéç, éíñíïúä îïäãðñaáêþýñ ãêþ Áað çìñäïäð ç áð½!\n\n"
     @askoptions-help
    ))
    (set #install-msg (cat
      "\n\nÇìðñaêþõçíììaþ îïíâïaëëa ReqTools.\n"
      "Òðñaìaáêçáaäñ àçàêçíñäéò ReqTools ìa Áaøò Aëçâò.\n\n"
      "Îïíöçñaèñä óaèê DISTRIBUTION, âãä ðííàùaýñðþ îíãïíàìíðñç.\n\n"
      "ReqTools © 1991-1994 Nico François\n"
      "           1995-1996 Magnus Holmgren\n"
      "Áðä îïaáa æaùçùäìú."
    ))
  )
)


;=============================================================================
;=============================================================================
; make sure we are running under a 2.04 ROM

(if (< (/ (getversion) 65536) 37)
(
    (abort #bad-kick)
))

(if (>= @installer-version 2752518)     ; 42 * 65536 + 6
	; At least version 42.6
	(set #propfont "")
	; Pre V42
	(set #propfont "")
)

;=============================================================================

(message #install-msg)

(copylib
	(prompt "\n" #copying-reqtools)
	(help @copylib-help)
	(source #reqtoolslib)
	(dest "Libs:")
	(confirm)
)

(if (exists "C:RTPatch")
(
	(copylib
		(prompt "\n" #copying-rtpatch)
		(help @copylib-help)
		(source #rtpatch)
		(dest "C:")
		(confirm)
	)
))

(if (exists "SYS:WbStartup/RTPatch")
(
	(copylib
		(prompt "\n" #copying-rtpatch)
		(help @copylib-help)
		(source #rtpatch)
		(dest "SYS:WbStartup")
		(confirm)
	)
))

(if (exists "SYS:Locale")
(
	(if (exists "LOCALE:")
	(
		(user 2)
		(set #lang (askoptions	(prompt #which-language)
					(help #which-language-help)
					(choices
						(cat #propfont "Dansk")
						"Deutsch"
						"English"
						"Español"
						"Français"
						"Italiano"
						"Magyar"
						"Nederlands"
						"Norsk"
						"Polski"
						"Português"
						"Russian"
						"Svenska")
					(default #default_lang)
				)
		)
		(user #old_level)

		(set #n 0)
		(while (set #language (select #n
					"dansk"
					"deutsch"
					"english"
					"español"
					"français"
					"italiano"
					"magyar"
					"nederlands"
					"norsk"
					"polski"
					"português"
					"russian"
					"svenska"
					""))
		(
			(if (IN lang #n)
			(
				(if (<> #lang_english_num #n)
				(
					(makedir (cat "LOCALE:Catalogs/" #language))
					(copyfiles (source (cat catalogdir #language))
								  (dest (cat "LOCALE:Catalogs/" #language))
								  (all)
					)
				))
			))
			(set #n (+ #n 1))
		))
	))
))