; $Id: Install 1.17 1999/03/21 18:20:36 angela Exp $
; $VER: Install-MakeCD 2.4 (8.7.97)

; If you want to add support for further languages, please
; contact angela@core.de first to check if somebody else is
; already working on such a translation.

(procedure P_GET_LANG_FROM_ENV
	(
		(if (= 1 (exists "ENV:Language"))
			( ; then
				(if (patmatch (getenv "language") txt_lang_0) ; Dansk
					0
					(if (patmatch (getenv "language") txt_lang_1) ; Deutsch
						1
						(if (patmatch (getenv "language") txt_lang_2) ; English
							2
							(if (patmatch (getenv "language") txt_lang_3) ; Espaol
								3
								(if (patmatch (getenv "language") txt_lang_4) ; Franais
									4
									(if (patmatch (getenv "language") txt_lang_5) ; Italiano
										5
										(if (patmatch (getenv "language") txt_lang_6) ; Magyar
											6
											(if (patmatch (getenv "language") txt_lang_7) ; Nederlands
												7
												(if (patmatch (getenv "language") txt_lang_8) ; Norsk
													8
													(if (patmatch (getenv "language") txt_lang_9) ; Suomi
														9
														(if (patmatch (getenv "language") txt_lang_10) ; Svenska
															10
															(if (patmatch (getenv "language") txt_lang_11) ; etina (Czech)
																11
																2 ; English
															)
														)
													)
												)
											)
										)
									)
								)
							)
						)
					)
				)
			)
			( ; else
				(if (patmatch @language txt_lang_0) ; Dansk
					0
					(if (patmatch @language txt_lang_1) ; Deutsch
						1
						(if (patmatch @language txt_lang_2) ; English
							2
							(if (patmatch @language txt_lang_3) ; Espaol
								3
								(if (patmatch @language txt_lang_4) ; Franais
									4
									(if (patmatch @language txt_lang_5) ; Italiano
										5
										(if (patmatch @language txt_lang_6) ; Magyar
											6
											(if (patmatch @language txt_lang_7) ; Nederlands
												7
												(if (patmatch @language txt_lang_8) ; Norsk
													8
													(if (patmatch @language txt_lang_9) ; Suomi
														9
														(if (patmatch @language txt_lang_10) ; Svenska
															10
															(if (patmatch @language txt_lang_10) ; etina (Czech)
																11
																2 ; English
															)
														)
													)
												)
											)
										)
									)
								)
							)
						)
					)
				)
			)
		)
	)
)



; Fr neue Sprache (Catalog oder Anleitung fr MakeCD):
; - Sprache hier einfgen
; - numlangs auf Anzahl der von MakeCD supporteten Sprachen setzen
; - bei #which_languages_to_install Sprache hinzufgen

