;
; $VER: Install_Visage 39.15 (5.8.97)
;
; Installer script for Visage.
;


(set #danish-lang        1)
(set #german-lang        2)
(set #english-lang       4)
(set #spanish-lang       8)
(set #french-lang       16)
(set #italian-lang      32)
(set #dutch-lang        64)
(set #norwegian-lang   128)
(set #russian-lang     256)
(set #serbian-lang     512)
(set #finnish-lang    1024)
(set #swedish-lang    2048)
(set #czech-lang      4096)


; Get current language (no need for lots of silly icons! ;). However, this
; won't properly work for all versions of the Installer. Some doesn't
; understand the language "default". :/
(if (= (exists "Env:Language") 1)
	; GetEnv reports "String too long" if the variable doesn't exist! :(
	; Dunno if this is fixed in V43... But we need the check anyway.
	(set @language (getenv "language"))
)


;**************************************************************************
;
; English strings
;

(set #default-lang #english-lang)

(set #bad-kick
	"You must have AmigaOS Release 3.0 or newer to use Visage."
)

(set #welcome
	(cat
		"\n\n\nWelcome to the Visage installation utility.\n\n"
		"This program lets you install Visage on your Amiga.\n\n\n"
		"Visage © 1995-97 by Magnus Holmgren."
	)
)

(set #install-parts "Please select the parts you wish to install")

(set #item-visage "Visage")

(set #item-visage-guide "Visage.guide")

(set #item-locale "Translations")

; The following four strings are program names. Normally, these shouldn't
; be translated, though one could consider appending some locale-specific
; text after the names.

(set #item-getmodeid "GetModeID")

(set #item-kill "Kill")

(set #item-makelink "MakeLink")

(set #item-deletelink "DeleteLink")

(set #item-unpackilbm "UnpackILBM")

(set #install-parts-help
	(cat
		"    Here you select the different parts of Visage that you would like to "
		"install. After that, you select the details of the installation (such as "
		"where the different files should be installed). You may choose to install "
		"the following items:\n"
		"    Visage: The actual picture viewer.\n"
		"    Visage.guide: The manual, in AmigaGuide® format.\n"
		"    Translations: If you install a translation, then Visage can operate in "
		"the language(s) you select.\n"
		"    GetModeID: A program that shows a screen mode requester, and prints "
		"a decimal number that represents the selected screen mode.\n"
		"    Kill: A program that can stop another program (sending \"break\" "
		"signals). Similar to Break.\n"
		"    MakeLink: A replacement for the MakeLink command that supports "
		"soft links.\n"
		"    DeleteLink: A simple Delete-clone that also deletes soft links "
		"without a target.\n"
		"    UnpackILBM: A program that unpacks the picture data in an IFF ILBM "
		"picture (the BODY chunk).\n"
		"    For more information about these parts, please read the manual.\n"
	)
)

(set #where-visage "Where would you like to install Visage?\nA drawer will NOT be created!")

(set #visage-020
	(cat
		"You seem to have a 68020 CPU or better, with a working "
		"FPU, installed in your system. Do you want to install a version "
		"of Visage optimized for your system?"
	)
)

(set #visage-000-only "Install normal version only.")

(set #visage-020-also "Install 68020 version (as \"Visage_020\").")

(set #visage-020-only "Install 68020 version only.")

(set #visage-020-help
	(cat
		"    Since you have a 68020 CPU or better installed, with a FPU, you "
		"can, if you want, install a version of Visage optimized for your "
		"system. You can choose to only install the normal version, install "
		"the 68020 version as `Visage_020' in addition to the normal version, "
		"or only install the 68020 version (as `Visage').\n"
		"    Please note that the 68020 version will not work with a "
		"68000 or 68010 CPU, nor if you do not have a FPU. The 68020 version "
		"will silently exit on such systems."
	)
)

(set #visage-make-020 "Creating 68020 version of Visage...")

(set #where-visage-guide "Where would you like to install Visage.guide?")

(set #copy-guide-icon "Should I copy the icon for Visage.guide?")

(set #which-language "Which languages should be installed?")

(set #which-language-help
	(cat
		"    The Amiga can be operated in many different languages. If you "
		"want Visage to use the same language as your Amiga Workbench, "
		"then a couple of catalog files must be copied to your harddisk "
		"for each language supported.\n"
		"    To reduce the amount of space consumed by the language files, "
		"you can select to have only the files of specific languages "
		"copied.\n"
		"    Simply check the boxes of the languages you wish to have have "
		"available on your system.\n"
	)
)

(set #where-language
	(cat
		"Where do you want to install the language files?\n\n"
		"You can install them in either the same drawer as the program "
		"itself (select \"Program\") or in the 'global' volume "
		"\"Locale:\" (select \"Locale:\")."
	)
)

; These two strings must match the strings used in above in #where-language.
; The words in question are the quoted ones after "select" in the parentheses.
(set #lang-progdir "Program")

(set #lang-locale  "Locale:")

(set #where-language-help
	(cat
		"    If you install the language files in the same drawer as Visage "
		"itself (or rather, in subdirectories within that drawer), then you "
		"need to move these files as well, if you move Visage to some other "
		"drawer. If you install the language files in \"Locale:\" you don't "
		"need to worry about them if you move Visage. On the other hand, you "
		"will not have all Visage-related files in the same drawer."
	)
)

(set #builtin-lang "(default)")

(set #where-tools "Where would you like to install the extra programs?")

(set #where-tools-help
	(cat
		"    Here you specify where the programs GetModeID, Kill, MakeLink, "
		"DeleteLink and UnpackILBM will be installed. Only the programs you "
		"selected will be installed. Since these programs are Shell-only, "
		"the default location is C:, where the systems Shell-only programs "
		"can be found.\n"
		"    It is recommended that you install these programs somewhere in "
		"your command search path.\n"
	)
)

(set #copy "Copying %s to %s...")

(set #program-update "How do you want to update the tooltypes in the icon?")

(set #update-none "No update")

(set #update-all "Add all")

(set #update-since "Add new since %s")

(set #program-update-help
	(cat
		"    Since this installation updates an older version of Visage, "
		"the icon will not be copied over. This to maintain any changes "
		"you may have made to it. However, new tooltypes may have been added. "
		"Here you can decide if you want to:\n"
		"    No update: Skip this part.\n"
		"    Add all tooltypes: existing tooltypes will not be changed "
		"Any tooltypes you may have removed will be added again. The new "
		"tooltypes will be added as well.\n "
		"    Add new since 39.x: Only add the new tooltypes since that version. "
		"Any existing tooltype not be changed.\n"
	)
)


;**************************************************************************
;
; Danish strings
;

(if (= @language "dansk")
	(
		(set #default-lang #dansk-lang)

		(set #bad-kick
			"Du behøver AmigaOS version 3.0 eller højere for at kunne benytte Visage."
		)

		(set #welcome
			(cat
				"\n\n\nVelkommen til Visage installations programmet.\n\n"
				"Dette program lader dig installere Visage på din Amiga.\n\n\n"
				"Visage © 1995-97 af Magnus Holmgren."
			)
		)

		(set #install-parts "Vælg de dele du ønsker at installere")

		(set #item-visage "Visage")

		(set #item-visage-guide "Visage.guide")

		(set #item-locale "Oversættelser")

		(set #install-parts-help
			(cat
				"    Her vælger du de forskellige dele af Visage som du vil installere. "
				"Derefter vælger du detaljer om installationen (såsom hvor de "
				"forskellige filer skal installeres). Du kan vælge imellem følgende dele:\n\n"
				"    Visage: Selve billedfremviseren.\n\n"
				"    Visage.guide: Manualen, i AmigaGuide®-format.\n\n"
				"    Oversættelser: Hvis du installerer en oversættelse, så kan Visage "
				"anvende de(t) sprog du vælger.\n\n"
				"    GetModeID: Et program som viser en skærm-opløsnings vælger, og "
				"dernæst udskriver et decimalt tal som svarer til den valgte "
				"skærm-opløsning.\n\n"
				"    Kill: Et program som kan stoppe andre programmer (ved at sende "
				"\"break\"-signaler). Minder om Break.\n\n"
				"    MakeLink: En erstatning for MakeLink, som understøtter soft-links.\n\n"
				"    DeleteLink: En simpel Delete klon, som også kan slette soft-links, "
				"uden en kildefil.\n\n"
				"    UnpackILBM: Et program som udpakker billeddataene i en IFF ILBM "
				"billede (ILBM.BODY \"chunk\").\n\n"
				"    For mere information om disse ting, se da venligst manualen.\n"
			)
		)

		(set #where-visage "Hvor ønsker du at installere Visage?\nDer vil IKKE blive oprettet en skuffe!")

		(set #visage-020
			(cat
				"Du ser ud til at have en 68020 CPU eller bedre, med en fungerende FPU "
				"installeret i dit system. Ønsker du at installere en version af Visage "
				"som er optimeret til dit system?"
			)
		)

		(set #visage-000-only "Installer kun normal version.")

		(set #visage-020-also "Installer 68020 version (som \"Visage_020\").")

		(set #visage-020-only "Installer kun 68020 version.")

		(set #visage-020-help
			(cat
				"    Da du har en 68020 CPU eller bedre installeret, med en FPU kan du, hvis "
				"du ønsker det, installere en version af Visage som er optimeret til "
				"dit system. Du kan vælge kun at installere den normale version, installere "
				"68020 versionen som `Visage_020' udover den normale version, "
				"eller kun at installere 68020 versionen (som `Visage').\n"
				"    Bemærk venligst at 68020 versionen ikke vil fungere med hverken en "
				"68000 eller 68010 CPU, eller hvis du ikker har en FPU. 68020 versionen "
				"vil uden output afslutte på sådanne systemer."
			)
		)

		(set #visage-make-020 "Laver 68020 version af Visage...")

		(set #where-visage-guide "Hvor ønsker du at installere Visage.guide?")

		(set #copy-guide-icon "Skal jeg kopiere ikonet til Visage.guide?")

		(set #which-language "Hvilke sprog ønskes installeret?")

		(set #which-language-help
			(cat
				"    Amigaen kan arbejde med mange forskellige sprog. Hvis du ønsker "
				"at Visage skal anvende det samme sprog som Amiga Workbench, så "
				"må en katalogfil kopieres til din harddisk for hvert sprog som "
				"understøttes.\n"
				"    For at minimere pladsforbruget til katalogfilerne kan du vælge "
				"kun at installere filerne for nogle specifikke sprog.\n"
				"    Du skal bare markere de sprog som du vil have til rådighed "
				"i dit system.\n"
			)
		)

		(set #where-language
			(cat
				"Hvor ønsker du at installere katalogfilerne?\n\n"
				"Du kan enten installere dem i den samme skuffe som programmet "
				"(vælg \"Program\"), eller på det \"globale\" volume "
				"\"Locale:\" (vælg \"Locale:\")."
			)
		)

		(set #lang-progdir "Program")

		(set #lang-locale  "Locale:")

		(set #where-language-help
			(cat
				"    Hvis du installerer katalogfilerne i samme skuffe som "
				"Visage (eller snarere i underskuffer i denne skuffe), så "
				"skal du også flytte disse filer, hvis du flytter Visage "
				"til en anden skuffe. Hvis du installerer katalogfilerne "
				"i \"Locale:\" så behøver du ikke at tænke på dem hvis du "
				"flytter Visage. På den anden side, så har du ikke alle "
				"Visage-relaterede filer i den samme skuffe.\n"
			)
		)

		(set #builtin-lang "(indbygget)")

		(set #where-tools "Hvor ønsker du at installere de ekstra programmer?")

		(set #where-tools-help
			(cat
				"    Her angiver du hvor programmerne GetModeID, Kill, MakeLink, "
				"DeleteLink og UnpackILBM skal installeres henne. Kun "
				"de programmer som du valgte tidligere vil blive kopieret. "
				"Da disse programmer kun kan startes fra Shell, så er "
				"standard destinationen C:, da systemets \"Shell-programmer\" "
				"findes der. Det anbefales at du installerer disse programmer "
				"et sted i kommando søgestien.\n"
			)
		)

		(set #copy "Kopierer %s til %s...")

		(set #program-update "Hvordan ønsker du at opdatere Tool Typerne i ikonet?")

		(set #update-none "Ingen opdatering")

		(set #update-all "Tilføje alle")

		(set #update-since "Tilføje alle siden %s")

		(set #program-update-help
			(cat
				"    Da denne installation opdaterer en gammel version af "
				"Visage, så bliver ikonet ikke kopieret med. Det er for"
				"at bibeholde eventuelle ændringer som du har lavet. Men der "
				"kan være tilføjet nogle nye Tool Typer. Her kan du vælge "
				"hvad du vil gøre:\n\n"
				"    Ingen opdatering: Springer dette punkt over.\n\n"
				"    Tilføje alle: Tilføje alle Tool Typer. Eksisterende "
				"Tool Typer vil ikke blive ændret.\n\n"
				"    Tilføje alle siden 39.x: Tilføjer kun de nye Tool Typer "
				"siden denne version. Eventuelle eksisterende Tool Typer "
				"vil ikke blive ændret.\n"
			)
		)
	)
)


;**************************************************************************
;
; German strings
;

(if (= @language "deutsch")
	(
		(set #default-lang #german-lang)

		(set #bad-kick
			"Visage benötigt AmigaOS Version 3.0 oder höher."
		)

		(set #welcome
			(cat
				"\n\n\nWillkommen zur Installation von Visage.\n\n"
				"Dieses Programm ermöglicht die Installation von Visage auf Ihrem Amiga.\n\n\n"
				"Visage © 1995-97  Magnus Holmgren."
			)
		)

		(set #install-parts "Bitte die zu installierenden Teile auswählen")

		(set #item-visage "Visage")

		(set #item-visage-guide "Visage.guide")

		(set #item-locale "Übersetzungen")

		(set #item-getmodeid "GetModeID")

		(set #item-kill "Kill")

		(set #item-makelink "MakeLink")

		(set #item-deletelink "DeleteLink")

		(set #item-unpackilbm "UnpackILBM")

		(set #install-parts-help
			(cat
				"    Hier wählen Sie die verschiedenen Teile von Visage aus, die Sie "
				"installieren möchten. Danach wählen Sie die Details der Installation "
				"aus (wo z.B. die einzelnen Dateien installiert werden sollen). "
				"Sie können die Installation folgender Dinge vornehmen:\n"
				"    Visage: Der Bildanzeiger.\n"
				"    Visage.guide: Die Dokumentation, im AmigaGuide® Format. Wenn sie "
				"mit Hilfe des Installer Programms installiert wird, wird der Text an die "
				"aktuelle Bildschirmauflösung angepaßt. Wenn Sie die Installation von Hand "
				"vornehmen, ist der Text auf 76 Zeichen formatiert.\n"
				"    Übersetzungen: Wenn Sie eine Übersetzung installieren, dann kann "
				"Visage in dieser (diesen) Sprache(n) ablaufen.\n"
				"    GetModeID: Ein Programm, das ein Bildschirmmodus-Auswahlfenster "
				"anzeigt und eine Dezimalzahl ausdruckt, die den ausgewählten "
				"Bildschirmmodus repräsentiert.\n"
				"    Kill: Ein Programm, das ein anderes Programm stoppen kann "
				"(durch Senden eines \"Break\" Signals). Ähnlich wie Break.\n"
				"    MakeLink: Ein Ersatz für das MakeLink Kommando, das auch "
				"soft links unterstützt.\n"
				"    DeleteLink: Ein einfacher Ersatz für Delete, das auch soft links "
				"ohne Ziel löschen kann.\n"
				"    UnpackILBM: Ein Programm, das die Bilddaten in einem IFF ILBM "
				"Bild entpackt (den BODY chunk).\n"
				"    Für weitere Informationen über diese Teile lesen Sie bitte in "
				"der Dokumentation nach.\n"
			)
		)

		(set #where-visage "Wo würden Sie Visage gern installieren?\nEs wird KEIN Verzeichnis angelegt!")

		(set #where-visage-guide "Wo würden Sie gern Visage.guide installieren?")

		(set #copy-guide-icon "Soll das Piktogramm für Visage.guide kopiert werden?")

		(set #which-language "Welche Übersetzungen sollen installiert werden?")

		(set #which-language-help
			(cat
				"    Der Amiga kann in verschiedenen Sprachen benutzt werden. "
				"Wenn Sie wünschen, Visage in der Sprache Ihrer Workbench zu "
				"benutzen, müssen einige Dateien für die unterstützten Sprachen "
				"auf Ihre Festplatte kopiert werden.\n"
				"    Um den benötigten Raum für die Übersetzungsdateien zu "
				"verringern, können Sie auswählen, nur Dateien für bestimmte "
				"Sprachen zu kopieren.\n"
				"    Wählen Sie einfach die Kästchen neben den Sprachen aus, die "
				"Sie auf Ihrem System verfügbar haben wollen.\n"
			)
		)

		(set #where-language
			(cat
				"Wo würden Sie die Übersetzungen gern installieren?\n\n"
				"Sie können Sie entweder im gleichen Verzeichnis wie das Programm "
				"selbst (Knopf \"Programm\") oder in das 'globale' Verzeichnis "
				"\"Locale:\" (Knopf \"Locale:\") installieren."
			)
		)

		(set #lang-progdir "Programm")

		(set #lang-locale  "Locale:")

		(set #where-language-help
			(cat
				"    Wenn Sie die Übersetzungsdateien in das gleiche Verzeichnis wie "
				"Visage selbst (oder besser, in Unterverzeichnisse in diesem Verzeichnis) "
				"installieren, müssen Sie diese Dateien auch verschieben, wenn Sie "
				"Visage in ein anderes Verzeichnis verschieben. Wenn die Übersetzungen "
				"in \"Locale:\" kopiert werden, brauchen Sie sich keine Sorgen zu "
				"machen, wenn Sie Visage verschieben. Auf der anderen Seite sind dann "
				"allerdings auch nicht alle Dateien von Visage im gleichen Verzeichnis."
			)
		)

		(set #builtin-lang "(eingebaut)")

		(set #where-tools "Wo würden Sie gern die Extra-Programme installieren?")

		(set #where-tools-help
			(cat
				"    Hier geben Sie an, wo die Programme GetModeID, Kill, MakeLink, "
				"DeleteLink und UnpackILBM installiert werden sollen. Nur die von Ihnen "
				"ausgewählten Programme werden installiert. Da die Programme nur "
				"für die Benutzung in der Shell gedacht sind, ist das voreingestellte "
				"Ziel das C: Verzeichnis, wo sich die Shell-Programme des Systems "
				"normalerweise befinden.\n"
				"    Es wird empfohlen, diese Programme irgendwo im Kommando-"
				"Suchpfad zu installieren.\n"
			)
		)

		(set #copy "%s wird nach %s kopiert...")

		(set #program-update "Wie sollen die Piktogrammerkmale geändert werden?")

		(set #update-none "Keine Änderung")

		(set #update-all "Alle hinzufügen")

		(set #update-since "Alle seit %s neuen hinzufügen")

		(set #program-update-help
			(cat
				"    Da diese Installation eine ältere Version von Visage ersetzt, "
				"wird das Piktogramm nicht überkopiert. Dies erhält die Änderungen, die "
				"Sie daran vorgenommen haben. Es können jedoch neue Merkmale hinzugefügt "
				"werden. Hier wählen Sie aus:\n"
				"    Keine Änderung: Dieser Teil wird übersprungen.\n"
				"    Alle hinzufügen: existierende Merkmale werden nicht geändert. "
				"Alle Merkmale, die Sie vielleicht entfernt haben, werden wieder "
				"hinzugefügt, alle neuen auch.\n "
				"    Alle seit 39.x hinzufügen: Nur die neuen Merkmale seit dieser "
				"Version hinzufügen. Existierende Merkmale bleiben unverändert.\n"
			)
		)
	)
)


;**************************************************************************
;
; Spanish strings - Translation by Dámaso D. Estévez <amidde@arrakis.es>
;

(if (= @language "español")
	(
		(set #default-lang #spanish-lang)

		(set #bad-kick "Imprescindible SO 3.0 como mínimo para usar Visage.")

		(set #welcome
			(cat
			"\n\n\n¡Bienvenido al guión instalador de 'Visage'!\n\n"
			"Este guión le permitirá instalar el programa "
			"visualizador de imágenes 'Visage' en su Amiga.\n\n\n"
			"Visage © 1995-97 de Magnus Holmgren."
			)
		)

		(set #install-parts "Por favor, elija qué partes desea instalar")

		(set #item-visage "Visage")

		(set #item-visage-guide "Visage.guide")

		(set #item-locale "Idiomas")

		(set #item-getmodeid "GetModeID")

		(set #item-kill "Kill")

		(set #item-makelink "MakeLink")

		(set #item-deletelink "DeleteLink")

		(set #item-unpackilbm "UnpackILBM")

		(set #install-parts-help
			(cat
				"\n   Aquí usted puede elegir las diferentes partes de "
				"'Visage' que deben ser instaladas. A continuación, "
				"deberá seleccionar los detalles de la instalación "
				"(como el lugar donde los diferentes ficheros deben "
				"ser instalados p. ej.). Puede elegir qué elementos "
				"desea instalar o no de entre los siguientes:\n"
				"   * Visage: el programa visualizador de imágenes.\n"
				"   * Visage.guide: el manual, en formato AmigaGuide®.\n"
				"   * Idiomas: si instala un idioma, 'Visage' podrá utilizarlo.\n"
				"   * GetModeID: este programa muestra una petición de "
				"modos de pantalla para que se elija uno, e imprime el nº "
				"decimal que lo identifica.\n"
				"   * Kill: permite detener otro programa, enviando una señal "
				"\"break\": similar al comando Break del AmigaDOS.\n"
				"   * MakeLink: sustituto del comando MakeLink del AmigaDOS "
				"que soporta enlaces blandos ('soft links').\n"
				"   * DeleteLink: un clon del comando Delete del AmigaDOS "
				"que permite borrar también enlaces blandos sin un objetivo.\n"
				"   * UnpackILBM: descomprime los datos, o sea el cuerpo o "
				"bloque BODY, de la imagen IFF ILBM señalada.\n\n"
				"   Para más información sobre lo anterior, consulte el "
				"manual.\n"
			)
		)

		(set #where-visage "¿Dónde desearía instalar 'Visage'?\n(¡no se creará ningún cajón!)")

		(set #visage-020
			(cat
				"Parece que dispone de un procesador 68020 o superior en su sistema... "
				"¿desea instalar una versión de 'Visage' optimizada?"
			)
		)

		(set #visage-000-only "Instalar sólo versión normal.")

		(set #visage-020-also "Instalar versión 68020 (como \"Visage_020\").")

		(set #visage-020-only "Instalar sólo versión 68020.")

		(set #visage-020-help
			(cat
				"\n   Si posee un procesador 68020 o superior en su equipo, puede, "
				"si lo desea, instalar una versión de 'Visage' optimizada.  Puede "
				"elegir la instalación de la versión normal únicamente, la "
				"instalación de ambas denominándose la específica de CPU 020 "
				"'Visage_020', o sólo la versión específica de CPU 020 (en este "
				"caso se llamaría sólo 'Visage').\n"
				"   Por favor, tenga en cuenta que la versión 020 no funcionará "
				"en equipos con CPU 68000 o 68010: si lo intenta ejecutar con "
				"alguno de estos procesadores el programa simplemente se limitará a "
				"volver al sistema silenciosamente (sin ningún tipo de aviso "
				"o mensaje)."
			)
		)

		(set #visage-make-020 "Creando versión 68020 de 'Visage'...")

		(set #where-visage-guide "¿Dónde desea instalar 'Visage.guide'?")

		(set #copy-guide-icon "¿Se debe copiar el icono para 'Visage.guide'?")

		(set #which-language "¿Qué idioma(s) se debe(n) instalar en su sistema?")

		(set #which-language-help
			(cat
				"\n   El Amiga puede trabajar con diferentes idiomas, así que "
				"si desea que 'Visage' pueda emplear el mismo definido para su "
				"Workbench, tendrán que ser copiados los catálogos "
				"que correspondan a su disco duro (uno por cada "
				"lengua que desee soportar).\n\n"
				"    Para reducir la cantidad de espacio consumido por estos "
				"ficheros idiomáticos, puede seleccionar únicamente los de "
				"los idiomas que desee instalar, bastando para ello que sólo "
				"active el botón de verificación de aquellos de los que quiera "
				"disponer en su sistema.\n"
			)
		)

		(set #where-language
			(cat
				"¿Dónde desea instalar los catálogos?\n\n"
				"Puede instalar éstos dentro del mismo cajón que el programa "
				"(en este caso, presione el botón \"Programa\") o en el "
				"volumen 'global' \"Locale:\" (en este caso, presione "
				"el botón \"Locale:\")."
			)
		)

		(set #lang-progdir "Programa")

		(set #lang-locale  "Locale:")

		(set #where-language-help
			(cat
				"\n   Si instala los catálogos en el mismo cajón que el propio 'Visage' "
				"(o mejor dicho, en subdirectorios que dependen de este cajón), deberá "
				"mover esos ficheros si decide mover el programa 'Visage' a otro cajón. "
				"Si instala los ficheros en el volumen \"Locale:\", no deberá preocuparse "
				"de este tema si moviese el programa 'Visage', aunque por otro lado "
				"no tendrá todos los ficheros relacionados con el programa en el mismo cajón."
			)
		)

		(set #builtin-lang "(por defecto)")

		(set #where-tools "¿Dónde desea instalar los programas extra?")

		(set #where-tools-help
			(cat
				"\n   Aquí ha de especificar cuál(es) de los programas "
				"(GetModeID, Kill, MakeLink, DeleteLink y UnpackILBM) "
				"desea instalar: sólo los programas que usted seleccione "
				"serán copiados. Como estas utilidades son para utilizar "
				"únicamente desde el Shell, el destino por defecto "
				"es 'C:', que es el lugar habitual donde encontrar "
				"este tipo de programas.\n\n"
				"   Es recomendable que instale estos programas en algún "
				"lugar accesible por el sistema de forma automática (use "
				"en tal caso el comando Path del AmigaDOS).\n"
			)
		)

		(set #copy "Copiando %s a %s...")

		(set #program-update "¿Cómo desea actualizar los tipos de herramienta del icono?")

		(set #update-none "No actualizar")

		(set #update-all "Añadir todo")

		(set #update-since "Añadir nuevo(s) desde %s")

		(set #program-update-help
			(cat
				"\n   Desde esta actualización de la instalación en "
				"una versión antigua de Visage, el icono no será "
				"copiado encima: esto mantiene cualquier cambio que "
				"hubiese hecho usted en él. Sin embargo, nuevos tipos "
				"de herramienta pueden haber sido añadidos, así "
				"que aquí ha de decidir lo que desea hacer:\n"
				"   No actualizar: salta esta parte.\n"
				"   Añadir todos los tipos de herramienta: los tipos de "
				"herramienta existentes no se modifican y cualquiera "
				"que usted haya podido eliminar será añadido de nuevo. "
				"Los nuevos tipos de herramienta serán añadidos sin problemas.\n"
				"   Añadir nuevo hasta 39.x: sólo añade los nuevos "
				"tipos de herramienta hasta esa versión (cualquier tipo "
				"de herramienta existente no será modificado).\n"
			)
		)
	)
)


;**************************************************************************
;
; French strings
;

(if (= @language "francais")
	(
		(set #default-lang #french-lang)

		(set #bad-kick
			(cat
				"Vous devez avoir la version 3.0 d'AmigaOS ou plus récente "
				"pour utiliser Visage."
			)
		)

		(set #welcome
			(cat
				"\n\n\nBienvenue dans l'utilitaire d'installation de Visage.\n\n"
				"Ce programme vous permet d'installer Visage sur votre Amiga.\n\n\n"
				"Visage © 1995-97  Magnus Holmgren."
			)
		)

		(set #install-parts "Sélectionnez les éléments que vous désirez installer S.V.P. :")

		(set #item-visage "Visage")

		(set #item-visage-guide "Visage.guide")

		(set #item-locale "Traductions")

		(set #item-getmodeid "GetModeID")

		(set #item-kill "Kill")

		(set #item-makelink "MakeLink")

		(set #item-deletelink "DeleteLink")

		(set #item-unpackilbm "UnpackILBM")

		(set #install-parts-help
			(cat
				"   Ici vous sélectionnez les différentes parties de Visage que "
				"vous désirez installer. Ensuite, vous sélectionnez les détails "
				"de l'installation (tel que l'endroit où les différents fichiers "
				"devront être installés). Vous pouvez choisir d'installer les "
				"éléments suivants :\n"
				"    Visage : l'afficheur d'image actuel.\n"
				"    Visage.guide : le manuel, de format AmigaGuide®. Si vous "
				"l'installez en utilisant installer, Le texte sera remis en forme "
				"afin d'être adapté à la taille de la fenêtre courante. Si vous "
				"faîtes une installation manuelle, Le texte sera fixé à 76 colonnes.\n"
				"    Traductions : si vous installez une traduction, alors Visage "
				"fonctionnera dans le(s) language(s) sélectionné(s).\n"
				"    GetModeID : un programme qui affiche une requête de mode "
				"d'affichage, et retourne un nombre décimal qui représente le mode "
				"d'affichage sélectionné.\n"
				"    Kill : un programme qui peut stopper un autre programme "
				"(en envoyant un signal « break »). Similaire à Break.\n"
				"    MakeLink : en remplacement de la commande MakeLink et qui "
				"supporte les liens symboliques.\n"
				"    DeleteLink : un clône de la commande Delete qui efface "
				"également les liens symboliques sans destination.\n"
				"    UnpackILBM : un programme qui décompacte les données d'une "
				"images (le BODY chunk) dans un fichier au format IFF ILBM.\n"
				"    Pour plus d'information sur cette partie, lisez le manuel "
				"S.V.P..\n"
			)
		)

		(set #where-visage
			(cat
				"Où désirez vous installer Visage ?\n"
				"AUCUN répertoire ne sera créé !"
			)
		)

		(set #where-visage-guide "Où désirez vous installer Visage.guide ?")

		(set #copy-guide-icon "L'icône de Visage.guide doit-il être copié ?")

		(set #which-language "Quelle(s) langue(s) faut-il installer ?")

		(set #which-language-help
			(cat
				"    L'Amiga peut utiliser différentes langues. Si vous voulez que"
				"Visage utilise la même langue que le Workbench de votre Amiga, "
				"alors un certain nombre de fichiers « catalog » doivent être copiés "
				"sur votre disque dur pour chaque langue supportée.\n"
				"    Afin de réduire la place utilisée par les fichiers de langues, "
				"vous pouvez ne sélectionner que les fichiers en rapport avec la "
				"langue utilisée.\n"
				"    Vérifiez simplement les options de langues que vous désirez "
				"voir disponible sur votre système.\n"
			)
		)

		(set #where-language
			(cat
				"Où voulez-vous installer les fichiers de langues ?\n\n"
				"Vous pouvez les installer dans le même répertoire que le "
				"programme lui-même (sélectionner « Programme ») ou bien dans "
				"« Locale: » (sélectionner « Locale: ») dans le volume principal."
			)
		)

		(set #lang-progdir "Programme")

		(set #lang-locale  "Locale:")

		(set #where-language-help
			(cat
				"    Si vous installez les fichiers de langues dans le même "
				"répertoire que Visage (ou plutôt dans un sous répertoire de "
				"celui-ci), alors vous devrez également déplacer ces fichiers si "
				"vous déplacez Visage dans un autre répertoire. Si vous installez "
				"les fichiers de langues dans « Locale: », vous n'aurez pas besoin "
				"de vous en préoccuper si vous déplacer Visage. Par contre vous "
				"n'aurez pas tous les fichiers relatifs à Visage dans le même "
				"répertoire."
			)
		)

		(set #builtin-lang "(default)")

		(set #where-tools "Où désirez-vous installer les utilitaires supplémentaires ? ")

		(set #where-tools-help
			(cat
				"    Vous spécifiez ici où doivent être installés les programmes "
				"GetModeID, Kill, MakeLink, DeleteLink et UnpackILBM. Seuls les "
				"programmes que vous avez sélectionnés seront installés. Comme ces "
				"programmes ne sont exécutables que sous Shell, l'emplacement par "
				"défaut est C: , là où se trouve tous les programmes qui ne peuvent "
				"s'exécuter que sous shell.\n"
				"    Il est recommandé d'installer ces programmes dans un endroit "
				"dont le chemin est connu du système.\n"
			)
		)

		(set #copy "Copie de %s vers %s...")

		(set #program-update
			(cat
				"Comment voulez-vous mettre à jour les paramètres d'outil "
				"(« ToolTypes ») de l'icône ?"
			)
		)

		(set #update-none "Pas de mise à jour")

		(set #update-all "Tout ajouter")

		(set #update-since "Ajouter les nouveaux depuis la V %s")

		(set #program-update-help
			(cat
				"    Comme cette installation met à jour une ancienne version de "
				"Visage, l'icône d'origine ne sera pas écrasé afin de préserver "
				"les modifications que vous pourriez avoir apportées. Sinon, de "
				"nouveaux paramètres d'outil pourrait être ajoutés. Ici vous "
				"pouvez décider si vous voulez :\n"
				"    Pas de mise à jour : passer cette partie.\n"
				"    Ajouter tous les paramètres d'outil : ceux existants ne "
				"seront pas modifiés. Tous les paramètres d'outil que vous "
				"pourriez avoir retirés seront rajoutés. "
				"Les nouveaux paramètres d'outil seront également rajoutés.\n "
				"    Ajouter les nouveaux depuis la version 39.x : ajouter "
				"seulement les nouveaux paramètres d'outil depuis cette version. "
				"Aucun paramètre d'outil existant ne sera modifié.\n"
			)
		)
	)
)


;**************************************************************************
;
; Italian strings
;

(if (= @language "italiano")
	(
		(set #default-lang #italian-lang)
	)
)


;**************************************************************************
;
; Dutch strings
;

(if (= @language "nederlands")
	(
		(set #default-lang #dutch-lang)
	)
)


;**************************************************************************
;
; Norwegian strings
;

(if (= @language "norsk")
	(
		(set #default-lang #norwegian-lang)
	)
)


;**************************************************************************
;
; Russian strings
;

(if (= @language "russian")
	(
		(set default-lang #russian-lang)

		(set #welcome
			(cat
				"\n\n\nÃíàïí îíåaêíáañû á çìðñaêþñíï îïíâïaëëú Visage.\n\n"
				"Üña îïíâïaëëa îíæáíêçñ Áaë òðñaìíáçñû Visage ìa Áaøò Aëçâò.\n\n\n"
				"Visage © 1995-97  Magnus Holmgren."
			)
		)

		(set #install-parts
			"Îíåaêòèðña, áúàäïçñä éíëîíìäìñú, éíñíïúä Áú åäêaäñä çìðñaêçïíáañû"
		)

		(set #item-visage "Visage")

		(set #item-visage-guide "Visage.guide")

		(set #item-locale "Translations")

		(set #item-getmodeid "GetModeID")

		(set #item-kill "Kill")

		(set #item-makelink "MakeLink")

		(set #item-unpackilbm "UnpackILBM")

		(set #install-parts-help
			(cat
				"    Æãäðû Áú ëíåäñä áúàïañû ïaæêçöìúä éíëîíìäìñú Visage ãêþ áíæëíåìíè çô "
				"çìðñaêþõçç. Îíðêä üñíâí Áú ðëíåäñä òñíöìçñû ïaæêçöìúä ãäñaêç (ìaîïçëäï, "
				"éòãa éíìéïäñìí àòãòñ ðéíîçïíáaìú ïaæêçöìúä óaèêú). Áú ëíåäñä áúàïañû "
				"ðêäãòýùçä óaèêú:\n"
				"    Visage: ðíàðñáäììí îïíâïaëëa îïíðëíñïa éaïñçìíé.\n"
				"    Visage.guide: ãíéòëäìñaõçþ á âçã-óíïëañä. Äðêç Áú æaôíñçñä ä½ òðñaìíáçñû "
				"ð çðîíêûæíáaìçäë çìðñaêþñíïa, ñí ñäéðñ àòãäñ aáñíëañçöäðéç óíïëañçïíáañûðþ "
				"îíã ñäéòùòý øçïçìò íéìa. Á ðêòöaä "ïòöìíè" çìðñaêþõçç  øçïçìa àòãäñ 76 éíêíìíé.\n"
				"    Translations: îïç çìðñaêþõçç îäïäaíãíá Visage àòãäñ ïaàíñañû "
				"ìa áúàïaììíë Áaëç þæúéä (þæúéaô).\n"
				"    GetModeID: îïíâïaëëa, îíéaæúáaýùaþ ïçéáäðñäï üéïaììúô ïäåçëíá ç îäöañaýùaþ "
				"ãäðþñçöìíä öçðêí, ðííñáäñðñáòýùää áúàïaììíëò ïäåçëò.\n"
				"    Kill: îïíâïaëëa, éíñíïaþ ëíåäñ îïäïáañû çðîíêìäìçä ãïòâçô îïíâïaëë, îíðêaá "
				"çë ðçâìaê íðñaìíáa (îïçëäïìí ñí åä, öñí ç  Break.)\n"
				"    MakeLink: æaëäìa ðñaìãaïñìíè éíëaìãú, îíããäïåçáaýùaþ \"ðêaàúä\" "
				"ðáþæç.\n"
				"    DeleteLink: A simple Delete-clone that also deletes soft links "
				"without a target.\n"
				"    UnpackILBM: ïaðîaéíáúáaäñ \"ñäêí\" IFF ILBM óaèêíá "
				"(BODY chunk).\n"
				"    Àíêää îíãïíàìòý çìóíïëaõçý ðë. á ãíéòëäìñaõçç é îïíâïaëëä.\n"
			)
		)

		(set #where-visage "Òéaåçñä ëaïøïòñ ãêþ çìðñaêþõçç Visage")

		(set #where-visage-guide "Éòãa éíîçïíáañû óaèê ãíéòëäìñaõçç Visage.guide?")

		(set #copy-guide-icon "Ìaãí êç éíîçïíáañû çéíìéò ãêþ Visage.guide?")

		(set #which-language "Éaéçä þæúéç ìaãí çìðñaêçïíáañû?")

		(set #which-language-help
			(cat
				"    Aëçâa ëíåäñ ïaàíñañû ìa ëìíâçô þæúéaô. Äðêç Áú ôíñçñä, öñíàú "
				"Visage çðîíêûæíáaê ðñaìãaïñìúè þæúé Áaøäè ðçðñäëú, ñí ìäíàôíãçëí "
				"ðéíîçïíáañû ðííñáäñðñáòýùçä éañaêíâç ìa Áaø å½ðñéçè ãçðé - îííãìíëò "
				"ãêþ éaåãíâí çæ çðîíêûæòäëúô þæúéíá.\n"
				"    Öñíàú òëäìûøçñû íàÿ½ë, æaìçëaäëúè þæúéíáúëç éañaêíâaëç, "
				"áú ëíåäñä ìä áúàçïañû éañaêíâç ãêþ ñäô þæúéíá, éíñíïúä Áaë á îïçìõçîä "
				"ìä îíñïäàòýñðþ.\n"
				"    Îïíðñí îíðñaáûñä âaêíöéç ìaîïíñçá ñïäàòäëúô Áaë þæúéíá ç áð½.\n "
			)
		)

		(set #where-tools "Éòãa çìðñaêçïíáañû ãíîíêìçñäêûìúä îïíâïaëëú?")

		(set #where-tools-help
			(cat
				"    Òéaåçñä ëaïøïòñ éíîçïíáaìçþ îïíâïaëë GetModeID, Kill, MakeLink, "
				"DeleteLink ç UnpackILBM. Àòãòñ ðéíîçïíáaìú ñíêûéí áúàïaììúä Áaëç "
				"îïíâïaëëú. Îíðéíêûéò æaîòðéañû áðä üñç îïíâïaëëú áíæëíåìí ñíêûéí çæ "
				"Shell, ñí îïäãîíêaâaäñðþ ðéíîçïíáañû çô á C:, âãä, éaé îïaáçêí, "
				"ìaôíãþñðþ îíãíàìúä îïíâïaëëú.\n"
				"    Á êýàíë ðêòöaä åäêañäêûìí, öñíàú üñç îïíâïaëëú ìaôíãçêçðû îí íãìíëò "
				"çæ ãíðñòîìúô ëaïøïòñíá Áaøäè ðçðñäëú.\n"
			)
		)

		(set #copy "Éíîçïòý %s á %s...")

		(set #program-update "Éaé Áú ôíñçñä íàìíáçñû çìðñïòëäìñaïçè çéíìéç?")

		(set #update-none "Ìä ôíöò")

		(set #update-all "Ãíàaáçñû áð½")

		(set #update-since "Ãíàaáçñû, ìaöçìaþ ð %s")

		(set #program-update-help
			(cat
				"    Îíðéíêûéò ëú ðäèöað íàìíáêþäë àíêää ðñaïòý áäïðçý Visage, ñí "
				"ðñaïaþ çéíìéa ìä îäïäîçðúáaäñðþ æaìíáí. Üñí ðãäêaìí ãêþ ñíâí, öñíàú "
				"ðíôïaìçñû ñä çæëäìäìçþ, éíñíïúä Áú ëíâêç îïíçæáäðñç ïaìää. Íãìaéí, "
				"ìçöñí ìä ëäøaäñ ìaë ãíàaáçñû ìíáúä îaïaëäñïú. Æãäðû áú ëíåäñä "
				"ïäøçñû, ôíñçñä êç Áú:\n"
				"    Ìçöäâí ìä íàìíáêþñû.\n"
				"    Ãíàaáçñû ìíáúä îaïaëäñïú é òåä ðòùäðñáòýùçë. "
				"Êýàúä áíæëíåìí òãaê½ììúä Áaëç ïaìää îaïaëäñïú àòãòñ ðìíáa ãíàaáêäìú, "
				"ïaáìí éaé ç ìíáúä îaïaëäñïú.\n "
				"    Ãíàaáçñû îíðêä 39.x: ãíàaáçñû ìíáúä îaïaëäñïú ñíêûéí îíðêä üñíè áäïðçç ÃÍÐ. "
				"Ðòùäðñáòýùçä îaïaëäñïú íðñaìòñðþ ìäçæëäììúëç.\n"
			)
		)
	)
)


;**************************************************************************
;
; Serbian strings
;

(if (= @language "srpski")
	(
		(set #default-lang #serbian-lang)

		(set #bad-kick
			"Morate imati AmigaOS verzija 3.0 ili noviji da bi koristili Visage."
		)

		(set #welcome
			(cat
				"\n\n\nDobrodoãli u instalaciju Visage-a.\n\n"
				"Ovaj program Vam omoguáava da instalirate Visage na Vaãoj Amigi.\n\n\n"
				"Visage © 1995-97 Magnus Holmgren."
			)
		)

		(set #install-parts "Odaberite delove koje äelite da instalirate")

		(set #item-visage "Visage")

		(set #item-visage-guide "Visage.guide")

		(set #item-locale "Prevodi")

		(set #item-getmodeid "GetModeID")

		(set #item-kill "Kill")

		(set #item-makelink "MakeLink")

		(set #item-deletelink "DeleteLink")

		(set #item-unpackilbm "UnpackILBM")

		(set #install-parts-help
			(cat
				"    Ovde birate razne delove Visage paketa koje äelite da instalirate "
				"Posle toga odreâujete detalje instalacije (kao ãto je gde áe biti odreâeni"
				"fajlovi biti instalirani). Za instalaciju moäete odabrati sledeáe "
				"elemente:\n"
				"    Visage: Sam program za gledanje slika.\n"
				"    Visage.guide: Uputstvo, u AmigaGuide® formatu (na engleskom). Ako ga "
				"ga instalirate uz pomoá ovog programa, tekst áe biti podeãen da ispunjava "
				"trenutnu veliàinu prozora. Ako ga sami instalirate, tekst áe ostati ãirok "
				"76 kolona.\n"
				"    Prevodi: Ako instalirate prevod, onda áe Visage raditi na jeziku koji"
				"ste odabrali.\n"
				"    GetModeID: Program koji uz pomoá upitnika za mod ekrana, prikazuje "
				"decimalni broj koji predstavlja odabrani mod ekrana.\n"
				"    Kill: Program koji moäe da zaustavi druge programe (ãaljuái \"break\" "
				"signale). Sliàan sistemskom Break-u.\n"
				"    MakeLink: Zamena za MakeLink komandu koja podräava soft linkove.\n"
				"    DeleteLink: Prost Delete klon koji briãe i soft linkove bez cilja.\n"
				"    UnpackILBM: Program koji raspakuje podatke u IFF ILBM slici (tzv."
				"BODY deo).\n"
				"    Za viãe informacija o elementima paketa proàitajte uputstvo.\n"
			)
		)

		(set #where-visage "Gde äelite da instalirate Visage?\nDirektorijum NEÁE biti napravljen!")

		(set #visage-020
			(cat
				"Izgleda da imate 68020 ili bolji procesor i ko-procesor na Vaãem "
				"sistemu. Da li §elite da instalirate verziju Visage-a optimizovanu "
				"za Vaã sistem?"
			)
		)

		(set #visage-000-only "Instaliraj samo normalnu verziju.")

		(set #visage-020-also "Instaliraj verziju za 68020 (kao \"Visage_020\").")

		(set #visage-020-only "Instaliraj samo verziju za 68020.")

		(set #visage-020-help
			(cat
				"    Poãto imate instaliran 68020 ili bolji procesor i ko-procesor, "
				"mo§ete ako §elite, da instalirate verziju Visage-a optimizovanu za Vaã "
				"sistem. "
				"    Mo§ete odabrati da instalirate samo normalnu verziju, verziju za "
				"68020 pod imenom `Visage_020' kao dodatak normalnoj verziji, ili da "
				"samo instalirate verziju za 68020 (kao `Visage').\n"
				"    Morate znati da verzija za 68020 procesor neáe raditi sa 68000 "
				"ili 68010 procesorima ili ako nemate ko-procesor. Verzija za 68020 "
				"procesor jednostavno neáe raditi na takvim sistemima."
			)
		)

		(set #visage-make-020 "Kreiram verziju Visage-a za 68020...")

		(set #where-visage-guide "Gde äelite da instalirate Visage.guide?")

		(set #copy-guide-icon "Da li äelite da kopiram i ikonu za Visage.guide?")

		(set #which-language "Koje jezike äelite da instalirate?")

		(set #which-language-help
			(cat
				"    Amiga moäe da radi na razliàitim jezicima. Ako äelite da "
				"Visage koristi isti jezik kao Vaã Workbench, onda nekoliko "
				"katalog fajlova mora biti kopirano na hard disk za svaki "
				"podräani jezik.\n"
				"    Da bi se smanjilo mesto potrebno kataloge, moäete odabrati "
				"da se prekopiraju samo fajlovi odreâenog jezika.\n"
				"    Samo obeleäite koje jezike äelite da imate na Vaãem sistemu.\n"
			)
		)

		(set #where-language
			(cat
				"Gde äelite da instalirate katalog fajlove?\n\n"
				"Moäete ih instalirati ili u isti direktorijum "
				"gde je sam program (odaberite \"Program\") ili "
				"u 'globalni' direktorijum \"Locale:\" (odaberite "
				"\"Locale:\")."
			)
		)

		(set #lang-progdir "Program")

		(set #lang-locale  "Locale:")

		(set #where-language-help
			(cat
				"    Ako instalirate katalog fajlove u isti direktorijum kao Visage "
				"(tj, u poddirektorijume u tom direktorijumu), onda morate premeãtati "
				"i te fajlove, ako premeãtate Visage u neki drugi direktorijum. Ako"
				"instalirate katalog fajlove u \"Locale:\" ne morate da brinete o "
				"tome gde se nalazi Visage. Sa druge strane sve fajlovi vezani za"
				"Visage neáe biti u istom direktorijumu."
			)
		)

		(set #builtin-lang "(default)")

		(set #where-tools "Gde äelite da instalirate dodatne programe?")

		(set #where-tools-help
			(cat
				"    Ovde birate gde áe se intalirati GetModeID, Kill, MakeLink, "
				"DeleteLink and UnpackILBM. Samo programi koje ste odabrali biáe "
				"instalirani. Poãto su ovo iskljuàivo ãel programi, normalno "
				"odrediãte je C: direktorijum, gde se nalaze iskljuàivo ãel "
				"programi.\n"
				"    Preporuàeno je da programi budu instalirani negde gde ih "
				"moäe naái AmigaDOS (u tzv. putanji).\n"
			)
		)

		(set #copy "Kopiram %s u %s...")

		(set #program-update "Kako äelite da dodate opcije ikone?")

		(set #update-none "Bez dodavanja")

		(set #update-all "Dodaj sve")

		(set #update-since "Dodaj nove od %s")

		(set #program-update-help
			(cat
				"    Poãto ova skripta osveäava prethodne verzije Visage-a, nova "
				"ikona neáe biti kopirana preko stare. Tako áe biti saàuvane "
				"promene koje ste moäda napravili. Meâutim, moäda su dodate nove "
				"opcije ikone. Ovde moäete odabrati naàin dodavavanja:\n"
				"    Bez dodavanja: Preskoài ovaj deo.\n"
				"    Dodaj sve: postojeáe opcije ikone neáe biti promenjene. Ako "
				"ste obrisali neke opcije ikone one áe ponovo biti dodate kao i "
				"nove.\n "
				"    Dodaj nove od 39.x: Dodaje nove opcije ikone od odabrane "
				"verzije. "
				"Svi postojeáe opcije ikone neáe biti promenjene.\n"
			)
		)
	)
)


;**************************************************************************
;
; Finnish strings
;

(if (= @language "suomi")
	(
		(set #default-lang #finnish-lang)

		(set #bad-kick
			"Tarvitset AmigaOS-version 3.0 tai uudemman käyttääksesi Visagea."
		)

		(set #welcome
			(cat
				"\n\n\nTervetuloa Visagen asennusohjelmaan.\n\n"
				"Tämä ohjelma asentaa Visagen Amigaasi.\n\n\n"
				"Visage © 1995-97  Magnus Holmgren."
			)
		)

		(set #install-parts "Valitse osat, jotka haluat asentaa:")

		(set #item-visage "Visage")

		(set #item-visage-guide "Visage.guide")

		(set #item-locale "Käännökset")

		(set #install-parts-help
			(cat
				"    Tässä valitset ne osat Visagesta, jotka haluat asentaa. Sen jälkeen "
				"määrität asennuksen yksityiskohdat (kuten mihin eri tiedostot asennetaan). "
				"Voit valita asennettavaksi seuraavat osat:\n"
				"    Visage: Varsinainen kuvannäyttöohjelma.\n"
				"    Visage.guide: Ohjetiedosto AmigaGuide® -muodossa. Jos asennat tämän "
				"asennusohjelmalla, teksti sovitetaan mahtumaan nykyisen ikkunan leveyteen. "
				"Jos asennat ohjeet itse, teksti on sidottu 76 merkin leveyteen.\n"
				"    Käännökset: Jos asennat käännökset, Visage voi toimia käyttäen "
				"valitsemiasi kieliä.\n"
				"    GetModeID: Ohjelma, joka avaa näyttötilavalitsimen ja tulostaa "
				"valitun näyttötilan tunnuksen desimaalilukuna.\n"
				"    Kill: Ohjelma, joka voi pysäyttää toisia ohjelmia (lähettämällä "
				"\"keskeytys\"-signaaleja). Toimii kuten Break-komento.\n"
				"    MakeLink: Korvaava komento MakeLinkille, joka tukee myös "
				"symbolisia (soft) linkkejä.\n"
				"    DeleteLink: Yksinkertainen Delete-klooni, joka poistaa myös ilman "
				"kohdetiedostoa olevia symbolisia (soft) linkkejä.\n"
				"    UnpackILBM: Ohjelma, joka purkaa kuvatiedon IFF ILBM -kuvasta "
				"(BODY-hunkin).\n"
				"    Lisätietoja näistä osista saat lukemalla ohjetiedoston.\n"
			)
		)

		(set #where-visage "Mihin haluat asentaa Visagen?\nUutta hakemistoa EI luoda!")

		(set #where-visage-guide "Mihin haluat asentaa ohjetiedoston Visage.guide?")

		(set #copy-guide-icon "Kopioidaanko ikoni tiedostolle Visage.guide?")

		(set #which-language "Mitkä kielitiedostot asennetaan?")

		(set #which-language-help
			(cat
				"    Amigaa voidaan käyttää monilla kielillä. Jos haluat Visagen "
				"käyttävän samaa kieltä kuin Workbench, muutama sanasto joudutaan "
				"kopioimaan kiintolevyllesi jokaista tuettua kieltä kohden.\n"
				"    Vähentääksesi kielitiedostojen vaatimaa levytilaa, voit valita "
				"asennettavaksi vain tiettyjen kielten tiedostot.\n"
				"    Merkitse laatikot niiden kielten kohdalla, joiden haluat "
				"olevan käytettävissä järjestelmässäsi.\n"
			)
		)

		(set #where-language
			(cat
				"Mihin haluat asentaa kielitiedostot?\n\n"
				"Voit asentaa ne joko samaan hakemistoon ohjelman kanssa "
				"(valitse \"Ohjelma\") tai 'yleiseen' taltioon "
				"\"Locale:\" (valitse \"Locale:\")."
			)
		)

		(set #lang-progdir "Ohjelma")

		(set #lang-locale  "Locale:")

		(set #where-language-help
			(cat
				"    Jos asennat kielitiedostot samaan hakemistoon kuin Visagen "
				"(tai paremminkin tuon hakemiston alihakemistoon), joudut "
				"siirtämään myös nämä tiedostot, mikäli siirrät Visagen johonkin "
				"toiseen hakemistoon. Jos asennat kielitiedostot taltioon "
				"\"Locale:\", sinun ei tarvitse välittää niistä siirtäessäsi "
				"Visagen. Toisaalta sinulla ei silloin ole kaikkia Visageen "
				"liittyviä tiedostoja kätevästi samassa hakemistossa."
			)
		)

		(set #builtin-lang "(oletus)")

		(set #where-tools "Mihin haluat asentaa apuohjelmat?")

		(set #where-tools-help
			(cat
				"    Tässä määrität, mihin ohjelmat GetModeID, Kill, MakeLink, "
				"DeleteLink ja UnpackILBM asennetaan. Vain valitsemasi ohjelmat "
				"asennetaan. Koska nämä ohjelmat voi käynnistää vain komentotulkista, "
				"oletuspaikka on taltio C:, jossa järjestelmän komentotulkista "
				"käynnistettävät ohjelmat ovat.\n"
				"    On suositeltavaa, että asennat nämä ohjelmat johonkin komentojen "
				"hakupolun varrella olevaan hakemistoon.\n"
			)
		)

		(set #copy "Kopioidaan %s nimelle %s...")

		(set #program-update "Miten haluat päivittää ikonin määreet?")

		(set #update-none "Älä päivitä")

		(set #update-all "Lisää kaikki")

		(set #update-since "Lisää uudet version %s jälkeen")

		(set #program-update-help
			(cat
				"    Koska tämä asennus päivittää Visagen vanhemman version, "
				"ikonia ei kopioida uudelleen. Tämä säilyttää siihen mahdollisesti "
				"tekemäsi muutokset. Uusia määreitä on kuitenkin ehkä lisätty. "
				"Tässä voit päättää, mitä haluat tehdä:\n"
				"    Älä päivitä: Ohita tämä osa asennuksesta.\n"
				"    Lisää kaikki määreet: Olemassa olevia määreitä ei muuteta. "
				"Kaikki poistamasi määreet lisätään uudelleen. Myös täysin uudet "
				"määreet lisätään.\n"
				"    Lisää uudet 39.x:n jälkeen: Lisää vain kyseisen version "
				"jälkeen lisätyt määreet. Olemassa olevia määreitä ei muuteta.\n"
			)
		)
	)
)


;**************************************************************************
;
; Swedish strings
;

(if (= @language "svenska")
	(
		(set #default-lang #swedish-lang)

		(set #bad-kick
			"Du måste ha AmigaOS version 3.0 eller högre för att kunna använda Visage."
		)

		(set #welcome
			(cat
				"\n\n\nVälkommen till Installeraren.\n\n"
				"Det här programmet låter dig installera Visage i din Amiga.\n\n\n"
				"Visage © 1995-97 av Magnus Holmgren."
			)
		)

		(set #install-parts "Välj de delar du vill installera")

		(set #item-visage "Visage")

		(set #item-visage-guide "Visage.guide")

		(set #item-locale "Översättningar")

		(set #install-parts-help
			(cat
				"  Här väljer du de olika delar av Visage som du vill installera. "
				"Efter det anger du detaljer om installationen (såsom var de olika "
				"filerna ska installeras). Du kan välja mellan följande delar:\n"
				"  Visage: Själva bildvisaren.\n"
				"  Visage.guide: Manualen, i AmigaGuide®-format.\n"
				"  Översättningar: Om du installerar en översättning, så kan "
				"Visage använda det språket.\n"
				"  GetModeID: Ett program som visar en skärmlägesväljare, och "
				"sedan skriver ut ett decimalt tal som motsvarar det valda "
				"skärmläget.\n"
				"  Kill: Ett program som kan stoppa andra program (genom att "
				"skicka \"break\"-signaler). Liknar Break.\n"
				"  MakeLink: En erättning för MakeLink, som stödjer så kallade "
				"mjuka länkar.\n"
				"  DeleteLink: En enkel Delete-variant, som också kan radera "
				"mjuka länkar där målfilen saknas.\n"
				"  UnpackILBM: Ett program som packar upp bilddatan i en IFF ILBM "
				"bild (BODY \"chunken\").\n"
				"    För mer information om de här sakerna, se manualen.\n"
			)
		)

		(set #where-visage "Var vill du installera Visage?\nEn låda kommer INTE att skapas!")

		(set #visage-020
			(cat
				"Du verkar ha en 68020 CPU eller bättre, med en fungerande "
				"FPU, installerad i ditt system. Vill du installera en "
				"version av Visage som är optimerad för ditt system?"
			)
		)

		(set #visage-000-only "Installera bara normal version.")

		(set #visage-020-also "Installera 68020-version (som \"Visage_020\").")

		(set #visage-020-only "Installera bara 68020-version.")

		(set #visage-020-help
			(cat
				"  Eftersom du har en 68020 CPU eller bättre installerad, "
				"med en FPU, kan du, om du vill, installera en version av "
				"Visage som är optimerad för ditt system. Du kan välja att "
				"bara installera den vanliga versionen; installera "
				"68020-versionen som \"Visage_020\", utöver den vanliga "
				"versionen; eller bara installera 68020-versionen (som "
				"\"Visage\").\n"
				"  Observera att 68020-versionen inte kommer att fungera med "
				"en 68000 eller 68010 CPU. 68020-versionen kommer att avsluta "
				"utan några meddelanden på sådana system."
			)
		)

		(set #visage-make-020 "Skapar 68020-versionen av Visage...")

		(set #where-visage-guide "Var vill du installera Visage.guide?")

		(set #copy-guide-icon "Ska jag kopiera ikonen för Visage.guide?")

		(set #which-language "Vilka språk ska installeras?")

		(set #which-language-help
			(cat
				"  Amigan kan arbeta med flera olika språk. Om du vill att "
				"Visage ska använda samma språk som Amiga Workbench så "
				"måste en så kallad katalogfil kopieras till din systemdisk "
				"för varje språk.\n"
				"  För att minimera diskutrymmet för språkfiler kan du välja "
				"att bara installera filerna för vissa språk.\n"
				"  Markera bara rutorna för de språk du önskar installera i "
				"din dator.\n"
			)
		)

		(set #where-language
			(cat
				"Var vill du installera katalogfilerna?\n\n"
				"Du kan antingen installera dem i samma låda som programmet "
				"(välj \"Program\"), eller i den \"globala\" enheten "
				"\"Locale:\" (välj \"Locale:\")."
			)
		)

		(set #lang-progdir "Program")

		(set #lang-locale  "Locale:")

		(set #where-language-help
			(cat
				"  Om du installerar katalogfilerna i samma låda som "
				"Visage (eller snarare i underlådor i den lådan), så "
				"kommer du att behöva flytta de här filerna, om du "
				"flyttar Visage till någon annan låda. Om du installerar "
				"katalogfilerna i \"Locale:\" så behöver du inte bekymra "
				"dig om dem ifall du flyttar Visage. Å andra sidan, alla "
				"Visage-relaterade filer kommer inte att finnas i samma "
				"låda."
			)
		)

		(set #builtin-lang "(inbyggt)")

		(set #where-tools "Var vill du installera de extra programmen?")

		(set #where-tools-help
			(cat
				"  Här anger du var programmen GetModeID, Kill, MakeLink "
				"DeleteLink och UnpackILBM ska installeras någonstans. Bara "
				"de program som du valde tidigare kommer att kopieras. "
				"Eftersom de här programmen bara kan användas från ett "
				"skal, så är den förvalda destinationen C:, eftersom "
				"systemets \"skalprogram\" finns där. Det rekommenderas "
				"att du installerar dessa program någonstans i sökvägen "
				"för kommandon.\n"
			)
		)

		(set #copy "Kopierar %s till %s...")

		(set #program-update "Hur vill du uppdatera verktygstyperna i ikonen?")

		(set #update-none "Uppdatera inte")

		(set #update-all "Lägg till alla")

		(set #update-since "Lägg till nya sedan %s")

		(set #program-update-help
			(cat
				"  Eftersom den här installationen uppdaterar en gammal version "
				"av Visage kommer inte ikonen att kopieras. Detta för att "
				"bibehålla eventuella ändringar som du kan ha gjort. Men nya "
				"verktygstyper kan ha tillkommit. Här kan du avgöra vad du "
				"vill göra:\n"
				"  Uppdatera inte: Hoppa över detta.\n"
				"  Lägg till alla: Lägg till alla verktygstyper. Existerande "
				"verktygstyper kommer inte att ändras.\n"
				"  Lägg till nya sedan 39.x: Lägg bara till de nya "
				"verktytstyperna. Eventuella existerande verktygstyper "
				"kommer inte att ändras.\n"
			)
		)
	)
)


;**************************************************************************
;
; Czech strings
;

(if (= @language "ÃeÓtina")
	(
		(set #default-lang #czech-lang)

		(set #bad-kick
			"K tomu abyste mohli pouÚÉvat Visage potÒebujete AmigaOS 3.0 a vyÓÓÉ."
		)

		(set #welcome
			(cat
				"\n\n\nVÉtejte pÒi instalaci programu Visage!\n\n"
				"Visage © 1995-97 Magnus Holmgren."
			)
		)

		(set #install-parts "Volba ÃÁstÉ programu, kter× si pÒejete nainstalovat:")

		(set #item-locale "Lokalizace")

		(set #install-parts-help
			(cat
				"    Zde mÊÚete zvolit, kter× ÃÁsti Visage si pÒejete nainstalovat. "
				"Potom si zvolÉte detaily instalace (jako napÒ. kam se majÉ jednotliv× ÃÁsti "
				"programu nainstalovat). Je moÚno zvolit z nÁsledujÉcÉch poloÚek:\n"
				"    Visage: prohlÉÚeà obrÁzkÊ.\n"
				"    Visage.guide: manuÁl, ve formÁtu AmigaGuide®. V pÒÉpadÅ, Úe si jej "
				"nainstalujete pomocÉ t×to instalaÃnÉ utility, bude manuÁl pÒizpÊsoben "
				"VaÓemu rozliÓenÉ. Pokud provÁdÉte instalaci sami, manuÁl zÊstane nezmÅnÅn "
				"a bude mÉt standardnÉch 76 sloupcÊ.\n"
				"    PÒeklady: V pÒÉpadÅ, Úe si nainstalujete pÒeklad, bude s VÁmi Visage "
				"komunikovat ve VaÓem jazyce.\n"
				"    GetModeID: Program, kterÙ ukÁÚe requester pro rozliÓovacÉ mÏdy, a vypÉÓe "
				"dekadickou hodnotu pro dan× rozliÓenÉ.\n"
				"    Kill: Program, kterÙ umoÚnÉ odstranit jin× programy (poÓle signÁl "
				"\"break\" ). ChovÁ se tak× podobnÅ jako Break.\n"
				"    MakeLink: NÁhrada pro standardnÉ pÒÉkaz MakeLink. NavÉc podporuje "
				"soft linky.\n"
				"    DeleteLink: JednoduchÙ klon pÒÉkazu Delete, kterÙ navÉc maÚe i soft linky "
				"bez urÃen×ho cÉlov×ho souboru.\n"
				"    UnpackILBM: Program, kterÙ rozbalÉ data obrÁzku z klasick×ho amigovsk×ho "
				"formÁtu pro obrÁzky - IFF ILBM. Data jsou v tzv. BODY chunku.\n"
				"    DalÓÉ informace o tÅchto programech naleznete v manuÁlu.\n"
			)
		)

		(set #where-visage "Kam si pÒejete nainstalovat Visage?\nAdresÁÒ NEBUDE vytvoÒen!")

		(set #where-visage-guide "Kam si pÒejete nainstalovat Visage.guide?")

		(set #copy-guide-icon "MÅla by se nakopÉrovat i ikona pro Visage.guide?")

		(set #which-language "Kter× jazyky si pÒejete nainstalovat?")

		(set #which-language-help
			(cat
				"    OperaÃnÉ syst×m Amigy je moÚno provozovat v mnoha jazycÉch. "
				"V pÒÉpadÅ, Úe si pÒejete, aby Visage komunikovala v jazyce, ve kter×m "
				"pouÚÉvÁte VÁÓ Workbench, pak je nutn× nakopÉrovat nÅkolik souborÊ, "
				"kter× se slouÚÉ k tomuto ÕÃelu.\n"
				"    Aby lokalizaÃnÉ katalogy nezabÉraly pÒÉliÓ mÉsta na VaÓem harddisku "
				"doporuÃuje se zvolit pouze ty jazyky, kter× si skuteÃnÅ pÒejete a "
				"ovlÁdÁte.\n"
				"    ProstÅ zatrhnÅte ta tlaÃÉtka, kterÁ oznaÃujÉ VÁmi poÚadovanÙ "
				"jazyk. PÒÉsluÓn× soubory budou nakopÉrovÁny na VÁÓ syst×m.\n"
			)
		)

		(set #where-language
			(cat
				"Kam si pÒejete nainstalovat lokalizaÃnÉ katalogy pro Visage?\n\n"
				"PrvnÉ moÚnost je nainstalovat je do stejn×ho adresÁÒe jako program "
				"samotnÙ (volba \"Program\") nebo v 'globÁlnÉm' pÒiÒazenÉ "
				"\"Locale:\" (volba \"Locale:\")."
			)
		)

		(set #lang-progdir "Program")

		(set #lang-locale  "Locale:")

		(set #where-language-help
			(cat
				"    JestliÚe si nainstalujete lokalizaÃnÉ soubory do stejn×ho adresÁÒe "
				"jako Visage (nebo pÒesnÅji do podadresÁÒe tohoto adresÁÒe), pak je nutno "
				"pÒi kaÚd×m pÒesunu tohoto adresÁÒe pÒesunout i tyto soubory. Pokud si "
				"nainstalujete lokalizaÃnÉ soubory do \"Locale:\", nenÉ tÒeba se o nÅ dÁle "
				"starat ani v pÒÉpadÅ, Úe adresÁÒ s Visage nÅkam pÒesunete. Na druhou "
				"stranu ale nebudete mÉt vÓechny soubory tÙkajÉcÉ se Visage v jedin×m "
				"adresÁÒi.\n"
			)
		)

		(set #builtin-lang "(standardnÉ)")

		(set #where-tools "Kam si pÒejete nainstalovat extra programy?")

		(set #where-tools-help
			(cat
				"    Zde si mÊÚete zvolit kam se majÉ nainstalovat programy "
				"GetModeID, Kill, MakeLink, DeleteLink a UnpackILBM. Pouze vybran× "
				"programy budou nainstalovÁny. ProtoÚe jsou tyto programy urÃen× "
				"pro pouÚitÉ v Shellu, budou standardnÅ umÉstÅny C:, kde jsou tak× "
				"syst×mov× pÒÉkazy.\n"
				"    Jinak se doporuÃuje tyto programy nainstalovat nÅkam do vyhledÁvacÉ "
				"cesty.\n"
			)
		)

		(set #copy "ProbÉhÁ kopÉrovÁnÉ %s do %s...")

		(set #program-update "Jak si pÒejete aktualizovat tooltypy v ikonÅ?")

		(set #update-none "Neaktualizovat")

		(set #update-all "PÒidat vÓe")

		(set #update-since "PÒidat nov× od %s")

		(set #program-update-help
			(cat
				"    ProtoÚe tato instalace aktualizuje dÒÉvÅjÓÉ verzi Visage, "
				"pÊvodnÉ ikona nebude pÒepsÁna. Tento postup je zvolen z toho "
				"dÊvodu, aby se vyloÚila ztrÁta vÓech zmÅn, kterÙmi jste si "
				"Visage pÒizpÊsobili. Na druhou stranu byly v t×to nov× verzi "
				"pÒidÁny nov× tooltypy. TakÚe mÁte na vybranou z nÅkolika moÚnostÉ:\n"
				"    Neaktualizovat: Tuto ÃÁst pÒeskoÃit.\n"
				"    PÒidat vÓechny tooltypy: stÁvajÉcÉ tooltypy nebudou zmÅnÅny "
				"VÓechny tooltypy, kter× jste pÒÉpadnÅ uÚ dÒÉve odstranili, budou "
				"znovu pÒidÁny. Nov× tooltypy budou pÒidÁny tak×.\n "
				"    PÒidat nov× od 39.x: Budou pÒidÁny pouze nov× tooltypy od t×to "
				"version. StÁvajÉcÉ tooltypy nebudou zmÅnÅny.\n"
			)
		)
	)
)


;**************************************************************************
;
; The actual installaion script
;

; Check Kickstart version. Exit if not at least 3.0
(if (< (/ (getversion) 65536) 39)
        (abort #bad-kick)
)

; Since files probably are scatter installed, don't mention any specific location.
(set @default-dest "")

; Version of old program. This means no old program.
(set #visagever 0)
(set #visagerev 0)

; Request proportinal fonts, if supported. This string is
; prepended to the first askoptions choice.
(if (>= @installer-version 2752518)     ; 42 * 65536 + 6
	; At least version 42.6
	(set #propfont "")
	; Pre V42
	(set #propfont "")
)

; Greetings Mr. Falken...
(message #welcome)

(welcome)

; Ask the user what to install
(set #install-files
	(askoptions
		(prompt	#install-parts)
		(help	#install-parts-help "\n" @askoptions-help)
		(choices
			(cat #propfont #item-visage)
			#item-visage-guide
			#item-locale
			#item-getmodeid
			#item-kill
			#item-makelink
			#item-deletelink
			#item-unpackilbm
		)
		(default (if (= @user-level 2) 255 7))
	)
)

; Ask the user for the location of all parts

; Location for Visage
(if (BITAND #install-files 1)
	(
		(set #visage-dest
			(askdir
				(prompt  #where-visage)
				(help    @askdir-help)
				(default "Sys:Utilities")
			)
		)

		; Get the version of previously installed Visage
		(if (= (exists (tackon #visage-dest "Visage")) 1)
			(
				(set #vernum (getversion (tackon #visage-dest "Visage")))
				(set #visagever (/ #vernum 65536))
				(set #visagerev (- #vernum (* #visagever 65536)))

				; Just in case the above failed...
				(if (<= #visagever 38)
					(
						(set #visagever 39)
						(set #visagerev 0)
					)
				)
			)
		)

		(set #update-action 0)

		(if (AND #visagever (= (exists (tackon #visage-dest "Visage.info")) 1))
			(
				(set #defaction 0)

				(if (= #visagerev 0)
					(set #defaction 2)
				)

				(if (= #visagerev 1)
					(set #defaction 3)
				)

				(if (= #visagerev 2)
					(set #defaction 4)
				)

				(if (= #visagerev 5)
					(set #defaction 5)
				)

				(if (= #visagerev 10)
					(set #defaction 6)
				)

				(set #update-action
					(askchoice
						(prompt		#program-update)
						(choices	(cat #propfont #update-none)
								#update-all
								; (#update-since "39.0")
								; (#update-since "39.1")
								; (#update-since "39.2")
								(#update-since "39.5")
								(#update-since "39.10")
								(#update-since "39.11")
								(#update-since "39.14")
						)
						(default	#defaction)
						(help		#program-update-help "\n" @askchoice-help)
					)
				)

				; (set #tt39-1  "DITHER COMPACT TIME")
				; (set #tt39-2  "COMMAND CYCLE NOCLICK NORMALNAMES RTG SORT TEST VCENTER")
				; (set #tt39-3  "INFO SHOWINFO")
				(set #tt39-6  "NOICON NOFOREIGN")
				(set #tt39-11 "BORDERBLANK NOFILECHECK")
				(set #tt39-12 "COLOR DRAWER GAMMA NOPNG PATTERN")
				(set #tt39-15 "LIST FONT ORDER")

				(set #icon-dest     (tackon #visage-dest "Visage"))
				(set #icon-dest-020 (tackon #visage-dest "Visage_020"))
				(set #tooltype-pattern
					(select #update-action
						""
						"#?"
						; ("%s %s %s %s %s %s %s" #tt39-15 #tt39-12 #tt39-11 #tt39-6 #tt39-3 #tt39-2 #tt39-1)
						; ("%s %s %s %s %s %s"    #tt39-15 #tt39-12 #tt39-11 #tt39-6 #tt39-3 #tt39-2)
						; ("%s %s %s %s %s"       #tt39-15 #tt39-12 #tt39-11 #tt39-6 #tt39-3)
						("%s %s %s %s"          #tt39-15 #tt39-12 #tt39-11 #tt39-6)
						("%s %s %s"             #tt39-15 #tt39-12 #tt39-11)
						("%s %s"                #tt39-15 #tt39-12)
						("%s"                   #tt39-15)
					)
				)
			)
		)
	)
)

(set #install-020 0)

; Install 68020 version?
(if
	(AND
		(BITAND #install-files 1)
		(not (patmatch "68000|68010" (database "cpu")))
		(not (patmatch "NOFPU"       (database "fpu")))
	)
	; Well, there's a 68020 CPU+FPU at least...
	(set #install-020
		(askchoice
			(prompt		#visage-020)
			(choices	(cat #propfont #visage-000-only)
					#visage-020-also
					#visage-020-only)
			(default	2)
			(help		#visage-020-help)
		)
	)
)

; Location for Visage.guide
(if (BITAND #install-files 2)
	(
		(set #guide-dest #visage-dest)

		(if (exists "Help:")
			(set #guide-dest "Help:")
		)

		(set #guide-dest
			(askdir
				(prompt  #where-visage-guide)
				(help    @askdir-help)
				(default #guide-dest)
			)
		)

		(set #dest-guide-name (tackon #guide-dest "Visage.guide.info"))

		(set #guide-icon
			(if (AND (= @user-level 2 ) (= (exists #dest-guide-name) 0))
				(askbool
					(prompt #copy-guide-icon)
					(help	" ")
				)
				1	; Default is to copy the icon
			)
		)
	)
)

(set #languages 0)

; .ct
; Which languages that should be installed.
(if (BITAND #install-files 4)
	(set #lang
		(askoptions
			(prompt	#which-language)
			(help	#which-language-help "\n" @askoptions-help)
			(choices
				(cat #propfont "Dansk")
				"Deutsch"
				(cat "English  " #builtin-lang)
				"Español"
				"Français"
				"Italiano"
				"Nederlands"
				"Norsk"
				"Russian"
				"Srpski"
				"Suomi"
				"Svenska"
				"ÃeÓtina"
			)
			(default #default-lang)
		)
	)
)

(if (BITAND #install-files 1)
	; Default to install catalog files in the same drawer as Visage.
	(set #catalog-dest (tackon #visage-dest "Catalogs"))

	; No Visage drawer known, fall back to Locale: instead
	(set #catalog-dest "Locale:Catalogs")
)

; Where should the catalogs be installed? Only do this if we have
; an expert user, and any non-english language was selected.
(if (AND (= (BITAND #install-files 5) 5) (<> #lang 0) (<> #lang #english-lang) (= @user-level 2))
	(
		(set #choice
			(askbool
				(prompt  #where-language)
				(help    #where-language-help "\n" @askbool-help)
				(default 1)
				(choices #lang-progdir #lang-locale)
			)
		)

		(if (NOT #choice)
			(set #catalog-dest "Locale:Catalogs")
		)
	)
)

; Ask for location for extra tools
(if (BITAND #install-files 248)	; 8 + 16 + 32 + 64 + 128
	(set #tool-dest
		(askdir
			(prompt	#where-tools)
			(help	#where-tools-help "\n" @askdir-help)
			(default "C:")
		)
	)
)

; And now do the actual installation

(complete 0)

(if (BITAND #install-files 1)
	(
		(if (< #install-020 2)
			; Install 68000 and perhaps 68020 version.
			(copylib
				(prompt	(#copy "Visage" #visage-dest))
				(source	"Visage")
				(dest	#visage-dest)
			)
		)

		(complete 10)

		(if (> #install-020 0)
			; Create 68020 version
			(
				(working #visage-make-020)

				(run "C/SPatch -oT:Visage_020 -pVisage_020.pch Visage")
			)
		)

		(complete 20)

		(if (= #install-020 1)
			; Install 68020 version in addition to 68000 version.
			(copylib
				(prompt	(#copy "Visage" #visage-dest))
				(source	"T:Visage_020")
				(dest	#visage-dest)
			)
		)

		(if (= #install-020 2)
			; Install 68020 version only
			(copylib
				(prompt		(#copy "Visage" #visage-dest))
				(source		"T:Visage_020")
				(dest		#visage-dest)
				(newname	"Visage")
			)
		)

		(complete 30)

		(if (> #install-020 0)
			; Delete temporary file
			(delete "T:Visage_020")
		)

		(complete 35)

		(if (= (exists (tackon #visage-dest "Visage.info")) 0)
			; Install or update normal icon
			(copyfiles
				(source	"Visage.info")
				(dest	#visage-dest)
			)
			(if (> #update-action 0)
				(run ("C/UpdateTT Visage %s %s" #icon-dest #tooltype-pattern))
			)
		)

		(complete 37)

		(if (= #install-020 1)
			; Imstall or update "68020 icon"
			(if (= (exists (tackon #visage-dest "Visage_020.info")) 0)
				(copyfiles
					(source		"Visage.info")
					(dest		#visage-dest)
					(newname	"Visage_020.info")
				)
				(if (> #update-action 0)
					(run ("C/UpdateTT Visage %s %s" #icon-dest-020 #tooltype-pattern))
				)
			)
		)
	)
)

(complete 40)

(if (BITAND #install-files 2)
	(
		(copylib
			(prompt (#copy "Visage.guide" guide-dest))
			(source "Visage.guide")
			(dest   #guide-dest)
		)

		(copylib
			(prompt (#copy "VisageHistory.guide" guide-dest))
			(source "VisageHistory.guide")
			(dest   #guide-dest)
		)

		(if #guide-icon
			(
				(copyfiles
					(source "Visage.guide.info")
					(dest   #guide-dest)
				)

				(copyfiles
					(source "VisageHistory.guide.info")
					(dest   #guide-dest)
				)
			)
		)
	)
)

(complete 60)

; .ct
(if (BITAND #install-files 4)
	(
		(if (= (exists #catalog-dest) 0)
			(makedir #catalog-dest)
		)

		(set #n 0)

		(while
			(set #language
				(select #n
					"Dansk"
					"Deutsch"
					"English"
					"Español"
					"Français"
					"Italiano"
					"Nederlands"
					"Norsk"
					"Russian"
					"Srpski"
					"Suomi"
					"Svenska"
					"ÃeÓtina"
					""
				)
			)

			(
				(if (AND (IN #lang #n) (<> #language "English"))
					(
						(set #catalog ("Catalogs/%s/visage.catalog" #language))
						(set #destination (tackon #catalog-dest #language))

						(copylib
							(prompt (#copy #catalog #destination))
							(source #catalog)
							(dest   #destination)
						)
					)
				)

				(set #n (+ #n 1))
			)
		)
	)
)

(complete 75)

(if (BITAND #install-files 8)
	(copylib
		(prompt (#copy "GetModeID" #tool-dest))
		(source "C/GetModeID")
		(dest   #tool-dest)
	)
)

(complete 80)

(if (BITAND #install-files 16)
	(copylib
		(prompt (#copy "Kill" #tool-dest))
		(source "C/Kill")
		(dest   #tool-dest)
	)
)

(complete 85)

(if (BITAND #install-files 32)
	(copylib
		(prompt (#copy "MakeLink" #tool-dest))
		(source "C/MakeLink")
		(dest   #tool-dest)
	)
)

(complete 90)

(if (BITAND #install-files 64)
	(copylib
		(prompt (#copy "DeleteLink" #tool-dest))
		(source "C/DeleteLink")
		(dest   #tool-dest)
	)
)

(complete 95)

(if (BITAND #install-files 128)
	(copylib
		(prompt (#copy "UnpackILBM" #tool-dest))
		(source "C/UnpackILBM")
		(dest   #tool-dest)
	)
)

(complete 100)

(exit)