home *** CD-ROM | disk | FTP | other *** search
/ Amiga ISO Collection / AmigaUtilCD1.iso / Archiver / ADV_ARCH.LZX / ARCHandler / Install < prev    next >
Encoding:
Text File  |  1995-08-20  |  46.2 KB  |  1,505 lines
  1. ;;$VER: Install 37.32 (7.6.95)
  2. ;;
  3. ;;  $Filename: Install $
  4. ;;  $Version: 37.32 $
  5. ;;  $Date: 7.6.95 $
  6. ;;  $Creation: 1.6.94 $
  7. ;;
  8. ;;  Installer script to install ARCHandler.
  9. ;;
  10. ;;  © Copyright 1994, 1995 Rafael D'Halleweyn, all rights reserved
  11. ;;
  12.  
  13. (set archandler-src "ARCHandler")
  14. (set archandlericon-src "ARCHandler.info")
  15. (set startarc-src "C/StartARC")
  16. (set startarcicon-src "C/StartARC.info")
  17. (set arcfiles-src "ARCFiles")
  18. (set fromarc-src "C/FromARC")
  19. (set toarc-src "C/ToARC")
  20. (set catalog-src "Catalogs/")
  21. (set help-src "Help/")
  22. (set version "2.1")
  23.  
  24. (set @default-dest "SYS:Tools")
  25. (set @default-tempdir "T:")
  26. (set @default-support-dest "C:")
  27.  
  28. ; Get the language
  29. (run 'C/PrefLanguage')
  30. (set pref-language (getenv "Language"))
  31.  
  32. ;================================================================================
  33. ; English strings
  34.  
  35. (set #bad-kick
  36.   (cat "You must have Kickstart 2.04 or higher installed to use the ARCHandler!")
  37. )
  38.  
  39. (set #install
  40.   (cat "\nARCHandler installation\n\n\n"
  41.          "This script installs ARCHandler " version "\n"
  42.          "on your Amiga.\n\n\n"
  43.          "ARCHandler © 1994, 1995 Rafael D'Halleweyn\n"
  44.          "All rights reserved"
  45.   )
  46. )
  47.  
  48. (set #update
  49.   (cat "\nARCHandler installation\n\n\n"
  50.          "This script updates ARCHandler to\n"
  51.          "version " version ".\n\n\n"
  52.          "ARCHandler © 1994, 1995 Rafael D'Halleweyn\n"
  53.          "All rights reserved"
  54.   )
  55. )
  56.  
  57. (set #archandler-dest
  58.   (cat "Where do you want to install ARCHandler?")
  59. )
  60.  
  61. (set #archandler-dest-help
  62.   (cat "Select the directory where you want ARCHandler to be installed. "
  63.        "The program and some other files will be copied to this directory. "
  64.        "Don't install ARCHandler in the WbStartup drawer (of your system "
  65.        "partition). You will be asked later if you want to start ARCHandler "
  66.        "when the Workbench is started.\n\n"
  67.   )
  68. )
  69.  
  70. (set #ask-parts
  71.   (cat "Select the parts that you want to install:\n"
  72.        "(Press `Help...' for a full description.)"
  73.   )
  74. )
  75.  
  76. (set #archandler-part "ARCHandler")
  77. (set #wbstartup-part "WbStartup installation")
  78. (set #catalogs-part "Catalogs")
  79. (set #help-part "Help files")
  80. (set #pictures-part "Help Pictures")
  81. (set #icons-part "Default icons")
  82. (set #support-part "Support commands")
  83. (set #delete1x-part "Delete 1.x ARCHandler")
  84.  
  85. (set #ask-parts-help
  86.   (cat "You should select those parts that you want to install:\n\n"
  87.        "ARCHandler: this is the main program. If you already have ARCHandler "
  88.        "installed, this script will only copy the progam if you have an older "
  89.        "version;\n\n"
  90.        "WbStartup installation: this will install a small program in the "
  91.        "WbStartup drawer (of your system partition). This program will start "
  92.        "ARCHandler whenever the Workbench is started (ie. when you turn on your "
  93.        "computer);\n\n"
  94.        "Catalogs: these are the translations of ARCHandler in different languages. "
  95.        "You will be asked which languages you want to install;\n\n"
  96.        "Help files: these are the help files in different languages. If you want to "
  97.        "use the online help, you must install these files! You will be asked which "
  98.        "languages you want to install;\n\n"
  99.        "Help Pictures: these pictures can be viewed from the help files. They can "
  100.        "only be used if you have MultiView (ie. Workbench 3.0 or newer);\n\n"
  101.        "Default icons: these icons are used by ARCHandler. You don't have to install "
  102.        "these icons, you can create your own once ARCHandler is running. If you do "
  103.        "install these icons it is still possible to change them. When you are "
  104.        "updating ARCHandler you shouldn't install these icons, they will overwrite "
  105.        "the icons you are already using;\n\n"
  106.        "Support commands: these are two support commands for ARCHandler: ToARC and "
  107.        "FromARC. These commands can be used to change the current directory of a "
  108.        "Shell to and from the same directory on the ARCHandler volume. These commands "
  109.        "should only be installed if you want to use the ARCHandler filesystem from a "
  110.        "Shell;\n\n"
  111.        "Delete 1.x ARCHandler: this will try to delete all the files that where "
  112.        "installed by the 1.0 or 1.0a version of ARCHandler.\n\n"
  113.        "The Install script tries to be smart about the default parts that it selects. "
  114.        "Normally you shouldn't change those settings.\n\n"
  115.   )
  116. )
  117.  
  118. (set #ask-tempdir "Please select a drawer to store temporary files:")
  119.  
  120. (set #ask-tempdir-help
  121.   (cat "For the ARCHandler to work correctly it has to have a place to store "
  122.        "its temporary files. All the files that are extracted from the "
  123.        "archives are placed in this drawer. This drawer should be large enough "
  124.        "to hold all those files. If you have lots of RAM you should use a "
  125.        "drawer on the 'Ram Disk', otherwise use a drawer on disk.\n\n"
  126.   )
  127. )
  128.  
  129. (set #ask-lhacommand "Please select the path to the 'LhA' command:")
  130.  
  131. (set #ask-lhacommand-help
  132.   (cat "For the ARCHandler to work correctly it has to known where "
  133.        "it can find the 'LhA' command. If you want to use a resident "
  134.        "'LhA' (=faster ARCHandler) use an empty 'Current Drawer' field "
  135.        "and make sure 'LhA' is resident.\n\n"
  136.   )
  137. )
  138.  
  139. (set #which-catalog-language
  140.   (cat "Which languages do you want to install?")
  141. )
  142.  
  143. (set #which-catalog-language-help
  144.   (cat "ARCHandler can be used in different languages. Select all the languages "
  145.        "that you want to use ARCHandler in.\n\n"
  146.   )
  147. )
  148.  
  149. (set #which-help-language
  150.   (cat "Which help files do you want to install?")
  151. )
  152.  
  153. (set #which-help-language-help
  154.   (cat "The help can be provided in different languages. Select those languages "
  155.        "you want help for.\n\n"
  156.   )
  157. )
  158.  
  159. (set #support-dest
  160.   (cat "Where do you want to install the support commands FromARC and ToARC?")
  161. )
  162.  
  163. (set #support-help
  164.   (cat "The FromARC and ToARC commands allow you to change the current directory "
  165.        "of a shell.\n\n"
  166.   )
  167. )
  168.  
  169. (set #shareware
  170.   (cat "ARCHandler is Shareware!\nDon't forget to register!")
  171. )
  172.  
  173.  
  174. ;================================================================================
  175. ; Finnish strings
  176.  
  177. (if (= pref-language "suomi")
  178.  (
  179.     (set #bad-kick
  180.       (cat "Käytössäsi tulee olla vähintään Kickstart v2.04 voidaksesi käyttää ARCHandleria!")
  181.     )
  182.  
  183.     (set #install
  184.       (cat "\nARCHandler - asennus\n\n\n"
  185.              "Tämä ohjelma asentaa Amigaasi\n"
  186.              "ARCHandlerin version " version ".\n\n\n"
  187.              "ARCHandler © 1994, 1995 Rafael D'Halleweyn\n"
  188.              "Kaikki oikeudet pidätetään"
  189.       )
  190.     )
  191.  
  192.     (set #update
  193.       (cat "\nARCHandler - asennus\n\n\n"
  194.              "Tämä ohjelma päivittää\n"
  195.              "ARCHandlerin versioon " version ".\n\n\n"
  196.              "ARCHandler © 1994, 1995 Rafael D'Halleweyn\n"
  197.              "Kaikki oikeudet pidätetään"
  198.       )
  199.     )
  200.  
  201.     (set #archandler-dest
  202.       (cat "Minne haluat asentaa ARCHandlerin?")
  203.     )
  204.  
  205.     (set #archandler-dest-help
  206.       (cat "Valitse hakemisto, johon haluat asentaa ARCHandlerin. "
  207.            "Ohjelma itse sekä muutama muu tiedosto kopioidaan tähän hakemistoon. "
  208.            "Älä asenna ARCHandleria (käynnistyslevysi) WbStartup-hakemistoon. "
  209.            "Myöhemmin kysytään erikseen, haluatko ARCHandlerin käynnistyvän "
  210.            "aina Workbenchin myötä.\n\n"
  211.       )
  212.     )
  213.  
  214.     (set #ask-parts
  215.       (cat "Valitse asennettavat osat:\n"
  216.            "(Painamalla `Ohje...' saat laajemman kuvauksen.)"
  217.       )
  218.     )
  219.  
  220.     (set #archandler-part "ARCHandler")
  221.     (set #wbstartup-part "WbStartup-asennus")
  222.     (set #catalogs-part "Sanastot")
  223.     (set #help-part "Opastiedostot")
  224.     (set #pictures-part "Apukuvat")
  225.     (set #icons-part "Oletusikonit")
  226.     (set #support-part "Oheiskomennot")
  227.     (set #delete1x-part "Poista 1.x ARCHandler")
  228.  
  229.     (set #ask-parts-help
  230.       (cat "Sinun tulisi valita osat, jotka haluat asentaa:\n\n"
  231.            "ARCHandler: itse ohjelma. Jos olet jo ARCHandlerin käyttäjä, "
  232.            "niin ohjelma kopioidaan vain, jos sinulla on vanhempi versio;\n\n"
  233.            "WbStartup-asennus: asentaa pienen ohjelman (käynnistyslevysi) "
  234.            "WbStartup-hakemistoon. Tämä ohjelma käynnistää ARCHandlerin "
  235.            "Workbenchin myötä (eli aina kun käynnistät tietokoneesi);\n\n"
  236.            "Sanastot: käännökset ARCHandlerista eri kielille. "
  237.            "Sinulta kysytään, mitä kieliä haluat asentaa;\n\n"
  238.            "Opastiedostot: erikielisiä opastiedostoja. Online-help -toiminnon "
  239.            "käyttö edellyttää näiden asentamista! Sinulta kysytään asennettavista "
  240.            "kielistä;\n\n"
  241.            "Apukuvat: opastiedostoja varten. Katseleminen edellyttää, että "
  242.            "käytössäsi on MultiView (eli vähintään Workbench 3.0);\n\n"
  243.            "Oletusikonit: ARCHandlerin käyttöön. Sinun ei välttämättä tarvitse asentaa "
  244.            "näitä ikoneita - voit tehdä omasi, kunhan ARCHandler on toiminnassa. Jos "
  245.            "taas asennat ikonit, niin voit kuitenkin muuttaa niitä myöhemmin. Jos "
  246.            "päivität ARCHandleria, niin valitsemalla asennuksen tuhoat vanhat ikonisi;\n\n"
  247.            "Oheiskomennot: kaksi ARCHandleria tukevaa komentoa: ToARC ja FromARC. "
  248.            "Näillä siirrytään nykyisestä komentotulkin hakemistosta vastaavaan "
  249.            "hakemistoon ARCHandler-taltiossa ja päinvastoin. Komentoja tarvitaan "
  250.            "ainoastaan, mikäli haluat käyttää ARCHandler-tiedostojärjestelmää "
  251.            "komentotulkista (Shellistä) käsin;\n\n"
  252.            "Poista 1.x ARCHandler: yrittää poistaa kaikki ARCHandlerin versioihin 1.0 "
  253.            "tai 1.0a liittyvät tiedostot.\n\n"
  254.            "Asennusohjelma yrittää päätellä oikein asennettavat osat. "
  255.            "Tavallisesti näiden muuttamiseen ei ole tarvetta.\n\n"
  256.       )
  257.     )
  258.  
  259.     (set #ask-tempdir "Valitse hakemisto tilapäistiedostoille:")
  260.  
  261.     (set #ask-tempdir-help
  262.       (cat "Jotta ARCHandler voisi toimia, täytyy sen voida tallentaa "
  263.            "tilapäistiedostonsa jonnekin. Kaikki arkistoista purettavat tiedostot "
  264.            "sijoitetaan tähän hakemistoon, joten sen tulisi olla riittävän iso.  "
  265.            "Jos järjestelmässäsi on paljon muistia, voit käyttää RAM-levyä, "
  266.            "muutoin aseta hakemisto esimerkiksi kiintolevylle.\n\n"
  267.       )
  268.     )
  269.  
  270.     (set #ask-lhacommand "Valitse 'LhA'-komennon polku:")
  271.  
  272.     (set #ask-lhacommand-help
  273.       (cat "Jotta ARCHandler voisi toimia, täytyy sen tietää mistä löytyy "
  274.            "'LhA'-komento. Jos haluat käyttää residenttiä (valmiiksi muistiin "
  275.            "ladattua) 'LhA':a toimintojen nopeuttamiseksi, niin katso, että "
  276.            "'Current Drawer' -kenttä on tyhjä ja varmista, että 'LhA' on "
  277.            "todella residentti.\n\n"
  278.       )
  279.     )
  280.  
  281.     (set #which-catalog-language
  282.       (cat "Mitkä kielet haluat asentaa?")
  283.     )
  284.  
  285.     (set #which-catalog-language-help
  286.       (cat "ARCHandler tukee eri kieliä. Valitse kaikki kielet, joita tarvitset.\n\n"
  287.       )
  288.     )
  289.  
  290.     (set #which-help-language
  291.       (cat "Mitkä opastiedostot haluat asentaa?")
  292.     )
  293.  
  294.     (set #which-help-language-help
  295.       (cat "ARCHandlerin online-help tukee eri kieliä. Valitse tarvitsemasi.\n\n"
  296.       )
  297.     )
  298.  
  299.     (set #support-dest
  300.       (cat "Minne haluat asentaa FromARC ja ToARC -oheiskomennot?")
  301.     )
  302.  
  303.     (set #support-help
  304.       (cat "FromARC ja ToARC -komennoilla siirrytään nykyisestä komentotulkin "
  305.            "hakemistosta vastaavaan hakemistoon ARCHandler-taltiossa ja päinvastoin.\n\n"
  306.  
  307.  
  308.       )
  309.     )
  310.  
  311.     (set #shareware
  312.       (cat "ARCHandler on Sharewarea!\nÄlä unohda rekisteröityä!")
  313.     )
  314.   )
  315. )
  316.  
  317. ;================================================================================
  318. ; French strings
  319.  
  320. (if (= pref-language "français")
  321.   (
  322.     (set #bad-kick
  323.       (cat "Vous devez avoir un Kickstart 2.04  ou supérieur pour installer ARCHandler!")
  324.     )
  325.  
  326.     (set #install
  327.       (cat "\nARCHandler installation\n\n\n"
  328.            "Ce script installe ARCHandler " version "\n"
  329.            "dans votre Amiga.\n\n\n"
  330.            "ARCHandler © 1994, 1995 Rafael D'Halleweyn\n"
  331.            "Tous droits réservés"
  332.       )
  333.     )
  334.  
  335.     (set #update
  336.       (cat "\nARCHandler installation\n\n\n"
  337.            "Ce script met à jour ARCHandler à la\n"
  338.            "version " version ".\n\n\n"
  339.            "ARCHandler © 1994, 1995 Rafael D'Halleweyn\n"
  340.            "Tous droits réservés"
  341.       )
  342.     )
  343.  
  344.     (set #archandler-dest
  345.       (cat "Ou voulez-vous installer ARCHandler?")
  346.     )
  347.  
  348.     (set #archandler-dest-help
  349.       (cat "Sélectionné le répertoire ou vous voulez qu'ARCHandler soit installé. "
  350.            "Le programe et les autres fichiers vont être copié dans ce répertoire. "
  351.            "N'installer pas ARCHandler dans le tirroir WbStartup (de  votre partition "
  352.            "systéme). Vous allez être interroger plus tard si vous souhaité démmarrer "
  353.            "ARCHandler lorsque votre atelier sera chargé.\n\n"
  354.       )
  355.     )
  356.  
  357.     (set #ask-parts
  358.       (cat "Sélectionné les parties que vous vouler pour l'installation:\n"
  359.            "(Presser `Help...' pour une déscription compléte.)"
  360.       )
  361.     )
  362.  
  363.     (set #archandler-part "ARCHandler")
  364.     (set #wbstartup-part "Installation dans WbStartup")
  365.     (set #catalogs-part "Catalogues")
  366.     (set #help-part "Fichiers d'aides")
  367.     (set #pictures-part "Images d'aides")
  368.     (set #icons-part "Icones défauts")
  369.     (set #support-part "Commandes supportées")
  370.     (set #delete1x-part "Effacement d'ARCHandler 1.x")
  371.  
  372.     (set #ask-parts-help
  373.       (cat "Vous pouvez sélectionner les parties que vous souhaitez installer:\n\n"
  374.            "ARCHandler: c'est le programme principal. Si vous avez déja ARCHandler "
  375.            "d'installé, cette procédure va seulement copier le programme si vous avez "
  376.            "une vieille version;\n\n"
  377.            "Installation WbStartup: Ceci peut installer un petit programme dans le "
  378.            "tirroir WbStartup (de votre partition systéme). Ce programme va lancer "
  379.            "ARCHandler dés le chargement de l'atelier (ie. quand vous mettez en marche "
  380.            "votre ordinateur);\n\n"
  381.            "Catalogues: Ce sont les traductions d'ARCHandler dans de différentes langues. "
  382.            "Vous pouvez demander la langue que vous voulez installer;\n\n"
  383.            "Fichiers d'Aides: Ce sont les fichiers d'Aides dans de différentes langues. "
  384.            "Si vous souhaitez utiliser l'aide en ligne, vous devez installer ce fichiers! Vous "
  385.            "allez être questionné pour la langue que vous désirez installer;\n\n"
  386.            "Images d'Aides: Ces images peuvent être visionnées des fichiers d'aides. "
  387.            "Elles peuvent seulement être utilisé si vous possédez MultiView (ie. Workbench 3.0 ou plus);\n\n"
  388.            "Icones par Défauts: Ces icones peuvent être utilisés par ARCHandler. Vous n'avez pas à "
  389.            "installer ces icones il est possible d'en changer. Quand vous aurez mis à jour "
  390.            "ARCHandler vous ne devez pas installer ces icones, ils vont remplacer les icones "
  391.            "que vous êtes en train d'utiliser;\n\n"
  392.            "Commandes de support: Elles sont deux commandes de support pour ARCHandler: "
  393.            "ToArc et FromArc. Ces commandes peuvent être utiliser pour changer de répertoire courant "
  394.            "du Shell de et pour le même répertoire du volume ARCHandler. Ces commandes sont seulement a "
  395.            "installées si vous voulez utiliser ARCHandler à partir du Shell;\n\n"
  396.            "Effacer ARCHandler 1.x: Ceci va effacer tous les fichiers qui ont étaient "
  397.            "installés par la version 1.0 ou 1.0a d'ARCHandler.\n\n"
  398.            "La procédure d'installation choisi pour être bien a propos la partie "
  399.            "des défauts a sélectionner. "
  400.            "Normalement vous n'avez pas à changer les réglages.\n\n"
  401.       )
  402.     )
  403.  
  404.     (set #ask-tempdir "S'il vous plait sélectionner le tirroir pour les fichiers temporaires de réserves:")
  405.  
  406.     (set #ask-tempdir-help
  407.       (cat "Pour que ARCHandler fonctionne correctement il doit placé en réserve "
  408.            "des fichiers temporaires. Tous les fichiers sont décompatés de "
  409.            "l'archive et sont placés dans ce répertoire. Ce tirroir doit être gros "
  410.            "pour contenir tous les fichiers. Si vous avez suffissement de mémoire RAM "
  411.            "vous devez utiliser le tirroir 'Ram Disk', autrement utilisé un tirroir sur un disque.\n\n"
  412.       )
  413.     )
  414.  
  415.     (set #ask-lhacommand "S'il vous plait sélectionné le chemin de la commande 'LhA':")
  416.  
  417.     (set #ask-lhacommand-help
  418.       (cat "Pour que ARCHandler fonctionne correctement il doit connatitre ou "
  419.            "il doit pouvoir trouver la commande 'LhA'. Si vous voulez utiliser"
  420.            "'LhA' en résident (=rapide ARCHandler) utiliser un champ vide "
  421.            "'Tirroir courant' et vous assurez que 'LhA' est résidant.\n\n"
  422.       )
  423.     )
  424.  
  425.     (set #which-catalog-language
  426.       (cat "Quel langue vous souhaitez installer?")
  427.     )
  428.  
  429.     (set #which-catalog-language-help
  430.       (cat "ARCHandler peut être utiliser dans de differents langues. Sélectionné "
  431.            "tous les langages que vous voulez utiliser avec ARCHandler.\n\n"
  432.       )
  433.     )
  434.  
  435.     (set #which-help-language
  436.       (cat "Quel fichier d'aide vous souhaitez installer?")
  437.     )
  438.  
  439.     (set #which-help-language-help
  440.       (cat "L'aide peut être disponible dans des langues differentes."
  441.            "Sélectionné les langues que vous voulez pour l'aide.\n\n"
  442.       )
  443.     )
  444.  
  445.     (set #support-dest
  446.       (cat "Ou vous souhaitez installer les commandes supports FromARC et ToARC?")
  447.     )
  448.  
  449.     (set #support-help
  450.       (cat "Les commandes FromARC et ToARC vous permettent de changer de répertoire "
  451.            "du shell.\n\n"
  452.       )
  453.     )
  454.  
  455.     (set #shareware
  456.       (cat "ARCHandler est un Shareware!\nNe pas oublier de vous enregistrez!")
  457.     )
  458.   )
  459. )
  460.  
  461. ;================================================================================
  462. ; Dutch strings
  463.  
  464. (if (= pref-language "nederlands")
  465.   (
  466.     (set #bad-kick
  467.       (cat "U hebt Kickstart 2.04 of hoger nodig om om ARCHandler te kunnen gebruiken!")
  468.     )
  469.  
  470.     (set #install
  471.       (cat "\nARCHandler installatie\n\n\n"
  472.              "Dit script installeert ARCHandler " version "\n"
  473.              "op uw Amiga.\n\n\n"
  474.              "ARCHandler © 1994, 1995 Rafael D'Halleweyn\n"
  475.              "Alle rechten voorbehouden"
  476.       )
  477.     )
  478.  
  479.     (set #update
  480.       (cat "\nARCHandler installatie\n\n\n"
  481.              "Dit script werkt ARCHandler bij\n"
  482.              "tot versie " version ".\n\n\n"
  483.              "ARCHandler © 1994, 1995 Rafael D'Halleweyn\n"
  484.              "Alle rechten voorbehouden"
  485.       )
  486.     )
  487.  
  488.     (set #archandler-dest
  489.       (cat "Waar wilt u ARCHandler installeren?")
  490.     )
  491.  
  492.     (set #archandler-dest-help
  493.       (cat "Selecteer de lade waar u ARCHandler wilt geïnstalleerd hebben. Het "
  494.            "programma en enkele andere bestanden zullen naar deze lade gekopieerd "
  495.            "worden. Instaleer ARCHandler niet in de WbStartup lade (van uw "
  496.            "systeem partitie). U zult later gevraagd worden of u ARCHandler "
  497.            "automatisch gestart wilt hebben wanneer de Workbench gestart wordt.\n\n"
  498.       )
  499.     )
  500.  
  501.     (set #ask-parts
  502.       (cat "Selecteer de delen die u wil installeren:\n"
  503.            "(Druk op `Help...' voor een volledige beschrijving.)"
  504.       )
  505.     )
  506.  
  507.     (set #archandler-part "ARCHandler")
  508.     (set #wbstartup-part  "WbStartup installatie")
  509.     (set #catalogs-part   "Catalogen")
  510.     (set #help-part       "Hulp bestanden")
  511.     (set #pictures-part   "Hulp Tekeningen")
  512.     (set #icons-part      "Standaard iconen")
  513.     (set #support-part    "Extra commando's")
  514.     (set #delete1x-part   "Verwijder 1.x ARCHandler")
  515.  
  516.     (set #ask-parts-help
  517.       (cat "U moet die delen kiezen die u will installeren:\n\n"
  518.            "ARCHandler: dit is het hoofd programma. Indien u ARCHandler al eerder "
  519.            "geïnstalleerd hebt, zal dit script het programma enkel kopiëren als u "
  520.            "een oudere versie heeft;\n\n"
  521.            "WbStartup installatie: dit zal een klein programmaatje in de WbStartup "
  522.            "lade (van uw systeem partitie) installeren. Dit programmaatje zal "
  523.            "ARCHandler opstarten wanneer de Workbench gestart wordt (dus wanneer u "
  524.            "uw computer aanzet);\n\n"
  525.            "Catalogen: dit zijn de vertalingen van ARCHandler in verschillende talen. "
  526.            "U zult gevraagd worden welke talen geïnstalleerd moeten worden;\n\n"
  527.            "Hulp bestanden: dit zijn de hulp bestanden in verschillende talen. Als "
  528.            "u gebruikt wilt maken van de hulp vanuit het programma, moet u deze "
  529.            "bestanden installeren! U zult gevraagd worden welke talen geïnstalleerd "
  530.            "moeten worden;\n\n"
  531.            "Hulp Tekeningen: deze tekeningen kunnen bekeken worden vanuit de hulp "
  532.            "bestanden. Ze kunnen enkel gebruikt worden als u MultiView heeft (dus "
  533.            "Workbench 3.0 of nieuwer);\n\n"
  534.            "Standaard iconen: deze iconen worden gebruikt door ARCHandler. U hoeft "
  535.            "deze iconen niet te installeren, u kunt uw eigen iconen creëren wanneer "
  536.            "ARCHandler opgestart is. Als u toch deze iconen installeerd is het nog "
  537.            "steeds mogelijk om ze te veranderen. Wanneer u een nieuwe versie van "
  538.            "ARCHandler installeerd dan moet u deze iconen niet installeren, omdat "
  539.            "daarbij uw eigen iconen verloren gaan;\n\n"
  540.            "Extra commando's: dit zijn twee commando's: ToARC and FromARC. Ze kunnen "
  541.            "gebruikt worden om de 'current directory' van een Shell te veranderen "
  542.            "naar en van dezelfde directory op het ARCHandler volume. Deze commando's "
  543.            "moeten alleen maar geïnstalleerd moeten worden als u het ARCHandler "
  544.            "bestandensysteem vanuit een Shell wenst te gebruiken.\n\n"
  545.            "Verwijder 1.x ARCHandler: dit zal proberen om alle bestanden die door "
  546.            "versie 1.0 of 1.0a geïnstalleerd werden te verwijderen.\n\n"
  547.            "Het installatie script probeert zelf te selecteren welke delen "
  548.            "geïnstallerd moeten worden. Waarschijnlijk hoeft u hier niks meer aan te "
  549.            "veranderen.\n\n"
  550.       )
  551.     )
  552.  
  553.     (set #ask-tempdir "Kies een lade voor de tijdelijke bestanden:")
  554.  
  555.     (set #ask-tempdir-help
  556.       (cat "Opdat ARCHandler correct zou kunnen werken, heeft het een plaats nodig "
  557.            "om zijn tijdelijke bestanden te bewaren. Al de bestanden die uit een "
  558.            "archief worden gehaald worden in deze lade geplaatst. Deze lade moet "
  559.            "groot genoeg zijn om alle deze bestanden te bevatten. Als u voldoende "
  560.            "vrij geheugen hebt, kunt u het best 'Ram Disk' gebruiken, anders is "
  561.            "een lade op schijf beter.\n\n")
  562.     )
  563.  
  564.     (set #ask-lhacommand "Selecteer het volledige pad naar het 'LhA' commando:")
  565.  
  566.     (set #ask-lhacommand-help
  567.       (cat "Opdat ARCHandler correct zou kunnen werken, moet het weten waar het "
  568.            "het 'Lha' commando kan vinden. Als u een residente 'LhA' wilt "
  569.            "gebruiken (= snellere ARCHandler) gebruik dan een leeg 'Geselecteerde "
  570.            "lade' veld en zorg dat 'LhA' resident is.\n\n")
  571.     )
  572.  
  573.     (set #which-catalog-language
  574.       (cat "Welke talen wilt u installeren?")
  575.     )
  576.  
  577.     (set #which-catalog-language-help
  578.       (cat "ARCHandler kan gebruikt worden in verschillende talen. Selecteer al "
  579.            "de talen waarin u ARCHandler wilt gebruiken.\n\n"
  580.       )
  581.     )
  582.  
  583.     (set #which-help-language
  584.       (cat "Welke hulp bestanden wilt u installeren?")
  585.     )
  586.  
  587.     (set #which-help-language-help
  588.       (cat "Hulp kan gegeven worden in verschillende talen. Selecteer al de talen "
  589.            "waarin u hulp wilt krijgen.\n\n"
  590.       )
  591.     )
  592.  
  593.     (set #support-dest
  594.       (cat "Waar wilt u de ondersteunings commando's FromARC en ToARC plaatsen?")
  595.     )
  596.  
  597.     (set #support-help
  598.       (cat "De FromARC en ToARC commando's laten u toe om vanuit de Shell direct "
  599.            "naar het ARCHandler bestandensysteem te gaan, of terug.\n\n")
  600.     )
  601.  
  602.     (set #shareware
  603.       (cat "ARCHandler is Shareware!\n"
  604.            "Vergeet niet te registreren!")
  605.     )
  606.   )
  607. )
  608.  
  609. ;================================================================================
  610. ; German strings
  611.  
  612. (if (= pref-language "deutsch")
  613.   (
  614.  
  615.     (set #bad-kick
  616.       (cat "Sie müssen Kickstart 2.04 oder besser haben um ARCHandler zu benutzen!")
  617.     )
  618.  
  619.     (set #install
  620.       (cat "\nARCHandler Installation\n\n\n"
  621.              "Dieses Script installiert ARCHandler " version "\n"
  622.              "auf Ihrem Amiga.\n\n\n"
  623.              "ARCHandler © 1994, 1995 Rafael D'Halleweyn\n"
  624.              "Alle Rechte vorbehalten"
  625.       )
  626.     )
  627.  
  628.     (set #update
  629.       (cat "\nARCHandler Installation\n\n\n"
  630.              "Dieses Script erneuert ARCHandler auf\n"
  631.              "Version " version ".\n\n\n"
  632.              "ARCHandler © 1994, 1995 Rafael D'Halleweyn\n"
  633.              "Alle Rechte vorbehalten"
  634.       )
  635.     )
  636.  
  637.     (set #archandler-dest
  638.       (cat "Wo wollen Sie ARCHandler installieren?")
  639.     )
  640.  
  641.     (set #archandler-dest-help
  642.       (cat "Wählen Sie das Verzeichnis, in dem Sie ARCHandler installieren möechten. "
  643.            "Das Programm und einige andere Dateien werden in dieses Verzeichnis kopiert. "
  644.            "Installieren Sie ARCHandler nicht ins Verzeichnis WBStartup (auf Ihrer System-"
  645.            "Partition). Sie werden später noch gefragt, ob Sie ARCHandler starten wollen"
  646.            "wenn die Workbench hochgefahren wird.\n\n"
  647.       )
  648.     )
  649.  
  650.     (set #ask-parts
  651.       (cat "Wählen Sie die Teile aus, die Sie installieren möchten:\n"
  652.            "(Drücken Sie `Hilfe...' für eine ausführliche Erklärung.)"
  653.       )
  654.     )
  655.  
  656.     (set #archandler-part "ARCHandler")
  657.     (set #wbstartup-part "WBStartup Installation")
  658.     (set #catalogs-part "Kataloge")
  659.     (set #help-part "Hilfe Dateien")
  660.     (set #pictures-part "Hilfe Bilder")
  661.     (set #icons-part "Standard Piktogramme")
  662.     (set #support-part "Unterstützende Kommandos")
  663.     (set #delete1x-part "Löschen von 1.x ARCHandler")
  664.  
  665.     (set #ask-parts-help
  666.       (cat "Sie sollten die Teile auswählen, die Sie installieren möchten:\n\n"
  667.            "ARCHandler: dies ist das Hauptprogramm. Wenn Sie bereits ARCHandler "
  668.            "installiert haben kopiert dieses Script nur das Programm, falls Sie "
  669.            "eine ältere Version haben;\n\n"
  670.            "WBStartup Installation: dies installiert ein kleines Programm im "
  671.            "WBStartup-Verzeichnis (auf Ihrer System-Partition). Dieses Programm "
  672.            "startet ARCHandler immer wenn die Workbench gestartet wird (d.h. wenn "
  673.            "Sie Ihren Rechner einschalten);\n\n"
  674.            "Kataloge: dies sind die Übersetzungen von ARCHandler in verschiedene "
  675.            "Sprachen. Sie werden noch gefragt, welche Sprache Sie installieren "
  676.            "möchten;\n\n"
  677.            "Hilfe Dateien: dies sind die Hilfedateien in verschiedene Sprachen. "
  678.            "Wenn Sie die Online-Hilfe nutzen möchten, müssen Sie diese Dateien "
  679.            "installieren! Sie werden noch gefragt, welche Sprache Sie installieren"
  680.            "möchten;\n\n"
  681.            "Hilfe Bilder: diese Bilder können aus den Hilfe-Dateien heraus "
  682.            "betrachtet werden. Sie können nur genutzt werden, wenn Sie MultiView "
  683.            "haben (d.h. Workbench 3.0 oder besser);\n\n"
  684.            "Standard Piktogramme: diese Piktogramme werden von ARCHandler benutzt. "
  685.            "Sie müssen diese Piktogramme nicht installieren. Sie können auch "
  686.            "eigenen Piktogramme verwenden nachdem ARCHandler einmal installiert "
  687.            "ist. Wenn Sie diese Piktogramme installieren, ist es immer noch "
  688.            "möglich sie zu verändern. Wenn Sie ARCHandler erneuern, sollten Sie "
  689.            "diese Piktogramme nicht installieren. Sie würden die Piktogramme die "
  690.            "Sie bereits benutzen überschreiben;\n\n"
  691.            "Unterstütztende Kommandos: dies sind zwei unterstützende Kommados für "
  692.            "ARCHandler: ToARC und FromARC. Diese Kommandos können benutzt werden "
  693.            "um das aktuelle Verzeichnis einer Shell auf das oder von dem "
  694.            "ARCHandler-Laufwerk zu ändern. Diese Kommandos sollten nur "
  695.            "installiert werden wenn Sie das ARCHandler Filesystem in einer Shell "
  696.            "nutzen wollen;\n\n"
  697.            "Löschen von 1.x ARCHandler: dies versucht alle Dateien die in mit "
  698.            "den Versionen 1.0 oder 1.0a von ARCHandler installiert wurden zu "
  699.            "löschen\n\n"
  700.            "Das Installationsscript versucht die voreingestellten Teile "
  701.            "möglichst gut zu treffen. Normalerweise sollten Sie nichts an diesen "
  702.            "Einstellungen ändern müssen.\n\n"
  703.       )
  704.     )
  705.  
  706.     (set #ask-tempdir "Wählen Sie bitte ein Verzeichnis um temporäre Datein zu speichern:")
  707.  
  708.     (set #ask-tempdir-help
  709.       (cat "Damit ARCHandler korrekt arbeiten kann muß er einen Platzt haben um "
  710.            "seine temporäre Datein zwischen zu speichern. Alle Dateien die aus "
  711.            "einem Archiv extrahiert werden, werden in diesem Verzeichnis zwischen- "
  712.            "gespeichert. Dieses Verzeichnis sollte gross genug sein um alle diese "
  713.            "Dateien zu halten. Falls Sie (zu-)viel Speicher haben sollten Sie ein "
  714.            "Verzeichnis auf der 'Ram Disk' benutzen, ansonsten ein Verzeichnis "
  715.            "auf Festplatte.\n\n"
  716.       )
  717.     )
  718.  
  719.     (set #ask-lhacommand "Geben Sie bitte den Pfad des 'LhA' Kommandos an:")
  720.  
  721.     (set #ask-lhacommand-help
  722.       (cat "Damit ARCHandler korrekt arbeiten kann muß er wissen wo er das "
  723.            "'LhA' Kommando finden kann. Wenn Sie einen residenten 'LhA' "
  724.            "(=schnellerer ARCHandler) benutzen wollen, nehmen Sie ein "
  725.            "'Leeres Verzeichnis' Feld und stellen Sie sicher, daß 'LhA' "
  726.            "resident ist.\n\n"
  727.       )
  728.     )
  729.  
  730.     (set #which-catalog-language
  731.       (cat "Welche Sprachen wollen Sie installieren?")
  732.     )
  733.  
  734.     (set #which-catalog-language-help
  735.       (cat "ARCHandler kann in verschiedenen Sprachen benutzt werden. "
  736.            "Wählen Sie all die Sprachen in denen Sie ARCHandler "
  737.            "nutzen wollen.\n\n"
  738.       )
  739.     )
  740.  
  741.     (set #which-help-language
  742.       (cat "Welche Hilfe-Dateien wollen Sie installieren?")
  743.     )
  744.  
  745.     (set #which-help-language-help
  746.       (cat "Die Hilfe kann in verschiedenen Sprachen erfolgen. Wählen "
  747.            "Sie die Sprachen in den Sie die Hilfe wünschen.\n\n"
  748.       )
  749.     )
  750.  
  751.     (set #support-dest
  752.       (cat "Wo wollen Sie die unterstützenden Kommandos FromARC "
  753.            "und ToARC installieren?")
  754.     )
  755.  
  756.     (set #support-help
  757.       (cat "Die Kommandos FromARC und ToARC erlauben es Ihnen das "
  758.            "aktuelle Verzeichnis in der Shell zu wechseln.\n\n"
  759.       )
  760.     )
  761.  
  762.     (set #shareware
  763.       (cat "ARCHandler ist Shareware!\nVergessen Sie nicht sich "
  764.            "zu registrieren!")
  765.     )
  766.   ) 
  767. )
  768.  
  769. ;================================================================================
  770. ; Spanish strings
  771.  
  772. (if (= pref-language "español")
  773.   (
  774.     (set #bad-kick
  775.       (cat "¡Debes tener instalado un Kickstart 2.04 o superior para usar ARCHandler!")
  776.     )
  777.  
  778.     (set #install
  779.       (cat "\nInstalación de ARCHandler\n\n\n"
  780.              "Este script instala ARCHandler " version "\n"
  781.              "en tu Amiga.\n\n\n"
  782.              "ARCHandler © 1994, 1995 Rafael D'Halleweyn\n"
  783.              "Reservados todos los derechos")
  784.     )
  785.  
  786.     (set #update
  787.       (cat "\nInstalación de ARCHandler\n\n\n"
  788.              "Este script actualiza ARCHandler a\n"
  789.              "la versión " version ".\n\n\n"
  790.              "ARCHandler © 1994, 1995 Rafael D'Halleweyn\n"
  791.              "Reservados todos los derechos")
  792.     )
  793.  
  794.     (set #archandler-dest
  795.       (cat "¿Donde quieres instalar ARCHandler?")
  796.     )
  797.  
  798.     (set #archandler-dest-help
  799.       (cat "Indica el directorio en el que quieres instalar ARCHandler. "
  800.            "El programa  ARCHandler  se copiará en ese  directorio.  El "
  801.            "script también  creará un directorio  'ARCFiles'  dentro de "
  802.            "ese directorio.\n\n"
  803.       ) ; add something here!
  804.     )
  805.  
  806.     ;(set #ask-parts "")
  807.  
  808.     ;(set #archandler-part "")
  809.     ;(set #wbstartup-part "")
  810.     ;(set #catalogs-part "")
  811.     ;(set #help-part "")
  812.     ;(set #pictures-part "")
  813.     ;(set #icons-part "")
  814.     ;(set #support-part "")
  815.     ;(set #delete1x-part "")
  816.  
  817.     ;(set #ask-parts-help "")
  818.  
  819.     (set #ask-tempdir "Por favor, indica un directorio para los ficheros temporales:")
  820.  
  821.     (set #ask-tempdir-help
  822.       (cat "Para que ARCHandler funcione correctamente  debe tener un lugar donde "
  823.            "guardar sus ficheros temporales.  Todos los ficheros que se extraigan "
  824.            "de los archivos se pondrán en este directorio. El directorio debe ser "
  825.            "lo suficientemente grande como para acoger a todos esos ficheros.  Si "
  826.            "tienes suficiente memoria, deberías usar un directorio en 'Ram Disk', "
  827.            "si no, usa un directorio en disco.\n\n")
  828.     )
  829.  
  830.     (set #ask-lhacommand "Por favor, indica el camino hacia el comando 'LhA':")
  831.  
  832.     (set #ask-lhacommand-help
  833.       (cat "Para que  ARCHandler funcione correctamente  debe saber donde "
  834.            "puede encontrar el comando  'LhA'.  Si quieres usar un  'LhA' "
  835.            "residente (=ARCHandler más rápido) usa un campo 'Dir. Actual' "
  836.            "vacío, y asegúrate de que 'LhA' está residente.\n\n")
  837.     )
  838.  
  839.     (set #which-catalog-language
  840.       (cat "¿Qué idiomas deseas instalar?")
  841.     )
  842.  
  843.     (set #which-catalog-language-help
  844.       (cat "ARCHandler se puede usar en diferentes idiomas. Elige todos los "
  845.            "idiomas que quieras usar en ARCHandler.\n\n"
  846.       )
  847.     )
  848.  
  849.     ;(set #which-help-language "")
  850.  
  851.     ;(set #which-help-language-help "")
  852.  
  853.     (set #support-dest
  854.       (cat "¿Donde quieres instalar los comandos de apoyo FromARC y ToARC?")
  855.     )
  856.  
  857.     (set #support-help
  858.       (cat "Los comandos FromARC y ToARC te permiten cambiar el directorio "
  859.            "actual de un shell.\n\n")
  860.     )
  861.  
  862.     (set #shareware
  863.       (cat "ARCHandler es Shareware!\n¡No te olvides de registrarte!")
  864.     )
  865.   )
  866. )
  867.  
  868. ;================================================================================
  869. ; Swedish strings
  870.  
  871. (if (= pref-language "svenska")
  872.   (
  873.     (set #bad-kick
  874.       (cat "Du måste använda Kickstart 2.04+ för att installera ARCHandler")
  875.     )
  876.  
  877.     (set #install
  878.       (cat
  879.         "\nARCHandler-installation\n\n\n"
  880.         "Det här programmet installerar ARCHandler " version "\n"
  881.         "i din Amiga.\n\n\n"
  882.         "ARCHandler © 1994, 1995 Rafael D'Halleweyn\n"
  883.         "Alla rättigheter reserverade"
  884.       )
  885.     )
  886.  
  887.     (set #update
  888.       (cat
  889.         "\nARCHandler-installation\n\n\n"
  890.         "Det här programmet uppdaterar ARCHandler\n"
  891.         "till version " version ".\n\n\n"
  892.         "ARCHandler © 1994, 1995 Rafael D'Halleweyn\n"
  893.         "Alla rättigheter reserverade"
  894.       )
  895.     )
  896.  
  897.     (set #archandler-dest "Var vill du placera?")
  898.  
  899.     (set #archandler-dest-help
  900.       (cat
  901.         "Välj den låda du vill placera ARCHandler i. "
  902.         "ARCHandler-programmet kommer att kopieras till den här lådan. "
  903.         "Installationsprogrammet kommer också att skapa lådan 'ARCFiles' i "
  904.         "den här lådan.\n\n"
  905.       ) ; add something here
  906.     )
  907.  
  908.     ;(set #ask-parts "")
  909.  
  910.     ;(set #archandler-part "")
  911.     ;(set #wbstartup-part "")
  912.     ;(set #catalogs-part "")
  913.     ;(set #help-part "")
  914.     ;(set #pictures-part "")
  915.     ;(set #icons-part "")
  916.     ;(set #support-part "")
  917.     ;(set #delete1x-part "")
  918.  
  919.     ;(set #ask-parts-help "")
  920.  
  921.     (set #ask-tempdir "Välj en låda att lagra temporära filer i:")
  922.  
  923.     (set #ask-tempdir-help
  924.       (cat
  925.         "För att ARCHandler ska fungera korrekt så måste den ha ett ställe "
  926.         "att lagra sina temporära filer i. Alla filer som packas upp från "
  927.         "arkivet placeras i den här lådan. Den bör vara stor nog för att "
  928.         "kunna hålla alla dessa filer. Om du har mycket RAM-minne bör du använda "
  929.         "en låda på ramdisken, använd annars en låda på disk.\n\n"
  930.       )
  931.     )
  932.  
  933.     (set #ask-lhacommand "Ange sökvägen till LhA-kommandot:")
  934.  
  935.     (set #ask-lhacommand-help
  936.       (cat
  937.         "För att ARCHandler ska fungera korrekt så måste den veta var "
  938.         "LhA-kommandot finns. Om du vill använda en resident kopia av LhA "
  939.         "(= snabbare ARCHandler), så ange en tom 'aktuell låda', och se "
  940.         "till att LhA är resident.\n\n"
  941.       )
  942.     )
  943.  
  944.     ;(set #which-catalog-language "")
  945.  
  946.     ;(set #which-catalog-language-help "")
  947.  
  948.     ;(set #which-help-language "")
  949.  
  950.     ;(set #which-help-language-help "")
  951.  
  952.     (set #support-dest
  953.       (cat "Var vill du installera de extra kommandona FromARC och ToARC?")
  954.     )
  955.  
  956.     (set #support-help
  957.       "Kommandona FromARC och ToARC låter dig ändra ett skals aktuella låda.\n\n"
  958.     )
  959.  
  960.     (set #shareware
  961.       (cat
  962.         "ARCHAndler är shareware!\nGlöm inte att registrera!"
  963.       )
  964.     )
  965.   )
  966. )
  967.  
  968. ;================================================================================
  969. ; check Kickstart and Workbench
  970.  
  971. (if (< (/ (getversion) 65536) 37)
  972.   (
  973.     (abort #bad-kick)
  974.   )
  975. )
  976. (set wbversion (/ (getversion "version.library") 65536))
  977.  
  978. ;================================================================================
  979. ; Hi there...
  980.  
  981. ; try to find ARCHandler
  982. (user 0)
  983. (run 'C/FindCommand ARCHandler'
  984.   (safe)
  985. )
  986. (set archandler-dest (pathonly (getenv "commandpath")))
  987. (run 'UnSetEnv commandpath'
  988.   (safe)
  989. )
  990.  
  991. ; install or update?
  992. (user 1)
  993. (if (= archandler-dest "")
  994.   (
  995.     (message #install "\n\n" #shareware)
  996.     (set update 0)
  997.   )
  998.   (
  999.     (message #update "\n\n" #shareware)
  1000.     (set update 1)
  1001.   )
  1002. )
  1003. (welcome)
  1004. (set old-user-level @user-level)
  1005.  
  1006. ;================================================================================
  1007. ; Ask questions
  1008.  
  1009. (complete 0)
  1010.  
  1011. ; find destination
  1012. (if (not update)
  1013.   (
  1014.     (user 2)
  1015.     (set archandler-dest
  1016.       (askdir
  1017.         (prompt #archandler-dest)
  1018.         (help #archandler-dest-help @askdir-help)
  1019.         (default @default-dest)
  1020.       )
  1021.     )
  1022.     (user old-user-level)
  1023.     (if (= (exists (tackon archandler-dest "ARCHandler") (noreq)) 1)
  1024.       (set update 1)
  1025.     )
  1026.   )
  1027. )
  1028.  
  1029. (complete 5)
  1030.  
  1031. ; try to find support commands
  1032. (user 0)
  1033. (run 'C/FindCommand FromARC'
  1034.   (safe)
  1035. )
  1036. (set support-dest (pathonly (getenv "commandpath")))
  1037. (run 'UnSetEnv commandpath'
  1038.   (safe)
  1039. )
  1040. ;(user old-user-level)
  1041.  
  1042. ; try to find old support command
  1043. ;(user 0)
  1044. (run 'C/FindCommand FlushARC'
  1045.   (safe)
  1046. )
  1047. (set flusharc-dir (pathonly (getenv "commandpath")))
  1048. (run 'UnSetEnv commandpath'
  1049.   (safe)
  1050. )
  1051. (user old-user-level)
  1052.  
  1053. (complete 10)
  1054.  
  1055. ; select parts to install
  1056. (set default-parts (+ 1 8))
  1057. (if (exists "SYS:WbStartup/StartARC" (noreq))
  1058.   (set default-parts (bitor default-parts 2))
  1059. )
  1060. (if (and (<= wbversion 38) (exists "LOCALE:"))
  1061.   (set default-parts (bitor default-parts 4))
  1062. )
  1063. (if (<= wbversion 39)
  1064.   (set default-parts (bitor default-parts 16))
  1065. )
  1066. (if (not update)
  1067.   (set default-parts (bitor default-parts 32))
  1068. )
  1069. (if (<> support-dest "")
  1070.   (set default-parts (bitor default-parts 64))
  1071. )
  1072. (if (or (exists "L:arc-handler") (<> flusharc-dir ""))
  1073.   (set default-parts (bitor default-parts 128))
  1074. )
  1075. (set parts
  1076.   (askoptions
  1077.     (prompt #ask-parts)
  1078.     (help #ask-parts-help @askoptions-help)
  1079.     (choices
  1080.       #archandler-part
  1081.       #wbstartup-part
  1082.       #catalogs-part
  1083.       #help-part
  1084.       #pictures-part
  1085.     )
  1086.     (default default-parts)
  1087.   )
  1088. )
  1089. (set parts2
  1090.   (askoptions
  1091.     (prompt #ask-parts)
  1092.     (help #ask-parts-help @askoptions-help)
  1093.     (choices
  1094.       #icons-part
  1095.       #support-part
  1096.       #delete1x-part
  1097.     )
  1098.     (default (/ default-parts 32))
  1099.   )
  1100. )
  1101. (set parts (+ parts (* parts2 32)))
  1102.  
  1103. (complete 15)
  1104.  
  1105. ; select directory for temporary files
  1106. (if (and (not update) (bitand parts 1))
  1107.   (set tempdir
  1108.     (askdir
  1109.       (prompt #ask-tempdir)
  1110.       (help #ask-tempdir-help @askdir-help)
  1111.       (default @default-tempdir)
  1112.     )
  1113.   )
  1114. )
  1115.  
  1116. (complete 20)
  1117.  
  1118. ; select lha command
  1119. (if (and (not update) (bitand parts 1))
  1120.   (
  1121.     (user 0)
  1122.     (run 'C/FindCommand LhA'
  1123.       (safe)
  1124.     )
  1125.     (set lhapath (getenv "commandpath"))
  1126.     (run 'UnSetEnv commandpath'
  1127.       (safe)
  1128.     )
  1129.     (if (= lhapath "")
  1130.       (
  1131.         (user 2)
  1132.         (set lhapath
  1133.           (askdir
  1134.             (prompt #ask-lhacommand)
  1135.             (help #ask-lhacommand-help @askdir-help)
  1136.             (default "C:")
  1137.           )
  1138.         )
  1139.         (set lhapath (tackon lhapath "LhA"))
  1140.       )
  1141.     )
  1142.     (user old-user-level)
  1143.   )
  1144. )
  1145.  
  1146. (complete 25)
  1147.  
  1148. ; select catalog languages to install
  1149. (if (bitand parts 4)
  1150.   (
  1151.     ; default language
  1152.     (set n 0)
  1153.     (set m 1)
  1154.     (set default-catalog-languages 2)
  1155.     (while
  1156.       (set catalog-language
  1157.         (select n
  1158.           "dansk"
  1159.           "deutsch"
  1160.           "english"
  1161.           "español"
  1162.           "français"
  1163.           "italiano"
  1164.           "nederlands"
  1165.           "português"
  1166.           "suomi"
  1167.           "svenska"
  1168.           ""
  1169.         )
  1170.       )
  1171.       (
  1172.         (if (= catalog-language pref-language)
  1173.           (set default-catalog-languages m)
  1174.         )
  1175.         (set n (+ n 1))
  1176.         (set m (+ m m))
  1177.       )
  1178.     )
  1179.  
  1180.     ; select languages
  1181.     (set catalog-languages
  1182.       (askoptions
  1183.         (prompt #which-catalog-language)
  1184.         (help #which-catalog-language-help @askoptions-help)
  1185.         (choices
  1186.           "Dansk"
  1187.           "Deutsch"
  1188.           "English"
  1189.           "Español"
  1190.           "Français"
  1191.           "Italiano"
  1192.           "Nederlands"
  1193.           "Português"
  1194.           "Suomi"
  1195.           "Svenska"
  1196.         )
  1197.         (default default-catalog-languages)
  1198.       )
  1199.     )
  1200.   )
  1201. )
  1202.  
  1203. (complete 30)
  1204.  
  1205. ; select help languages to install
  1206. (if (bitand parts 8)
  1207.   (
  1208.     ; default language
  1209.     (set n 0)
  1210.     (set m 1)
  1211.     (set default-help-languages 1)
  1212.     (while
  1213.       (set help-language
  1214.         (select n
  1215.           "english"
  1216.           ""
  1217.         )
  1218.       )
  1219.       (
  1220.         (if (= help-language pref-language)
  1221.           (set default-help-languages m)
  1222.         )
  1223.         (set n (+ n 1))
  1224.         (set m (+ m m))
  1225.       )
  1226.     )
  1227.  
  1228.     ; select languages
  1229.     (set help-languages
  1230.       (askoptions
  1231.         (prompt #which-help-language)
  1232.         (help #which-help-language-help @askoptions-help)
  1233.         (choices
  1234.           "English"
  1235.         )
  1236.         (default default-help-languages)
  1237.       )
  1238.     )
  1239.   )
  1240. )
  1241.  
  1242. (complete 35)
  1243.  
  1244. ; where do the support commands go?
  1245. (if (bitand parts 64)
  1246.   (
  1247.     (if (= support-dest "")
  1248.       (
  1249.         (user 2)
  1250.         (set support-dest
  1251.           (askdir
  1252.             (prompt #support-dest)
  1253.             (help #support-help @askdir-help)
  1254.             (default @default-support-dest)
  1255.           )
  1256.         )
  1257.         (user old-user-level)
  1258.       )
  1259.     )
  1260.   )
  1261. )
  1262.  
  1263. (complete 40)
  1264.  
  1265. ;================================================================================
  1266. ; Install everything
  1267.  
  1268. ; program
  1269. (if (bitand parts 1)
  1270.   (
  1271.     (copylib
  1272.       (source archandler-src)
  1273.       (dest archandler-dest)
  1274.     )
  1275.  
  1276.     ; it's icon
  1277.     (if (not update)
  1278.       (
  1279.         (copyfiles
  1280.           (source archandlericon-src)
  1281.           (dest archandler-dest)
  1282.         )
  1283.         (tooltype
  1284.           (dest (tackon archandler-dest "ARCHandler"))
  1285.           (settooltype "LHACOMMAND" lhapath)
  1286.           (settooltype "(LHACOMMAND")
  1287.           (settooltype "FILESDIR" (tackon archandler-dest "ARCFiles"))
  1288.           (settooltype "(FILESDIR")
  1289.           (settooltype "TEMPDIR" tempdir)
  1290.           (settooltype "(TEMPDIR")
  1291.  
  1292.           ; Try to remove NewIcons: if NewIcons is installed these won't be found.
  1293.           (settooltype "*** DON'T EDIT THE FOLLOWING LINES!! ***")
  1294.           (settooltype "IM1")
  1295.           (settooltype "IM1")
  1296.           (settooltype "IM1")
  1297.           (settooltype "IM1")
  1298.           (settooltype "IM2")
  1299.           (settooltype "IM2")
  1300.           (settooltype "IM2")
  1301.           (settooltype "IM2")
  1302.           (settooltype "IM2")
  1303.           (settooltype "IM2")
  1304.           (noposition)
  1305.         )
  1306.       )
  1307.     )
  1308.   )
  1309. )
  1310.  
  1311. (complete 50)
  1312.  
  1313. ; launcher
  1314. (if (bitand parts 2)
  1315.   (
  1316.     ; WbStartup drawer
  1317.     (makedir "SYS:WbStartup"
  1318.       (infos)
  1319.     )
  1320.  
  1321.     ; launcher
  1322.     (copylib
  1323.       (source startarc-src)
  1324.       (dest "SYS:WbStartup")
  1325.     )
  1326.  
  1327.     ; launcher icon
  1328.     (if (not (bitand default-parts 2))
  1329.       (
  1330.         (copyfiles
  1331.           (source startarcicon-src)
  1332.           (dest "SYS:WbStartup")
  1333.         )
  1334.         (tooltype
  1335.           (dest "SYS:WbStartup/StartARC")
  1336.           (settooltype "PROGRAM" (tackon archandler-dest "ARCHandler"))
  1337.           (settooltype "(PROGRAM")
  1338.           (noposition)
  1339.         )
  1340.       )
  1341.     )
  1342.   )
  1343. )
  1344.  
  1345. (complete 60)
  1346.  
  1347. ; files dir
  1348. (if (bitand parts 33)
  1349.   (
  1350.     (set arcfiles-dest (tackon archandler-dest "ARCFiles"))
  1351.     (makedir arcfiles-dest)
  1352.  
  1353.     ; default icons
  1354.     (if (bitand parts 32)
  1355.       (copyfiles
  1356.         (source arcfiles-src)
  1357.         (dest arcfiles-dest)
  1358.         (all)
  1359.       )
  1360.     )
  1361.   )
  1362. )
  1363.  
  1364. (complete 65)
  1365.  
  1366. ; catalogs
  1367. (if (bitand parts 4)
  1368.   (
  1369.     ; catalog directory
  1370.     (makedir "LOCALE:Catalogs")
  1371.  
  1372.     ; catalogs
  1373.     (set n 0)
  1374.     (while
  1375.       (set catalog-language
  1376.         (select n
  1377.           "dansk"
  1378.           "deutsch"
  1379.           "english"
  1380.           "español"
  1381.           "français"
  1382.           "italiano"
  1383.           "nederlands"
  1384.           "português"
  1385.           "suomi"
  1386.           "svenska"
  1387.           ""
  1388.         )
  1389.       )
  1390.       (
  1391.         (if (and (in catalog-languages n) (<> "english" catalog-language))
  1392.           (
  1393.             (copyfiles
  1394.               (source catalog-src)
  1395.               (dest "LOCALE:Catalogs/")
  1396.               (pattern catalog-language)
  1397.             )
  1398.           )
  1399.         )
  1400.         (set n (+ n 1))
  1401.       )
  1402.     )
  1403.   )
  1404. )
  1405.  
  1406. (complete 75)
  1407.  
  1408. ; help
  1409. (if (bitand parts 24)
  1410.   (
  1411.     ; help directory
  1412.     (set help-dest (tackon archandler-dest "Help"))
  1413.     (makedir help-dest
  1414.       (infos)
  1415.     )
  1416.  
  1417.     ; help files
  1418.     (if (bitand parts 8)
  1419.       (
  1420.         (set n 0)
  1421.         (while
  1422.           (set help-language
  1423.             (select n
  1424.               "english"
  1425.               ""
  1426.             )
  1427.           )
  1428.           (
  1429.             (if (in help-languages n)
  1430.               (
  1431.                 (makedir (tackon help-dest help-language)
  1432.                   (infos)
  1433.                 )
  1434.                 (copyfiles
  1435.                   (source help-src)
  1436.                   (dest help-dest)
  1437.                   (pattern help-language)
  1438.                 )
  1439.                 (tooltype
  1440.                   (dest (tackon (tackon help-dest help-language) "ARCHandler.guide"))
  1441.                   (if (<= wbversion 39)
  1442.                     (setdefaulttool "MultiView")
  1443.                     (setdefaulttool "AmigaGuide")
  1444.                   )
  1445.                   (noposition)
  1446.                 )
  1447.               )
  1448.             )
  1449.             (set n (+ n 1))
  1450.           )
  1451.         )
  1452.       )
  1453.     )
  1454.  
  1455.     (complete 85)
  1456.  
  1457.     ; help pictures
  1458.     (if (bitand parts 16)
  1459.       (copyfiles
  1460.         (source (tackon help-src "Pictures"))
  1461.         (dest (tackon help-dest "Pictures"))
  1462.         (all)
  1463.       )
  1464.     )
  1465.   )
  1466. )
  1467.  
  1468. (complete 90)
  1469.  
  1470. ; support commands
  1471. (if (bitand parts 64)
  1472.   (
  1473.     (copylib
  1474.       (source fromarc-src)
  1475.       (dest support-dest)
  1476.     )
  1477.     (copylib
  1478.       (source toarc-src)
  1479.       (dest support-dest)
  1480.     )
  1481.   )
  1482. )
  1483.  
  1484. (complete 98)
  1485.  
  1486. ; delete 1.x archandler
  1487. (if (bitand parts 128)
  1488.   (
  1489.     (delete "L:arc-handler")
  1490.     (delete (tackon flusharc-dir "FlushARC"))
  1491.     (delete "DEVS:DOSDrivers/ARC")
  1492.     (delete "DEVS:DOSDrivers/ARC.info")
  1493.     (delete "SYS:Storage/DOSDrivers/ARC")
  1494.     (delete "SYS:Storage/DOSDrivers/ARC.info")
  1495.   )
  1496. )
  1497.  
  1498. (complete 100)
  1499.  
  1500. ;================================================================================
  1501. ; Goodbye...
  1502.  
  1503. (set @default-dest archandler-dest)
  1504. (exit "\n" #shareware)
  1505.