;
; $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-98 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-98 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 ikke 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-98  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-98 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-98  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-98  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-98 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-98  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-98 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 nebo vy���."
		)

		(set #welcome
			(cat
				"\n\n\nV�tejte p�i instalaci programu Visage!\n\n"
				"Visage � 1995-98 Magnus Holmgren."
			)
		)

		(set #install-parts "Volba ��st� programu, kter� si p�ejete nainstalovat:")

		(set #item-locale "Lokalizace")

		(set #item-visage "Visage")

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

		(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 #visage-020
			(cat
				"Vypad� to, �e V�� procesor je 68020 nebo lep�� s FPU. "
				"P�ejete si nainstalovat optimalizovanou verzi Visage?"
			)
		)

		(set #visage-000-only "Instalovat pouze norm�ln� verzi.")

		(set #visage-020-also "Instalovat verzi pro 68020 (s n�zvem \"Visage_020\").")

		(set #visage-020-only "Instalovat pouze verzi pro 68020.")

		(set #visage-020-help
			(cat
				"    Proto�e je V�� procesor 68020 s FPU nebo lep��, m��ete si, "
				"pokud si p�ejete, nainstalovat optimalizovanou verzi Visage. "
				"M��ete si tedy zvolit nainstalovat pouze norm�ln� verzi, "
				"norm�ln� verzi z�rove� s optimalizovanou (s n�zvem `Visage_020' "
				"nebo pouze optimalizovanou verzi (s n�zvem `Visage').\n"
				"    Uv�domte si pros�m, �e optimalizovan� verze (pro 68020 nebo "
				"vy���) nebude fungovat na 68000, 68010 nebo bez FPU. Na t�chto "
				"syst�mech prost� se prost� po spu�t�n� hned ukon��."
			)
		)

		(set #visage-make-020 "Vytv��� se verze Visage pro 68020...")

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

		(set #copy-guide-icon "M� 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�m zp�sobem si p�ejete aktualizovat tooltypy v ikon�?")

		(set #update-none "Nic nem�nit")

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

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

		(set #program-update-help
			(cat
				"    Presto�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 vylou�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"
				"    Nic nem�nit: Nedojde k ��dn� zm�n�.\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 "
				"verze. 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)