; $Id: Install 1.13 1998/01/23 20:26:01 angela Exp $
; $VER: Install-MakeCD 2.4 (8.7.97)

; If you want to add support for further languages, please
; contact Angela.Schmidt@stud.uni-karlsruhe.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) ; Français
								3
								(if (patmatch (getenv "language") txt_lang_4) ; Italiano
									4
									(if (patmatch (getenv "language") txt_lang_5) ; Magyar
										5
										(if (patmatch (getenv "language") txt_lang_6) ; Nederlands
											6
											(if (patmatch (getenv "language") txt_lang_7) ; Norsk
												7
												(if (patmatch (getenv "language") txt_lang_8) ; Suomi
													8
													(if (patmatch (getenv "language") txt_lang_9) ; Svenska
														9
														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) ; Français
								3
								(if (patmatch @language txt_lang_4) ; Italiano
									4
									(if (patmatch @language txt_lang_5) ; Magyar
										5
										(if (patmatch @language txt_lang_6) ; Nederlands
											6
											(if (patmatch @language txt_lang_7) ; Norsk
												7
												(if (patmatch @language txt_lang_8) ; Suomi
													8
													(if (patmatch @language txt_lang_9) ; Svenska
														9
														2 ; English
													)
												)
											)
										)
									)
								)
							)
						)
					)
				)
			)
		)
	)
)



; Für neue Sprache (Catalog oder Anleitung für MakeCD):
; - Sprache hier einfügen
; - numlangs auf Anzahl der von MakeCD supporteten Sprachen setzen
; - bei #which_languages_to_install Sprache hinzufügen