(procedure P_SELECT_LANGUAGE
	(
;                                   |                                  | 2 if doc exists,         |                              | 
;     Name of language              | Name of Catalog directory        | 1 if catalog exists,     | Translation of "by"          | Name of translator
;                                   |                                  | 0 if xyz does not exist  |                              |
;     ==============================|==================================|==========================|==============================|=============================================
		(set txt_lang_0  "Dansk")        (set txt_langdir_0  "dansk")        (set langbits_0  (+ 0 1))   (set txt_by_0  "af")            (set trans_lang_0  "Mark Holm")
		(set txt_lang_1  "Deutsch")      (set txt_langdir_1  "deutsch")      (set langbits_1  (+ 2 1))   (set txt_by_1  "von")           (set trans_lang_1  "Angela Schmidt")
		(set txt_lang_2  "English")      (set txt_langdir_2  "english")      (set langbits_2  (+ 2 0))   (set txt_by_2  "by")            (set trans_lang_2  "Angela Schmidt")
		(set txt_lang_3  "Espaol")      (set txt_langdir_3  "espaol")      (set langbits_3  (+ 0 1))   (set txt_by_3  "por")           (set trans_lang_3  "Javier Morata")
		(set txt_lang_4  "Franais")     (set txt_langdir_4  "franais")     (set langbits_4  (+ 0 1))   (set txt_by_4  "par")           (set trans_lang_4  "Jean-Marc Boursot")
		(set txt_lang_5  "Italiano")     (set txt_langdir_5  "italiano")     (set langbits_5  (+ 0 1))   (set txt_by_5  "a cura di")     (set trans_lang_5  "Francesco Dipietromaria")
		(set txt_lang_6  "Magyar")       (set txt_langdir_6  "magyar")       (set langbits_6  (+ 0 1))   (set txt_by_6  "ksztette")    (set trans_lang_6  "Horvth Pter")
		(set txt_lang_7  "Nederlands")   (set txt_langdir_7  "nederlands")   (set langbits_7  (+ 0 1))   (set txt_by_7  "door")          (set trans_lang_7  "Tim J. en Korneel K.")          ; (Tim Jacobs en Korneel Ketelslegers)
		(set txt_lang_8  "Norsk")        (set txt_langdir_8  "norsk")        (set langbits_8  (+ 0 1))   (set txt_by_8  "av")            (set trans_lang_8  "Eivind Olsen")
		(set txt_lang_9  "Suomi")        (set txt_langdir_9  "suomi")        (set langbits_9  (+ 0 1))   (set txt_by_9  "tehnyt")        (set trans_lang_9  "Mikko Virtanen")
		(set txt_lang_10 "Svenska")      (set txt_langdir_10 "svenska")      (set langbits_10 (+ 0 1))   (set txt_by_10 "av")            (set trans_lang_10 "Fredrik Zetterlund")
		(set txt_lang_11 "etina")      (set txt_langdir_11 "etina")      (set langbits_11 (+ 0 1))   (set txt_by_10 "peloil")      (set trans_lang_10 "Vt indl")
;		The following languages are not available in this installer script, but there might be a catalog etc.
		(set txt_lang_12 "Greek")        (set txt_langdir_12 "greek")        (set langbits_12 (+ 0 1))
		; looking for portugus, ...

		(set numlangs 13)

		(if (AND (= 0 origuserlevel) (= 1 (exists "ENV:Language")))
			(
				(set langnum (P_GET_LANG_FROM_ENV))
			)
			(
				(user 2)
				(set langnum
					(askchoice
						(prompt "Choose the language to be used in this installer script.")
						(help "Please select your favourite language.\n\n" "Bitte whlen Sie ihre bevorzugte Sprache.\n\n"
							("%s: %s %s" txt_lang_0 txt_by_0 trans_lang_0)
							("%s: %s %s" txt_lang_1 txt_by_1 trans_lang_1)
							("%s: %s %s" txt_lang_2 txt_by_2 trans_lang_2)
							("%s: %s %s" txt_lang_3 txt_by_3 trans_lang_3)
							("%s: %s %s" txt_lang_4 txt_by_4 trans_lang_4)
							("%s: %s %s" txt_lang_5 txt_by_5 trans_lang_5)
							("%s: %s %s" txt_lang_6 txt_by_6 trans_lang_6)
							("%s: %s %s" txt_lang_7 txt_by_7 trans_lang_7)
							("%s: %s %s" txt_lang_8 txt_by_8 trans_lang_8)
							("%s: %s %s" txt_lang_9 txt_by_9 trans_lang_9)
							("%s: %s %s" txt_lang_10 txt_by_10 trans_lang_10)
							("%s: %s %s" txt_lang_10 txt_by_10 trans_lang_11)
						)
						(choices
							("%s" txt_lang_0)
							("%s" txt_lang_1)
							("%s" txt_lang_2)
							("%s" txt_lang_3)
							("%s" txt_lang_4)
							("%s" txt_lang_5)
							("%s" txt_lang_6)
							("%s" txt_lang_7)
							("%s" txt_lang_8)
							("%s" txt_lang_9)
							("%s" txt_lang_10)
							("%s" txt_lang_11)
						)
						(default
							(P_GET_LANG_FROM_ENV)
						)
					)
				)
				(user origuserlevel)
			)
		)

		(if (= langnum 0)  (set langstring txt_lang_0))
		(if (= langnum 1)  (set langstring txt_lang_1))
		(if (= langnum 2)  (set langstring txt_lang_2))
		(if (= langnum 3)  (set langstring txt_lang_3))
		(if (= langnum 4)  (set langstring txt_lang_4))
		(if (= langnum 5)  (set langstring txt_lang_5))
		(if (= langnum 6)  (set langstring txt_lang_6))
		(if (= langnum 7)  (set langstring txt_lang_7))
		(if (= langnum 8)  (set langstring txt_lang_8))
		(if (= langnum 9)  (set langstring txt_lang_9))
		(if (= langnum 10) (set langstring txt_lang_10))
		(if (= langnum 11) (set langstring txt_lang_11))
		(if (= langnum 12) (set langstring txt_lang_12))
		(if (= langnum 13) (set langstring txt_lang_13))

		(if (<> 1 (exists "ENV:Language"))
			(
				(run ("%s%s" "setenv Language " langstring))
			)
		)


		; Set default strings

		; By Angela Schmidt
		(set #yes_answer
			"Yes"
		)
		(set #no_answer
			"No"
		)
		(set #choose_yes_or_no
			"Please chose \"Yes\" or \"No\"."
		)
		(set #archive_not_found_warning
			("%s%s%s"
				"Warning:\n"
				"Could not extract \"%s\".\n"
				"Archive not found."
			)
		)
		(set #archive_not_found_error
			("%s%s%s"
				"Error:\n"
				"Could not extract \"%s\".\n"
				"Archive not found."
			)
		)
		(set #extracting_archive
			"Extracting archive \"%s\" to directory \"%s\"."
		)
		(set #warning_old_os
			(
				"%s%s"
				"Please update the operating system. "
				"MakeCD requires OS 2.04."
			)
		)
		(set #intro_msg
			("%s%s%s%s"
				"Welcome at the MakeCD installation!\n\n"
				"Although MakeCD is able to run without further installation "
				"(except the disk version), you might want to "
				"copy it to your hard disk. This program will help you doing this."
			)
		)
		(set #select_dest_dir
			("%s%s"
				"Please select the destination directory for MakeCD. "
				"The \"MakeCD\" directory will be created automatically."
			)
		)
		(set #which_languages_to_install
			"Which languages do you want to install?"
		)
		(set #install_developer
			("%s%s%s%s%s"
				"Do you want to install developer material? This material "
				"describes all you have to know about SUSP (System Use "
				"Sharing Protocol), RRIP (Rock Ridge Interchange Protocol) "
				"and about the support of Amiga protection bits and file "
				"comments on CD-ROM."
			)
		)
		(set #install_goodies
			("%s%s%s"
				"Do you want to install some goodies? This material does not "
				"really belong to MakeCD and is not included in the MakeCD "
				"registration fee, but might be useful."
			)
		)
		(set #remove_oldversion
			("%s%s%s%s%s"
				"The destination directory \"%s\" that you chose already exists. Before installing the "
				"new version, this directory has to be cleaned up. Files and directories which have been "
				"created by you, are not affected - except when their names collide with the names of "
				"MakeCD related files.\n\n"
				"May the installer script delete the affected files and directories?"
			)
		)
		(set #remove_oldversion_help
			"The following commands will be performed:"
		)
		(set #abort_on_cleanup
			"Could not cleanup directory.\n\nAborting.\n\nInstallation not done."
		)
		(set #deleting_old_files
			"Deleting old files and directories."
		)
		(set #no_catalog
			"no catalog"
		)
		(set #catalog
			"catalog"
		)
		(set #no_doc
			"no docs"
		)
		(set #doc
			"docs"
		)
		(set #cannot_find_lang_docs
			("%s%s%s%s"                         ; *** CHANGED ***
				"Sorry, cannot find any docs for language \"%s\".\n\n"
				"Installation of the docs of this language skipped.\n\n"
				"You obviously do not have the documentation files for this language. "
				"You can download them from http://makecd.core.de/."
			)
		)
		(set #cannot_find_lang_catalogs
			("%s%s%s%s"                         ; *** CHANGED ***
				"Sorry, cannot find any catalogs for language \"%s\".\n\n"
				"Installation of the catalogs of this language skipped.\n\n"
				"You obviously do not have the catalog files for this language. "
				"You can download them from http://makecd.core.de/."
			)
		)
		(set #cannot_find_div_docs
			("%s%s"
				"Sorry, cannot find some of the doc files.\n\n"
				"Installation of these docs skipped."
			)
		)
		(set #copying_files
			"Please stand by while copying ..."
		)
		(set #cannot_find_development_docs
			("%s%s"
				"Sorry, cannot find the development docs.\n\n"
				"Installation of these docs skipped."
			)
		)
		(set #select_drivers
			("%s%s"                         ; *** CHANGED ***
				"Please select the drivers to install. "
				"Copy ALL drivers, if you are not an expert."
			)
		)
		(set #copy_libs
			"MakeCD requires triton.library V6."
		)
		(set #start_makecd                         ; *** CHANGED ***
			"Do you want to start MakeCD now?"
		)

		; Now the strings that are required for further languages, will follow.
		; For translations to further languages, simply copy one of the following
		; block and change the texts. The control characters should remail
		; unchanged. If you have to add or delete a line, you have to change
		; the number of %s accordingly. For each line, on %s is required.

		; By Mark Holm <markh@email.dk>
		(if (patmatch langstring "Dansk")
			(
				(set #yes_answer
					"Ja"
				)
				(set #no_answer
					"Nej"
				)
				(set #choose_yes_or_no
					"Vlg venligst \"Ja\" eller \"Nej\"."
				)
				(set #archive_not_found_warning
					("%s%s%s"
						"Advarsel:\n"
						"Kunne ikke udpakke \"%s\".\n"
						"Arkivet blev ikke fundet."
					)
				)
				(set #archive_not_found_error
					("%s%s%s"
						"Fejl:\n"
						"Kunne ikke udpakke \"%s\".\n"
						"Arkivet blev ikke fundet."
					)
				)
				(set #extracting_archive
					"Udpakker arkivet \"%s\" til biblioteket \"%s\"."
				)
				(set #warning_old_os
					(
						"%s%s"
						"Opdatr venligst operativsystemet. "
						"MakeCD krver OS 2.04."
					)
				)
				(set #intro_msg
					("%s%s%s%s"
						"Velkommen til MakeCD installationen!\n\n"
						"Selvom MakeCD er i stand til at kre uden videre installation "
						"(undtagen disk-versionen), vil du muligvis "
						"kopiere filerne til din harddisk. Dette script vil hjlpe dig med dette."
					)
				)
				(set #select_dest_dir
					("%s%s"
						"Vlg destinationsbiblioteket for MakeCD. "
						"Biblioteket \"MakeCD\" vil automatisk blive oprettet."
					)
				)
				(set #which_languages_to_install
					"Hvilke(t) sprog vil du installere?"
				)
				(set #install_goodies
					("%s%s%s"
						"Vil du installere nogle 'godbidder'? De hrer egentlig ikke "
						"med i MakeCD pakken, og er heller ikke indregnet i "
						"registreringsgebyret, men kan dog vre nyttige. "
					)
				)
				(set #install_developer
					("%s%s%s%s%s"
						"Vil du installere udvikler-materialet? Dette materiale "
						"beskriver alt, hvad du skal vide om SUSP (System Use "
						"Sharing Protocol), RRIP (Rock Ridge Interchange Protocol), "
						"og om understttelsen af Amiga beskyttelses-bits og om "
						"filkommentarer p CD-ROM."
					)
				)
				(set #remove_oldversion
					("%s%s%s%s%s"
						"Destinationsbiblioteket \"%s\", du har valgt, eksisterer allerede. Fr den nye version kan "
						"installeres, skal der ryddes op i dette bibliotek. Filer og kataloger, du selv har oprettet, "
						"vil ikke blive berrt - undtagen nr filnavnene kolliderer med navnene p "
						"MakeCD relaterede filnavne.\n\n"
						"M installtionsscriptet slette de berrte filer og biblioteker?"
					)
				)
				(set #remove_oldversion_help
					"Flgende kommandoer vil blive udfrt:"
				)
				(set #abort_on_cleanup
					"Kunne ikke rydde op i biblioteket.\n\nAfbryder.\n\nInstallationen blev ikke fuldfrt."
				)
				(set #deleting_old_files
					"Sletter gamle filer og biblioteker."
				)
				(set #no_catalog
					"ingen catalog"
				)
				(set #catalog
					"catalog"
				)
				(set #no_doc
					"ingen vejledning"
				)
				(set #doc
					"vejledning"
				)
				(set #cannot_find_lang_docs
					("%s%s%s%s"
						"Beklager, kan ikke finde vejledningen til sproget \"%s\".\n\n"
						"Installationen af vejledningen til dette sprog springes over.\n\n"
						"Du har tilsyneladende ikke vejlednings-filerne til dette sprog. "
						"Du kan downloade dem fra http://makecd.core.de/."
					)
				)
				(set #cannot_find_lang_catalogs
					("%s%s%s%s"
						"Beklager, kan ikke finde nogen catalog-filer til sproget \"%s\".\n\n"
						"Installationen af catalog-filer til dette sprog springes over.\n\n"
						"Du har tilsyneladende ikke catalog-filerne til dette sprog. "
						"Du kan downloade dem fra http://makecd.core.de/."
					)
				)
				(set #cannot_find_div_docs
					("%s%s"
						"Beklager, kan ikke finde nogle af vejlednings-filerne.\n\n"
						"Installationen af denne vejledning springes over."
					)
				)
				(set #copying_files
					"Vent venligst ... kopierer filerne"
				)
				(set #cannot_find_development_docs
					("%s%s"
						"Beklager, kan ikke finde udvikler-vejledningen.\n\n"
						"Installationen af denne vejledning springes over."
					)
				)
				(set #select_drivers
					("%s%s"
						"Vlg de drivere, der skal installeres. "
						"Kopier ALLE drivere, hvis du ikke er en ekspert."
					)
				)
				(set #copy_libs
					"MakeCD krver triton.library V6."
				)
				(set #start_makecd
					"Vil du starte MakeCD nu?"
				)
			)
		)

		; By Angela Schmidt
		(if (patmatch langstring "Deutsch")
			(
				(set #yes_answer
					"Ja"
				)
				(set #no_answer
					"Nein"
				)
				(set #choose_yes_or_no
					"Whlen Sie bitte \"Ja\" oder \"Nein\"."
				)
				(set #archive_not_found_warning
					("%s%s%s"
						"Warnung:\n"
						"Konnte \"%s\" nicht entpacken.\n"
						"Archiv nicht gefunden."
					)
				)
				(set #archive_not_found_error
					("%s%s%s"
						"Fehler:\n"
						"Konnte \"%s\" nicht entpacken.\n"
						"Archiv nicht gefunden."
					)
				)
				(set #extracting_archive
					"Entpacke Archiv \"%s\" ins Verzeichnis \"%s\"."
				)
				(set #warning_old_os
					(
						"%s%s"
						"Bitte bringen Sie Ihr Betriebssystem auf den neuesten Stand. "
						"MakeCD funktioniert erst ab OS 2.04."
					)
				)
				(set #intro_msg
					("%s%s%s%s"
						"Willkommen zur MakeCD Installation!\n\n"
						"MakeCD ist zwar auch ohne weitere Installation lauffhig "
						"(auer die Disketten-Version), aber Sie werden es sicherlich "
						"auch auf Festplatte installieren wollen. Dabei hilft Ihnen dieses Programm."
					)
				)
				(set #select_dest_dir
					("%s%s"
						"Bitte whlen Sie das Verzeichnis, in dem Sie MakeCD installieren mchten. "
						"Ein Verzeichnis \"MakeCD\" wird automatisch angelegt."
					)
				)
				(set #which_languages_to_install
					"Welche Sprachen mchten Sie installieren?"
				)
				(set #install_goodies
					("%s%s%s"
						"Sollen einige Goodies installiert werden? Die Goodies gehren "
						"nicht wirklich zu MakeCD und sind nicht in der Registrier-Gebhr "
						"von MakeCD enthalten, knnten sich jedoch als ntzlich erweisen. "
					)
				)
				(set #install_developer
					("%s%s%s%s%s"
						"Mchten Sie die Dateien fr Entwickeler installieren? Diese "
						"Dateien beschreiben alles, was Sie ber SUSP (System Use "
						"Sharing Protocol), RRIP (Rock Ridge Interchange Protocol) "
						"und ber die Untersttzung von Amiga Protection Bits and Datei-Kommentaren "
						"auf CD-ROMs wissen mssen."
					)
				)
				(set #remove_oldversion
					("%s%s%s%s%s"
						"Das von Ihnen gewhlte Zielverzeichnis \"%s\" existiert bereits. Bevor die neue Version "
						"installiert wird, mu in diesem Verzeichnis aufgerumt werden. Dateien und Verzeichnisse, "
						"die von Ihnen in diesem Verzeichnis angelegt wurden, sind davon nicht betroffen - auer "
						"wenn Sie Namen vergeben haben, die mit den von MakeCD vergebenen Namen kollidieren.\n\n"
						"Darf das Installer-Skript die betroffenen Dateien und Verzeichnisse lschen?"
					)
				)
				(set #remove_oldversion_help
					"Die folgenden Befehle werden ausgefhrt:"
				)
				(set #abort_on_cleanup
					"Konnte Verzeichnis nicht aufrumen.\n\nBreche Installation ab.\n\nEs wurde nichts installiert."
				)
				(set #deleting_old_files
					"Lsche alte Dateien und Verzeichnisse."
				)
				(set #no_catalog
					"kein Catalog"
				)
				(set #catalog
					"Catalog"
				)
				(set #no_doc
					"keine Dokumentation"
				)
				(set #doc
					"Dokumentation"
				)
				(set #cannot_find_lang_docs
					("%s%s%s%s"
						"Die Anleitung fr die Sprache \"%s\" kann leider nicht gefunden werden.\n\n"
						"Die Installation der Anleitung dieser Sprache wurde bersprungen.\n\n"
						"Offenbar ist die Anleitung fr diese Sprache nicht in Ihrer Distribution vorhanden. "
						"Sie knnen sie von http://makecd.core.de/ herunterladen."
					)
				)
				(set #cannot_find_lang_catalogs
					("%s%s%s%s"
						"Der Katalog fr die Sprache \"%s\" kann leider nicht gefunden werden.\n\n"
						"Die Installation des Katalogs dieser Sprache wurde bersprungen.\n\n"
						"Offenbar ist die Catalog-Datei fr diese Sprache nicht in Ihrer Distribution vorhanden. "
						"Sie knnen sie von http://makecd.core.de/ herunterladen."
					)
				)
				(set #cannot_find_div_docs
					("%s%s"
						"Einige der Dokumentations-Dateien knnen leider nicht gefunden werden.\n\n"
						"Die Installation dieser Dateien wurde bersprungen."
					)
				)
				(set #copying_files
					"Kopiere ... Bitte etwas Geduld."
				)
				(set #cannot_find_development_docs
					("%s%s"
						"Die Entwickler-Dokumentation kann leider nicht gefunden werden.\n\n"
						"Die Installation dieser Dokumentation wurde bersprungen."
					)
				)
				(set #select_drivers
					("%s%s"
						"Welche Treiber mchten Sie installieren? "
						"Kopieren Sie ALLE Treiber, wenn Sie kein Experte sind!"
					)
				)
				(set #copy_libs
					"MakeCD bentigt triton.library V6."
				)
				(set #start_makecd
					"Soll MakeCD nun gestartet werden?"
				)
			)
		)

		; By Javier Morata <jmorata@kaos.es>
		(if (patmatch langstring "Espaol")
			(
				(set #yes_answer
					"Si"
				)
				(set #no_answer
					"No"
				)
				(set #choose_yes_or_no
					"Por favor escoge \"Si\" o \"No\"."
				)
				(set #archive_not_found_warning
					("%s%s%s"
						"Atencin:\n"
						"No he podido extraer \"%s\".\n"
						"Archivo no encontrado."
					)
				)
				(set #archive_not_found_error
					("%s%s%s"
						"Error:\n"
						"No he podido extraer \"%s\".\n"
						"Archivo no encontrado."
					)
				)
				(set #extracting_archive
					"Extrayendo archivo \"%s\" al directorio \"%s\"."
				)
				(set #warning_old_os
					(
						"%s%s"
						"Por favor, actualiza el sistema operativo."
						"MakeCD requiere OS 2.04."
					)
				)
				(set #intro_msg
					("%s%s%s%s"
						"Bienvenido a la instalacin de MakeCD!\n\n"
						"A pesar de que MakeCD es capaz de ejecutarse sin instalar"
						"(excepto la versin de disco), deberas querer"
						"copiarlo en tu disco duro. Este programa te ayudar en ello."
					)
				)
				(set #select_dest_dir
					("%s%s"
						"Por favor, selecciona el directorio destino para MakeCD."
						"El directorio \"MakeCD\" ser creado automaticamente."
					)
				)
				(set #which_languages_to_install
					"Que lenguajes quieres instalar?"
				)
				(set #install_developer
					("%s%s%s%s%s"
						"Quieres instalar el material de desarrollo? Este material"
						"describe todo lo que tienes que saber sobre SUSP (protocolo"
						"de comparticin del uso del sistema), RRIP (protocolo de"
						"intercambio del Rock Ridge), y sobre el soporte de los bits"
						"de proteccin del Amiga y los comentarios en CD-ROM."
					)
				)
				(set #install_goodies
					("%s%s%s"
						"Quieres instalar algunos extras? Este material no pertenece"
						"realmente a MakeCD y no est incluido en el previo pago del"
						"registro de MakeCD, pero puede ser til."
					)
				)
				(set #remove_oldversion
					("%s%s%s%s%s"
						"El directorio destino \"%s\" que has escogido ya existe. Antes de instalar la nueva"
						"versin, este directorio tiene que ser limpiado. Ficheros y directorios los cuales"
						"han sido creados por ti no son afectados - excepto cuando sus nombres coinciden con"
						"los nombres de los ficheros propios de MakeCD.\n\n"
						"Debe el instalador borrar los ficheros afectados y los directorios?"
					)
				)
				(set #remove_oldversion_help
					"Los siguientes comandos sern realizados:"
				)
				(set #abort_on_cleanup
					"No he podido limpiar el directorio.\n\nAbortando.\n\nLa instalacin no fue realizada."
				)
				(set #deleting_old_files
					"Borrando ficheros antiguos y directorios."
				)
				(set #no_catalog
					"no catalogo"
				)
				(set #catalog
					"catalogo"
				)
				(set #no_doc
					"no documento"
				)
				(set #doc
					"documento"
				)
				(set #cannot_find_lang_docs
					("%s%s%s%s"									; *** CHANGED ***
						"Lo siento, no puedo encontrar ningn documento en \"%s\".\n\n"
						"Instalacin de los documentos de este lenguaje saltada.\n\n"
						"Obviamente no tienes los ficheros documento para esta lengua."
						"Puedes bajartelos de http://makecd.core.de/."
					)
				)
				(set #cannot_find_lang_catalogs
					("%s%s%s%s"									; *** CHANGED ***
						"Lo siento, no puedo encontrar ningn catalogo en \"%s\".\n\n"
						"Instalacin de los catalogos de este lenguaje saltada.\n\n"
						"Obviamente no tienes los ficheros catalogo para esta lengua."
						"Puedes bajartelos de http://makecd.core.de/."
					)
				)
				(set #cannot_find_div_docs
					("%s%s"
						"Lo siento, no puedo encontrar alguno de"
						"los ficheros documento.\n\n"
						"Instalacin de estos catalogos saltada."
					)
				)
				(set #copying_files
					"Por favor, espera mientras copio ..."
				)
				(set #cannot_find_development_docs
					("%s%s"
						"Lo siento, no puedo encontrar los"
						"documentos de desarrollo.\n\n"
						"Instalacin de estos documentos saltada."
					)
				)
				(set #select_drivers
					("%s%s"								  ; *** CHANGED ***
						"Por favor, selecciona los controladores"
						"a instalar. Copia TODOS los controladores"
						"si no eres un usuario experto."
					)
				)
				(set #copy_libs
					"MakeCD requiere triton.library V6."
				)
				(set #start_makecd								 ; *** CHANGED ***
					"Quieres ejecutar MakeCD ahora?"
				)
			)
		)

		; Chanes utilises pour l'installation en franais. Pour les traduire
		; dans une autre langue, copiez simplement le bloc et traduisez le.
		; Les noms de variables ne doivent pas tre changs. Si une phrase doit
		; tre limine, changez alors le nombre de "%s" (il y en a un par
		; phrase).

		; By Jean-Marc Boursot <jmarc.boursot@mail.dotcom.fr>
		(if (patmatch langstring "Franais")
			(
				(set #yes_answer
					"Oui"
				)
				(set #no_answer
					"Non"
				)
				(set #choose_yes_or_no
					"Choisissez \"Oui\" ou \"Non\"."
				)
				(set #archive_not_found_warning
					("%s%s%s"
						"Attention:\n"
						"Extraction de \"%s\" impossible.\n"
						"Archive introuvable."
					)
				)
				(set #archive_not_found_error
					("%s%s%s"
						"Erreur:\n"
						"Extraction de \"%s\" impossible.\n"
						"Archive introuvable."
					)
				)
				(set #extracting_archive
					"Extraction de l'archive \"%s\" dans le rpertoire \"%s\"."
				)
				(set #warning_old_os
					(
						"%s%s"
						"Veuillez mettre  jour votre systme d'exploitation. "
						"MakeCD ncessite un OS 2.04."
					)
				)
				(set #intro_msg
					("%s%s%s%s"
						"Bienvenue  l'installation MakeCD!\n\n"
						"Bien que MakeCD puisse fonctionner sans installation "
						"(sauf la version disque), vous pouvez souhaiter le copier "
						"sur votre disque dur. Ce script vous y aidera."
					)
				)
				(set #select_dest_dir
					("%s%s"
						"Choisissez le rpertoire destination de MakeCD. "
						"Un tiroir \"MakeCD\" sera cr automatiquement."
					)
				)
				(set #which_languages_to_install
					"Quelles langues voulez-vous installer?"
				)
				(set #install_developer
					("%s%s%s%s%s"
						"Voulez-vous installer les lments dveloppeur? Ces lments "
						"dcrivent tout ce que vous avez besoin de savoir sur SUSP (System "
						"Use Sharing Protocol), RRIP (Rock Ridge Interchange Protocol) "
						"et sur le support des bits de protection Amiga et les "
						"commentaires sur CD-ROM."
					)
				)
				(set #install_goodies
					("%s%s%s"
						"Voulez-vous installer quelques complments? Ces lments ne "
						"font pas vraiment partie de MakeCD et ne sont pas intgrs "
						"lors du paiement de l'enregistrement, mais peuvent tre utiles."
					)
				)
				(set #remove_oldversion
					("%s%s%s%s%s"
						"Le rpertoire destination \"%s\" que vous avez choisit existe dj. Avant d'installer "
						"la nouvelle version, ce rpertoire doit tre nettoy. Les fichiers et rpertoires crs "
						"par vous ne seront pas affects (sauf si leur nom correspond au nom d'un fichier de "
						"MakeCD).\n\n"
						"Continuer le script en effaant les fichiers et rpertoires concerns?"
					)
				)
				(set #remove_oldversion_help
					"Les commandes suivantes vont tre excutes:"
				)
				(set #abort_on_cleanup
					"Ne peut nettoyer le rpertoire.\n\nAnnulation.\n\nInstallation incomplte."
				)
				(set #deleting_old_files
					"Effacement des vieux fichiers et rpertoires."
				)
				(set #no_catalog
					"aucun catalogue"
				)
				(set #catalog
					"catalogue"
				)
				(set #no_doc
					"aucun document"
				)
				(set #doc
					"document"
				)
				(set #cannot_find_lang_docs
					("%s%s%s%s"
						"Dsol, je ne trouve aucun document pour la langue \"%s\".\n\n"
						"Installation des documents de cette langue passe.\n\n"
						"Vous n'avez manifestement pas les documentations dans cette langue. "
						"Vous pouvez les tlcharger depuis http://makecd.core.de/."
					)
				)
				(set #cannot_find_lang_catalogs
					("%s%s%s%s"
						"Dsol, je ne trouve aucun catalogue pour la langue \"%s\".\n\n"
						"Installation des catalogues de cette langue passe.\n\n"
						"Vous n'avez manifestement pas les catalogues dans cette langue. "
						"Vous pouvez les tlcharger depuis http://makecd.core.de/."
					)
				)
				(set #cannot_find_div_docs
					("%s%s"
						"Dsol, je ne trouve pas certains documents.\n\n"
						"Installation de ces documents passe."
					)
				)
				(set #copying_files
					"Veuillez patienter pendant la copie ..."
				)
				(set #cannot_find_development_docs
					("%s%s"
						"Dsol, je ne trouve les documents dveloppeur.\n\n"
						"Installation de ces documents passe."
					)
				)
				(set #select_drivers
					("%s%s"
						"Choisissez les pilotes  installer. "
						"Copiez TOUS les pilotes si vous n'tes pas un spcialiste."
					)
				)
				(set #copy_libs
					"MakeCD ncessite la triton.library V6."
				)
				(set #start_makecd
					"Voulez-vous maintenant dmarrer MakeCD?"
				)
			)
		)

		; By Francesco Dipietromaria <dpm@sinet.it>
		(if (patmatch langstring "Italiano")
			(
				(set #yes_answer
					"Si"
				)
				(set #no_answer
					"No"
				)
				(set #choose_yes_or_no
					"Scegli \"Si\" o \"No\"."
				)
				(set #archive_not_found_warning
					("%s%s%s"
						"Attenzione:\n"
						"Non posso estrarre \"%s\".\n"
						"Archivio non trovato."
					)
				)
				(set #archive_not_found_error
					("%s%s%s"
						"Errore:\n"
						"Non posso estrarre \"%s\".\n"
						"Archivio non trovato."
					)
				)
				(set #extracting_archive
					"Sto estraendo l'archivio \"%s\" nella directory \"%s\"."
				)
				(set #warning_old_os
					(
						"%s%s"
						"Aggiorna il sistema operativo. "
						"MakeCD richiede l'OS 2.04."
					)
				)
				(set #intro_msg
					("%s%s%s%s"
						"Benvenuti nel programma di installazione di MakeCD!\n\n"
						"Anche se MakeCD pu funzionare senza essere installato, "
						"(esclusa la versione su disco),  pi comodo copiarlo sul "
						"disco rigido. Questo script ti aiuter in questa operazione."
					)
				)
				(set #select_dest_dir
					("%s%s"
						"Seleziona la directory destinazione per MakeCD. "
						"La directory \"MakeCD\" verr creata automaticamente."
					)
				)
				(set #which_languages_to_install
					"Quali lingue vuoi installare?"
				)
				(set #install_developer
					("%s%s%s%s%s"
						"Vuoi installare il materiale per sviluppatori? Questo materiale "
						"descrive tutto cu che devi sapere su SUSP (System Use "
						"Sharing Protocol), RRIP (Rock Ridge Interchange Protocol) "
						"e sul supporto dei bit di protezione e dei commenti dei "
						"file Amiga su CD-ROM."
					)
				)
				(set #install_goodies
					("%s%s%s"
						"Vuoi installare alcuni extra? Questo materiale non appartiene "
						"a MakeCD e non  incluso nella registrazione di MakeCD, "
						"ma pu essere molto utile."
					)
				)
				(set #remove_oldversion
					("%s%s%s%s%s"
						"La directory di destinazione \"%s\" che hai scelto esiste gi. Prima di installare la "
						"nuova versione, questa directory deve essere svuotata. I file e le directory che sono "
						"state create da te non saranno toccate - a meno che i loro nomi non coincidano con i nomi "
						"dei file di MakeCD.\n\n"
						"Posso cancellare le directory e i file interessati?"
					)
				)
				(set #remove_oldversion_help
					"Saranno eseguiti i seguenti comandi:"
				)
				(set #abort_on_cleanup
					"Non posso svuotare la directory.\n\nInterrompo.\n\nInstallazione non completata."
				)
				(set #deleting_old_files
					"Sto cancellando i vecchi file e directory."
				)
				(set #no_catalog
					"nessun catalogo"
				)
				(set #catalog
					"catalogo"
				)
				(set #no_doc
					"nessun doc"
				)
				(set #doc
					"doc"
				)
				(set #cannot_find_lang_docs
					("%s%s%s%s"
						"Spiacente, non trovo la documentazione tradotta in \"%s\".\n\n"
						"Salto l'installazione della documentazione in lingua.\n\n"
						"Evidentemente non hai i file della documentazione per questa lingua. "
						"Eventualmente li puoi scaricare da http://makecd.core.de/."
					)
				)
				(set #cannot_find_lang_catalogs
					("%s%s%s%s"
						"Spiacente, non trovo i cataloghi tradotti in \"%s\".\n\n"
						"Salto l'installazione dei cataloghi in lingua.\n\n"
						"Evidentemente non hai i file della documentazione per questa lingua. "
						"Eventualmente li puoi scaricare da http://makecd.core.de/."
					)
				)
				(set #cannot_find_div_docs
					("%s%s"
						"Spiacente, non trovo alcuni file di documentazione.\n\n"
						"Salto l'installazione di questi file."
					)
				)
				(set #copying_files
					"Attendere, copia in corso ..."
				)
				(set #cannot_find_development_docs
					("%s%s"
						"Spiacente non trovo la documentazione per sviluppatori.\n\n"
						"Salto l'installazione di questa documentazione."
					)
				)
				(set #select_drivers
					("%s%s"
						"Seleziona i driver da installare. "
						"Copia TUTTI i driver se non sei sicuro."
					)
				)
				(set #copy_libs
					"MakeCD richiede la triton.library V6."
				)
				(set #start_makecd
					"Vuoi eseguire MakeCD adesso?"
				)
			)
		)

		; By Horvth Pter <pcpince@syneco.hu>
		(if (patmatch langstring "Magyar")
			(
				(set #yes_answer
					"Igen"
				)
				(set #no_answer
					"Nem"
				)
				(set #choose_yes_or_no
					"Krem, vlasszon! \"Igen\" vagy \"Nem\"."
				)
				(set #archive_not_found_warning
					("%s%s%s"
						"Figyelem:\n"
						"Nem tudtam kitmrteni: \"%s\".\n"
						"Nem talltam meg az archvumot."
					)
				)
				(set #archive_not_found_error
					("%s%s%s"
						"Hiba:\n"
						"Nem tudtam kitmrteni: \"%s\".\n"
						"Nem talltam meg az archvumot."
					)
				)
				(set #extracting_archive
					"\"%s\" archvum kitmrtse a(z) \"%s\" knyvtrba."
				)
				(set #warning_old_os
					(
						"%s%s"
						"Krem, szerezzen be jabb opercis rendszert."
						"A MakeCD csak legalbb OS 2.04 alatt fut."
					)
				)
				(set #intro_msg
					("%s%s%s%s"
						"dvzlm a MakeCD installlsnl!\n\n"
						"Br a MakeCD kpes tovbbi installls nlkl futni "
						"(kivve a lemezes vltozatot), n esetleg a merevlemezre "
						"kvnja msolni. Ez a script segteni fog nnek ebben."
					)
				)
				(set #select_dest_dir
					("%s%s"
						"Krem, vlassza ki a MakeCD szmra a clknyvtrat. "
						"A \"MakeCD\" knyvtr automatikusan ltrejn."
					)
				)
				(set #which_languages_to_install
					"Mely nyelveket kvnja installlni?"
				)
				(set #install_developer
					("%s%s%s%s%s"
						"A fejleszti anyagot is fel kvnja installlni? Ez az anyag "
						"ler mindent, amit tudnia kell a SUSP-rl (System Use "
						"Sharing Protocol), RRIP-rl (Rock Ridge Interchange Protocol), "
						"az Amiga protection bitekrl s file kommentrokrl "
						"egy CD-ROM-on."
					)
				)
				(set #install_goodies
					("%s%s%s"
						"Kvn installlni nhny apr, hasznos programot? Ezek nem tartoznak "
						"szorosan a MakeCD-hez s a MakeCD regisztrcis djban sincsenek"
						"benne, de hasznosak lehetnek."
					)
				)
				(set #remove_oldversion
					("%s%s%s%s%s"
						"A clknyvtr \"%s\", amelyet kivlasztott, mr ltezik. Mieltt az j vltozat "
						"installlsra kerl, e knyvtrat ki kell tiszttani. Azokat a file-okat s "
						"knyvtrakat, amelyeket n hozott ltre, nem rinti a trls - kivve, ha "
						"nevk tkzik a MakeCD ltal hasznlt file-okkal.\n\n"
						"Letrlhetem az rintett file-okat s knyvtrakat?"
					)
				)
				(set #remove_oldversion_help
					"A kvetkez parancsok kerlnek vgrehajtsra: "
				)
				(set #abort_on_cleanup
					"Nem lehet a knyvtrat megtiszttani.\n\nMegszakts.\n\nAz installls nem volt sikeres."
				)
				(set #deleting_old_files
					"Rgi file-ok s knyvtrak trlse."
				)
				(set #no_catalog
					"nincs katalgus"
				)
				(set #catalog
					"katalgus"
				)
				(set #no_doc
					"nincs dokumentci"
				)
				(set #doc
					"dokumentci"
				)
				(set #cannot_find_lang_docs
					("%s%s%s%s"                         ; *** CHANGED ***
						"Sajnos a(z) \"%s\" nyelvhez nem tallhat dokumentci.\n\n"
						"A dokumentci installlsa ehhez a nyelvhez nem trtnhet meg.\n\n"
						"You obviously do not have the documentation files for this language. "
						"You can download them from http://makecd.core.de/."
					)
				)
				(set #cannot_find_lang_catalogs
					("%s%s%s%s"                         ; *** CHANGED ***
						"Sajnos ehhez a nyelvhez egyltaln nem talltam katalgust: \"%s\".\n\n"
						"A katalgusok installlsa ehhez a nyelvhez nem lehetsges.\n\n"
						"You obviously do not have the catalog files for this language. "
						"You can download them from http://makecd.core.de/."
					)
				)
				(set #cannot_find_div_docs
					("%s%s"
						"Sajnos, a dokumentcis file-ok egy rsze nem tallhat.\n\n"
						"Ezek installlsa nem lehetsges."
					)
				)
				(set #copying_files
					"Krem, vrjon, mg msolok ..."
				)
				(set #cannot_find_development_docs
					("%s%s"
						"Sajnos, a fejleszti dokumentci nem tallhat.\n\n"
						"Ennek installlsa nem lehetsges."
					)
				)
				(set #select_drivers
					("%s%s"                         ; *** CHANGED ***
						"Krem, vlassza ki az installlni kvnt drivereket. "
						"Copy ALL drivers, if you are not an expert."
					)
				)
				(set #copy_libs
					"A MakeCD mkdshez szksg van a triton.library V6-ra."
				)
				(set #start_makecd                         ; *** CHANGED ***
					"Do you want to start MakeCD now?"
				)
			)
		)

		; Hierna volgen de teksten in het Nederlands. Om deze in een andere taal om te zetten,
		; moet je gewoon de hele blok kopieren en daarna vertalen. De namen van de variabelen
		; moeten/mogen niet veranderd worden. Als een zin toegevoegd of verwijderd wordt, moet
		; je het aantal "%s"-en aanpassen. Er is telkens n %s per zin.

		; By Tim Jacobs <crisp@unicall.be>
		(if (patmatch langstring "Nederlands")
			(
				(set #yes_answer
					"Ja"
				)
				(set #no_answer
					"Nee"
				)
				(set #choose_yes_or_no
					"Kies \"Ja\" ou \"Nee\"."
				)
				(set #archive_not_found_warning
					("%s%s%s"
						"Opgelet:\n"
						"Kan het archief \"%s\" niet uitpakken.\n"
						"Archief niet gevonden."
					)
				)
				(set #archive_not_found_error
					("%s%s%s"
						"Fout:\n"
						"Kan het archief \"%s\" niet uitpakken.\n"
						"Archief niet gevonden."
					)
				)
				(set #extracting_archive
					"Het archief \"%s\" wordt uitgepakt naar deze lade: \"%s\"."
				)
				(set #warning_old_os
					(
						"%s%s"
						"Installeer AUB een nieuw operating system. "
						"MakeCD heeft minstens OS 2.04 nodig."
					)
				)
				(set #intro_msg
					("%s%s%s%s%s%s"
						"Welkom bij de installatie van MakeCD!\n\n"
						"MakeCD kan ook opgestart worden zonder deze installatie. "
						"(Dit geldt echter niet voor de diskette-versie, deze moet eerst "
                                                "genstalleerd worden).\n"
                                                "Als U MakeCD op uw harddisk wilt installeren, zal dit script U "
                                                "daarbij helpen."
					)
				)
				(set #select_dest_dir
					("%s%s"
						"Kies AUB de lade waarin MakeCD genstalleerd moet worden. "
						"Er zal automatisch een lade \"MakeCD\" aangemaakt worden."
					)
				)
				(set #which_languages_to_install
					"Welke talen wilt U installeren?"
				)
				(set #install_developer
					("%s%s%s%s%s"
						"Wilt U de documentatie voor software-ontwikkelaars installeren? "
						"Deze documentatie beschrijft alles over SUSP (System Use Sharing "
						"Protocol), RRIP (Rock Ridge Interchange Protocol) en over de "
						"protectie-bits van de Amiga. Hierin staat ook informatie over "
						"bestandscommentaren op CD-ROM's."
					)
				)
				(set #install_goodies
					("%s%s%s"
						"Wilt U enkele extra programma's installeren ? Deze programma's maken eigenlijk "
						"geen deel uit van MakeCD, maar ze kunnen wel handig zijn. Deze programma's "
                                                "vallen niet onder het registratiebedrag van MakeCD."
					)
				)
				(set #remove_oldversion
					("%s%s%s%s%s"
						"De bestemmingslade \"%s\" die U gekozen heeft bestaat al. Alvorens de nieuwe versie van MakeCD genstalleerd "
						"zal worden, moet deze lade eerst opgeruimd worden. De bestanden en de lades die U aangemaakt heeft "
						"zullen niet gewist worden (tenzij dat hun naam overeenkomt met een naam die door MakeCD gebruikt "
						"wordt).\n\n"
						"Mag dit installer-script deze oude bestanden en lades verwijderen?"
					)
				)
				(set #remove_oldversion_help
					"De volgende commando's zullen uitgevoerd worden:"
				)
				(set #abort_on_cleanup
					"Kon de lade niet opruimen.\n\nInstallatie wordt afgebroken.\n\nInstallatie niet volledig gedaan."
				)
				(set #deleting_old_files
					"De oude bestanden en lades worden nu verwijderd ..."
				)
				(set #no_catalog
					"geen catalog"
				)
				(set #catalog
					"catalog"
				)
				(set #no_doc
					"geen document"
				)
				(set #doc
					"document"
				)
				(set #cannot_find_lang_docs
					("%s%s%s%s"                         ; *** CHANGED ***
						"Sorry, kan geen docs vinden voor de taal \"%s\".\n\n"
						"Het installeren van de docs van deze taal wordt overgeslagen.\n\n"
						"U heeft waarschijnlijk de docs van deze taal niet. "
						"U kan ze afhalen van het internet op: http://makecd.core.de/."
					)
				)
				(set #cannot_find_lang_catalogs
					("%s%s%s%s"                         ; *** CHANGED ***
						"Sorry, kan geen catalogs vinden voor de taal \"%s\".\n\n"
						"Het installeren van de catalogs van deze taal wordt overgeslagen.\n\n"
						"U heeft waarschijnlijk de catalogs van deze taal niet. "
						"U kan ze afhalen van het internet op: http://makecd.core.de/."
					)
				)
				(set #cannot_find_div_docs
					("%s%s"
						"Sorry, kan enkele doc bestanden niet vinden.\n\n"
						"Het installeren van deze docs wordt overgeslagen."
					)
				)
				(set #copying_files
					"Even geduld. De bestanden worden gekopieerd ..."
				)
				(set #cannot_find_development_docs
					("%s%s"
						"Sorry, kan de docs voor software-ontwikkelaars niet vinden.\n\n"
						"Het installeren van deze docs wordt overgeslagen."
					)
				)
				(set #select_drivers
					("%s%s"                         ; *** CHANGED ***
						"Kies AUB welke drivers genstalleerd moeten worden. "
						"Als U geen expert bent kopiert U best ALLE drivers."
					)
				)
				(set #copy_libs
					"MakeCD heeft de triton.library versie 6 nodig."
				)
				(set #start_makecd                         ; *** CHANGED ***
					"Wilt U MakeCD nu opstarten ?"
				)
			)
		)

		; By Eivind Olsen <eivindo@bgnett.no>
		(if (patmatch langstring "Norsk")
			(
				(set #yes_answer
					"Ja"
				)
				(set #no_answer
					"Nei"
				)
				(set #choose_yes_or_no
					"Vennligst velg \"Ja\" eller \"Nei\"."
				)
				(set #archive_not_found_warning
					("%s%s%s"
						"Advarsel:\n"
						"Kunne ikke pakke opp \"%s\".\n"
						"Arkivet ble ikke funnet."
					)
				)
				(set #archive_not_found_error
					("%s%s%s"
						"Feil:\n"
						"Kunne ikke pakke opp \"%s\".\n"
						"Arkivet ble ikke funnet."
					)
				)
				(set #extracting_archive
					"Pakker opp arkivet \"%s\" til katalogen \"%s\"."
				)
				(set #warning_old_os
					("%s%s"
						"Vennligst oppdater operativsystemet. "
						"MakeCD krever OS 2.04 eller nyere."
					)
				)
				(set #intro_msg
					("%s%s%s%s"
						"Velkommen til installeringen av MakeCD!\n\n"
						"Selv om MakeCD kan kjres uten videre installering "
						"(unntatt diskettversjonen), vil du kanskje "
						"kopiere det til din harddisk. Dette skriptet hjelper deg med dette."
					)
				)
				(set #select_dest_dir
					("%s%s"
						"Velg en katalog  installere MakeCD til. "
						"Katalogen \"MakeCD\" vil bli opprettet automatisk."
					)
				)
				(set #which_languages_to_install
					"Hvilke sprk vil du installere?"
				)
				(set #install_developer
					("%s%s%s%s%s"
						"Vil du installere utviklermateriale? Dette materialet "
						"forklarer alt du behver  vite om SUSP (delingsprotokoll "
						"for systembruk), RRIP (Rock Ridge Interchange Protocol) "
						"og om sttten for Amiga beskyttelsesatributter og "
						"fil-kommentarer p CD-ROM platen."
					)
				)
				(set #install_goodies
					("%s%s%s"
						"Vil du installere noe smgodt? Dette materialet tilhrer "
						"ikke egentlig MakeCD og er ikke inkludert i registrerings- "
						"avgiften til MakeCD, men kan allikevel komme til nytte."
					)
				)
				(set #remove_oldversion
					("%s%s%s%s%s"
						"Mlkatalogen \"%s\" som du valgte eksisterer allerede. Fr du installerer "
						"den nye versjonen m denne katalogen renskes opp i. Filer og kataloger som "
						"du har laget blir ikke pvirket - unntatt nr navnene deres "
						"kolliderer med navnene p MakeCD relaterte filer.\n\n"
						"Kan installeringsskriptet slette disse filene og katalogene?"
					)
				)
				(set #remove_oldversion_help
					"De flgende kommandoene vil bli utfrt:"
				)
				(set #abort_on_cleanup
					"Kunne ikke renske opp i katalogen.\n\nAvbryter.\n\nInstallering ikke fullfrt."
				)
				(set #deleting_old_files
					("%s%s"
						"Sletter gamle filer og kataloger."
						"Deleting old files and directories."
					)
				)
				(set #no_catalog
					"ingen sprkfil"
				)
				(set #catalog
					"sprkfil"
				)
				(set #no_doc
					"ingen dokumentasjon"
				)
				(set #doc
					"dokumentasjon"
				)
				(set #cannot_find_lang_docs
					("%s%s%s%s"
						"Beklager - ingen dokumentasjon finnes for sprket \"%s\".\n\n"
						"Installering av dokumentasjon for dette sprket ble hoppet over.\n\n"
						"Du har penbart ikke dokumentasjonsfilene for dette sprket. "
						"Du kan hente dem fra http://makecd.core.de/."
					)
				)
				(set #cannot_find_lang_catalogs
					("%s%s%s%s"
						"Beklager - ingen sprkfiler finnes for sprket \"%s\".\n\n"
						"Installering av sprkfiler for dette sprket ble hoppet over.\n\n"
						"Du har penbart ikke sprkfilene for dette sprket. "
						"Du kan hente dem ned fra http://makecd.core.de/."
					)
				)
				(set #cannot_find_div_docs
					("%s%s"
						"Beklager - ingen dokumentasjon ble funnet.\n\n"
						"Installering av dokumentasjon ble hoppet over."
					)
				)
				(set #copying_files
					"Vennligst vent under kopiering ..."
				)
				(set #cannot_find_development_docs
					("%s%s"
						"Beklager - kan ikke finne utviklerdokumentasjon.\n\n"
						"Installering av dokumentasjon ble hoppet over."
					)
				)
				(set #select_drivers
					("%s%s"
						"Vennligst velg drivere som skal installeres. "
						"Kopier ALLA driverene hvis du ikke er en ekspert."
					)
				)
				(set #copy_libs
					"MakeCD krever triton.library V6."
				)
				(set #start_makecd
					"Vil du starte MakeCD n?"
				)
			)
		)

		; By Mikko Virtanen <mtv@klinja.fipnet.fi>
		(if (patmatch langstring "Suomi")
			(
				(set #yes_answer
					"Kyll"
				)
				(set #no_answer
					"Ei"
				)
				(set #choose_yes_or_no
					"Valitse \"Kyll\" tai \"Ei\"."
				)
				(set #archive_not_found_warning
					("%s%s%s"
						"Varoitus:\n"
						"En pystynyt purkamaan \"%s\".\n"
						"Pakettia ei lytynyt."
					)
				)
				(set #archive_not_found_error
					("%s%s%s"
						"Virhe:\n"
						"En pystynyt purkamaan \"%s\".\n"
						"Pakettia ei lytynyt."
					)
				)
				(set #extracting_archive
					"Puran pakettia \"%s\" hakemistoon \"%s\"."
				)
				(set #warning_old_os
					(
						"%s%s"
						"Pivit kyttjrjestelm. "
						"MakeCD vaatii OS 2.04."
					)
				)
				(set #intro_msg
					("%s%s%s%s"
						"Tervetuloa asentamaan MakeCD!\n\n"
						"Vaikkakin MakeCD:t voi kytt ilman asennustakin"
						"(paitsi levykeversiota), haluat varmaankin kopioida"
						"sen kovalevyllesi. Tm asennusohjelma auttaa sinua siin."
					)
				)
				(set #select_dest_dir
					("%s%s"
						"Valitse kohdehakemisto MakeCD:lle. "
						"\"MakeCD\" hakemisto luodaan automaattisesti."
					)
				)
				(set #which_languages_to_install
					"Mitk kielet haluat asentaa?"
				)
				(set #install_developer
					("%s%s%s%s%s"
						"Haluatko asentaa developer-materiaalin? Materiaali"
						"sislt kaiken, mit sinun tulee tiet SUSP:sta (System Use "
						"Sharing Protocol), RRIP:st (Rock Ridge Interchange Protocol) "
						"ja Amigan suojausbittien ja tiedostokomenttien tuesta "
						"CD-ROM:lla."
					)
				)
				(set #install_goodies
					("%s%s%s"
						"Haluatko asentaa muutamia namupaloja? Tm materiaali ei "
						"oikeastaan kuulu MakeCD:hen, eik sislly MakeCD:n rekisterinti- "
						"maksuun, mutta saattaa kuitenkin osoittautua hydylliseksi."
					)
				)
				(set #remove_oldversion
					("%s%s%s%s%s"
						"Valitsemasi kohdehakemisto \"%s\" on jo olemassa. Ennen uuden version "
						"asennusta, tm hakemisto pit siivota. Itse luomiisi tiedostoihin "
						"ja hakemistoihin ei kosketa, paitsi jos niill on samoja nimi kuin "
						"MakeCD:n omilla tiedostoilla.\n\n"
						"Voidaanko MakeCD:hen liittyvt tiedostot ja hakemistot tuhota?"
					)
				)
				(set #remove_oldversion_help
					"Seuraavat komennot suoritetaan:"
				)
				(set #abort_on_cleanup
					"En pystynyt siivoamaan hakemistoa.\n\nKeskeytn.\n\nAsennusta ei tehty."
				)
				(set #deleting_old_files
					"Tuhoan vanhoja tiedostoja ja hakemistoja."
				)
				(set #no_catalog
					"ei sanastoa"
				)
				(set #catalog
					"sanasto"
				)
				(set #no_doc
					"ei ohjeita"
				)
				(set #doc
					"ohjeet"
				)
				(set #cannot_find_lang_docs
					("%s%s%s%s"                         ; *** CHANGED ***
						"Pahoittelen, en lytnyt ohjeita kielelle \"%s\".\n\n"
						"Hyppn tmn asennuskohdan yli.\n\n"
						"You obviously do not have the documentation files for this language. "
						"You can download them from http://makecd.core.de/."
					)
				)
				(set #cannot_find_lang_catalogs
					("%s%s%s%s"                         ; *** CHANGED ***
						"Pahoittelen, en lytnyt sanastoa kielelle \"%s\".\n\n"
						"Hyppn tmn asennuskohdan yli.\n\n"
						"You obviously do not have the catalog files for this language. "
						"You can download them from http://makecd.core.de/."
					)
				)
				(set #cannot_find_div_docs
					("%s%s"
						"En lytnyt muutamia ohjetiedostoja.\n\n"
						"Asennus jtetty vliin tlt osin."
					)
				)
				(set #copying_files
					"Pieni hetki, kopioin ..."
				)
				(set #cannot_find_development_docs
					("%s%s"
						"En lyd kehittelyohjeita.\n\n"
						"Asennus jtetty vliin tlt osin."
					)
				)
				(set #select_drivers
					("%s%s"                         ; *** CHANGED ***
						"Valitse asennettavat ajurit. " 
						"Copy ALL drivers, if you are not an expert."
					)
				)
				(set #copy_libs
					"MakeCD vaatii triton.library V6:n."
				)
				(set #start_makecd                         ; *** CHANGED ***
					"Do you want to start MakeCD now?"
				)
			)
		)

		; By Fredrik Zetterlund <frallan@canit.se>
		(if (patmatch langstring "Svenska")
			(
				(set #yes_answer
					"Ja"
				)
				(set #no_answer
					"Nej"
				)
				(set #choose_yes_or_no
					"Vlj antingen \"Ja\" eller \"Nej\"."
				)
				(set #archive_not_found_warning
					("%s%s%s"
						"Varning:\n"
						"Kan inte utvinna \"%s\".\n"
						"Hittar ej arkivet."
					)
				)
				(set #archive_not_found_error
					("%s%s%s"
						"Fel:\n"
						"Kan inte utvinna \"%s\".\n"
						"Hittar ej arkivet."
					)
				)
				(set #extracting_archive
					"Utvinner arkiv \"%s\" till lda \"%s\"."  
				)
				(set #warning_old_os
					(
						"%s%s"
						"Vnligen uppdatera ditt operativsystem. "
						"MakeCD krver OS 2.04." 
					)
				)
				(set #intro_msg
					("%s%s%s%s"
						"Vlkommen till MakeCD's installationsprogram!\n\n"
						"ven om MakeCD klarar av att kras utan fortsatt "
						"installation (frutom diskversionen), kanske du "
						"vill kopiera den till din hrddisk. Detta skript hjlper dig med det."
					)
				)
				(set #select_dest_dir
					("%s%s"
						"Vnligen vlj destinationslda fr MakeCD. "
						"\"MakeCD\"-ldan skapas automatiskt."
					)
				)
				(set #which_languages_to_install
					"Vilka sprk vill du installera?"
				)
				(set #install_developer
					("%s%s%s%s%s"
						"Vill du installera utvecklarmaterialet? Det materialet "
						"beskriver allt du behver veta om SUSP (System Use "
						"Sharing Protocol), RRIP (Rock Ridge Interchange Protocol) "
						"och om stdet fr Amigans skyddsbittar och filkommentarer "
						"p CD-ROMen."
					)
				)
				(set #install_goodies
					("%s%s%s"
						"Vill du installera ngra godbitar? Det materialet tillhr "
						"egentligen inte MakeCD och r inte inkluderat i MakeCD's "
						"registreringsavgift, men kan vara anvndbart."
					)
				)
				(set #remove_oldversion
					("%s%s%s%s%s"
						"Destinationsldan \"%s\" som du valt existerar redan. Innan "
						"du installerar den nya versionen, mste ldan rensas upp. "
						"Filer och ldor skapade av dig kommer inte att rras, om "
						"inte deras namn kolliderar med namn som relateras till MakeCD-filer.\n\n"
						"Fr installationsskriptet radera de berrda ldorna?"
					)
				) 
				(set #remove_oldversion_help
					"Fljande kommanon kommer att utfras:"
				) 
				(set #abort_on_cleanup
					"Kunde inte rensa ldan.\n\nAvbryter.\n\nInstallation ej klar."
				) 
				(set #deleting_old_files
					"Raderar gamla filer och ldor."
				) 
				(set #no_catalog
					"ingen katalog"
				)
				(set #catalog
					"katalog"
				)
				(set #no_doc
					"ingen dokumentation"
				)
				(set #doc
					"dokumentation"
				)
				(set #cannot_find_lang_docs
					("%s%s%s%s"
						"Ledsen, hittar ingen dokumentation fr ditt sprk \"%s\".\n\n"
						"Installationen av dokumentationen p det sprket hoppas ver.\n\n"
						"Du har uppenbarligen inte dokumentationsfilerna fr detta sprk. "
						"Du kan ladda ned dom frn http://makecd.core.de/."
					)
				) 
				(set #cannot_find_lang_catalogs
					("%s%s%s%s"
						"Ledsen, hittar inga kataloger fr ditt sprk \"%s\".\n\n"
						"Installationen av katalogen p det sprket hoppas ver.\n\n" 
						"Du har uppenbarligen inte katalogfilerna fr detta sprk. "
						"Du kan ladda ned dom frn http://makecd.core.de/."
					)
				) 
				(set #cannot_find_div_docs
					("%s%s"
						"Ledsen, hittar inte vissa delar av dokumentationen.\n\n"
						"Installationen av den dokumentationen hoppas ver."
					)
				) 
				(set #copying_files
					"Kopiering sker, var god drj..."
				) 
				(set #cannot_find_development_docs
					("%s%s"
						"Ledsen, kan inte hitta utvecklardokumentationen.\n\n"
						"Installationen av den dokumentationen hoppas ver."
					)
				) 
				(set #select_drivers
					("%s%s"
						"Vnligen vlj vilka drivrutiner som skall installeras. "
						"Kopiera ALLA drivrutiner, om du inte r en expert."
					)
				) 
				(set #copy_libs
					 "MakeCD krver triton.library V6."
				)
				(set #start_makecd
					"Vill du starta MakeCD nu?"
				)
			)
		)

		; By Stepan Chladek <snappy@gyzamb.cz> and Vit Sindlar <sindlarv@voskop.cz>
		(if (patmatch langstring "etina")
			(
				(set #yes_answer
					"Ano"
				)
				(set #no_answer
					"Ne"
				)
				(set #choose_yes_or_no
					"Zvolte \"Ano\" nebo \"Ne\", prosm."
				)
				(set #archive_not_found_warning
					("%s%s%s"
						"Upozornn:\n"
						"Nelze rozbalit \"%s\".\n"
						"Archv nebyl nalezen."
					)
				)
				(set #archive_not_found_error
					("%s%s%s"
						"Chyba:\n"
						"Nelze rozbalit \"%s\".\n"
						"Archv nebyl nalezen."
					)
				)
				(set #extracting_archive
					"Rozbalovn archvu \"%s\" do adrese \"%s\"."
				)
				(set #warning_old_os
					(
						"%s%s"
						"Aktualizujte v operan systm. "
						"MakeCD vyaduje OS 2.04."
					)
				)
				(set #intro_msg
					("%s%s%s%s"
						"Vtejte pi instalaci MakeCD!\n\n"
						"Akoliv MakeCD lze spustit bez dal instalace "
						"(vyjma disketov verze), pece jen bude lep, "
						"kdy si jej nakoprujete na v harddisk. Tento "
						"program vm s tm pome."
					)
				)
				(set #select_dest_dir
					("%s%s"
						"Zvolte clov msto na harddisku pro MakeCD, prosm. "
						"Adres \"MakeCD\" bude vytvoen automaticky."
					)
				)
				(set #which_languages_to_install
					"Kter z peklad MakeCD si pejete nainstalovat?"
				)
				(set #install_developer
					("%s%s%s%s%s"
						"Pejete si nainstalovat materil pro vvoje? Jedn se "
						"o dokumentaci, ve kter je popsno ve ohledn SUSP "
						"(System Use Sharing Protocol), RRIP (Rock Ridge Interchange "
						"Protocol) a podpory ochrannch bit a koment Amigy "
						"na mdiu CD-ROM."
					)
				)
				(set #install_goodies
					("%s%s%s"
						"Pejete si nainstalovat nkter programy navc? Nejedn se "
						"sice o vci patc k MakeCD nebo spadajc do registrace, "
						"ale mou bt uiten."
					)
				)
				(set #remove_oldversion
					("%s%s%s%s%s"
						"Clov adres \"%s\", kter jste zvolili, ji existuje. Ped "
						"instalac nov verze mus bt vymazn. Soubory a adrese, kter "
						"jste vytvoili Vy, ovem smazny nebudou (pokud jejich nzvy "
						"nekoliduj s tmi, co pvodn pouv MakeCD).\n\n"
						"Mou bt tedy pslun soubory a adrese smazny?"
					)
				)
				(set #remove_oldversion_help
					"Budou provedeny nsledujc pkazy:"
				)
				(set #abort_on_cleanup
					"Nelze vymazat adres.\n\nPerueno.\n\nInstalace nebyla provedena."
				)
				(set #deleting_old_files
					"Maou se star soubory a adrese."
				)
				(set #no_catalog
					"katalog neexistuje"
				)
				(set #catalog
					"katalog"
				)
				(set #no_doc
					"dokumentace neexistuje"
				)
				(set #doc
					"dokumentace"
				)
				(set #cannot_find_lang_docs
					("%s%s%s%s"
						"Pardon, ale pro jazyk \"%s\" nelze nalzt dokumentaci.\n\n"
						"Instalace dokumentace pro dan jazyk byla peskoena.\n\n"
						"Pro tento jazyk zejm nemte pslunou dokumentaci. "
						"Mete si je sthnout z http://makecd.core.de/."
					)
				)
				(set #cannot_find_lang_catalogs
					("%s%s%s%s"
						"Pardon, ale pro jazyk \"%s\" nelze nalzt katalog.\n\n"
						"Instalace katalogu pro dan jazyk byla peskoena.\n\n"
						"Pro tento jazyk zejm nemte pslun katalogy. "
						"Mete si je sthnout z http://makecd.core.de/."
					)
				)
				(set #cannot_find_div_docs
					("%s%s"
						"Pardon, nelze nalzt nkter ze soubor dokumentace.\n\n"
						"Instalace tto dokumentace byla peskoena."
					)
				)
				(set #copying_files
					"Koprovn soubor, moment prosm..."
				)
				(set #cannot_find_development_docs
					("%s%s"
						"Pardon, nelze nalzt dokumentaci pro vvoje.\n\n"
						"Instalace tto dokumentace byla peskoena."
					)
				)
				(set #select_drivers
					("%s%s"
						"Zvolte si ovladae, kter se maj nainstalovat, prosm. "
						"Pokud nejste expertem, mli byste zkoprovat VECHNY."
					)
				)
				(set #copy_libs
					"MakeCD vyaduje triton.library V6."
				)
				(set #start_makecd
					"Pejete si spustit MakeCD okamit?"
				)
			)
		)

		(if (IN langbits_0  0) ((set #catres #catalog) (set #catresh "CAT")) ((set #catres #no_catalog) (set #catresh "NOCAT")))   (if (IN langbits_0  1) ((set #docres #doc) (set #docresh "DOC")) ((set #docres #no_doc) (set #docresh "NODOC")))   (set langchoice_0  ("%s (%s, %s)" txt_lang_0  #catres #docres))  (set langchoiceh_0  ("%s (%s, %s)" txt_lang_0  #catresh #docresh))
		(if (IN langbits_1  0) ((set #catres #catalog) (set #catresh "CAT")) ((set #catres #no_catalog) (set #catresh "NOCAT")))   (if (IN langbits_1  1) ((set #docres #doc) (set #docresh "DOC")) ((set #docres #no_doc) (set #docresh "NODOC")))   (set langchoice_1  ("%s (%s, %s)" txt_lang_1  #catres #docres))  (set langchoiceh_1  ("%s (%s, %s)" txt_lang_1  #catresh #docresh))
		(if (IN langbits_2  0) ((set #catres #catalog) (set #catresh "CAT")) ((set #catres #no_catalog) (set #catresh "NOCAT")))   (if (IN langbits_2  1) ((set #docres #doc) (set #docresh "DOC")) ((set #docres #no_doc) (set #docresh "NODOC")))   (set langchoice_2  ("%s (%s, %s)" txt_lang_2  #catres #docres))  (set langchoiceh_2  ("%s (%s, %s)" txt_lang_2  #catresh #docresh))
		(if (IN langbits_3  0) ((set #catres #catalog) (set #catresh "CAT")) ((set #catres #no_catalog) (set #catresh "NOCAT")))   (if (IN langbits_3  1) ((set #docres #doc) (set #docresh "DOC")) ((set #docres #no_doc) (set #docresh "NODOC")))   (set langchoice_3  ("%s (%s, %s)" txt_lang_3  #catres #docres))  (set langchoiceh_3  ("%s (%s, %s)" txt_lang_3  #catresh #docresh))
		(if (IN langbits_4  0) ((set #catres #catalog) (set #catresh "CAT")) ((set #catres #no_catalog) (set #catresh "NOCAT")))   (if (IN langbits_4  1) ((set #docres #doc) (set #docresh "DOC")) ((set #docres #no_doc) (set #docresh "NODOC")))   (set langchoice_4  ("%s (%s, %s)" txt_lang_4  #catres #docres))  (set langchoiceh_4  ("%s (%s, %s)" txt_lang_4  #catresh #docresh))
		(if (IN langbits_5  0) ((set #catres #catalog) (set #catresh "CAT")) ((set #catres #no_catalog) (set #catresh "NOCAT")))   (if (IN langbits_5  1) ((set #docres #doc) (set #docresh "DOC")) ((set #docres #no_doc) (set #docresh "NODOC")))   (set langchoice_5  ("%s (%s, %s)" txt_lang_5  #catres #docres))  (set langchoiceh_5  ("%s (%s, %s)" txt_lang_5  #catresh #docresh))
		(if (IN langbits_6  0) ((set #catres #catalog) (set #catresh "CAT")) ((set #catres #no_catalog) (set #catresh "NOCAT")))   (if (IN langbits_6  1) ((set #docres #doc) (set #docresh "DOC")) ((set #docres #no_doc) (set #docresh "NODOC")))   (set langchoice_6  ("%s (%s, %s)" txt_lang_6  #catres #docres))  (set langchoiceh_6  ("%s (%s, %s)" txt_lang_6  #catresh #docresh))
		(if (IN langbits_7  0) ((set #catres #catalog) (set #catresh "CAT")) ((set #catres #no_catalog) (set #catresh "NOCAT")))   (if (IN langbits_7  1) ((set #docres #doc) (set #docresh "DOC")) ((set #docres #no_doc) (set #docresh "NODOC")))   (set langchoice_7  ("%s (%s, %s)" txt_lang_7  #catres #docres))  (set langchoiceh_7  ("%s (%s, %s)" txt_lang_7  #catresh #docresh))
		(if (IN langbits_8  0) ((set #catres #catalog) (set #catresh "CAT")) ((set #catres #no_catalog) (set #catresh "NOCAT")))   (if (IN langbits_8  1) ((set #docres #doc) (set #docresh "DOC")) ((set #docres #no_doc) (set #docresh "NODOC")))   (set langchoice_8  ("%s (%s, %s)" txt_lang_8  #catres #docres))  (set langchoiceh_8  ("%s (%s, %s)" txt_lang_8  #catresh #docresh))
		(if (IN langbits_9  0) ((set #catres #catalog) (set #catresh "CAT")) ((set #catres #no_catalog) (set #catresh "NOCAT")))   (if (IN langbits_9  1) ((set #docres #doc) (set #docresh "DOC")) ((set #docres #no_doc) (set #docresh "NODOC")))   (set langchoice_9  ("%s (%s, %s)" txt_lang_9  #catres #docres))  (set langchoiceh_9  ("%s (%s, %s)" txt_lang_9  #catresh #docresh))
		(if (IN langbits_10 0) ((set #catres #catalog) (set #catresh "CAT")) ((set #catres #no_catalog) (set #catresh "NOCAT")))   (if (IN langbits_10 1) ((set #docres #doc) (set #docresh "DOC")) ((set #docres #no_doc) (set #docresh "NODOC")))   (set langchoice_10 ("%s (%s, %s)" txt_lang_10 #catres #docres))  (set langchoiceh_10 ("%s (%s, %s)" txt_lang_10 #catresh #docresh))
		(if (IN langbits_11 0) ((set #catres #catalog) (set #catresh "CAT")) ((set #catres #no_catalog) (set #catresh "NOCAT")))   (if (IN langbits_11 1) ((set #docres #doc) (set #docresh "DOC")) ((set #docres #no_doc) (set #docresh "NODOC")))   (set langchoice_11 ("%s (%s, %s)" txt_lang_11 #catres #docres))  (set langchoiceh_11 ("%s (%s, %s)" txt_lang_11 #catresh #docresh))
		(if (IN langbits_12 0) ((set #catres #catalog) (set #catresh "CAT")) ((set #catres #no_catalog) (set #catresh "NOCAT")))   (if (IN langbits_12 1) ((set #docres #doc) (set #docresh "DOC")) ((set #docres #no_doc) (set #docresh "NODOC")))   (set langchoice_12 ("%s (%s, %s)" txt_lang_12 #catres #docres))  (set langchoiceh_12 ("%s (%s, %s)" txt_lang_12 #catresh #docresh))
		(if (IN langbits_13 0) ((set #catres #catalog) (set #catresh "CAT")) ((set #catres #no_catalog) (set #catresh "NOCAT")))   (if (IN langbits_13 1) ((set #docres #doc) (set #docresh "DOC")) ((set #docres #no_doc) (set #docresh "NODOC")))   (set langchoice_13 ("%s (%s, %s)" txt_lang_13 #catres #docres))  (set langchoiceh_13 ("%s (%s, %s)" txt_lang_13 #catresh #docresh))
	)
)



(procedure P_SET_GLOBALS
	(
		(set osversion (/ (getversion) 65536))
		(set volname (expandpath (":")))
		(set origuserlevel @user-level)
	)
)



(procedure P_EXTRACT_FILE archive path objectname required
	(
		(if (= 1 (exists archive))
			( ; then
				(working (#extracting_archive archive path))
				(run ("untgz %s %s" archive path))
			)
			( ; else
				(if (= 1 required)
					( ; then
						(abort (#archive_not_found_error arc))
					)
					( ; else
						(message (#archive_not_found_warning arc))
					)
				)
			)
		)
	)
)



(procedure P_WARN_OLD_OS
	(
		(if (< osversion 37)
			(
				(user 2)
				(message
					#warning_old_os
				)
				(user origuserlevel)
			)
		)
	)
)



(procedure P_SELECT_DEST
	(
		(set destdir
			(tackon
				(askdir
					(prompt #select_dest_dir)
					(help @askdir-help)
					(default @default-dest)
				)
				"MakeCD"
			)
		)
	)
)



(procedure P_CLEANUP_OLD
	(
		(set executestring1 ("delete %s QUIET FORCE" (tackon destdir "(ReadMe|ReadMe.guide|History|MakeCD|Install(%|er)|registerscript|Triton.readme|triton.library|brik|briktest-from-doc|CRCList-binaries|CRCList-binaries.pgp)(%|.info)")))
		(set executestring2 ("delete %s QUIET FORCE" (tackon destdir "(Extras|Goodies|doc|deutsch|english|Modules|Development|Catalogs).info")))
		(set executestring3 ("delete %s QUIET FORCE ALL" (tackon destdir "(Extras|Goodies|doc|deutsch|english|Modules|Development|Catalogs)")))

		(if
			(askbool
				(prompt (#remove_oldversion destdir))
				(choices #yes_answer #no_answer)
				(help #remove_oldversion_help "\n\n" executestring1 "\n\n" executestring2 "\n\n" executestring3)
				(default 0)
			)
			( ; then
				(working #deleting_old_files)
				(run executestring1)
				(run executestring2)
				(run executestring3)
			)
			( ; else
				(abort #abort_on_cleanup)
			)
		)
	)
)



(procedure P_CREATE_DIRS
	(
		(if (NOT (exists destdir))
			( ; then
				(makedir
					destdir
					(infos)
				)
			)
			( ; else
				(P_CLEANUP_OLD)
			)
		)

		(if (NOT (exists (tackon destdir "Modules")))
			(
				(makedir
					(tackon
						destdir
						"Modules"
					)
				)
			)
		)

		(if (NOT (exists (tackon destdir "Modules/SCSIDrivers")))
			(
				(makedir
					(tackon
						destdir
						"Modules/SCSIDrivers"
					)
				)
			)
		)

		(if (NOT (exists (tackon destdir "Catalogs")))
			(
				(makedir
					(tackon
						destdir
						"Catalogs"
					)
				)
			)
		)

		(if (NOT (exists (tackon destdir "doc")))
			(
				(makedir
					(tackon
						destdir
						"doc"
					)
				)
			)
		)

		(if (NOT (exists (tackon destdir "Tracks")))
			(
				(makedir
					(tackon
						destdir
						"Tracks"
					)
				)
			)
		)
	)
)



(procedure P_TEMPORARY_EXTRACT_MAKECD
	(
		(if (NOT (exists "MakeCD"))
			( ; then
				(set makecdtmpdir
					(tackon
						destdir
						"MakeCD-Temporary"
					)
				)
				(makedir makecdtmpdir)
				(P_EXTRACT_FILE "MakeCD.tar.gz" makecdtmpdir "MakeCD" 1)
			)
			( ; else
				(set makecdtmpdir "")
			)
		)
	)
)



(procedure P_SELECT_INSTALL_LANG
	(
		(set i 0)
		(set langbits 0)
		(while (< i numlangs)
			(
				(set thislangdir (select i txt_langdir_0 txt_langdir_1 txt_langdir_2 txt_langdir_3 txt_langdir_4 txt_langdir_5 txt_langdir_6 txt_langdir_7 txt_langdir_8 txt_langdir_9 txt_langdir_10 txt_langdir_11 txt_langdir_12 txt_langdir_13))
				(set langbits
					(if
						(OR
							(OR
								(= 1 (exists ("doc_%s.tar.gz" thislangdir)))
								(= 2 (exists (tackon makecdtmpdir (tackon "Catalogs" thislangdir))))
							)
							(= 2 (exists (tackon makecdtmpdir (tackon "doc" thislangdir))))
						)
						( ; then
							(+ langbits (shiftleft 1 i))
						)
						( ; else
							(+ langbits 0)
						)
					)
				)
				(set i (+ i 1))
			)
		)


		(set langbits
			(askoptions
				(prompt #which_languages_to_install)
				(help 
					langchoice_0 "\n"
					langchoice_1 "\n"
					langchoice_2 "\n"
					langchoice_3 "\n"
					langchoice_4 "\n"
					langchoice_5 "\n"
					langchoice_6 "\n"
					langchoice_7 "\n"
					langchoice_8 "\n"
					langchoice_9 "\n"
					langchoice_10 "\n"
					langchoice_11 "\n"
					langchoice_12 "\n"
					 "\n"
					@askoptions-help
				)
				(choices langchoiceh_0 langchoiceh_1 langchoiceh_2 langchoiceh_3 langchoiceh_4 langchoiceh_5 langchoiceh_6 langchoiceh_7 langchoiceh_8 langchoiceh_9 langchoiceh_10 langchoiceh_11 langchoiceh_12)
				(default langbits)
			)
		)
	)
)



(procedure P_ASK_INSTALL_GOODIES
	(
		(if (= 2 (exists (tackon makecdtmpdir "Goodies")))
			( ; then
				(set installgoodies
					(askbool
						(prompt #install_goodies)
						(choices #yes_answer #no_answer)
						(help #choose_yes_or_no)
						(default 1)
					)
				)
			)
			( ;else
				(set install_goodies 0)
			)
		)
	)
)



(procedure P_ASK_INSTALL_DEVELOPER
	(
		(if
			(OR
				(= 1 (exists (tackon makecdtmpdir "doc_development.tar.gz")))
				(= 2 (exists (tackon makecdtmpdir "doc/Development")))
			)
			(
				(set installdev
					(askbool
						(prompt #install_developer)
						(choices #yes_answer #no_answer)
						(help #choose_yes_or_no)
						(default 0)
					)
				)
			)
			( ;else
				(set installdev 0)
			)
		)
	)
)



(procedure P_COPY_DOCS
	(

		(set i 0)
		(while (< i numlangs)
			(
				(set thislang (select i txt_lang_0 txt_lang_1 txt_lang_2 txt_lang_3 txt_lang_4 txt_lang_5 txt_lang_6 txt_lang_7 txt_lang_8 txt_lang_9 txt_lang_10 txt_lang_11 txt_lang_12 txt_lang_13))
				(set thislangdir (select i txt_langdir_0 txt_langdir_1 txt_langdir_2 txt_langdir_3 txt_langdir_4 txt_langdir_5 txt_langdir_6 txt_langdir_7 txt_langdir_8 txt_langdir_9 txt_langdir_10 txt_langdir_11 txt_langdir_12 txt_langdir_13))
				(set thislangbits (select i langbits_0 langbits_1 langbits_2 langbits_3 langbits_4 langbits_5 langbits_6 langbits_7 langbits_8 langbits_9 langbits_10 langbits_11 langbits_12 langbits_13))
				(if (IN langbits i)
					(
						(if (= 2 (exists (tackon makecdtmpdir (tackon "doc" thislangdir))))
							(
								(copyfiles
									(source (tackon makecdtmpdir "doc"))
									(dest (tackon destdir "doc"))
									(pattern ("%s#?" thislangdir))
									(optional force)
								)
							)
							(
								(if (= 1 (exists ("doc_%s.tar.gz" thislangdir)))
									( ; then
										(P_EXTRACT_FILE ("doc_%s.tar.gz" thislangdir) (tackon destdir "doc") ("doc/%s" thislangdir) 0)
									)
									( ; else
										(if (IN thislangbits 1)
											( ; then
												(message (#cannot_find_lang_docs thislang))
											)
										)
									)
								)
							)
						)
						(if (= 2 (exists (tackon makecdtmpdir (tackon "Catalogs" thislangdir))))
							(
								(copyfiles
									(source (tackon makecdtmpdir "Catalogs"))
									(dest (tackon destdir "Catalogs"))
									(pattern thislangdir)
									(optional force)
								)
								(copyfiles
									(source (tackon makecdtmpdir "Catalogs"))
									(dest (tackon destdir "Catalogs"))
									(pattern ("%s.info" thislangdir))
									(optional force)
								)
							)
							( ; else
								(if (NOT (patmatch "english" thislangdir))	; not English
									(
										(if (IN thislangbits 0)
											( ; then
												(message (#cannot_find_lang_catalogs thislang))
											)
										)
									)
								)
							)
						)
					)
				)
				(set i (+ i 1))
			)
		)

		(
			(if (AND
					(= 1 (exists (tackon makecdtmpdir "doc/History")))
					(AND
						(= 1 (exists (tackon makecdtmpdir "doc/History.info")))
						(AND
							(= 1 (exists (tackon makecdtmpdir "doc/Compatibility")))
							(AND
								(= 1 (exists (tackon makecdtmpdir "doc/Compatibility.info")))
								(AND
									(= 1 (exists (tackon makecdtmpdir "doc/Triton.readme")))
									(= 1 (exists (tackon makecdtmpdir "doc/Triton.readme.info")))
								)
							)
						)
					)
				)
				( ;then
					(copyfiles
						(source (tackon makecdtmpdir "doc"))
						(dest (tackon destdir "doc"))
						(choices "History" "History.info" "Compatibility" "Compatibility.info" "Triton.readme" "Triton.readme.info")
						(optional force)
					)
				)
				( ;else
					(if (= 1 (exists ("doc_div.tar.gz")))
						( ; then
							(P_EXTRACT_FILE "doc_div.tar.gz" (tackon destdir "doc") "doc/#?" 0)
						)
						( ; else
							(message #cannot_find_div_docs)
						)
					)
				)
			)
		)

	)
)



(procedure P_COPY_FILES
	(
		(copyfiles
			(prompt #copying_files)
			(choices
				"MakeCD"
				"MakeCD.info"
				"CopyCD.info"
				"registerscript"
				"doc.info"
				"Modules.info"
				"Catalogs.info"
				"brik"
				"briktest-from-doc"
				"CRCList-binaries"
				"CRCList-binaries.pgp"
			)
			(help @copyfiles-help)
			(source makecdtmpdir)
			(dest destdir)
			(optional force)
		)

		(copyfiles
			(prompt #copying_files)
			(choices
				"ReadMe.guide"
				"ReadMe.guide.info"
			)
			(help @copyfiles-help)
			(source "")
			(dest destdir)
			(optional force)
		)

		(copyfiles
			(prompt #copying_files)
			(help @copyfiles-help)
			(source (tackon makecdtmpdir "Tracks.noinfo"))
			(dest destdir)
			(newname "Tracks.info")
			(optional force)
		)

		(copyfiles
			(prompt #copying_files)
			(help @copyfiles-help)
			(source (tackon makecdtmpdir "MakeCD.noinfo"))
			(dest (pathonly ("%s.info" destdir)))
			(newname (fileonly ("%s.info" destdir)))
			(optional force)
		)

		(copyfiles
			(prompt #copying_files)
			(help @copyfiles-help)
			(choices "makecdromfs.module" "SCSISupport.module" "ReadWrite.module" "SCSIDrivers.info")
			(source (tackon makecdtmpdir "Modules"))
			(dest (tackon destdir "Modules"))
			(optional force)
		)

		(if (= 1 installdev)
			(
				(if (= 2 (exists (tackon makecdtmpdir "doc/Development")))
					(
						(copyfiles
							(prompt #copying_files)
							(help @copyfiles-help)
							(source (tackon makecdtmpdir "doc"))
							(dest (tackon destdir "doc"))
							(pattern "Development#?")
							(optional force)
						)
					)
					(
						(if (= 1 (exists "doc_development.tar.gz"))
							( ; then
								(P_EXTRACT_FILE "doc_development.tar.gz" (tackon destdir "doc") "doc/Development" 0)
							)
							( ; else
								(message (#cannot_find_development_docs))
							)
						)
					)
				)
			)
		)

		(if (= 1 installgoodies)
			(
				(copyfiles
					(prompt #copying_files)
					(help @copyfiles-help)
					(source makecdtmpdir )
					(dest destdir)
					(pattern "Goodies#?")
					(optional force)
				)
			)
		)
	)
)



(procedure P_COPY_DRIVERS
	(
		(copyfiles
			(prompt #select_drivers)
			(help @copyfiles-help)
			(pattern "#?")
			(source (tackon makecdtmpdir "Modules/SCSIDrivers"))
			(dest (tackon destdir "Modules/SCSIDrivers"))
			(confirm)
			(optional force)
		)
	)
)



(procedure P_COPY_LIBS
	(
		(copylib 
			(prompt #copy_libs)
			(help #copy_libs)
			(confirm)
			(source (tackon makecdtmpdir "triton.library"))
			(dest "LIBS:")
		)
	)
)



(procedure P_DELETE_TMPDIR
	(
		(if (> (strlen makecdtmpdir) 0)
			( ; then
				(run ("delete %s QUIET FORCE ALL" makecdtmpdir))
			)
		)
	)
)


(procedure P_START_MAKECD
	(
		(if
			(askbool
				(prompt #start_makecd)
				(choices #yes_answer #no_answer)
				(help #choose_yes_or_no)
				(default 1)
			)
			( ; then
				(run (tackon destdir "MakeCD"))
			)
		)
	)
)




(complete 5)
(P_SET_GLOBALS)
(complete 7)
(P_SELECT_LANGUAGE)
(complete 10)
(P_WARN_OLD_OS)
(complete 13)
(message #intro_msg)
(complete 15)
(P_SELECT_DEST)
(complete 20)
(P_CREATE_DIRS)
(complete 25)
(P_TEMPORARY_EXTRACT_MAKECD)
(complete 35)
(P_SELECT_INSTALL_LANG)
(complete 40)
(P_ASK_INSTALL_DEVELOPER)
(complete 45)
(P_ASK_INSTALL_GOODIES)
(complete 50)
(P_COPY_DOCS)
(complete 60)
(P_COPY_FILES)
(complete 70)
(P_COPY_DRIVERS)
(complete 80)
(P_COPY_LIBS)
(complete 90)
(P_DELETE_TMPDIR)
(complete 95)

(set @default-dest destdir)

(complete 99)
(P_START_MAKECD)
(complete 100)
