home *** CD-ROM | disk | FTP | other *** search
/ Amiga Format 99 / af099a.adf / archives / af99a2.lzx / Visage / Install Visage < prev    next >
Encoding:
Text File  |  1997-05-11  |  50.4 KB  |  1,692 lines
  1. ;
  2. ; $VER: Install_Visage 39.12 (26.3.97)
  3. ;
  4. ; Installer script for Visage.
  5. ;
  6.  
  7.  
  8. (set #german-lang        1)
  9. (set #english-lang       2)
  10. (set #spanish-lang       4)
  11. (set #french-lang        8)
  12. (set #italian-lang      16)
  13. (set #dutch-lang        32)
  14. (set #norwegian-lang    64)
  15. (set #russian-lang     128)
  16. (set #serbian-lang     256)
  17. (set #finnish-lang     512)
  18. (set #swedish-lang    1024)
  19.  
  20. ; Get current language (no need for lots of silly icons! ;). However, this
  21. ; won't properly work for all versions of the Installer. Some doesn't
  22. ; understand the language "default". :/
  23.  
  24. (if (= (exists "Env:Language") 1)
  25.     ; GetEnv reports "String too long" if the variable doesn't exist! :(
  26.     ; Dunno if this is fixed in V43... But we need the check anyway.
  27.     (set @language (getenv "language"))
  28. )
  29.  
  30. ;**************************************************************************
  31. ;
  32. ; English strings
  33. ;
  34.  
  35.  
  36. (set #default-lang #english-lang)
  37.  
  38. (set #bad-kick
  39.     "You must have AmigaOS Release 3.0 or newer to use Visage."
  40. )
  41.  
  42. (set #welcome
  43.     (cat
  44.         "\n\n\nWelcome to the Visage installation utility.\n\n"
  45.         "This program lets you install Visage on your Amiga.\n\n\n"
  46.         "Visage © 1995-97 by Magnus Holmgren."
  47.     )
  48. )
  49.  
  50. (set #install-parts "Please select the parts you wish to install")
  51.  
  52. (set #item-visage "Visage")
  53.  
  54. (set #item-visage-guide "Visage.guide")
  55.  
  56. (set #item-locale "Translations")
  57.  
  58. ; The following four strings are program names. Normally, these shouldn't
  59. ; be translated, though one could consider appending some locale-specific
  60. ; text after the names.
  61.  
  62. (set #item-getmodeid "GetModeID")
  63.  
  64. (set #item-kill "Kill")
  65.  
  66. (set #item-makelink "MakeLink")
  67.  
  68. (set #item-deletelink "DeleteLink")
  69.  
  70. (set #item-unpackilbm "UnpackILBM")
  71.  
  72. (set #install-parts-help
  73.     (cat
  74.         "    Here you select the different parts of Visage that you would like to "
  75.         "install. After that, you select the details of the installation (such as "
  76.         "where the different files should be installed). You may choose to install "
  77.         "the following items:\n"
  78.         "    Visage: The actual picture viewer.\n"
  79.         "    Visage.guide: The manual, in AmigaGuide® format. If you install it "
  80.         "using the installer, the text will reflow to fit the current window size. "
  81.         "If you do a manual installation, the text is fixed to 76 columns.\n"
  82.         "    Translations: If you install a translation, then Visage can operate in "
  83.         "the language(s) you select.\n"
  84.         "    GetModeID: A program that shows a screen mode requester, and prints "
  85.         "a decimal number that represents the selected screen mode.\n"
  86.         "    Kill: A program that can stop another program (sending \"break\" "
  87.         "signals). Similar to Break.\n"
  88.         "    MakeLink: A replacement for the MakeLink command that supports "
  89.         "soft links.\n"
  90.         "    DeleteLink: A simple Delete-clone that also deletes soft links "
  91.         "without a target.\n"
  92.         "    UnpackILBM: A program that unpacks the picture data in an IFF ILBM "
  93.         "picture (the BODY chunk).\n"
  94.         "    For more information about these parts, please read the manual.\n"
  95.     )
  96. )
  97.  
  98. (set #where-visage "Where would you like to install Visage?\nA drawer will NOT be created!")
  99.  
  100. (set #where-visage-guide "Where would you like to install Visage.guide?")
  101.  
  102. (set #copy-guide-icon "Should I copy the icon for Visage.guide?")
  103.  
  104. ; (set #convert-guide "Converting Visage.guide...")
  105.  
  106. (set #which-language "Which languages should be installed?")
  107.  
  108. (set #which-language-help
  109.     (cat
  110.         "    The Amiga can be operated in many different languages. If you "
  111.         "want Visage to use the same language as your Amiga Workbench, "
  112.         "then a couple of catalog files must be copied to your harddisk "
  113.         "for each language supported.\n"
  114.         "    To reduce the amount of space consumed by the language files, "
  115.         "you can select to have only the files of specific languages "
  116.         "copied.\n"
  117.         "    Simply check the boxes of the languages you wish to have have "
  118.         "available on your system.\n"
  119.     )
  120. )
  121.  
  122. (set #where-language
  123.     (cat
  124.         "Where do you want to install the language files?\n\n"
  125.         "You can install them in either the same drawer as the program "
  126.         "itself (select \"Program\") or in the 'global' volume "
  127.         "\"Locale:\" (select \"Locale:\")."
  128.     )
  129. )
  130.  
  131. ; These two strings must match the strings used in above in #where-language.
  132. ; The words in question are the quoted ones after "select" in the parentheses.
  133. (set #lang-progdir "Program")
  134.  
  135. (set #lang-locale  "Locale:")
  136.  
  137. (set #where-language-help
  138.     (cat
  139.         "    If you install the language files in the same drawer as Visage "
  140.         "itself (or rather, in subdirectories within that drawer), then you "
  141.         "need to move these files as well, if you move Visage to some other "
  142.         "drawer. If you install the language files in \"Locale:\" you don't "
  143.         "need to worry about them if you move Visage. On the other hand, you "
  144.         "will not have all Visage-related files in the same drawer."
  145.     )
  146. )
  147.  
  148. (set #builtin-lang "(default)")
  149.  
  150. (set #where-tools "Where would you like to install the extra programs?")
  151.  
  152. (set #where-tools-help
  153.     (cat
  154.         "    Here you specify where the programs GetModeID, Kill, MakeLink, "
  155.         "DeleteLink and UnpackILBM will be installed. Only the programs you "
  156.         "selected will be installed. Since these programs are Shell-only, "
  157.         "the default location is C:, where the systems Shell-only programs "
  158.         "can be found.\n"
  159.         "    It is recommended that you install these programs somewhere in "
  160.         "your command search path.\n"
  161.     )
  162. )
  163.  
  164. (set #copy "Copying %s to %s...")
  165.  
  166. (set #program-update "How do you want to update the tooltypes in the icon?")
  167.  
  168. (set #update-none "No update")
  169.  
  170. (set #update-all "Add all")
  171.  
  172. (set #update-since "Add new since %s")
  173.  
  174. (set #program-update-help
  175.     (cat
  176.         "    Since this installation updates an older version of Visage, "
  177.         "the icon will not be copied over. This to maintain any changes "
  178.         "you may have made to it. However, new tooltypes may have been added. "
  179.         "Here you can decide if you want to:\n"
  180.         "    No update: Skip this part.\n"
  181.         "    Add all tooltypes: existing tooltypes will not be changed "
  182.         "Any tooltypes you may have removed will be added again. The new "
  183.         "tooltypes will be added as well.\n "
  184.         "    Add new since 39.x: Only add the new tooltypes since that version. "
  185.         "Any existing tooltype not be changed.\n"
  186.     )
  187. )
  188.  
  189. ;**************************************************************************
  190. ;
  191. ; German strings
  192. ;
  193.  
  194. (if (= @language "deutsch")
  195.     (
  196.         (set #default-lang #german-lang)
  197.  
  198.         (set #bad-kick
  199.             "Visage benötigt AmigaOS Version 3.0 oder höher."
  200.         )
  201.  
  202.         (set #welcome
  203.             (cat
  204.                 "\n\n\nWillkommen zur Installation von Visage.\n\n"
  205.                 "Dieses Programm ermöglicht die Installation von Visage auf Ihrem Amiga.\n\n\n"
  206.                 "Visage © 1995-97  Magnus Holmgren."
  207.             )
  208.         )
  209.  
  210.         (set #install-parts "Bitte die zu installierenden Teile auswählen")
  211.  
  212.         (set #item-visage "Visage")
  213.  
  214.         (set #item-visage-guide "Visage.guide")
  215.  
  216.         (set #item-locale "Übersetzungen")
  217.  
  218.         (set #item-getmodeid "GetModeID")
  219.  
  220.         (set #item-kill "Kill")
  221.  
  222.         (set #item-makelink "MakeLink")
  223.  
  224.         (set #item-deletelink "DeleteLink")
  225.  
  226.         (set #item-unpackilbm "UnpackILBM")
  227.  
  228.         (set #install-parts-help
  229.             (cat
  230.                 "    Hier wählen Sie die verschiedenen Teile von Visage aus, die Sie "
  231.                 "installieren möchten. Danach wählen Sie die Details der Installation "
  232.                 "aus (wo z.B. die einzelnen Dateien installiert werden sollen). "
  233.                 "Sie können die Installation folgender Dinge vornehmen:\n"
  234.                 "    Visage: Der Bildanzeiger.\n"
  235.                 "    Visage.guide: Die Dokumentation, im AmigaGuide® Format. Wenn sie "
  236.                 "mit Hilfe des Installer Programms installiert wird, wird der Text an die "
  237.                 "aktuelle Bildschirmauflösung angepaßt. Wenn Sie die Installation von Hand "
  238.                 "vornehmen, ist der Text auf 76 Zeichen formatiert.\n"
  239.                 "    Übersetzungen: Wenn Sie eine Übersetzung installieren, dann kann "
  240.                 "Visage in dieser (diesen) Sprache(n) ablaufen.\n"
  241.                 "    GetModeID: Ein Programm, das ein Bildschirmmodus-Auswahlfenster "
  242.                 "anzeigt und eine Dezimalzahl ausdruckt, die den ausgewählten "
  243.                 "Bildschirmmodus repräsentiert.\n"
  244.                 "    Kill: Ein Programm, das ein anderes Programm stoppen kann "
  245.                 "(durch Senden eines \"Break\" Signals). Ähnlich wie Break.\n"
  246.                 "    MakeLink: Ein Ersatz für das MakeLink Kommando, das auch "
  247.                 "soft links unterstützt.\n"
  248.                 "    DeleteLink: Ein einfacher Ersatz für Delete, das auch soft links "
  249.                 "ohne Ziel löschen kann.\n"
  250.                 "    UnpackILBM: Ein Programm, das die Bilddaten in einem IFF ILBM "
  251.                 "Bild entpackt (den BODY chunk).\n"
  252.                 "    Für weitere Informationen über diese Teile lesen Sie bitte in "
  253.                 "der Dokumentation nach.\n"
  254.             )
  255.         )
  256.  
  257.         (set #where-visage "Wo würden Sie Visage gern installieren?\nEs wird KEIN Verzeichnis angelegt!")
  258.  
  259.         (set #where-visage-guide "Wo würden Sie gern Visage.guide installieren?")
  260.  
  261.         (set #copy-guide-icon "Soll das Piktogramm für Visage.guide kopiert werden?")
  262.  
  263.         ; (set #convert-guide "Konvertierung von Visage.guide...")
  264.  
  265.         (set #which-language "Welche Übersetzungen sollen installiert werden?")
  266.  
  267.         (set #which-language-help
  268.             (cat
  269.                 "    Der Amiga kann in verschiedenen Sprachen benutzt werden. "
  270.                 "Wenn Sie wünschen, Visage in der Sprache Ihrer Workbench zu "
  271.                 "benutzen, müssen einige Dateien für die unterstützten Sprachen "
  272.                 "auf Ihre Festplatte kopiert werden.\n"
  273.                 "    Um den benötigten Raum für die Übersetzungsdateien zu "
  274.                 "verringern, können Sie auswählen, nur Dateien für bestimmte "
  275.                 "Sprachen zu kopieren.\n"
  276.                 "    Wählen Sie einfach die Kästchen neben den Sprachen aus, die "
  277.                 "Sie auf Ihrem System verfügbar haben wollen.\n"
  278.             )
  279.         )
  280.  
  281.         (set #where-language
  282.             (cat
  283.                 "Wo würden Sie die Übersetzungen gern installieren?\n\n"
  284.                 "Sie können Sie entweder im gleichen Verzeichnis wie das Programm "
  285.                 "selbst (Knopf \"Programm\") oder in das 'globale' Verzeichnis "
  286.                 "\"Locale:\" (Knopf \"Locale:\") installieren."
  287.             )
  288.         )
  289.  
  290.         (set #lang-progdir "Programm")
  291.  
  292.         (set #lang-locale  "Locale:")
  293.  
  294.         (set #where-language-help
  295.             (cat
  296.                 "    Wenn Sie die Übersetzungsdateien in das gleiche Verzeichnis wie "
  297.                 "Visage selbst (oder besser, in Unterverzeichnisse in diesem Verzeichnis) "
  298.                 "installieren, müssen Sie diese Dateien auch verschieben, wenn Sie "
  299.                 "Visage in ein anderes Verzeichnis verschieben. Wenn die Übersetzungen "
  300.                 "in \"Locale:\" kopiert werden, brauchen Sie sich keine Sorgen zu "
  301.                 "machen, wenn Sie Visage verschieben. Auf der anderen Seite sind dann "
  302.                 "allerdings auch nicht alle Dateien von Visage im gleichen Verzeichnis."
  303.             )
  304.         )
  305.  
  306.         (set #builtin-lang "(eingebaut)")
  307.  
  308.         (set #where-tools "Wo würden Sie gern die Extra-Programme installieren?")
  309.  
  310.         (set #where-tools-help
  311.             (cat
  312.                 "    Hier geben Sie an, wo die Programme GetModeID, Kill, MakeLink, "
  313.                 "DeleteLink und UnpackILBM installiert werden sollen. Nur die von Ihnen "
  314.                 "ausgewählten Programme werden installiert. Da die Programme nur "
  315.                 "für die Benutzung in der Shell gedacht sind, ist das voreingestellte "
  316.                 "Ziel das C: Verzeichnis, wo sich die Shell-Programme des Systems "
  317.                 "normalerweise befinden.\n"
  318.                 "    Es wird empfohlen, diese Programme irgendwo im Kommando-"
  319.                 "Suchpfad zu installieren.\n"
  320.             )
  321.         )
  322.  
  323.         (set #copy "%s wird nach %s kopiert...")
  324.  
  325.         (set #program-update "Wie sollen die Piktogrammerkmale geändert werden?")
  326.  
  327.         (set #update-none "Keine Änderung")
  328.  
  329.         (set #update-all "Alle hinzufügen")
  330.  
  331.         (set #update-since "Alle seit %s neuen hinzufügen")
  332.  
  333.         (set #program-update-help
  334.             (cat
  335.                 "    Da diese Installation eine ältere Version von Visage ersetzt, "
  336.                 "wird das Piktogramm nicht überkopiert. Dies erhält die Änderungen, die "
  337.                 "Sie daran vorgenommen haben. Es können jedoch neue Merkmale hinzugefügt "
  338.                 "werden. Hier wählen Sie aus:\n"
  339.                 "    Keine Änderung: Dieser Teil wird übersprungen.\n"
  340.                 "    Alle hinzufügen: existierende Merkmale werden nicht geändert. "
  341.                 "Alle Merkmale, die Sie vielleicht entfernt haben, werden wieder "
  342.                 "hinzugefügt, alle neuen auch.\n "
  343.                 "    Alle seit 39.x hinzufügen: Nur die neuen Merkmale seit dieser "
  344.                 "Version hinzufügen. Existierende Merkmale bleiben unverändert.\n"
  345.             )
  346.         )
  347.     )
  348. )
  349.  
  350.  
  351. ;**************************************************************************
  352. ;
  353. ; Spanish strings
  354. ;
  355.  
  356. (if (= @language "español")
  357.     (
  358.         (set #default-lang #spanish-lang)
  359.  
  360.         (set #bad-kick "Imprescindible SO 3.0 o superior para usar Visage.")
  361.  
  362.         (set #welcome
  363.             (cat
  364.                 "\n\n\n Bienvenido al instalador del programa Visage.\n\n"
  365.                 "Este programa le permite instalar el visor de imágenes "
  366.                 "Visage en su Amiga.\n\n\n"
  367.                 "Visage © 1995-97  Magnus Holmgren."
  368.             )
  369.         )
  370.  
  371.         (set #install-parts "Por favor, elija qué partes desea instalar")
  372.  
  373.         (set #item-visage "Visage")
  374.  
  375.         (set #item-visage-guide "Visage.guide")
  376.  
  377.         (set #item-locale "Idiomas")
  378.  
  379.         (set #item-getmodeid "GetModeID")
  380.  
  381.         (set #item-kill "Kill")
  382.  
  383.         (set #item-makelink "MakeLink")
  384.  
  385.         (set #item-unpackilbm "UnpackILBM")
  386.  
  387.         (set #install-parts-help
  388.             (cat
  389.                 "\n   Aquí usted puede elegir las diferentes partes de "
  390.                 "Visage que deben ser instaladas; a continuación, "
  391.                 "deberá seleccionar los detalles de la instalación "
  392.                 "(como el lugar donde deben ser instalados p. ej.). "
  393.                 "Puede elegir qué elementos desea instalar o no de "
  394.                 "entre los siguientes:\n\n"
  395.                 "   Visage (el programa visualizador de imágenes).\n\n"
  396.                 "   Visage.guide (manual en formato AmigaGuide®; "
  397.                 "si lo instala desde aquí, el texto se redistribuirá "
  398.                 "para caber en el actual tamaño de ventana, mientras "
  399.                 "que si lo hace manualmente el ancho será de 76 "
  400.                 "columnas.\n\n"
  401.                 "   Catálogos (permite a Visage expresarse en el idioma "
  402.                 "que usted seleccione --de entre los disponibles-- tanto "
  403.                 "en la instalación como desde las preferencias del WB).\n\n"
  404.                 "   GetModeID (este programa muestra una petición de "
  405.                 "modos de pantalla para que se elija uno, e imprime el nº "
  406.                 "decimal que lo representa.\n\n"
  407.                 "   Kill (permite detener otro programa, enviando una señal "
  408.                 "\"break\": similar al comando Break del AmigaDOS.\n\n"
  409.                 "   MakeLink (sustituto del comando MakeLink del AmigaDOS "
  410.                 "que soporta vinculaciones o enlaces soft --'soft "
  411.                 "links'--).\n\n"
  412.                 "    DeleteLink: A simple Delete-clone that also deletes "
  413.                 "soft links without a target.\n\n"
  414.                 "   UnpackILBM (descomprime los datos, o sea el cuerpo o "
  415.                 "bloque BODY, de la imagen IFF ILBM señalada.\n\n"
  416.                 "   Para más información sobre lo anterior, consulte el "
  417.                 "manual.\n\n"
  418.             )
  419.         )
  420.  
  421.         (set #where-visage "¿Dónde desea instalar Visage?")
  422.  
  423.         (set #where-visage-guide "¿Dónde desea instalar la documentación Visage.guide?")
  424.  
  425.         (set #copy-guide-icon "¿Quiere que copie el icono de Visage.guide?")
  426.  
  427.         ; (set #convert-guide "Convirtiendo Visage.guide...")
  428.  
  429.         (set #which-language "¿Qué idiomas desea instalar?")
  430.  
  431.         (set #which-language-help
  432.             (cat
  433.                 "\n    El Amiga puede trabajar con diferentes idiomas, así que "
  434.                 "si desea que Visage pueda emplear el mismo definido para su "
  435.                 "Amiga Workbench, tendrán que ser copiados los ficheros "
  436.                 "catálogo que correspondan a su disco duro (uno por cada "
  437.                 "lengua soportada).\n\n"
  438.                 "    Para reducir la cantidad de espacio consumido por estos "
  439.                 "ficheros idiomáticos, puede seleccionar únicamente los de "
  440.                 "las lenguas que desee copiar y/o instalar, bastando para "
  441.                 "ello que sólo active el interruptor de aquellos de los que "
  442.                 "quiera disponer en su sistema.\n"
  443.             )
  444.         )
  445.  
  446.         (set #where-tools "¿Desea que se instalen las herramientas auxiliares?")
  447.  
  448.         (set #where-tools-help
  449.             (cat
  450.                 "\n   Aquí ha de especificar cuál(es) de los programas "
  451.                 "GetModeID, Kill, MakeLink, DeleteLink y/o UnpackILBM "
  452.                 "desea instalar: sólo los programas que usted seleccione "
  453.                 "serán copiados. Como estas utilidades son para utilizar "
  454.                 "únicamente desde el Shell, el directorio destino por "
  455.                 "defecto es C:, que es el lugar habitual donde encontrar "
  456.                 "este tipo de programas.\n\n"
  457.                 "   Es recomendable que instale estos programas en algún "
  458.                 "lugar accesible por el sistema de forma automática (use "
  459.                 "en tal caso el comando Path del AmigaDOS).\n"
  460.             )
  461.         )
  462.  
  463.         (set #copy "Copiando %s a %s...")
  464.  
  465.         (set #program-update "¿Quiere actualizar los tipos de herramienta del icono?")
  466.  
  467.         (set #update-none "No actualizar")
  468.  
  469.         (set #update-all "Añadir todo")
  470.  
  471.         (set #update-since "Añadir nuevo hasta %s")
  472.  
  473.         (set #program-update-help
  474.             (cat
  475.                 "\n   Hasta esta actualización de la instalación en "
  476.                 "una versión antigua de Visage, el icono no podía "
  477.                 "ser copiado encima: esto era para mantener cualquier "
  478.                 "cambio que hubiese hecho usted en él. Sin embargo, "
  479.                 "nuevos tipos de herramienta pueden ser añadidos, así "
  480.                 "que aquí ha de decidir lo que hacer:\n\n"
  481.                 "   No actualizar: Salta esta parte.\n\n"
  482.                 "   Añadir todos los tipos de herramienta (los tipos de "
  483.                 "herramienta no se modifican; cualquiera que usted "
  484.                 "elimine, podrá ser añadido de nuevo y los nuevos tipos "
  485.                 "de herramienta pueden ser añadidos sin problemas.\n\n"
  486.                 "   Añadir nuevo hasta 39.x (sólo añade los nuevos "
  487.                 "tipos de herramienta hasta esa versión; cualquier tipo "
  488.                 "de herramienta existente no será modificado.\n"
  489.             )
  490.         )
  491.     )
  492. )
  493.  
  494.  
  495. ;**************************************************************************
  496. ;
  497. ; French strings
  498. ;
  499.  
  500. (if (= @language "francais")
  501.     (
  502.         (set #default-lang #french-lang)
  503.  
  504.         (set #bad-kick
  505.             (cat
  506.                 "Vous devez avoir la version 3.0 d'AmigaOS ou plus récente "
  507.                 "pour utiliser Visage."
  508.             )
  509.         )
  510.  
  511.         (set #welcome
  512.             (cat
  513.                 "\n\n\nBienvenue dans l'utilitaire d'installation de Visage.\n\n"
  514.                 "Ce programme vous permet d'installer Visage sur votre Amiga.\n\n\n"
  515.                 "Visage © 1995-97  Magnus Holmgren."
  516.             )
  517.         )
  518.  
  519.         (set #install-parts "Sélectionnez les éléments que vous désirez installer S.V.P. :")
  520.  
  521.         (set #item-visage "Visage")
  522.  
  523.         (set #item-visage-guide "Visage.guide")
  524.  
  525.         (set #item-locale "Traductions")
  526.  
  527.         (set #item-getmodeid "GetModeID")
  528.  
  529.         (set #item-kill "Kill")
  530.  
  531.         (set #item-makelink "MakeLink")
  532.  
  533.         (set #item-deletelink "DeleteLink")
  534.  
  535.         (set #item-unpackilbm "UnpackILBM")
  536.  
  537.         (set #install-parts-help
  538.             (cat
  539.                 "   Ici vous sélectionnez les différentes parties de Visage que "
  540.                 "vous désirez installer. Ensuite, vous sélectionnez les détails "
  541.                 "de l'installation (tel que l'endroit où les différents fichiers "
  542.                 "devront être installés). Vous pouvez choisir d'installer les "
  543.                 "éléments suivants :\n"
  544.                 "    Visage : l'afficheur d'image actuel.\n"
  545.                 "    Visage.guide : le manuel, de format AmigaGuide®. Si vous "
  546.                 "l'installez en utilisant installer, Le texte sera remis en forme "
  547.                 "afin d'être adapté à la taille de la fenêtre courante. Si vous "
  548.                 "faîtes une installation manuelle, Le texte sera fixé à 76 colonnes.\n"
  549.                 "    Traductions : si vous installez une traduction, alors Visage "
  550.                 "fonctionnera dans le(s) language(s) sélectionné(s).\n"
  551.                 "    GetModeID : un programme qui affiche une requête de mode "
  552.                 "d'affichage, et retourne un nombre décimal qui représente le mode "
  553.                 "d'affichage sélectionné.\n"
  554.                 "    Kill : un programme qui peut stopper un autre programme "
  555.                 "(en envoyant un signal « break »). Similaire à Break.\n"
  556.                 "    MakeLink : en remplacement de la commande MakeLink et qui "
  557.                 "supporte les liens symboliques.\n"
  558.                 "    DeleteLink : un clône de la commande Delete qui efface "
  559.                 "également les liens symboliques sans destination.\n"
  560.                 "    UnpackILBM : un programme qui décompacte les données d'une "
  561.                 "images (le BODY chunk) dans un fichier au format IFF ILBM.\n"
  562.                 "    Pour plus d'information sur cette partie, lisez le manuel "
  563.                 "S.V.P..\n"
  564.             )
  565.         )
  566.  
  567.         (set #where-visage
  568.             (cat
  569.                 "Où désirez vous installer Visage ?\n"
  570.                 "AUCUN répertoire ne sera créé !"
  571.             )
  572.         )
  573.  
  574.         (set #where-visage-guide "Où désirez vous installer Visage.guide ?")
  575.  
  576.         (set #copy-guide-icon "L'icône de Visage.guide doit-il être copié ?")
  577.  
  578.         ; (set #convert-guide "Conversion de Visage.guide...")
  579.  
  580.         (set #which-language "Quelle(s) langue(s) faut-il installer ?")
  581.  
  582.         (set #which-language-help
  583.             (cat
  584.                 "    L'Amiga peut utiliser différentes langues. Si vous voulez que"
  585.                 "Visage utilise la même langue que le Workbench de votre Amiga, "
  586.                 "alors un certain nombre de fichiers « catalog » doivent être copiés "
  587.                 "sur votre disque dur pour chaque langue supportée.\n"
  588.                 "    Afin de réduire la place utilisée par les fichiers de langues, "
  589.                 "vous pouvez ne sélectionner que les fichiers en rapport avec la "
  590.                 "langue utilisée.\n"
  591.                 "    Vérifiez simplement les options de langues que vous désirez "
  592.                 "voir disponible sur votre système.\n"
  593.             )
  594.         )
  595.  
  596.         (set #where-language
  597.             (cat
  598.                 "Où voulez-vous installer les fichiers de langues ?\n\n"
  599.                 "Vous pouvez les installer dans le même répertoire que le "
  600.                 "programme lui-même (sélectionner « Programme ») ou bien dans "
  601.                 "« Locale: » (sélectionner « Locale: ») dans le volume principal."
  602.             )
  603.         )
  604.  
  605.         (set #lang-progdir "Programme")
  606.  
  607.         (set #lang-locale  "Locale:")
  608.  
  609.         (set #where-language-help
  610.             (cat
  611.                 "    Si vous installez les fichiers de langues dans le même "
  612.                 "répertoire que Visage (ou plutôt dans un sous répertoire de "
  613.                 "celui-ci), alors vous devrez également déplacer ces fichiers si "
  614.                 "vous déplacez Visage dans un autre répertoire. Si vous installez "
  615.                 "les fichiers de langues dans « Locale: », vous n'aurez pas besoin "
  616.                 "de vous en préoccuper si vous déplacer Visage. Par contre vous "
  617.                 "n'aurez pas tous les fichiers relatifs à Visage dans le même "
  618.                 "répertoire."
  619.             )
  620.         )
  621.  
  622.         (set #builtin-lang "(default)")
  623.  
  624.         (set #where-tools "Où désirez-vous installer les utilitaires supplémentaires ? ")
  625.  
  626.         (set #where-tools-help
  627.             (cat
  628.                 "    Vous spécifiez ici où doivent être installés les programmes "
  629.                 "GetModeID, Kill, MakeLink, DeleteLink et UnpackILBM. Seuls les "
  630.                 "programmes que vous avez sélectionnés seront installés. Comme ces "
  631.                 "programmes ne sont exécutables que sous Shell, l'emplacement par "
  632.                 "défaut est C: , là où se trouve tous les programmes qui ne peuvent "
  633.                 "s'exécuter que sous shell.\n"
  634.                 "    Il est recommandé d'installer ces programmes dans un endroit "
  635.                 "dont le chemin est connu du système.\n"
  636.             )
  637.         )
  638.  
  639.         (set #copy "Copie de %s vers %s...")
  640.  
  641.         (set #program-update
  642.             (cat
  643.                 "Comment voulez-vous mettre à jour les paramètres d'outil "
  644.                 "(« ToolTypes ») de l'icône ?"
  645.             )
  646.         )
  647.  
  648.         (set #update-none "Pas de mise à jour")
  649.  
  650.         (set #update-all "Tout ajouter")
  651.  
  652.         (set #update-since "Ajouter les nouveaux depuis la V %s")
  653.  
  654.         (set #program-update-help
  655.             (cat
  656.                 "    Comme cette installation met à jour une ancienne version de "
  657.                 "Visage, l'icône d'origine ne sera pas écrasé afin de préserver "
  658.                 "les modifications que vous pourriez avoir apportées. Sinon, de "
  659.                 "nouveaux paramètres d'outil pourrait être ajoutés. Ici vous "
  660.                 "pouvez décider si vous voulez :\n"
  661.                 "    Pas de mise à jour : passer cette partie.\n"
  662.                 "    Ajouter tous les paramètres d'outil : ceux existants ne "
  663.                 "seront pas modifiés. Tous les paramètres d'outil que vous "
  664.                 "pourriez avoir retirés seront rajoutés. "
  665.                 "Les nouveaux paramètres d'outil seront également rajoutés.\n "
  666.                 "    Ajouter les nouveaux depuis la version 39.x : ajouter "
  667.                 "seulement les nouveaux paramètres d'outil depuis cette version. "
  668.                 "Aucun paramètre d'outil existant ne sera modifié.\n"
  669.             )
  670.         )
  671.     )
  672. )
  673.  
  674.  
  675. ;**************************************************************************
  676. ;
  677. ; Italian strings
  678. ;
  679.  
  680. (if (= @language "italiano")
  681.     (
  682.         (set #default-lang #italian-lang)
  683.     )
  684. )
  685.  
  686.  
  687. ;**************************************************************************
  688. ;
  689. ; Dutch strings
  690. ;
  691.  
  692. (if (= @language "nederlands")
  693.     (
  694.         (set #default-lang #dutch-lang)
  695.     )
  696. )
  697.  
  698.  
  699. ;**************************************************************************
  700. ;
  701. ; Norwegian strings
  702. ;
  703.  
  704. (if (= @language "norsk")
  705.     (
  706.         (set #default-lang #norwegian-lang)
  707.     )
  708. )
  709.  
  710.  
  711. ;**************************************************************************
  712. ;
  713. ; Russian strings
  714. ;
  715.  
  716. (if (= @language "russian")
  717.     (
  718.         (set default-lang #russian-lang)
  719.  
  720.         (set #welcome
  721.             (cat
  722.                 "\n\n\nÃíàïí îíåaêíáañû á çìðñaêþñíï îïíâïaëëú Visage.\n\n"
  723.                 "Üña îïíâïaëëa îíæáíêçñ Áaë òðñaìíáçñû Visage ìa Áaøò Aëçâò.\n\n\n"
  724.                 "Visage © 1995-97  Magnus Holmgren."
  725.             )
  726.         )
  727.  
  728.         (set #install-parts
  729.             "Îíåaêòèðña, áúàäïçñä éíëîíìäìñú, éíñíïúä Áú åäêaäñä çìðñaêçïíáañû"
  730.         )
  731.  
  732.         (set #item-visage "Visage")
  733.  
  734.         (set #item-visage-guide "Visage.guide")
  735.  
  736.         (set #item-locale "Translations")
  737.  
  738.         (set #item-getmodeid "GetModeID")
  739.  
  740.         (set #item-kill "Kill")
  741.  
  742.         (set #item-makelink "MakeLink")
  743.  
  744.         (set #item-unpackilbm "UnpackILBM")
  745.  
  746.         (set #install-parts-help
  747.             (cat
  748.                 "    Æãäðû Áú ëíåäñä áúàïañû ïaæêçöìúä éíëîíìäìñú Visage ãêþ áíæëíåìíè çô "
  749.                 "çìðñaêþõçç. Îíðêä üñíâí Áú ðëíåäñä òñíöìçñû ïaæêçöìúä ãäñaêç (ìaîïçëäï, "
  750.                 "éòãa éíìéïäñìí àòãòñ ðéíîçïíáaìú ïaæêçöìúä óaèêú). Áú ëíåäñä áúàïañû "
  751.                 "ðêäãòýùçä óaèêú:\n"
  752.                 "    Visage: ðíàðñáäììí îïíâïaëëa îïíðëíñïa éaïñçìíé.\n"
  753.                 "    Visage.guide: ãíéòëäìñaõçþ á âçã-óíïëañä. Äðêç Áú æaôíñçñä ä½ òðñaìíáçñû "
  754.                 "ð çðîíêûæíáaìçäë çìðñaêþñíïa, ñí ñäéðñ àòãäñ aáñíëañçöäðéç óíïëañçïíáañûðþ "
  755.                 "îíã ñäéòùòý øçïçìò íéìa. Á ðêòöaä "ïòöìíè" çìðñaêþõçç  øçïçìa àòãäñ 76 éíêíìíé.\n"
  756.                 "    Translations: îïç çìðñaêþõçç îäïäaíãíá Visage àòãäñ ïaàíñañû "
  757.                 "ìa áúàïaììíë Áaëç þæúéä (þæúéaô).\n"
  758.                 "    GetModeID: îïíâïaëëa, îíéaæúáaýùaþ ïçéáäðñäï üéïaììúô ïäåçëíá ç îäöañaýùaþ "
  759.                 "ãäðþñçöìíä öçðêí, ðííñáäñðñáòýùää áúàïaììíëò ïäåçëò.\n"
  760.                 "    Kill: îïíâïaëëa, éíñíïaþ ëíåäñ îïäïáañû çðîíêìäìçä ãïòâçô îïíâïaëë, îíðêaá "
  761.                 "çë ðçâìaê íðñaìíáa (îïçëäïìí ñí åä, öñí ç  Break.)\n"
  762.                 "    MakeLink: æaëäìa ðñaìãaïñìíè éíëaìãú, îíããäïåçáaýùaþ \"ðêaàúä\" "
  763.                 "ðáþæç.\n"
  764.                 "    DeleteLink: A simple Delete-clone that also deletes soft links "
  765.                 "without a target.\n"
  766.                 "    UnpackILBM: ïaðîaéíáúáaäñ \"ñäêí\" IFF ILBM óaèêíá "
  767.                 "(BODY chunk).\n"
  768.                 "    Àíêää îíãïíàìòý çìóíïëaõçý ðë. á ãíéòëäìñaõçç é îïíâïaëëä.\n"
  769.             )
  770.         )
  771.  
  772.         (set #where-visage "Òéaåçñä ëaïøïòñ ãêþ çìðñaêþõçç Visage")
  773.  
  774.         (set #where-visage-guide "Éòãa éíîçïíáañû óaèê ãíéòëäìñaõçç Visage.guide?")
  775.  
  776.         (set #copy-guide-icon "Ìaãí êç éíîçïíáañû çéíìéò ãêþ Visage.guide?")
  777.  
  778.         ; (set #convert-guide "Îïäíàïaæòý Visage.guide...")
  779.  
  780.         (set #which-language "Éaéçä þæúéç ìaãí çìðñaêçïíáañû?")
  781.  
  782.         (set #which-language-help
  783.             (cat
  784.                 "    Aëçâa ëíåäñ ïaàíñañû ìa ëìíâçô þæúéaô. Äðêç Áú ôíñçñä, öñíàú "
  785.                 "Visage çðîíêûæíáaê ðñaìãaïñìúè þæúé Áaøäè ðçðñäëú, ñí ìäíàôíãçëí "
  786.                 "ðéíîçïíáañû ðííñáäñðñáòýùçä éañaêíâç ìa Áaø å½ðñéçè ãçðé - îííãìíëò "
  787.                 "ãêþ éaåãíâí çæ çðîíêûæòäëúô þæúéíá.\n"
  788.                 "    Öñíàú òëäìûøçñû íàÿ½ë, æaìçëaäëúè þæúéíáúëç éañaêíâaëç, "
  789.                 "áú ëíåäñä ìä áúàçïañû éañaêíâç ãêþ ñäô þæúéíá, éíñíïúä Áaë á îïçìõçîä "
  790.                 "ìä îíñïäàòýñðþ.\n"
  791.                 "    Îïíðñí îíðñaáûñä âaêíöéç ìaîïíñçá ñïäàòäëúô Áaë þæúéíá ç áð½.\n "
  792.             )
  793.         )
  794.  
  795.         (set #where-tools "Éòãa çìðñaêçïíáañû ãíîíêìçñäêûìúä îïíâïaëëú?")
  796.  
  797.         (set #where-tools-help
  798.             (cat
  799.                 "    Òéaåçñä ëaïøïòñ éíîçïíáaìçþ îïíâïaëë GetModeID, Kill, MakeLink, "
  800.                 "DeleteLink ç UnpackILBM. Àòãòñ ðéíîçïíáaìú ñíêûéí áúàïaììúä Áaëç "
  801.                 "îïíâïaëëú. Îíðéíêûéò æaîòðéañû áðä üñç îïíâïaëëú áíæëíåìí ñíêûéí çæ "
  802.                 "Shell, ñí îïäãîíêaâaäñðþ ðéíîçïíáañû çô á C:, âãä, éaé îïaáçêí, "
  803.                 "ìaôíãþñðþ îíãíàìúä îïíâïaëëú.\n"
  804.                 "    Á êýàíë ðêòöaä åäêañäêûìí, öñíàú üñç îïíâïaëëú ìaôíãçêçðû îí íãìíëò "
  805.                 "çæ ãíðñòîìúô ëaïøïòñíá Áaøäè ðçðñäëú.\n"
  806.             )
  807.         )
  808.  
  809.         (set #copy "Éíîçïòý %s á %s...")
  810.  
  811.         (set #program-update "Éaé Áú ôíñçñä íàìíáçñû çìðñïòëäìñaïçè çéíìéç?")
  812.  
  813.         (set #update-none "Ìä ôíöò")
  814.  
  815.         (set #update-all "Ãíàaáçñû áð½")
  816.  
  817.         (set #update-since "Ãíàaáçñû, ìaöçìaþ ð %s")
  818.  
  819.         (set #program-update-help
  820.             (cat
  821.                 "    Îíðéíêûéò ëú ðäèöað íàìíáêþäë àíêää ðñaïòý áäïðçý Visage, ñí "
  822.                 "ðñaïaþ çéíìéa ìä îäïäîçðúáaäñðþ æaìíáí. Üñí ðãäêaìí ãêþ ñíâí, öñíàú "
  823.                 "ðíôïaìçñû ñä çæëäìäìçþ, éíñíïúä Áú ëíâêç îïíçæáäðñç ïaìää. Íãìaéí, "
  824.                 "ìçöñí ìä ëäøaäñ ìaë ãíàaáçñû ìíáúä îaïaëäñïú. Æãäðû áú ëíåäñä "
  825.                 "ïäøçñû, ôíñçñä êç Áú:\n"
  826.                 "    Ìçöäâí ìä íàìíáêþñû.\n"
  827.                 "    Ãíàaáçñû ìíáúä îaïaëäñïú é òåä ðòùäðñáòýùçë. "
  828.                 "Êýàúä áíæëíåìí òãaê½ììúä Áaëç ïaìää îaïaëäñïú àòãòñ ðìíáa ãíàaáêäìú, "
  829.                 "ïaáìí éaé ç ìíáúä îaïaëäñïú.\n "
  830.                 "    Ãíàaáçñû îíðêä 39.x: ãíàaáçñû ìíáúä îaïaëäñïú ñíêûéí îíðêä üñíè áäïðçç ÃÍÐ. "
  831.                 "Ðòùäðñáòýùçä îaïaëäñïú íðñaìòñðþ ìäçæëäììúëç.\n"
  832.             )
  833.         )
  834.     )
  835. )
  836.  
  837.  
  838. ;**************************************************************************
  839. ;
  840. ; Serbian strings
  841. ;
  842.  
  843. (if (= @language "srpski")
  844.     (
  845.         (set #default-lang #serbian-lang)
  846.  
  847.         (set #bad-kick
  848.             "Morate imati AmigaOS verzije 3.0 ili noviji da bi koristili Visage."
  849.         )
  850.  
  851.         (set #welcome
  852.             (cat
  853.                 "\n\n\nDobro doçli u instalaciju Visage-a.\n\n"
  854.                 "Ovaj program vam omogu†ava da instalirate Visage na vaçoj Amigi.\n\n\n"
  855.                 "Visage © 1995-97  Magnus Holmgren."
  856.             )
  857.         )
  858.  
  859.         (set #install-parts "Odaberite delove koje §elite da instalirate")
  860.  
  861.         (set #item-visage "Visage")
  862.  
  863.         (set #item-visage-guide "Visage.guide")
  864.  
  865.         (set #item-locale "Prevodi")
  866.  
  867.         (set #item-getmodeid "GetModeID")
  868.  
  869.         (set #item-kill "Kill")
  870.  
  871.         (set #item-makelink "MakeLink")
  872.  
  873.         (set #item-deletelink "DeleteLink")
  874.  
  875.         (set #item-unpackilbm "UnpackILBM")
  876.  
  877.         (set #install-parts-help
  878.             (cat
  879.                 "    Ovde birate razne delove Visage paketa koje §elite da instalirate "
  880.                 "Posle toga odreÐujete detalje instalacije kao çte je gde †e biti odreÐeni"
  881.                 "fajlovi biti instalirani). Za instalaciju mo§ete odabrati slede†e "
  882.                 "elemente:\n"
  883.                 "    Visage: Sam program za gledanje slika.\n"
  884.                 "    Visage.guide: Uputstvo, u AmigaGuide® formatu (na engleskom). Ako ga "
  885.                 "ga instalirate uz pomo† ovog programa, tekst †e biti podeçen da ispunjava "
  886.                 "trenutnu veliŸinu \"prozora\". Ako sami instalirate, tekst †e ostati "
  887.                 "çirok 76 kolona.\n"
  888.                 "    Prevodi: Ako instalirate prevod, onda †e Visage raditi na jeziku koji"
  889.                 "koji ste odabrali.\n"
  890.                 "    JPEG codec: Tower JPEG Codec klasa, koja treba Visage-u da bi mogao "
  891.                 "da prika§e JPEG slike (bez koriç†enja datatajpova).\n"
  892.                 "    GetModeID: Program koji uz pomo† upitnika za skrin mod, prikazuje "
  893.                 "decimalni broj koji predstavlja odabrani skrin mod.\n"
  894.                 "    Kill: Program koji mo§e da zaustavi druge programe (çalju†i \"break\" "
  895.                 "signale). SliŸan sistemskom Break-u.\n"
  896.                 "    MakeLink: Zamena za MakeLink komandu koja podr§ava soft linkove.\n"
  897.                 "    DeleteLink: Prost Delete klon koji briçe i soft linkove bez targeta.\n"
  898.                 "    UnpackILBM: Program koji raspakuje podatke u IFF ILBM slici (tzv."
  899.                 "BODY Ÿank).\n"
  900.                 "    Za viçe informacija o elementima paketa proŸitajte uputstvo.\n"
  901.             )
  902.         )
  903.  
  904.         (set #where-visage "Gde §elite da instalirate Visage?\nNEE biti napravljen direktorijum!")
  905.  
  906.         (set #where-visage-guide "Gde §elite da instalirate Visage.guide?")
  907.  
  908.         (set #copy-guide-icon "Da li §elite da kopiram i ikonu za Visage.guide?")
  909.  
  910.         ; (set #convert-guide "Konvertujem Visage.guide...")
  911.  
  912.         (set #which-language "Koje jezike §elite da instalirate?")
  913.  
  914.         (set #which-language-help
  915.             (cat
  916.                 "    Amiga mo§e da radi na razliŸitim jezicima. Ako §elite da "
  917.                 "Visage koristi isti jezik kao vaç VorkbenŸ, onda mora biti "
  918.                 "kopirano nekoliko katalog fajlova na hard disk za svaki "
  919.                 "podr§ani jezik.\n"
  920.                 "    Da bi se smanjilo mesto potrebno kataloge, mo§ete odabrati "
  921.                 "da se koriraju samo fajlovi odreÐenog jezika.\n"
  922.                 "    Samo obele§ite koje jezike §elite da imate u vaçem sistemu.\n"
  923.             )
  924.         )
  925.  
  926.         (set #where-language
  927.             (cat
  928.                 "Gde §elite da instalirate katalog fajlove?\n\n"
  929.                 "Mo§ete ih instalirati ili u isti direktorijum "
  930.                 "gde je sam program (odaberite\"Program\") ili "
  931.                 "u 'globalni' direktorijum \"Locale:\" (odaberite "
  932.                 "\"Locale:\")."
  933.             )
  934.         )
  935.  
  936.         (set #lang-progdir "Program")
  937.  
  938.         (set #lang-locale  "Locale:")
  939.  
  940.         (set #where-language-help
  941.             (cat
  942.                 "    Ako instalirate katalog fajlove u isti direktorijum kao Visage "
  943.                 "(tj, u poddirektorijume u to direktorijumu), onda morate premeçtati "
  944.                 "i te fajlove, ako premeçtate Visage u neki drugi direktorijum. Ako"
  945.                 "instalirate katalog fajlove u \"Locale:\" ne morate da brinete o "
  946.                 "tome gde premeçtate Visage. Sa druge strane sve fajlovi vezani za"
  947.                 "Visage ne†e biti u istom direktorijumu."
  948.             )
  949.         )
  950.  
  951.         (set #builtin-lang "(default)")
  952.  
  953.         (set #where-tools "Gde §elite da instalirate dodatne programe?")
  954.  
  955.         (set #where-tools-help
  956.             (cat
  957.                 "    Ovde birate gde †e se intalirati GetModeID, Kill, MakeLink, "
  958.                 "DeleteLink and UnpackILBM. Samo programi koje ste odabrali bi†e "
  959.                 "instalirani. Poçto su ovo iskljuŸivo çel programi, normalna "
  960.                 "lokacija je C: direktorijum, gde se nalaze iskljuŸivo çel "
  961.                 "programi.\n"
  962.                 "    PreporuŸeno je da programi budu instalirani negde gde ih "
  963.                 "mo§e na†i AmigaDOS (u tzv. path-u).\n"
  964.             )
  965.         )
  966.  
  967.         (set #copy "Kopiram %s u %s...")
  968.  
  969.         (set #program-update "Kako §elite da osve§ite tul tajpove ikone?")
  970.  
  971.         (set #update-none "Bez osve§avanja")
  972.  
  973.         (set #update-all "Dodaj sve")
  974.  
  975.         (set #update-since "Dodaj nove od %s")
  976.  
  977.         (set #program-update-help
  978.             (cat
  979.                 "    Poçto ovaj skript osve§ava prethodne verzije Visage-a, nova "
  980.                 "ikona ne†e biti kopirana preko stare. Tako †e biti saŸuvane "
  981.                 "promene koje ste mo§da napravili. MeÐutim mo§da su dodati novi "
  982.                 "tul tajpovi. Ovde mo§ete odabrati naŸin osve§avanja:\n"
  983.                 "    Bez osve§avanja: PreskoŸi ovaj deo.\n"
  984.                 "    Dodaj sve: postoje†i tultajpovi ne†e biti promenjeni. Ako "
  985.                 "ste obrisali neke tul tajpove oni †e ponovo biti dodani kao i "
  986.                 "novi.\n "
  987.                 "    Dodaj nove od 39.x: Dodaj nove tul tajpove od odabrane "
  988.                 "verzije. "
  989.                 "Svi postoje†i tul tajpovi ne†e biti promenjeni.\n"
  990.             )
  991.         )
  992.     )
  993. )
  994.  
  995.  
  996. ;**************************************************************************
  997. ;
  998. ; Finnish strings
  999. ;
  1000.  
  1001. (if (= @language "suomi")
  1002.     (
  1003.         (set #default-lang #finnish-lang)
  1004.  
  1005.         (set #bad-kick
  1006.             "Tarvitset AmigaOS-version 3.0 tai uudemman käyttääksesi Visagea."
  1007.         )
  1008.  
  1009.         (set #welcome
  1010.             (cat
  1011.                 "\n\n\nTervetuloa Visagen asennusohjelmaan.\n\n"
  1012.                 "Tämä ohjelma asentaa Visagen Amigaasi.\n\n\n"
  1013.                 "Visage © 1995-97  Magnus Holmgren."
  1014.             )
  1015.         )
  1016.  
  1017.         (set #install-parts "Valitse osat, jotka haluat asentaa:")
  1018.  
  1019.         (set #item-visage "Visage")
  1020.  
  1021.         (set #item-visage-guide "Visage.guide")
  1022.  
  1023.         (set #item-locale "Käännökset")
  1024.  
  1025.         (set #item-codec "JPEG codec")
  1026.  
  1027.         (set #install-parts-help
  1028.             (cat
  1029.                 "    Tässä valitset ne osat Visagesta, jotka haluat asentaa. Sen jälkeen "
  1030.                 "määrität asennuksen yksityiskohdat (kuten mihin eri tiedostot asennetaan). "
  1031.                 "Voit valita asennettavaksi seuraavat osat:\n"
  1032.                 "    Visage: Varsinainen kuvannäyttöohjelma.\n"
  1033.                 "    Visage.guide: Ohjetiedosto AmigaGuide® -muodossa. Jos asennat tämän "
  1034.                 "asennusohjelmalla, teksti sovitetaan mahtumaan nykyisen ikkunan leveyteen. "
  1035.                 "Jos asennat ohjeet itse, teksti on sidottu 76 merkin leveyteen.\n"
  1036.                 "    Käännökset: Jos asennat käännökset, Visage voi toimia käyttäen "
  1037.                 "valitsemiasi kieliä.\n"
  1038.                 "    JPEG codec: \"The Tower JPEG Codec Class\". Visage tarvitsee tämän "
  1039.                 "JPEG-kuvien näyttämiseen (käyttämättä tietotyyppejä).\n"
  1040.                 "    GetModeID: Ohjelma, joka avaa näyttötilavalitsimen ja tulostaa "
  1041.                 "valitun näyttötilan tunnuksen desimaalilukuna.\n"
  1042.                 "    Kill: Ohjelma, joka voi pysäyttää toisia ohjelmia (lähettämällä "
  1043.                 "\"keskeytys\"-signaaleja). Toimii kuten Break-komento.\n"
  1044.                 "    MakeLink: Korvaava komento MakeLinkille, joka tukee myös "
  1045.                 "symbolisia (soft) linkkejä.\n"
  1046.                 "    DeleteLink: Yksinkertainen Delete-klooni, joka poistaa myös ilman "
  1047.                 "kohdetiedostoa olevia symbolisia (soft) linkkejä.\n"
  1048.                 "    UnpackILBM: Ohjelma, joka purkaa kuvatiedon IFF ILBM -kuvasta "
  1049.                 "(BODY-hunkin).\n"
  1050.                 "    Lisätietoja näistä osista saat lukemalla ohjetiedoston.\n"
  1051.             )
  1052.         )
  1053.  
  1054.         (set #where-visage "Mihin haluat asentaa Visagen?\nUutta hakemistoa EI luoda!")
  1055.  
  1056.         (set #where-visage-guide "Mihin haluat asentaa ohjetiedoston Visage.guide?")
  1057.  
  1058.         (set #copy-guide-icon "Kopioidaanko ikoni tiedostolle Visage.guide?")
  1059.  
  1060.         ; (set #convert-guide "Muokkaan tiedostoa Visage.guide...")
  1061.  
  1062.         (set #which-language "Mitkä kielitiedostot asennetaan?")
  1063.  
  1064.         (set #which-language-help
  1065.             (cat
  1066.                 "    Amigaa voidaan käyttää monilla kielillä. Jos haluat Visagen "
  1067.                 "käyttävän samaa kieltä kuin Workbench, muutama sanasto joudutaan "
  1068.                 "kopioimaan kiintolevyllesi jokaista tuettua kieltä kohden.\n"
  1069.                 "    Vähentääksesi kielitiedostojen vaatimaa levytilaa, voit valita "
  1070.                 "asennettavaksi vain tiettyjen kielten tiedostot.\n"
  1071.                 "    Merkitse laatikot niiden kielten kohdalla, joiden haluat "
  1072.                 "olevan käytettävissä järjestelmässäsi.\n"
  1073.             )
  1074.         )
  1075.  
  1076.         (set #where-language
  1077.             (cat
  1078.                 "Mihin haluat asentaa kielitiedostot?\n\n"
  1079.                 "Voit asentaa ne joko samaan hakemistoon ohjelman kanssa "
  1080.                 "(valitse \"Ohjelma\") tai 'yleiseen' taltioon "
  1081.                 "\"Locale:\" (valitse \"Locale:\")."
  1082.             )
  1083.         )
  1084.  
  1085.         (set #lang-progdir "Ohjelma")
  1086.  
  1087.         (set #lang-locale  "Locale:")
  1088.  
  1089.         (set #where-language-help
  1090.             (cat
  1091.                 "    Jos asennat kielitiedostot samaan hakemistoon kuin Visagen "
  1092.                 "(tai paremminkin tuon hakemiston alihakemistoon), joudut "
  1093.                 "siirtämään myös nämä tiedostot, mikäli siirrät Visagen johonkin "
  1094.                 "toiseen hakemistoon. Jos asennat kielitiedostot taltioon "
  1095.                 "\"Locale:\", sinun ei tarvitse välittää niistä siirtäessäsi "
  1096.                 "Visagen. Toisaalta sinulla ei silloin ole kaikkia Visageen "
  1097.                 "liittyviä tiedostoja kätevästi samassa hakemistossa."
  1098.             )
  1099.         )
  1100.  
  1101.         (set #builtin-lang "(oletus)")
  1102.  
  1103.         (set #where-tools "Mihin haluat asentaa apuohjelmat?")
  1104.  
  1105.         (set #where-tools-help
  1106.             (cat
  1107.                 "    Tässä määrität, mihin ohjelmat GetModeID, Kill, MakeLink, "
  1108.                 "DeleteLink ja UnpackILBM asennetaan. Vain valitsemasi ohjelmat "
  1109.                 "asennetaan. Koska nämä ohjelmat voi käynnistää vain komentotulkista, "
  1110.                 "oletuspaikka on taltio C:, jossa järjestelmän komentotulkista "
  1111.                 "käynnistettävät ohjelmat ovat.\n"
  1112.                 "    On suositeltavaa, että asennat nämä ohjelmat johonkin komentojen "
  1113.                 "hakupolun varrella olevaan hakemistoon.\n"
  1114.             )
  1115.         )
  1116.  
  1117.         (set #copy "Kopioidaan %s nimelle %s...")
  1118.  
  1119.         (set #program-update "Miten haluat päivittää ikonin määreet?")
  1120.  
  1121.         (set #update-none "Älä päivitä")
  1122.  
  1123.         (set #update-all "Lisää kaikki")
  1124.  
  1125.         (set #update-since "Lisää uudet version %s jälkeen")
  1126.  
  1127.         (set #program-update-help
  1128.             (cat
  1129.                 "    Koska tämä asennus päivittää Visagen vanhemman version, "
  1130.                 "ikonia ei kopioida uudelleen. Tämä säilyttää siihen mahdollisesti "
  1131.                 "tekemäsi muutokset. Uusia määreitä on kuitenkin ehkä lisätty. "
  1132.                 "Tässä voit päättää, mitä haluat tehdä:\n"
  1133.                 "    Älä päivitä: Ohita tämä osa asennuksesta.\n"
  1134.                 "    Lisää kaikki määreet: Olemassa olevia määreitä ei muuteta. "
  1135.                 "Kaikki poistamasi määreet lisätään uudelleen. Myös täysin uudet "
  1136.                 "määreet lisätään.\n"
  1137.                 "    Lisää uudet 39.x:n jälkeen: Lisää vain kyseisen version "
  1138.                 "jälkeen lisätyt määreet. Olemassa olevia määreitä ei muuteta.\n"
  1139.             )
  1140.         )
  1141.     )
  1142. )
  1143.  
  1144.  
  1145. ;**************************************************************************
  1146. ;
  1147. ; Swedish strings
  1148. ;
  1149.  
  1150. (if (= @language "svenska")
  1151.     (
  1152.         (set #default-lang #swedish-lang)
  1153.  
  1154.         (set #bad-kick
  1155.             "Du måste ha AmigaOS version 3.0 eller högre för att kunna använda Visage."
  1156.         )
  1157.  
  1158.         (set #welcome
  1159.             (cat
  1160.                 "\n\n\nVälkommen till Installeraren.\n\n"
  1161.                 "Det här programmet låter dig installera Visage i din Amiga.\n\n\n"
  1162.                 "Visage © 1995-97 av Magnus Holmgren."
  1163.             )
  1164.         )
  1165.  
  1166.         (set #install-parts "Välj de delar du vill installera")
  1167.  
  1168.         (set #item-visage "Visage")
  1169.  
  1170.         (set #item-visage-guide "Visage.guide")
  1171.  
  1172.         (set #item-locale "Översättningar")
  1173.  
  1174.         (set #install-parts-help
  1175.             (cat
  1176.                 "  Här väljer du de olika delar av Visage som du vill installera. "
  1177.                 "Efter det anger du detaljer om installationen (såsom var de olika "
  1178.                 "filerna ska installeras). Du kan välja mellan följande delar:\n"
  1179.                 "  Visage: Själva bildvisaren.\n"
  1180.                 "  Visage.guide: Manualen, i AmigaGuide®-format. Om du installerar "
  1181.                 "den med Installeraren, så kommer texten att formateras om efter "
  1182.                 "fönstrets aktuella storlek. Om du installerar den manuellt, så "
  1183.                 "är texten fixerad vid 76 kolumner.\n"
  1184.                 "  Översättningar: Om du installerar en översättning, så kan "
  1185.                 "Visage använda det språket.\n"
  1186.                 "  GetModeID: Ett program som visar en skärmlägesväljare, och "
  1187.                 "sedan skriver ut ett decimalt tal som motsvarar det valda "
  1188.                 "skärmläget.\n"
  1189.                 "  Kill: Ett program som kan stoppa andra program (genom att "
  1190.                 "skicka \"break\"-signaler). Liknar Break.\n"
  1191.                 "  MakeLink: En erättning för MakeLink, som stödjer så kallade "
  1192.                 "mjuka länkar.\n"
  1193.                 "  DeleteLink: En enkel Delete-variant, som också kan radera "
  1194.                 "mjuka länkar där målfilen saknas.\n"
  1195.                 "  UnpackILBM: Ett program som packar upp bilddatan i en IFF ILBM "
  1196.                 "bild (BODY \"chunken\").\n"
  1197.                 "    För mer information om de här sakerna, se manualen.\n"
  1198.             )
  1199.         )
  1200.  
  1201.         (set #where-visage "Var vill du installera Visage?\nEn låda kommer INTE att skapas!")
  1202.  
  1203.         (set #where-visage-guide "Var vill du installera Visage.guide?")
  1204.  
  1205.         (set #copy-guide-icon "Ska jag kopiera ikonen för Visage.guide?")
  1206.  
  1207.         ; (set #convert-guide "Konverterar Visage.guide...")
  1208.  
  1209.         (set #which-language "Vilka språk ska installeras?")
  1210.  
  1211.         (set #which-language-help
  1212.             (cat
  1213.                 "  Amigan kan arbeta med flera olika språk. Om du vill att "
  1214.                 "Visage ska använda samma språk som Amiga Workbench så "
  1215.                 "måste en så kallad katalogfil kopieras till din systemdisk "
  1216.                 "för varje språk.\n"
  1217.                 "  För att minimera diskutrymmet för språkfiler kan du välja "
  1218.                 "att bara installera filerna för vissa språk.\n"
  1219.                 "  Markera bara rutorna för de språk du önskar installera i "
  1220.                 "din dator.\n"
  1221.             )
  1222.         )
  1223.  
  1224.         (set #where-language
  1225.             (cat
  1226.                 "Var vill du installera katalogfilerna?\n\n"
  1227.                 "Du kan antingen installera dem i samma låda som programmet "
  1228.                 "(välj \"Program\"), eller i den \"globala\" enheten "
  1229.                 "\"Locale:\" (välj \"Locale:\")."
  1230.             )
  1231.         )
  1232.  
  1233.         (set #lang-progdir "Program")
  1234.  
  1235.         (set #lang-locale  "Locale:")
  1236.  
  1237.         (set #where-language-help
  1238.             (cat
  1239.                 "  Om du installerar katalogfilerna i samma låda som "
  1240.                 "Visage (eller snarare i underlådor i den lådan), så "
  1241.                 "kommer du att behöva flytta de här filerna, om du "
  1242.                 "flyttar Visage till någon annan låda. Om du installerar "
  1243.                 "katalogfilerna i \"Locale:\" så behöver du inte bekymra "
  1244.                 "dig om dem ifall du flyttar Visage. Å andra sidan, alla "
  1245.                 "Visage-relaterade filer kommer inte att finnas i samma "
  1246.                 "låda."
  1247.             )
  1248.         )
  1249.  
  1250.         (set #builtin-lang "(inbyggt)")
  1251.  
  1252.         (set #where-tools "Var vill du installera de extra programmen?")
  1253.  
  1254.         (set #where-tools-help
  1255.             (cat
  1256.                 "  Här anger du var programmen GetModeID, Kill, MakeLink "
  1257.                 "DeleteLink och UnpackILBM ska installeras någonstans. Bara "
  1258.                 "de program som du valde tidigare kommer att kopieras. "
  1259.                 "Eftersom de här programmen bara kan användas från ett "
  1260.                 "skal, så är den förvalda destinationen C:, eftersom "
  1261.                 "systemets \"skalprogram\" finns där. Det rekommenderas "
  1262.                 "att du installerar dessa program någonstans i sökvägen "
  1263.                 "för kommandon.\n"
  1264.             )
  1265.         )
  1266.  
  1267.         (set #copy "Kopierar %s till %s...")
  1268.  
  1269.         (set #program-update "Hur vill du uppdatera verktygstyperna i ikonen?")
  1270.  
  1271.         (set #update-none "Uppdatera inte")
  1272.  
  1273.         (set #update-all "Lägg till alla")
  1274.  
  1275.         (set #update-since "Lägg till nya sedan %s")
  1276.  
  1277.         (set #program-update-help
  1278.             (cat
  1279.                 "  Eftersom den här installationen uppdaterar en gammal version "
  1280.                 "av Visage, så kommer inte ikonen att kopieras. Detta för att "
  1281.                 "bibehålla eventuella ändringar som du kan ha gjort. Men nya "
  1282.                 "verktygstyper kan ha tillkommit. Här kan du avgöra vad du "
  1283.                 "vill göra:\n"
  1284.                 "  Uppdatera inte: Hoppa över detta.\n"
  1285.                 "  Lägg till alla: Lägg till alla verktygstyper. Existerande "
  1286.                 "verktygstyper kommer inte att ändras.\n"
  1287.                 "  Lägg till nya sedan 39.x: Lägg bara till de nya "
  1288.                 "verktytstyperna. Eventuella existerande verktygstyper "
  1289.                 "kommer inte att ändras.\n"
  1290.             )
  1291.         )
  1292.     )
  1293. )
  1294.  
  1295. ;**************************************************************************
  1296. ;
  1297. ; The actual installaion script
  1298. ;
  1299.  
  1300. ; Check Kickstart version. Exit if not at least 3.0
  1301. (if (< (/ (getversion) 65536) 39)
  1302.         (abort #bad-kick)
  1303. )
  1304.  
  1305. ; Since files probably are scatter installed, don't mention any specific location.
  1306. (set @default-dest "")
  1307.  
  1308. ; Version of old program. This means no old program.
  1309. (set #visagever 0)
  1310. (set #visagerev 0)
  1311.  
  1312. ; Request proportinal fonts, if supported. This string is
  1313. ; prepended to the first askoptions choice.
  1314. (if (>= @installer-version 2752518)     ; 42 * 65536 + 6
  1315.     ; At least version 42.6
  1316.     (set #propfont "p")
  1317.     ; Pre V42
  1318.     (set #propfont "")
  1319. )
  1320.  
  1321. ; Greetings Mr. Falken...
  1322. (message #welcome)
  1323.  
  1324. (welcome)
  1325.  
  1326. ; Ask the user what to install
  1327. (set #install-files
  1328.     (askoptions
  1329.         (prompt    #install-parts)
  1330.         (help    #install-parts-help "\n" @askoptions-help)
  1331.         (choices
  1332.             (cat #propfont #item-visage)
  1333.             #item-visage-guide
  1334.             #item-locale
  1335.             #item-getmodeid
  1336.             #item-kill
  1337.             #item-makelink
  1338.             #item-deletelink
  1339.             #item-unpackilbm
  1340.         )
  1341.         (default (if (= @user-level 2) 255 7))
  1342.     )
  1343. )
  1344.  
  1345. ; Ask the user for the location of all parts
  1346.  
  1347. ; Location for Visage
  1348. (if (BITAND #install-files 1)
  1349.     (
  1350.         (set #visage-dest
  1351.             (askdir
  1352.                 (prompt  #where-visage)
  1353.                 (help    @askdir-help)
  1354.                 (default "Sys:Utilities")
  1355.             )
  1356.         )
  1357.  
  1358.         ; Get the version of previously installed Visage
  1359.         (if (= (exists (tackon #visage-dest "Visage")) 1)
  1360.             (
  1361.                 (set #vernum (getversion (tackon #visage-dest "Visage")))
  1362.                 (set #visagever (/ #vernum 65536))
  1363.                 (set #visagerev (- #vernum (* #visagever 65536)))
  1364.  
  1365.                 ; Just in case the above failed...
  1366.                 (if (<= #visagever 38)
  1367.                     (
  1368.                         (set #visagever 39)
  1369.                         (set #visagerev 0)
  1370.                     )
  1371.                 )
  1372.             )
  1373.         )
  1374.  
  1375.         (set #update-action 0)
  1376.  
  1377.         (if (AND #visagever (= (exists (tackon #visage-dest "Visage.info")) 1))
  1378.             (
  1379.                 (set #defaction 0)
  1380.  
  1381.                 (if (= #visagerev 0)
  1382.                     (set #defaction 2)
  1383.                 )
  1384.  
  1385.                 (if (= #visagerev 1)
  1386.                     (set #defaction 3)
  1387.                 )
  1388.  
  1389.                 (if (= #visagerev 2)
  1390.                     (set #defaction 4)
  1391.                 )
  1392.  
  1393.                 (if (= #visagerev 5)
  1394.                     (set #defaction 5)
  1395.                 )
  1396.  
  1397.                 (if (= #visagerev 10)
  1398.                     (set #defaction 6)
  1399.                 )
  1400.  
  1401.                 (set #update-action
  1402.                     (askchoice
  1403.                         (prompt        #program-update)
  1404.                         (choices    (cat #propfont #update-none)
  1405.                                 #update-all
  1406.                                 (#update-since "39.0")
  1407.                                 (#update-since "39.1")
  1408.                                 (#update-since "39.2")
  1409.                                 (#update-since "39.5")
  1410.                                 (#update-since "39.10")
  1411.                                 (#update-since "39.11")
  1412.                         )
  1413.                         (default    #defaction)
  1414.                         (help        #program-update-help "\n" @askchoice-help)
  1415.                     )
  1416.                 )
  1417.  
  1418.                 (set #tt39-1  "DITHER COMPACT TIME")
  1419.                 (set #tt39-2  "COMMAND CYCLE NOCLICK NORMALNAMES RTG SORT TEST VCENTER")
  1420.                 (set #tt39-3  "INFO SHOWINFO")
  1421.                 (set #tt39-6  "NOICON NOFOREIGN")
  1422.                 (set #tt39-11 "BORDERBLANK NOFILECHECK")
  1423.                 (set #tt39-12 "COLOR DRAWER GAMMA NOPNG PATTERN")
  1424.  
  1425.                 (set #icon-dest (tackon #visage-dest "Visage"))
  1426.                 (set #tooltype-pattern
  1427.                     (select #update-action
  1428.                         ""
  1429.                         "#?"
  1430.                         ("%s %s %s %s %s %s" #tt39-12 #tt39-11 #tt39-6 #tt39-3 #tt39-2 #tt39-1)
  1431.                         ("%s %s %s %s %s"    #tt39-12 #tt39-11 #tt39-6 #tt39-3 #tt39-2)
  1432.                         ("%s %s %s %s"       #tt39-12 #tt39-11 #tt39-6 #tt39-3)
  1433.                         ("%s %s %s"          #tt39-12 #tt39-11 #tt39-6)
  1434.                         ("%s %s"             #tt39-12 #tt39-11)
  1435.                         ("%s"                #tt39-12 )
  1436.                     )
  1437.                 )
  1438.             )
  1439.         )
  1440.     )
  1441. )
  1442.  
  1443. ; Location for Visage.guide
  1444. (if (BITAND #install-files 2)
  1445.     (
  1446.         (set #guide-dest #visage-dest)
  1447.  
  1448.         (if (exists "Help:")
  1449.             (set #guide-dest "Help:")
  1450.         )
  1451.  
  1452.         (set #guide-dest
  1453.             (askdir
  1454.                 (prompt  #where-visage-guide)
  1455.                 (help    @askdir-help)
  1456.                 (default #guide-dest)
  1457.             )
  1458.         )
  1459.  
  1460.         (set #dest-guide-name (tackon #guide-dest "Visage.guide.info"))
  1461.  
  1462.         (set #guide-icon
  1463.             (if (AND (= @user-level 2 ) (= (exists #dest-guide-name) 0))
  1464.                 (askbool
  1465.                     (prompt #copy-guide-icon)
  1466.                     (help    " ")
  1467.                 )
  1468.                 1    ; Default is to copy the icon
  1469.             )
  1470.         )
  1471.     )
  1472. )
  1473.  
  1474. (set #languages 0)
  1475.  
  1476. ; .ct
  1477. ; Which languages that should be installed.
  1478. (if (BITAND #install-files 4)
  1479.     (set #lang
  1480.         (askoptions
  1481.             (prompt    #which-language)
  1482.             (help    #which-language-help "\n" @askoptions-help)
  1483.             (choices
  1484.                 (cat #propfont "Deutsch")
  1485.                 (cat "English  " #builtin-lang)
  1486.                 "Español"
  1487.                 "Français"
  1488.                 "Italiano"
  1489.                 "Nederlands"
  1490.                 "Norsk"
  1491.                 "Russian"
  1492.                 "Srpski"
  1493.                 "Suomi"
  1494.                 "Svenska"
  1495.             )
  1496.             (default #default-lang)
  1497.         )
  1498.     )
  1499. )
  1500.  
  1501. ; Default to install catalog files in the same drawer as Visage.
  1502. (set #catalog-dest (tackon #visage-dest "Catalogs"))
  1503.  
  1504. ; Where should the catalogs be installed? Only do this if we have
  1505. ; an expert user, and any non-english language was selected.
  1506. (if (AND (BITAND #install-files 1) (<> #lang 0) (<> #lang #english-lang) (= @user-level 2))
  1507.     (
  1508.         (set #choice
  1509.             (askbool
  1510.                 (prompt  #where-language)
  1511.                 (help    #where-language-help "\n" @askbool-help)
  1512.                 (default 1)
  1513.                 (choices #lang-progdir #lang-locale)
  1514.             )
  1515.         )
  1516.  
  1517.         (if (NOT #choice)
  1518.             (set #catalog-dest "Locale:Catalogs")
  1519.         )
  1520.     )
  1521. )
  1522.  
  1523. ; Ask for location for extra tools
  1524. (if (BITAND #install-files 248)    ; 8 + 16 + 32 + 64 + 128
  1525.     (set #tool-dest
  1526.         (askdir
  1527.             (prompt    #where-tools)
  1528.             (help    #where-tools-help "\n" @askdir-help)
  1529.             (default "C:")
  1530.         )
  1531.     )
  1532. )
  1533.  
  1534. ; And now do the actual installation
  1535.  
  1536. (complete 0)
  1537.  
  1538. (if (BITAND #install-files 1)
  1539.     (
  1540.         (copylib
  1541.             (prompt    (#copy "Visage" #visage-dest))
  1542.             (source    "Visage")
  1543.             (dest    #visage-dest)
  1544.         )
  1545.  
  1546.         (if (= (exists (tackon #visage-dest "Visage.info")) 0)
  1547.             (copyfiles
  1548.                 (source    "Visage.info")
  1549.                 (dest    #visage-dest)
  1550.             )
  1551.             (if (> #update-action 0)
  1552.                 (run ("C/UpdateTT Visage %s %s" #icon-dest #tooltype-pattern))
  1553.             )
  1554.         )
  1555.     )
  1556. )
  1557.  
  1558. (complete 25)
  1559.  
  1560. (if (BITAND #install-files 2)
  1561.     (
  1562.         ; (working #convert-guide)
  1563.  
  1564.         ; (run "C/FixAG Visage.guide T:Visage.Guide")
  1565.  
  1566.         ; (if (not pretend)
  1567.             (copylib
  1568.                 (prompt (#copy "Visage.guide" guide-dest))
  1569.                 (source "Visage.guide")
  1570.                 (dest   #guide-dest)
  1571.             )
  1572.         ; )
  1573.  
  1574.         ; (delete "T:Visage.guide" (safe))
  1575.  
  1576.         (if #guide-icon
  1577.             (copyfiles
  1578.                 (source "Visage.guide.info")
  1579.                 (dest   #guide-dest)
  1580.             )
  1581.         )
  1582.     )
  1583. )
  1584.  
  1585. (complete 50)
  1586.  
  1587. ; .ct
  1588. (if (BITAND #install-files 4)
  1589.     (
  1590.         (if (= (exists #catalog-dest) 0)
  1591.             (makedir #catalog-dest)
  1592.         )
  1593.  
  1594.         (set #n 0)
  1595.  
  1596.         (while
  1597.             (set #language
  1598.                 (select #n
  1599.                     "Deutsch"
  1600.                     "English"
  1601.                     "Español"
  1602.                     "Français"
  1603.                     "Italiano"
  1604.                     "Nederlands"
  1605.                     "Norsk"
  1606.                     "Russian"
  1607.                     "Srpski"
  1608.                     "Suomi"
  1609.                     "Svenska"
  1610.                     ""
  1611.                 )
  1612.             )
  1613.  
  1614.             (
  1615.                 (if (AND (IN #lang #n) (<> #language "English"))
  1616.                     (
  1617.                         (set #catalog
  1618.                             (tackon "Catalogs"
  1619.                                 (tackon #language "visage.catalog")
  1620.                             )
  1621.                         )
  1622.  
  1623.                         (set #destination (tackon #catalog-dest #language))
  1624.  
  1625.                         (copylib
  1626.                             (prompt (#copy #catalog #destination))
  1627.                             (source #catalog)
  1628.                             (dest   #destination)
  1629.                         )
  1630.                     )
  1631.                 )
  1632.  
  1633.                 (set #n (+ #n 1))
  1634.             )
  1635.         )
  1636.     )
  1637. )
  1638.  
  1639. (complete 75)
  1640.  
  1641. (if (BITAND #install-files 8)
  1642.     (copylib
  1643.         (prompt (#copy "GetModeID" #tool-dest))
  1644.         (source "C/GetModeID")
  1645.         (dest   #tool-dest)
  1646.     )
  1647. )
  1648.  
  1649. (complete 80)
  1650.  
  1651. (if (BITAND #install-files 16)
  1652.     (copylib
  1653.         (prompt (#copy "Kill" #tool-dest))
  1654.         (source "C/Kill")
  1655.         (dest   #tool-dest)
  1656.     )
  1657. )
  1658.  
  1659. (complete 85)
  1660.  
  1661. (if (BITAND #install-files 32)
  1662.     (copylib
  1663.         (prompt (#copy "MakeLink" #tool-dest))
  1664.         (source "C/MakeLink")
  1665.         (dest   #tool-dest)
  1666.     )
  1667. )
  1668.  
  1669. (complete 90)
  1670.  
  1671. (if (BITAND #install-files 64)
  1672.     (copylib
  1673.         (prompt (#copy "DeleteLink" #tool-dest))
  1674.         (source "C/DeleteLink")
  1675.         (dest   #tool-dest)
  1676.     )
  1677. )
  1678.  
  1679. (complete 95)
  1680.  
  1681. (if (BITAND #install-files 128)
  1682.     (copylib
  1683.         (prompt (#copy "UnpackILBM" #tool-dest))
  1684.         (source "C/UnpackILBM")
  1685.         (dest   #tool-dest)
  1686.     )
  1687. )
  1688.  
  1689. (complete 100)
  1690.  
  1691. (exit)
  1692.