(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  "Français")     (set txt_langdir_3  "français")     (set langbits_3  (+ 0 1))   (set txt_by_3  "par")           (set trans_lang_3  "Jean-Marc Boursot")
		(set txt_lang_4  "Italiano")     (set txt_langdir_4  "italiano")     (set langbits_4  (+ 0 1))   (set txt_by_4  "a cura di")     (set trans_lang_4  "Francesco Dipietromaria")
		(set txt_lang_5  "Magyar")       (set txt_langdir_5  "magyar")       (set langbits_5  (+ 0 1))   (set txt_by_5  "készítette")    (set trans_lang_5  "Horváth Péter")
		(set txt_lang_6  "Nederlands")   (set txt_langdir_6  "nederlands")   (set langbits_6  (+ 0 1))   (set txt_by_6  "door")          (set trans_lang_6  "Tim J. en Korneel K.")          ; (Tim Jacobs en Korneel Ketelslegers)
		(set txt_lang_7  "Norsk")        (set txt_langdir_7  "norsk")        (set langbits_7  (+ 0 1))   (set txt_by_7  "av")            (set trans_lang_7  "Eivind Olsen")
		(set txt_lang_8  "Suomi")        (set txt_langdir_8  "suomi")        (set langbits_8  (+ 0 1))   (set txt_by_8  "tehnyt")        (set trans_lang_8  "Mikko Virtanen")
		(set txt_lang_9  "Svenska")      (set txt_langdir_9  "svenska")      (set langbits_9  (+ 0 1))   (set txt_by_9  "av")            (set trans_lang_9  "Fredrik Zetterlund")
		(set txt_lang_10 "")             (set txt_langdir_10 "")             (set langbits_10 (+ 0 0))   (set txt_by_10 "by")            (set trans_lang_10 "")
		; looking for espańol, portuguęs, ...

		(set numlangs 10)

		(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 wählen Sie ihre bevorzugte Sprache.")
						(choices
							("%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)
						)
						(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 (<> 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 #install_requires_lha
			"Installation of %s requires the program LhA. Skipping this part."
		)
		(set #abort_on_extract
			("%s%s"
				"Installation aborted. Could not extract %s."
				"Please install LhA."
			)
		)
		(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
					"Vćlg 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 #install_requires_lha
					"Installationen af dette program krćver programmet LhA. Overspringer denne del."
				)
				(set #abort_on_extract
					("%s%s"
						"Installationen afbrudt. Kunne ikke udpakke %s."
						"Installér venligst LhA."
					)
				)
				(set #warning_old_os
					(
						"%s%s"
						"Opdatér venligst operativsystemet. "
						"MakeCD krćver OS 2.04."
					)
				)
				(set #intro_msg
					("%s%s%s%s"
						"Velkommen til MakeCD installationen!\n\n"
						"Selvom MakeCD er i stand til at křre uden videre installation "
						"(undtagen disk-versionen), vil du muligvis "
						"kopiere filerne til din harddisk. Dette script vil hjćlpe dig med dette."
					)
				)
				(set #select_dest_dir
					("%s%s"
						"Vćlg 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 hřrer egentlig ikke "
						"med i MakeCD pakken, og er heller ikke indregnet i "
						"registreringsgebyret, men kan dog vćre 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 understřttelsen 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. Fřr den nye version kan "
						"installeres, skal der ryddes op i dette bibliotek. Filer og kataloger, du selv har oprettet, "
						"vil ikke blive berřrt - undtagen nĺr filnavnene kolliderer med navnene pĺ "
						"MakeCD relaterede filnavne.\n\n"
						"Mĺ installtionsscriptet slette de berřrte filer og biblioteker?"
					)
				)
				(set #remove_oldversion_help
					"Fřlgende kommandoer vil blive udfřrt:"
				)
				(set #abort_on_cleanup
					"Kunne ikke rydde op i biblioteket.\n\nAfbryder.\n\nInstallationen blev ikke fuldfřrt."
				)
				(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"
						"Vćlg de drivere, der skal installeres. "
						"Kopier ALLE drivere, hvis du ikke er en ekspert."
					)
				)
				(set #copy_libs
					"MakeCD krćver 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
					"Wählen 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 #install_requires_lha
					"Sie benötigen das Programm LhA, um %s zu installieren. Überspringe diesen Teil."
				)
				(set #abort_on_extract
					("%s%s"
						"Installation abgebrochen. %s konnte nicht entpackt werden."
						"Bitte installieren Sie LhA."
					)
				)
				(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 lauffähig "
						"(außer 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 wählen Sie das Verzeichnis, in dem Sie MakeCD installieren möchten. "
						"Ein Verzeichnis \"MakeCD\" wird automatisch angelegt."
					)
				)
				(set #which_languages_to_install
					"Welche Sprachen möchten Sie installieren?"
				)
				(set #install_goodies
					("%s%s%s"
						"Sollen einige Goodies installiert werden? Die Goodies gehören "
						"nicht wirklich zu MakeCD und sind nicht in der Registrier-Gebühr "
						"von MakeCD enthalten, könnten sich jedoch als nützlich erweisen. "
					)
				)
				(set #install_developer
					("%s%s%s%s%s"
						"Möchten Sie die Dateien für Entwickeler installieren? Diese "
						"Dateien beschreiben alles, was Sie über SUSP (System Use "
						"Sharing Protocol), RRIP (Rock Ridge Interchange Protocol) "
						"und über die Unterstützung von Amiga Protection Bits and Datei-Kommentaren "
						"auf CD-ROMs wissen müssen."
					)
				)
				(set #remove_oldversion
					("%s%s%s%s%s"
						"Das von Ihnen gewählte Zielverzeichnis \"%s\" existiert bereits. Bevor die neue Version "
						"installiert wird, muß in diesem Verzeichnis aufgeräumt werden. Dateien und Verzeichnisse, "
						"die von Ihnen in diesem Verzeichnis angelegt wurden, sind davon nicht betroffen - außer "
						"wenn Sie Namen vergeben haben, die mit den von MakeCD vergebenen Namen kollidieren.\n\n"
						"Darf das Installer-Skript die betroffenen Dateien und Verzeichnisse löschen?"
					)
				)
				(set #remove_oldversion_help
					"Die folgenden Befehle werden ausgeführt:"
				)
				(set #abort_on_cleanup
					"Konnte Verzeichnis nicht aufräumen.\n\nBreche Installation ab.\n\nEs wurde nichts installiert."
				)
				(set #deleting_old_files
					"Lösche 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 für die Sprache \"%s\" kann leider nicht gefunden werden.\n\n"
						"Die Installation der Anleitung dieser Sprache wurde übersprungen.\n\n"
						"Offenbar ist die Anleitung für diese Sprache nicht in Ihrer Distribution vorhanden. "
						"Sie können sie von http://makecd.core.de/ herunterladen."
					)
				)
				(set #cannot_find_lang_catalogs
					("%s%s%s%s"
						"Der Katalog für 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 für diese Sprache nicht in Ihrer Distribution vorhanden. "
						"Sie können sie von http://makecd.core.de/ herunterladen."
					)
				)
				(set #cannot_find_div_docs
					("%s%s"
						"Einige der Dokumentations-Dateien können 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 möchten Sie installieren? "
						"Kopieren Sie ALLE Treiber, wenn Sie kein Experte sind!"
					)
				)
				(set #copy_libs
					"MakeCD benötigt triton.library V6."
				)
				(set #start_makecd
					"Soll MakeCD nun gestartet werden?"
				)
			)
		)

		; Chaînes utilisées pour l'installation en français. Pour les traduire
		; dans une autre langue, copiez simplement le bloc et traduisez le.
		; Les noms de variables ne doivent pas ętre changés. Si une phrase doit
		; ętre éliminée, 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 "Français")
			(
				(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 répertoire \"%s\"."
				)
				(set #install_requires_lha
					"L'installation de %s nécessite LhA. On passe cette partie."
				)
				(set #abort_on_extract
					("%s%s"
						"Installation abandonnée. Extraction de %s impossible."
						"Veuillez installer LhA."
					)
				)
				(set #warning_old_os
					(
						"%s%s"
						"Veuillez mettre ŕ jour votre systčme d'exploitation. "
						"MakeCD nécessite 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 répertoire 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 éléments développeur? Ces éléments "
						"décrivent 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 compléments? Ces éléments ne "
						"font pas vraiment partie de MakeCD et ne sont pas intégrés "
						"lors du paiement de l'enregistrement, mais peuvent ętre utiles."
					)
				)
				(set #remove_oldversion
					("%s%s%s%s%s"
						"Le répertoire destination \"%s\" que vous avez choisit existe déjŕ. Avant d'installer "
						"la nouvelle version, ce répertoire doit ętre nettoyé. Les fichiers et répertoires créés "
						"par vous ne seront pas affectés (sauf si leur nom correspond au nom d'un fichier de "
						"MakeCD).\n\n"
						"Continuer le script en effaçant les fichiers et répertoires concernés?"
					)
				)
				(set #remove_oldversion_help
					"Les commandes suivantes vont ętre exécutées:"
				)
				(set #abort_on_cleanup
					"Ne peut nettoyer le répertoire.\n\nAnnulation.\n\nInstallation incomplčte."
				)
				(set #deleting_old_files
					"Effacement des vieux fichiers et répertoires."
				)
				(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"
						"Désolé, je ne trouve aucun document pour la langue \"%s\".\n\n"
						"Installation des documents de cette langue passée.\n\n"
						"Vous n'avez manifestement pas les documentations dans cette langue. "
						"Vous pouvez les télécharger depuis http://makecd.core.de/."
					)
				)
				(set #cannot_find_lang_catalogs
					("%s%s%s%s"
						"Désolé, je ne trouve aucun catalogue pour la langue \"%s\".\n\n"
						"Installation des catalogues de cette langue passée.\n\n"
						"Vous n'avez manifestement pas les catalogues dans cette langue. "
						"Vous pouvez les télécharger depuis http://makecd.core.de/."
					)
				)
				(set #cannot_find_div_docs
					("%s%s"
						"Désolé, je ne trouve pas certains documents.\n\n"
						"Installation de ces documents passée."
					)
				)
				(set #copying_files
					"Veuillez patienter pendant la copie ..."
				)
				(set #cannot_find_development_docs
					("%s%s"
						"Désolé, je ne trouve les documents développeur.\n\n"
						"Installation de ces documents passée."
					)
				)
				(set #select_drivers
					("%s%s"
						"Choisissez les pilotes ŕ installer. "
						"Copiez TOUS les pilotes si vous n'ętes pas un spécialiste."
					)
				)
				(set #copy_libs
					"MakeCD nécessite la triton.library V6."
				)
				(set #start_makecd
					"Voulez-vous maintenant démarrer 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 #install_requires_lha
					"L'installazione di %s richiede il programma LhA. Salto questa sezione."
				)
				(set #abort_on_extract
					("%s%s"
						"Installazione interrotta. Non posso estrarre %s."
						"Installa il comando LhA."
					)
				)
				(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 Horváth Péter <pcpince@syneco.hu>
		(if (patmatch langstring "Magyar")
			(
				(set #yes_answer
					"Igen"
				)
				(set #no_answer
					"Nem"
				)
				(set #choose_yes_or_no
					"Kérem, válasszon! \"Igen\" vagy \"Nem\"."
				)
				(set #archive_not_found_warning
					("%s%s%s"
						"Figyelem:\n"
						"Nem tudtam kitömöríteni: \"%s\".\n"
						"Nem találtam meg az archívumot."
					)
				)
				(set #archive_not_found_error
					("%s%s%s"
						"Hiba:\n"
						"Nem tudtam kitömöríteni: \"%s\".\n"
						"Nem találtam meg az archívumot."
					)
				)
				(set #extracting_archive
					"\"%s\" archívum kitömörítése a(z) \"%s\" könyvtárba."
				)
				(set #install_requires_lha
					"%s installálásához az LHA program szükséges. Átugrom ezt a részt."
				)
				(set #abort_on_extract
					("%s%s"
						"Az installálás megszakítva. Nem tudtam kitömöríteni a(z) %s-t."
						"Kérem, installálja az LHA-t."
					)
				)
				(set #warning_old_os
					(
						"%s%s"
						"Kérem, szerezzen be újabb operációs rendszert."
						"A MakeCD csak legalább OS 2.04 alatt fut."
					)
				)
				(set #intro_msg
					("%s%s%s%s"
						"Üdvözlöm a MakeCD installálásánál!\n\n"
						"Bár a MakeCD képes további installálás nélkül futni "
						"(kivéve a lemezes változatot), Ön esetleg a merevlemezre "
						"kívánja másolni. Ez a script segíteni fog Önnek ebben."
					)
				)
				(set #select_dest_dir
					("%s%s"
						"Kérem, válassza ki a MakeCD számára a célkönyvtárat. "
						"A \"MakeCD\" könyvtár automatikusan létrejön."
					)
				)
				(set #which_languages_to_install
					"Mely nyelveket kívánja installálni?"
				)
				(set #install_developer
					("%s%s%s%s%s"
						"A fejlesztői anyagot is fel kívánja installálni? Ez az anyag "
						"leír mindent, amit tudnia kell a SUSP-ról (System Use "
						"Sharing Protocol), RRIP-ról (Rock Ridge Interchange Protocol), "
						"az Amiga protection bitekről és file kommentárokról "
						"egy CD-ROM-on."
					)
				)
				(set #install_goodies
					("%s%s%s"
						"Kíván installálni néhány apró, hasznos programot? Ezek nem tartoznak "
						"szorosan a MakeCD-hez és a MakeCD regisztrációs díjában sincsenek"
						"benne, de hasznosak lehetnek."
					)
				)
				(set #remove_oldversion
					("%s%s%s%s%s"
						"A célkönyvtár \"%s\", amelyet kiválasztott, már létezik. Mielőtt az új változat "
						"installálásra kerül, e könyvtárat ki kell tisztítani. Azokat a file-okat és "
						"könyvtárakat, amelyeket Ön hozott létre, nem érinti a törlés - kivéve, ha "
						"nevük ütközik a MakeCD által használt file-okkal.\n\n"
						"Letörölhetem az érintett file-okat és könyvtárakat?"
					)
				)
				(set #remove_oldversion_help
					"A következő parancsok kerülnek végrehajtásra: "
				)
				(set #abort_on_cleanup
					"Nem lehet a könyvtárat megtisztítani.\n\nMegszakítás.\n\nAz installálás nem volt sikeres."
				)
				(set #deleting_old_files
					"Régi file-ok és könyvtárak törlése."
				)
				(set #no_catalog
					"nincs katalógus"
				)
				(set #catalog
					"katalógus"
				)
				(set #no_doc
					"nincs dokumentáció"
				)
				(set #doc
					"dokumentáció"
				)
				(set #cannot_find_lang_docs
					("%s%s%s%s"                         ; *** CHANGED ***
						"Sajnos a(z) \"%s\" nyelvhez nem található dokumentáció.\n\n"
						"A dokumentáció installálása ehhez a nyelvhez nem történhet 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 egyáltalán nem találtam katalógust: \"%s\".\n\n"
						"A katalógusok installálása ehhez a nyelvhez nem lehetséges.\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 dokumentációs file-ok egy része nem található.\n\n"
						"Ezek installálása nem lehetséges."
					)
				)
				(set #copying_files
					"Kérem, várjon, míg másolok ..."
				)
				(set #cannot_find_development_docs
					("%s%s"
						"Sajnos, a fejlesztői dokumentáció nem található.\n\n"
						"Ennek installálása nem lehetséges."
					)
				)
				(set #select_drivers
					("%s%s"                         ; *** CHANGED ***
						"Kérem, válassza ki az installálni kívánt drivereket. "
						"Copy ALL drivers, if you are not an expert."
					)
				)
				(set #copy_libs
					"A MakeCD működéséhez szükség 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 #install_requires_lha
					"Om %s te installeren moet U LhA hebben. Dit deel wordt overgeslagen."
				)
				(set #abort_on_extract
					("%s%s"
						"Installatie afgebroken. Kon %s niet uitpakken."
						"Installeer AUB LhA."
					)
				)
				(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 "
                                                "geďnstalleerd 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 geďnstalleerd 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 geďnstalleerd "
						"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 geďnstalleerd moeten worden. "
						"Als U geen expert bent kopiëert 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 #install_requires_lha
					"Installeringen av %s krever programmet LhA. Hopper over denne delen."
				)
				(set #abort_on_extract
					("%s%s"
						"Installering avbrutt. Kunne ikke pakke opp %s."
						"Vennligst installer LhA."
					)
				)
				(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 kjřres 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 sprĺk vil du installere?"
				)
				(set #install_developer
					("%s%s%s%s%s"
						"Vil du installere utviklermateriale? Dette materialet "
						"forklarer alt du behřver ĺ vite om SUSP (delingsprotokoll "
						"for systembruk), RRIP (Rock Ridge Interchange Protocol) "
						"og om střtten for Amiga beskyttelsesatributter og "
						"fil-kommentarer pĺ CD-ROM platen."
					)
				)
				(set #install_goodies
					("%s%s%s"
						"Vil du installere noe smĺgodt? Dette materialet tilhřrer "
						"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"
						"Mĺlkatalogen \"%s\" som du valgte eksisterer allerede. Fřr du installerer "
						"den nye versjonen mĺ denne katalogen renskes opp i. Filer og kataloger som "
						"du har laget blir ikke pĺvirket - unntatt nĺr navnene deres "
						"kolliderer med navnene pĺ MakeCD relaterte filer.\n\n"
						"Kan installeringsskriptet slette disse filene og katalogene?"
					)
				)
				(set #remove_oldversion_help
					"De fřlgende kommandoene vil bli utfřrt:"
				)
				(set #abort_on_cleanup
					"Kunne ikke renske opp i katalogen.\n\nAvbryter.\n\nInstallering ikke fullfřrt."
				)
				(set #deleting_old_files
					("%s%s"
						"Sletter gamle filer og kataloger."
						"Deleting old files and directories."
					)
				)
				(set #no_catalog
					"ingen sprĺkfil"
				)
				(set #catalog
					"sprĺkfil"
				)
				(set #no_doc
					"ingen dokumentasjon"
				)
				(set #doc
					"dokumentasjon"
				)
				(set #cannot_find_lang_docs
					("%s%s%s%s"
						"Beklager - ingen dokumentasjon finnes for sprĺket \"%s\".\n\n"
						"Installering av dokumentasjon for dette sprĺket ble hoppet over.\n\n"
						"Du har ĺpenbart ikke dokumentasjonsfilene for dette sprĺket. "
						"Du kan hente dem fra http://makecd.core.de/."
					)
				)
				(set #cannot_find_lang_catalogs
					("%s%s%s%s"
						"Beklager - ingen sprĺkfiler finnes for sprĺket \"%s\".\n\n"
						"Installering av sprĺkfiler for dette sprĺket ble hoppet over.\n\n"
						"Du har ĺpenbart ikke sprĺkfilene for dette sprĺket. "
						"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 löytynyt."
					)
				)
				(set #archive_not_found_error
					("%s%s%s"
						"Virhe:\n"
						"En pystynyt purkamaan \"%s\".\n"
						"Pakettia ei löytynyt."
					)
				)
				(set #extracting_archive
					"Puran pakettia \"%s\" hakemistoon \"%s\"."
				)
				(set #install_requires_lha
					"%s asennukseen tarvitaan LhA-ohjelma. Hyppään tämän kohdan yli."
				)
				(set #abort_on_extract
					("%s%s"
						"Asennus keskeytetty. En pystynyt purkamaan %s."
						"Asenna LhA."
					)
				)
				(set #warning_old_os
					(
						"%s%s"
						"Päivitä käyttöjärjestelmä. "
						"MakeCD vaatii OS 2.04."
					)
				)
				(set #intro_msg
					("%s%s%s%s"
						"Tervetuloa asentamaan MakeCD!\n\n"
						"Vaikkakin MakeCD:tä voi käyttää ilman asennustakin"
						"(paitsi levykeversiota), haluat varmaankin kopioida"
						"sen kovalevyllesi. Tämä 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"
						"sisältää 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? Tämä materiaali ei "
						"oikeastaan kuulu MakeCD:hen, eikä sisälly MakeCD:n rekisteröinti- "
						"maksuun, mutta saattaa kuitenkin osoittautua hyödylliseksi."
					)
				)
				(set #remove_oldversion
					("%s%s%s%s%s"
						"Valitsemasi kohdehakemisto \"%s\" on jo olemassa. Ennen uuden version "
						"asennusta, tämä 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 liittyvät tiedostot ja hakemistot tuhota?"
					)
				)
				(set #remove_oldversion_help
					"Seuraavat komennot suoritetaan:"
				)
				(set #abort_on_cleanup
					"En pystynyt siivoamaan hakemistoa.\n\nKeskeytän.\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 löytänyt ohjeita kielelle \"%s\".\n\n"
						"Hyppään tämän 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 löytänyt sanastoa kielelle \"%s\".\n\n"
						"Hyppään tämän 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 löytänyt muutamia ohjetiedostoja.\n\n"
						"Asennus jätetty väliin tältä osin."
					)
				)
				(set #copying_files
					"Pieni hetki, kopioin ..."
				)
				(set #cannot_find_development_docs
					("%s%s"
						"En löydä kehittelyohjeita.\n\n"
						"Asennus jätetty väliin tältä 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
					"Välj 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 lĺda \"%s\"."  
				)
				(set #install_requires_lha
					"Installation av %s kräver programmet LhA. Hoppar ver denna del." 
				)
				(set #abort_on_extract
					("%s%s"
						"Installation avbryten. Kunde inte utvinna %s. "
						"Vänligen installera LhA." 
					)
				)
				(set #warning_old_os
					(
						"%s%s"
						"Vänligen uppdatera ditt operativsystem. "
						"MakeCD kräver OS 2.04." 
					)
				)
				(set #intro_msg
					("%s%s%s%s"
						"Välkommen till MakeCD's installationsprogram!\n\n"
						"Även om MakeCD klarar av att köras utan fortsatt "
						"installation (förutom diskversionen), kanske du "
						"vill kopiera den till din hĺrddisk. Detta skript hjälper dig med det."
					)
				)
				(set #select_dest_dir
					("%s%s"
						"Vänligen välj destinationslĺda för MakeCD. "
						"\"MakeCD\"-lĺdan skapas automatiskt."
					)
				)
				(set #which_languages_to_install
					"Vilka sprĺk vill du installera?"
				)
				(set #install_developer
					("%s%s%s%s%s"
						"Vill du installera utvecklarmaterialet? Det materialet "
						"beskriver allt du behöver veta om SUSP (System Use "
						"Sharing Protocol), RRIP (Rock Ridge Interchange Protocol) "
						"och om stödet för Amigans skyddsbittar och filkommentarer "
						"pĺ CD-ROMen."
					)
				)
				(set #install_goodies
					("%s%s%s"
						"Vill du installera nĺgra godbitar? Det materialet tillhör "
						"egentligen inte MakeCD och är inte inkluderat i MakeCD's "
						"registreringsavgift, men kan vara användbart."
					)
				)
				(set #remove_oldversion
					("%s%s%s%s%s"
						"Destinationslĺdan \"%s\" som du valt existerar redan. Innan "
						"du installerar den nya versionen, mĺste lĺdan rensas upp. "
						"Filer och lĺdor skapade av dig kommer inte att röras, om "
						"inte deras namn kolliderar med namn som relateras till MakeCD-filer.\n\n"
						"Fĺr installationsskriptet radera de berörda lĺdorna?"
					)
				) 
				(set #remove_oldversion_help
					"Följande kommanon kommer att utföras:"
				) 
				(set #abort_on_cleanup
					"Kunde inte rensa lĺdan.\n\nAvbryter.\n\nInstallation ej klar."
				) 
				(set #deleting_old_files
					"Raderar gamla filer och lĺdor."
				) 
				(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 för ditt sprĺk \"%s\".\n\n"
						"Installationen av dokumentationen pĺ det sprĺket hoppas över.\n\n"
						"Du har uppenbarligen inte dokumentationsfilerna för detta sprĺk. "
						"Du kan ladda ned dom frĺn http://makecd.core.de/."
					)
				) 
				(set #cannot_find_lang_catalogs
					("%s%s%s%s"
						"Ledsen, hittar inga kataloger för ditt sprĺk \"%s\".\n\n"
						"Installationen av katalogen pĺ det sprĺket hoppas över.\n\n" 
						"Du har uppenbarligen inte katalogfilerna för detta sprĺk. "
						"Du kan ladda ned dom frĺn 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 dröj..."
				) 
				(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"
						"Vänligen välj vilka drivrutiner som skall installeras. "
						"Kopiera ALLA drivrutiner, om du inte är en expert."
					)
				) 
				(set #copy_libs
					 "MakeCD kräver triton.library V6."
				)
				(set #start_makecd
					"Vill du starta MakeCD nu?"
				)
			)
		)


		(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))
	)
)



(procedure P_SET_GLOBALS
	(
		(set osversion (/ (getversion) 65536))
		(set volname (expandpath (":")))
		(set origuserlevel @user-level)
		(run "which >ENV:MAKECDLHAPATH LhA")
		(set lhapath (getenv "MAKECDLHAPATH"))
		(if (patmatch "\n" (substr lhapath (- (strlen lhapath) 1)))
			( ; then
				(set lhapath
					(substr lhapath 0 (- (strlen lhapath) 1))
				)
			)
		)
		(run "delete QUIET ENV:MAKECDLHAPATH")
		(set lhexexists (exists "lhex"))
		(if (patmatch "#?LhA" lhapath)
			( ; then
				(set lhaexists (exists lhapath))
			)
			( ; else
				(set lhaexists 0)
			)
		)
	)
)



(procedure P_EXTRACT_FILE archive path objectname required
	(
		(set arc archive)

		(if (= 1 (exists ("%s.gz" archive)))
			( ; then
				(set arc ("RAM:MCD_%s" archive))
				(working (#extracting_archive ("%s.gz" archive) "RAM:"))
				(run ("gzip -cd <%s.gz >%s" archive arc))
			)
		)

		(if (= 1 (exists arc))
			( ; then
				(if (= 1 lhexexists)
					( ; then
						(working (#extracting_archive arc path))
						(run ("lhex -afFqw=%s e %s" path arc))
					)
					( ; else
						(if (= 1 lhaexists)
							( ; then
								(working (#extracting_archive arc path))
								(run ("%s -a -m -M x %s %s/" lhapath arc path))
							)
							( ; else
								(if (= 1 required)
									( ; then
										(abort (#abort_on_extract arc))
									)
									( ; else
										(message (#install_requires_lha objectname))
									)
								)
							)
						)
					)
				)
			)
			( ; else
				(if (= 1 required)
					( ; then
						(abort (#archive_not_found_error arc))
					)
					( ; else
						(message (#archive_not_found_warning arc))
					)
				)
			)
		)

		(if (patmatch "RAM:MCD_#?" arc)
			( ; then
				(run ("delete %s QUIET" 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.lha" 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))
				(set langbits
					(if
						(OR
							(OR
								(= 1 (exists ("doc_%s.lha" thislangdir)))
								(= 1 (exists ("doc_%s.lha.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"
					 "\n"
					@askoptions-help
				)
				(choices langchoiceh_0 langchoiceh_1 langchoiceh_2 langchoiceh_3 langchoiceh_4 langchoiceh_5 langchoiceh_6 langchoiceh_7 langchoiceh_8 langchoiceh_9)
				(default langbits)
			)
		)
	)
)



(procedure P_ASK_INSTALL_GOODIES
	(
		(if
			(OR
				(= 2 (exists (tackon makecdtmpdir "Extras")))
				(= 2 (exists (tackon makecdtmpdir "Goodies")))
			)
			(
				(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.lha")))
				(= 1 (exists (tackon makecdtmpdir "doc_development.lha.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))
				(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))
				(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))
				(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 (OR
									(= 1 (exists ("doc_%s.lha" thislangdir)))
									(= 1 (exists ("doc_%s.lha.gz" thislangdir)))
								)
									( ; then
										(P_EXTRACT_FILE ("doc_%s.lha" 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 (OR
						(= 1 (exists ("doc_div.lha")))
						(= 1 (exists ("doc_div.lha.gz")))
					)
						( ; then
							(P_EXTRACT_FILE "doc_div.lha" (tackon destdir "doc") "doc/#?" 0)
						)
						( ; else
							(message #cannot_find_div_docs)
						)
					)
				)
			)
		)

	)
)



(procedure P_COPY_FILES
	(
		(copyfiles
			(prompt #copying_files)
			(choices
				"MakeCD"
				"MakeCD.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 (OR
							(= 1 (exists "doc_development.lha"))
							(= 1 (exists "doc_development.lha.gz"))
						)
							( ; then
								(P_EXTRACT_FILE "doc_development.lha" (tackon destdir "doc") "doc/Development" 0)
							)
							( ; else
								(message (#cannot_find_development_docs))
							)
						)
					)
				)
			)
		)

		(if (= 1 installgoodies)
			(
				(if (= 2 (exists (tackon makecdtmpdir "Goodies")))
					( ; then
						(copyfiles
							(prompt #copying_files)
							(help @copyfiles-help)
							(source makecdtmpdir )
							(dest destdir)
							(pattern "Goodies#?")
							(optional force)
						)
					)
					( ; else
						(copyfiles
							(prompt #copying_files)
							(help @copyfiles-help)
							(source (tackon makecdtmpdir "Extras.info"))
							(dest destdir)
							(newname "Goodies.info")
							(optional force)
						)
						(makedir
							(tackon destdir "Goodies")
						)
						(copyfiles
							(prompt #copying_files)
							(help @copyfiles-help)
							(source (tackon makecdtmpdir "Extras/ReadMe.unpacked"))
							(dest (tackon destdir "Goodies"))
							(newname "ReadMe")
							(optional force)
						)
						(copyfiles
							(prompt #copying_files)
							(help @copyfiles-help)
							(source (tackon makecdtmpdir "Extras/ReadMe.info"))
							(dest (tackon destdir "Goodies"))
							(optional force)
						)
						(tooltype
							(dest (tackon destdir ("Goodies/ReadMe")))
							(noposition)
						)
						(foreach (tackon makecdtmpdir "Extras") "#?.lha"
							(
								(P_EXTRACT_FILE ((tackon makecdtmpdir "Extras/%s") @each-name) (tackon destdir "Goodies") ("Goodies/%s" @each-name) 0)
								(tooltype
									(dest (tackon destdir ("Goodies/%s" (substr @each-name 0 (- (strlen @each-name) 4)))))
									(noposition)
								)
							)
						)
					)
				)
			)
		)
	)
)



(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)
