;;$VER: Install 37.32 (7.6.95)
;;
;;  $Filename: Install $
;;  $Version: 37.32 $
;;  $Date: 7.6.95 $
;;  $Creation: 1.6.94 $
;;
;;  Installer script to install ARCHandler.
;;
;;  © Copyright 1994, 1995 Rafael D'Halleweyn, all rights reserved
;;

(set archandler-src "ARCHandler")
(set archandlericon-src "ARCHandler.info")
(set startarc-src "C/StartARC")
(set startarcicon-src "C/StartARC.info")
(set arcfiles-src "ARCFiles")
(set fromarc-src "C/FromARC")
(set toarc-src "C/ToARC")
(set catalog-src "Catalogs/")
(set help-src "Help/")
(set version "2.1")

(set @default-dest "SYS:Tools")
(set @default-tempdir "T:")
(set @default-support-dest "C:")

; Get the language
(run 'C/PrefLanguage')
(set pref-language (getenv "Language"))

;================================================================================
; English strings

(set #bad-kick
  (cat "You must have Kickstart 2.04 or higher installed to use the ARCHandler!")
)

(set #install
  (cat "\nARCHandler installation\n\n\n"
         "This script installs ARCHandler " version "\n"
         "on your Amiga.\n\n\n"
         "ARCHandler © 1994, 1995 Rafael D'Halleweyn\n"
         "All rights reserved"
  )
)

(set #update
  (cat "\nARCHandler installation\n\n\n"
         "This script updates ARCHandler to\n"
         "version " version ".\n\n\n"
         "ARCHandler © 1994, 1995 Rafael D'Halleweyn\n"
         "All rights reserved"
  )
)

(set #archandler-dest
  (cat "Where do you want to install ARCHandler?")
)

(set #archandler-dest-help
  (cat "Select the directory where you want ARCHandler to be installed. "
       "The program and some other files will be copied to this directory. "
       "Don't install ARCHandler in the WbStartup drawer (of your system "
       "partition). You will be asked later if you want to start ARCHandler "
       "when the Workbench is started.\n\n"
  )
)

(set #ask-parts
  (cat "Select the parts that you want to install:\n"
       "(Press `Help...' for a full description.)"
  )
)

(set #archandler-part "ARCHandler")
(set #wbstartup-part "WbStartup installation")
(set #catalogs-part "Catalogs")
(set #help-part "Help files")
(set #pictures-part "Help Pictures")
(set #icons-part "Default icons")
(set #support-part "Support commands")
(set #delete1x-part "Delete 1.x ARCHandler")

(set #ask-parts-help
  (cat "You should select those parts that you want to install:\n\n"
       "ARCHandler: this is the main program. If you already have ARCHandler "
       "installed, this script will only copy the progam if you have an older "
       "version;\n\n"
       "WbStartup installation: this will install a small program in the "
       "WbStartup drawer (of your system partition). This program will start "
       "ARCHandler whenever the Workbench is started (ie. when you turn on your "
       "computer);\n\n"
       "Catalogs: these are the translations of ARCHandler in different languages. "
       "You will be asked which languages you want to install;\n\n"
       "Help files: these are the help files in different languages. If you want to "
       "use the online help, you must install these files! You will be asked which "
       "languages you want to install;\n\n"
       "Help Pictures: these pictures can be viewed from the help files. They can "
       "only be used if you have MultiView (ie. Workbench 3.0 or newer);\n\n"
       "Default icons: these icons are used by ARCHandler. You don't have to install "
       "these icons, you can create your own once ARCHandler is running. If you do "
       "install these icons it is still possible to change them. When you are "
       "updating ARCHandler you shouldn't install these icons, they will overwrite "
       "the icons you are already using;\n\n"
       "Support commands: these are two support commands for ARCHandler: ToARC and "
       "FromARC. These commands can be used to change the current directory of a "
       "Shell to and from the same directory on the ARCHandler volume. These commands "
       "should only be installed if you want to use the ARCHandler filesystem from a "
       "Shell;\n\n"
       "Delete 1.x ARCHandler: this will try to delete all the files that where "
       "installed by the 1.0 or 1.0a version of ARCHandler.\n\n"
       "The Install script tries to be smart about the default parts that it selects. "
       "Normally you shouldn't change those settings.\n\n"
  )
)

(set #ask-tempdir "Please select a drawer to store temporary files:")

(set #ask-tempdir-help
  (cat "For the ARCHandler to work correctly it has to have a place to store "
       "its temporary files. All the files that are extracted from the "
       "archives are placed in this drawer. This drawer should be large enough "
       "to hold all those files. If you have lots of RAM you should use a "
       "drawer on the 'Ram Disk', otherwise use a drawer on disk.\n\n"
  )
)

(set #ask-lhacommand "Please select the path to the 'LhA' command:")

(set #ask-lhacommand-help
  (cat "For the ARCHandler to work correctly it has to known where "
       "it can find the 'LhA' command. If you want to use a resident "
       "'LhA' (=faster ARCHandler) use an empty 'Current Drawer' field "
       "and make sure 'LhA' is resident.\n\n"
  )
)

(set #which-catalog-language
  (cat "Which languages do you want to install?")
)

(set #which-catalog-language-help
  (cat "ARCHandler can be used in different languages. Select all the languages "
       "that you want to use ARCHandler in.\n\n"
  )
)

(set #which-help-language
  (cat "Which help files do you want to install?")
)

(set #which-help-language-help
  (cat "The help can be provided in different languages. Select those languages "
       "you want help for.\n\n"
  )
)

(set #support-dest
  (cat "Where do you want to install the support commands FromARC and ToARC?")
)

(set #support-help
  (cat "The FromARC and ToARC commands allow you to change the current directory "
       "of a shell.\n\n"
  )
)

(set #shareware
  (cat "ARCHandler is Shareware!\nDon't forget to register!")
)


;================================================================================
; Finnish strings

(if (= pref-language "suomi")
 (
    (set #bad-kick
      (cat "Käytössäsi tulee olla vähintään Kickstart v2.04 voidaksesi käyttää ARCHandleria!")
    )

    (set #install
      (cat "\nARCHandler - asennus\n\n\n"
             "Tämä ohjelma asentaa Amigaasi\n"
             "ARCHandlerin version " version ".\n\n\n"
             "ARCHandler © 1994, 1995 Rafael D'Halleweyn\n"
             "Kaikki oikeudet pidätetään"
      )
    )

    (set #update
      (cat "\nARCHandler - asennus\n\n\n"
             "Tämä ohjelma päivittää\n"
             "ARCHandlerin versioon " version ".\n\n\n"
             "ARCHandler © 1994, 1995 Rafael D'Halleweyn\n"
             "Kaikki oikeudet pidätetään"
      )
    )

    (set #archandler-dest
      (cat "Minne haluat asentaa ARCHandlerin?")
    )

    (set #archandler-dest-help
      (cat "Valitse hakemisto, johon haluat asentaa ARCHandlerin. "
           "Ohjelma itse sekä muutama muu tiedosto kopioidaan tähän hakemistoon. "
           "Älä asenna ARCHandleria (käynnistyslevysi) WbStartup-hakemistoon. "
           "Myöhemmin kysytään erikseen, haluatko ARCHandlerin käynnistyvän "
           "aina Workbenchin myötä.\n\n"
      )
    )

    (set #ask-parts
      (cat "Valitse asennettavat osat:\n"
           "(Painamalla `Ohje...' saat laajemman kuvauksen.)"
      )
    )

    (set #archandler-part "ARCHandler")
    (set #wbstartup-part "WbStartup-asennus")
    (set #catalogs-part "Sanastot")
    (set #help-part "Opastiedostot")
    (set #pictures-part "Apukuvat")
    (set #icons-part "Oletusikonit")
    (set #support-part "Oheiskomennot")
    (set #delete1x-part "Poista 1.x ARCHandler")

    (set #ask-parts-help
      (cat "Sinun tulisi valita osat, jotka haluat asentaa:\n\n"
           "ARCHandler: itse ohjelma. Jos olet jo ARCHandlerin käyttäjä, "
           "niin ohjelma kopioidaan vain, jos sinulla on vanhempi versio;\n\n"
           "WbStartup-asennus: asentaa pienen ohjelman (käynnistyslevysi) "
           "WbStartup-hakemistoon. Tämä ohjelma käynnistää ARCHandlerin "
           "Workbenchin myötä (eli aina kun käynnistät tietokoneesi);\n\n"
           "Sanastot: käännökset ARCHandlerista eri kielille. "
           "Sinulta kysytään, mitä kieliä haluat asentaa;\n\n"
           "Opastiedostot: erikielisiä opastiedostoja. Online-help -toiminnon "
           "käyttö edellyttää näiden asentamista! Sinulta kysytään asennettavista "
           "kielistä;\n\n"
           "Apukuvat: opastiedostoja varten. Katseleminen edellyttää, että "
           "käytössäsi on MultiView (eli vähintään Workbench 3.0);\n\n"
           "Oletusikonit: ARCHandlerin käyttöön. Sinun ei välttämättä tarvitse asentaa "
           "näitä ikoneita - voit tehdä omasi, kunhan ARCHandler on toiminnassa. Jos "
           "taas asennat ikonit, niin voit kuitenkin muuttaa niitä myöhemmin. Jos "
           "päivität ARCHandleria, niin valitsemalla asennuksen tuhoat vanhat ikonisi;\n\n"
           "Oheiskomennot: kaksi ARCHandleria tukevaa komentoa: ToARC ja FromARC. "
           "Näillä siirrytään nykyisestä komentotulkin hakemistosta vastaavaan "
           "hakemistoon ARCHandler-taltiossa ja päinvastoin. Komentoja tarvitaan "
           "ainoastaan, mikäli haluat käyttää ARCHandler-tiedostojärjestelmää "
           "komentotulkista (Shellistä) käsin;\n\n"
           "Poista 1.x ARCHandler: yrittää poistaa kaikki ARCHandlerin versioihin 1.0 "
           "tai 1.0a liittyvät tiedostot.\n\n"
           "Asennusohjelma yrittää päätellä oikein asennettavat osat. "
           "Tavallisesti näiden muuttamiseen ei ole tarvetta.\n\n"
      )
    )

    (set #ask-tempdir "Valitse hakemisto tilapäistiedostoille:")

    (set #ask-tempdir-help
      (cat "Jotta ARCHandler voisi toimia, täytyy sen voida tallentaa "
           "tilapäistiedostonsa jonnekin. Kaikki arkistoista purettavat tiedostot "
           "sijoitetaan tähän hakemistoon, joten sen tulisi olla riittävän iso.  "
           "Jos järjestelmässäsi on paljon muistia, voit käyttää RAM-levyä, "
           "muutoin aseta hakemisto esimerkiksi kiintolevylle.\n\n"
      )
    )

    (set #ask-lhacommand "Valitse 'LhA'-komennon polku:")

    (set #ask-lhacommand-help
      (cat "Jotta ARCHandler voisi toimia, täytyy sen tietää mistä löytyy "
           "'LhA'-komento. Jos haluat käyttää residenttiä (valmiiksi muistiin "
           "ladattua) 'LhA':a toimintojen nopeuttamiseksi, niin katso, että "
           "'Current Drawer' -kenttä on tyhjä ja varmista, että 'LhA' on "
           "todella residentti.\n\n"
      )
    )

    (set #which-catalog-language
      (cat "Mitkä kielet haluat asentaa?")
    )

    (set #which-catalog-language-help
      (cat "ARCHandler tukee eri kieliä. Valitse kaikki kielet, joita tarvitset.\n\n"
      )
    )

    (set #which-help-language
      (cat "Mitkä opastiedostot haluat asentaa?")
    )

    (set #which-help-language-help
      (cat "ARCHandlerin online-help tukee eri kieliä. Valitse tarvitsemasi.\n\n"
      )
    )

    (set #support-dest
      (cat "Minne haluat asentaa FromARC ja ToARC -oheiskomennot?")
    )

    (set #support-help
      (cat "FromARC ja ToARC -komennoilla siirrytään nykyisestä komentotulkin "
           "hakemistosta vastaavaan hakemistoon ARCHandler-taltiossa ja päinvastoin.\n\n"


      )
    )

    (set #shareware
      (cat "ARCHandler on Sharewarea!\nÄlä unohda rekisteröityä!")
    )
  )
)

;================================================================================
; French strings

(if (= pref-language "français")
  (
    (set #bad-kick
      (cat "Vous devez avoir un Kickstart 2.04  ou supérieur pour installer ARCHandler!")
    )

    (set #install
      (cat "\nARCHandler installation\n\n\n"
           "Ce script installe ARCHandler " version "\n"
           "dans votre Amiga.\n\n\n"
           "ARCHandler © 1994, 1995 Rafael D'Halleweyn\n"
           "Tous droits réservés"
      )
    )

    (set #update
      (cat "\nARCHandler installation\n\n\n"
           "Ce script met à jour ARCHandler à la\n"
           "version " version ".\n\n\n"
           "ARCHandler © 1994, 1995 Rafael D'Halleweyn\n"
           "Tous droits réservés"
      )
    )

    (set #archandler-dest
      (cat "Ou voulez-vous installer ARCHandler?")
    )

    (set #archandler-dest-help
      (cat "Sélectionné le répertoire ou vous voulez qu'ARCHandler soit installé. "
           "Le programe et les autres fichiers vont être copié dans ce répertoire. "
           "N'installer pas ARCHandler dans le tirroir WbStartup (de  votre partition "
           "systéme). Vous allez être interroger plus tard si vous souhaité démmarrer "
           "ARCHandler lorsque votre atelier sera chargé.\n\n"
      )
    )

    (set #ask-parts
      (cat "Sélectionné les parties que vous vouler pour l'installation:\n"
           "(Presser `Help...' pour une déscription compléte.)"
      )
    )

    (set #archandler-part "ARCHandler")
    (set #wbstartup-part "Installation dans WbStartup")
    (set #catalogs-part "Catalogues")
    (set #help-part "Fichiers d'aides")
    (set #pictures-part "Images d'aides")
    (set #icons-part "Icones défauts")
    (set #support-part "Commandes supportées")
    (set #delete1x-part "Effacement d'ARCHandler 1.x")

    (set #ask-parts-help
      (cat "Vous pouvez sélectionner les parties que vous souhaitez installer:\n\n"
           "ARCHandler: c'est le programme principal. Si vous avez déja ARCHandler "
           "d'installé, cette procédure va seulement copier le programme si vous avez "
           "une vieille version;\n\n"
           "Installation WbStartup: Ceci peut installer un petit programme dans le "
           "tirroir WbStartup (de votre partition systéme). Ce programme va lancer "
           "ARCHandler dés le chargement de l'atelier (ie. quand vous mettez en marche "
           "votre ordinateur);\n\n"
           "Catalogues: Ce sont les traductions d'ARCHandler dans de différentes langues. "
           "Vous pouvez demander la langue que vous voulez installer;\n\n"
           "Fichiers d'Aides: Ce sont les fichiers d'Aides dans de différentes langues. "
           "Si vous souhaitez utiliser l'aide en ligne, vous devez installer ce fichiers! Vous "
           "allez être questionné pour la langue que vous désirez installer;\n\n"
           "Images d'Aides: Ces images peuvent être visionnées des fichiers d'aides. "
           "Elles peuvent seulement être utilisé si vous possédez MultiView (ie. Workbench 3.0 ou plus);\n\n"
           "Icones par Défauts: Ces icones peuvent être utilisés par ARCHandler. Vous n'avez pas à "
           "installer ces icones il est possible d'en changer. Quand vous aurez mis à jour "
           "ARCHandler vous ne devez pas installer ces icones, ils vont remplacer les icones "
           "que vous êtes en train d'utiliser;\n\n"
           "Commandes de support: Elles sont deux commandes de support pour ARCHandler: "
           "ToArc et FromArc. Ces commandes peuvent être utiliser pour changer de répertoire courant "
           "du Shell de et pour le même répertoire du volume ARCHandler. Ces commandes sont seulement a "
           "installées si vous voulez utiliser ARCHandler à partir du Shell;\n\n"
           "Effacer ARCHandler 1.x: Ceci va effacer tous les fichiers qui ont étaient "
           "installés par la version 1.0 ou 1.0a d'ARCHandler.\n\n"
           "La procédure d'installation choisi pour être bien a propos la partie "
           "des défauts a sélectionner. "
           "Normalement vous n'avez pas à changer les réglages.\n\n"
      )
    )

    (set #ask-tempdir "S'il vous plait sélectionner le tirroir pour les fichiers temporaires de réserves:")

    (set #ask-tempdir-help
      (cat "Pour que ARCHandler fonctionne correctement il doit placé en réserve "
           "des fichiers temporaires. Tous les fichiers sont décompatés de "
           "l'archive et sont placés dans ce répertoire. Ce tirroir doit être gros "
           "pour contenir tous les fichiers. Si vous avez suffissement de mémoire RAM "
           "vous devez utiliser le tirroir 'Ram Disk', autrement utilisé un tirroir sur un disque.\n\n"
      )
    )

    (set #ask-lhacommand "S'il vous plait sélectionné le chemin de la commande 'LhA':")

    (set #ask-lhacommand-help
      (cat "Pour que ARCHandler fonctionne correctement il doit connatitre ou "
           "il doit pouvoir trouver la commande 'LhA'. Si vous voulez utiliser"
           "'LhA' en résident (=rapide ARCHandler) utiliser un champ vide "
           "'Tirroir courant' et vous assurez que 'LhA' est résidant.\n\n"
      )
    )

    (set #which-catalog-language
      (cat "Quel langue vous souhaitez installer?")
    )

    (set #which-catalog-language-help
      (cat "ARCHandler peut être utiliser dans de differents langues. Sélectionné "
           "tous les langages que vous voulez utiliser avec ARCHandler.\n\n"
      )
    )

    (set #which-help-language
      (cat "Quel fichier d'aide vous souhaitez installer?")
    )

    (set #which-help-language-help
      (cat "L'aide peut être disponible dans des langues differentes."
           "Sélectionné les langues que vous voulez pour l'aide.\n\n"
      )
    )

    (set #support-dest
      (cat "Ou vous souhaitez installer les commandes supports FromARC et ToARC?")
    )

    (set #support-help
      (cat "Les commandes FromARC et ToARC vous permettent de changer de répertoire "
           "du shell.\n\n"
      )
    )

    (set #shareware
      (cat "ARCHandler est un Shareware!\nNe pas oublier de vous enregistrez!")
    )
  )
)

;================================================================================
; Dutch strings

(if (= pref-language "nederlands")
  (
    (set #bad-kick
      (cat "U hebt Kickstart 2.04 of hoger nodig om om ARCHandler te kunnen gebruiken!")
    )

    (set #install
      (cat "\nARCHandler installatie\n\n\n"
             "Dit script installeert ARCHandler " version "\n"
             "op uw Amiga.\n\n\n"
             "ARCHandler © 1994, 1995 Rafael D'Halleweyn\n"
             "Alle rechten voorbehouden"
      )
    )

    (set #update
      (cat "\nARCHandler installatie\n\n\n"
             "Dit script werkt ARCHandler bij\n"
             "tot versie " version ".\n\n\n"
             "ARCHandler © 1994, 1995 Rafael D'Halleweyn\n"
             "Alle rechten voorbehouden"
      )
    )

    (set #archandler-dest
      (cat "Waar wilt u ARCHandler installeren?")
    )

    (set #archandler-dest-help
      (cat "Selecteer de lade waar u ARCHandler wilt geïnstalleerd hebben. Het "
           "programma en enkele andere bestanden zullen naar deze lade gekopieerd "
           "worden. Instaleer ARCHandler niet in de WbStartup lade (van uw "
           "systeem partitie). U zult later gevraagd worden of u ARCHandler "
           "automatisch gestart wilt hebben wanneer de Workbench gestart wordt.\n\n"
      )
    )

    (set #ask-parts
      (cat "Selecteer de delen die u wil installeren:\n"
           "(Druk op `Help...' voor een volledige beschrijving.)"
      )
    )

    (set #archandler-part "ARCHandler")
    (set #wbstartup-part  "WbStartup installatie")
    (set #catalogs-part   "Catalogen")
    (set #help-part       "Hulp bestanden")
    (set #pictures-part   "Hulp Tekeningen")
    (set #icons-part      "Standaard iconen")
    (set #support-part    "Extra commando's")
    (set #delete1x-part   "Verwijder 1.x ARCHandler")

    (set #ask-parts-help
      (cat "U moet die delen kiezen die u will installeren:\n\n"
           "ARCHandler: dit is het hoofd programma. Indien u ARCHandler al eerder "
           "geïnstalleerd hebt, zal dit script het programma enkel kopiëren als u "
           "een oudere versie heeft;\n\n"
           "WbStartup installatie: dit zal een klein programmaatje in de WbStartup "
           "lade (van uw systeem partitie) installeren. Dit programmaatje zal "
           "ARCHandler opstarten wanneer de Workbench gestart wordt (dus wanneer u "
           "uw computer aanzet);\n\n"
           "Catalogen: dit zijn de vertalingen van ARCHandler in verschillende talen. "
           "U zult gevraagd worden welke talen geïnstalleerd moeten worden;\n\n"
           "Hulp bestanden: dit zijn de hulp bestanden in verschillende talen. Als "
           "u gebruikt wilt maken van de hulp vanuit het programma, moet u deze "
           "bestanden installeren! U zult gevraagd worden welke talen geïnstalleerd "
           "moeten worden;\n\n"
           "Hulp Tekeningen: deze tekeningen kunnen bekeken worden vanuit de hulp "
           "bestanden. Ze kunnen enkel gebruikt worden als u MultiView heeft (dus "
           "Workbench 3.0 of nieuwer);\n\n"
           "Standaard iconen: deze iconen worden gebruikt door ARCHandler. U hoeft "
           "deze iconen niet te installeren, u kunt uw eigen iconen creëren wanneer "
           "ARCHandler opgestart is. Als u toch deze iconen installeerd is het nog "
           "steeds mogelijk om ze te veranderen. Wanneer u een nieuwe versie van "
           "ARCHandler installeerd dan moet u deze iconen niet installeren, omdat "
           "daarbij uw eigen iconen verloren gaan;\n\n"
           "Extra commando's: dit zijn twee commando's: ToARC and FromARC. Ze kunnen "
           "gebruikt worden om de 'current directory' van een Shell te veranderen "
           "naar en van dezelfde directory op het ARCHandler volume. Deze commando's "
           "moeten alleen maar geïnstalleerd moeten worden als u het ARCHandler "
           "bestandensysteem vanuit een Shell wenst te gebruiken.\n\n"
           "Verwijder 1.x ARCHandler: dit zal proberen om alle bestanden die door "
           "versie 1.0 of 1.0a geïnstalleerd werden te verwijderen.\n\n"
           "Het installatie script probeert zelf te selecteren welke delen "
           "geïnstallerd moeten worden. Waarschijnlijk hoeft u hier niks meer aan te "
           "veranderen.\n\n"
      )
    )

    (set #ask-tempdir "Kies een lade voor de tijdelijke bestanden:")

    (set #ask-tempdir-help
      (cat "Opdat ARCHandler correct zou kunnen werken, heeft het een plaats nodig "
           "om zijn tijdelijke bestanden te bewaren. Al de bestanden die uit een "
           "archief worden gehaald worden in deze lade geplaatst. Deze lade moet "
           "groot genoeg zijn om alle deze bestanden te bevatten. Als u voldoende "
           "vrij geheugen hebt, kunt u het best 'Ram Disk' gebruiken, anders is "
           "een lade op schijf beter.\n\n")
    )

    (set #ask-lhacommand "Selecteer het volledige pad naar het 'LhA' commando:")

    (set #ask-lhacommand-help
      (cat "Opdat ARCHandler correct zou kunnen werken, moet het weten waar het "
           "het 'Lha' commando kan vinden. Als u een residente 'LhA' wilt "
           "gebruiken (= snellere ARCHandler) gebruik dan een leeg 'Geselecteerde "
           "lade' veld en zorg dat 'LhA' resident is.\n\n")
    )

    (set #which-catalog-language
      (cat "Welke talen wilt u installeren?")
    )

    (set #which-catalog-language-help
      (cat "ARCHandler kan gebruikt worden in verschillende talen. Selecteer al "
           "de talen waarin u ARCHandler wilt gebruiken.\n\n"
      )
    )

    (set #which-help-language
      (cat "Welke hulp bestanden wilt u installeren?")
    )

    (set #which-help-language-help
      (cat "Hulp kan gegeven worden in verschillende talen. Selecteer al de talen "
           "waarin u hulp wilt krijgen.\n\n"
      )
    )

    (set #support-dest
      (cat "Waar wilt u de ondersteunings commando's FromARC en ToARC plaatsen?")
    )

    (set #support-help
      (cat "De FromARC en ToARC commando's laten u toe om vanuit de Shell direct "
           "naar het ARCHandler bestandensysteem te gaan, of terug.\n\n")
    )

    (set #shareware
      (cat "ARCHandler is Shareware!\n"
           "Vergeet niet te registreren!")
    )
  )
)

;================================================================================
; German strings

(if (= pref-language "deutsch")
  (

    (set #bad-kick
      (cat "Sie müssen Kickstart 2.04 oder besser haben um ARCHandler zu benutzen!")
    )

    (set #install
      (cat "\nARCHandler Installation\n\n\n"
             "Dieses Script installiert ARCHandler " version "\n"
             "auf Ihrem Amiga.\n\n\n"
             "ARCHandler © 1994, 1995 Rafael D'Halleweyn\n"
             "Alle Rechte vorbehalten"
      )
    )

    (set #update
      (cat "\nARCHandler Installation\n\n\n"
             "Dieses Script erneuert ARCHandler auf\n"
             "Version " version ".\n\n\n"
             "ARCHandler © 1994, 1995 Rafael D'Halleweyn\n"
             "Alle Rechte vorbehalten"
      )
    )

    (set #archandler-dest
      (cat "Wo wollen Sie ARCHandler installieren?")
    )

    (set #archandler-dest-help
      (cat "Wählen Sie das Verzeichnis, in dem Sie ARCHandler installieren möechten. "
           "Das Programm und einige andere Dateien werden in dieses Verzeichnis kopiert. "
           "Installieren Sie ARCHandler nicht ins Verzeichnis WBStartup (auf Ihrer System-"
           "Partition). Sie werden später noch gefragt, ob Sie ARCHandler starten wollen"
           "wenn die Workbench hochgefahren wird.\n\n"
      )
    )

    (set #ask-parts
      (cat "Wählen Sie die Teile aus, die Sie installieren möchten:\n"
           "(Drücken Sie `Hilfe...' für eine ausführliche Erklärung.)"
      )
    )

    (set #archandler-part "ARCHandler")
    (set #wbstartup-part "WBStartup Installation")
    (set #catalogs-part "Kataloge")
    (set #help-part "Hilfe Dateien")
    (set #pictures-part "Hilfe Bilder")
    (set #icons-part "Standard Piktogramme")
    (set #support-part "Unterstützende Kommandos")
    (set #delete1x-part "Löschen von 1.x ARCHandler")

    (set #ask-parts-help
      (cat "Sie sollten die Teile auswählen, die Sie installieren möchten:\n\n"
           "ARCHandler: dies ist das Hauptprogramm. Wenn Sie bereits ARCHandler "
           "installiert haben kopiert dieses Script nur das Programm, falls Sie "
           "eine ältere Version haben;\n\n"
           "WBStartup Installation: dies installiert ein kleines Programm im "
           "WBStartup-Verzeichnis (auf Ihrer System-Partition). Dieses Programm "
           "startet ARCHandler immer wenn die Workbench gestartet wird (d.h. wenn "
           "Sie Ihren Rechner einschalten);\n\n"
           "Kataloge: dies sind die Übersetzungen von ARCHandler in verschiedene "
           "Sprachen. Sie werden noch gefragt, welche Sprache Sie installieren "
           "möchten;\n\n"
           "Hilfe Dateien: dies sind die Hilfedateien in verschiedene Sprachen. "
           "Wenn Sie die Online-Hilfe nutzen möchten, müssen Sie diese Dateien "
           "installieren! Sie werden noch gefragt, welche Sprache Sie installieren"
           "möchten;\n\n"
           "Hilfe Bilder: diese Bilder können aus den Hilfe-Dateien heraus "
           "betrachtet werden. Sie können nur genutzt werden, wenn Sie MultiView "
           "haben (d.h. Workbench 3.0 oder besser);\n\n"
           "Standard Piktogramme: diese Piktogramme werden von ARCHandler benutzt. "
           "Sie müssen diese Piktogramme nicht installieren. Sie können auch "
           "eigenen Piktogramme verwenden nachdem ARCHandler einmal installiert "
           "ist. Wenn Sie diese Piktogramme installieren, ist es immer noch "
           "möglich sie zu verändern. Wenn Sie ARCHandler erneuern, sollten Sie "
           "diese Piktogramme nicht installieren. Sie würden die Piktogramme die "
           "Sie bereits benutzen überschreiben;\n\n"
           "Unterstütztende Kommandos: dies sind zwei unterstützende Kommados für "
           "ARCHandler: ToARC und FromARC. Diese Kommandos können benutzt werden "
           "um das aktuelle Verzeichnis einer Shell auf das oder von dem "
           "ARCHandler-Laufwerk zu ändern. Diese Kommandos sollten nur "
           "installiert werden wenn Sie das ARCHandler Filesystem in einer Shell "
           "nutzen wollen;\n\n"
           "Löschen von 1.x ARCHandler: dies versucht alle Dateien die in mit "
           "den Versionen 1.0 oder 1.0a von ARCHandler installiert wurden zu "
           "löschen\n\n"
           "Das Installationsscript versucht die voreingestellten Teile "
           "möglichst gut zu treffen. Normalerweise sollten Sie nichts an diesen "
           "Einstellungen ändern müssen.\n\n"
      )
    )

    (set #ask-tempdir "Wählen Sie bitte ein Verzeichnis um temporäre Datein zu speichern:")

    (set #ask-tempdir-help
      (cat "Damit ARCHandler korrekt arbeiten kann muß er einen Platzt haben um "
           "seine temporäre Datein zwischen zu speichern. Alle Dateien die aus "
           "einem Archiv extrahiert werden, werden in diesem Verzeichnis zwischen- "
           "gespeichert. Dieses Verzeichnis sollte gross genug sein um alle diese "
           "Dateien zu halten. Falls Sie (zu-)viel Speicher haben sollten Sie ein "
           "Verzeichnis auf der 'Ram Disk' benutzen, ansonsten ein Verzeichnis "
           "auf Festplatte.\n\n"
      )
    )

    (set #ask-lhacommand "Geben Sie bitte den Pfad des 'LhA' Kommandos an:")

    (set #ask-lhacommand-help
      (cat "Damit ARCHandler korrekt arbeiten kann muß er wissen wo er das "
           "'LhA' Kommando finden kann. Wenn Sie einen residenten 'LhA' "
           "(=schnellerer ARCHandler) benutzen wollen, nehmen Sie ein "
           "'Leeres Verzeichnis' Feld und stellen Sie sicher, daß 'LhA' "
           "resident ist.\n\n"
      )
    )

    (set #which-catalog-language
      (cat "Welche Sprachen wollen Sie installieren?")
    )

    (set #which-catalog-language-help
      (cat "ARCHandler kann in verschiedenen Sprachen benutzt werden. "
           "Wählen Sie all die Sprachen in denen Sie ARCHandler "
           "nutzen wollen.\n\n"
      )
    )

    (set #which-help-language
      (cat "Welche Hilfe-Dateien wollen Sie installieren?")
    )

    (set #which-help-language-help
      (cat "Die Hilfe kann in verschiedenen Sprachen erfolgen. Wählen "
           "Sie die Sprachen in den Sie die Hilfe wünschen.\n\n"
      )
    )

    (set #support-dest
      (cat "Wo wollen Sie die unterstützenden Kommandos FromARC "
           "und ToARC installieren?")
    )

    (set #support-help
      (cat "Die Kommandos FromARC und ToARC erlauben es Ihnen das "
           "aktuelle Verzeichnis in der Shell zu wechseln.\n\n"
      )
    )

    (set #shareware
      (cat "ARCHandler ist Shareware!\nVergessen Sie nicht sich "
           "zu registrieren!")
    )
  ) 
)
 
;================================================================================
; Spanish strings

(if (= pref-language "español")
  (
    (set #bad-kick
      (cat "¡Debes tener instalado un Kickstart 2.04 o superior para usar ARCHandler!")
    )

    (set #install
      (cat "\nInstalación de ARCHandler\n\n\n"
             "Este script instala ARCHandler " version "\n"
             "en tu Amiga.\n\n\n"
             "ARCHandler © 1994, 1995 Rafael D'Halleweyn\n"
             "Reservados todos los derechos")
    )

    (set #update
      (cat "\nInstalación de ARCHandler\n\n\n"
             "Este script actualiza ARCHandler a\n"
             "la versión " version ".\n\n\n"
             "ARCHandler © 1994, 1995 Rafael D'Halleweyn\n"
             "Reservados todos los derechos")
    )

    (set #archandler-dest
      (cat "¿Donde quieres instalar ARCHandler?")
    )

    (set #archandler-dest-help
      (cat "Indica el directorio en el que quieres instalar ARCHandler. "
           "El programa  ARCHandler  se copiará en ese  directorio.  El "
           "script también  creará un directorio  'ARCFiles'  dentro de "
           "ese directorio.\n\n"
      ) ; add something here!
    )

    ;(set #ask-parts "")

    ;(set #archandler-part "")
    ;(set #wbstartup-part "")
    ;(set #catalogs-part "")
    ;(set #help-part "")
    ;(set #pictures-part "")
    ;(set #icons-part "")
    ;(set #support-part "")
    ;(set #delete1x-part "")

    ;(set #ask-parts-help "")

    (set #ask-tempdir "Por favor, indica un directorio para los ficheros temporales:")

    (set #ask-tempdir-help
      (cat "Para que ARCHandler funcione correctamente  debe tener un lugar donde "
           "guardar sus ficheros temporales.  Todos los ficheros que se extraigan "
           "de los archivos se pondrán en este directorio. El directorio debe ser "
           "lo suficientemente grande como para acoger a todos esos ficheros.  Si "
           "tienes suficiente memoria, deberías usar un directorio en 'Ram Disk', "
           "si no, usa un directorio en disco.\n\n")
    )

    (set #ask-lhacommand "Por favor, indica el camino hacia el comando 'LhA':")

    (set #ask-lhacommand-help
      (cat "Para que  ARCHandler funcione correctamente  debe saber donde "
           "puede encontrar el comando  'LhA'.  Si quieres usar un  'LhA' "
           "residente (=ARCHandler más rápido) usa un campo 'Dir. Actual' "
           "vacío, y asegúrate de que 'LhA' está residente.\n\n")
    )

    (set #which-catalog-language
      (cat "¿Qué idiomas deseas instalar?")
    )

    (set #which-catalog-language-help
      (cat "ARCHandler se puede usar en diferentes idiomas. Elige todos los "
           "idiomas que quieras usar en ARCHandler.\n\n"
      )
    )

    ;(set #which-help-language "")

    ;(set #which-help-language-help "")

    (set #support-dest
      (cat "¿Donde quieres instalar los comandos de apoyo FromARC y ToARC?")
    )

    (set #support-help
      (cat "Los comandos FromARC y ToARC te permiten cambiar el directorio "
           "actual de un shell.\n\n")
    )

    (set #shareware
      (cat "ARCHandler es Shareware!\n¡No te olvides de registrarte!")
    )
  )
)

;================================================================================
; Swedish strings

(if (= pref-language "svenska")
  (
    (set #bad-kick
      (cat "Du måste använda Kickstart 2.04+ för att installera ARCHandler")
    )

    (set #install
      (cat
        "\nARCHandler-installation\n\n\n"
        "Det här programmet installerar ARCHandler " version "\n"
        "i din Amiga.\n\n\n"
        "ARCHandler © 1994, 1995 Rafael D'Halleweyn\n"
        "Alla rättigheter reserverade"
      )
    )

    (set #update
      (cat
        "\nARCHandler-installation\n\n\n"
        "Det här programmet uppdaterar ARCHandler\n"
        "till version " version ".\n\n\n"
        "ARCHandler © 1994, 1995 Rafael D'Halleweyn\n"
        "Alla rättigheter reserverade"
      )
    )

    (set #archandler-dest "Var vill du placera?")

    (set #archandler-dest-help
      (cat
        "Välj den låda du vill placera ARCHandler i. "
        "ARCHandler-programmet kommer att kopieras till den här lådan. "
        "Installationsprogrammet kommer också att skapa lådan 'ARCFiles' i "
        "den här lådan.\n\n"
      ) ; add something here
    )

    ;(set #ask-parts "")

    ;(set #archandler-part "")
    ;(set #wbstartup-part "")
    ;(set #catalogs-part "")
    ;(set #help-part "")
    ;(set #pictures-part "")
    ;(set #icons-part "")
    ;(set #support-part "")
    ;(set #delete1x-part "")

    ;(set #ask-parts-help "")

    (set #ask-tempdir "Välj en låda att lagra temporära filer i:")

    (set #ask-tempdir-help
      (cat
        "För att ARCHandler ska fungera korrekt så måste den ha ett ställe "
        "att lagra sina temporära filer i. Alla filer som packas upp från "
        "arkivet placeras i den här lådan. Den bör vara stor nog för att "
        "kunna hålla alla dessa filer. Om du har mycket RAM-minne bör du använda "
        "en låda på ramdisken, använd annars en låda på disk.\n\n"
      )
    )

    (set #ask-lhacommand "Ange sökvägen till LhA-kommandot:")

    (set #ask-lhacommand-help
      (cat
        "För att ARCHandler ska fungera korrekt så måste den veta var "
        "LhA-kommandot finns. Om du vill använda en resident kopia av LhA "
        "(= snabbare ARCHandler), så ange en tom 'aktuell låda', och se "
        "till att LhA är resident.\n\n"
      )
    )

    ;(set #which-catalog-language "")

    ;(set #which-catalog-language-help "")

    ;(set #which-help-language "")

    ;(set #which-help-language-help "")

    (set #support-dest
      (cat "Var vill du installera de extra kommandona FromARC och ToARC?")
    )

    (set #support-help
      "Kommandona FromARC och ToARC låter dig ändra ett skals aktuella låda.\n\n"
    )

    (set #shareware
      (cat
        "ARCHAndler är shareware!\nGlöm inte att registrera!"
      )
    )
  )
)

;================================================================================
; check Kickstart and Workbench

(if (< (/ (getversion) 65536) 37)
  (
    (abort #bad-kick)
  )
)
(set wbversion (/ (getversion "version.library") 65536))

;================================================================================
; Hi there...

; try to find ARCHandler
(user 0)
(run 'C/FindCommand ARCHandler'
  (safe)
)
(set archandler-dest (pathonly (getenv "commandpath")))
(run 'UnSetEnv commandpath'
  (safe)
)

; install or update?
(user 1)
(if (= archandler-dest "")
  (
    (message #install "\n\n" #shareware)
    (set update 0)
  )
  (
    (message #update "\n\n" #shareware)
    (set update 1)
  )
)
(welcome)
(set old-user-level @user-level)

;================================================================================
; Ask questions

(complete 0)

; find destination
(if (not update)
  (
    (user 2)
    (set archandler-dest
      (askdir
        (prompt #archandler-dest)
        (help #archandler-dest-help @askdir-help)
        (default @default-dest)
      )
    )
    (user old-user-level)
    (if (= (exists (tackon archandler-dest "ARCHandler") (noreq)) 1)
      (set update 1)
    )
  )
)

(complete 5)

; try to find support commands
(user 0)
(run 'C/FindCommand FromARC'
  (safe)
)
(set support-dest (pathonly (getenv "commandpath")))
(run 'UnSetEnv commandpath'
  (safe)
)
;(user old-user-level)

; try to find old support command
;(user 0)
(run 'C/FindCommand FlushARC'
  (safe)
)
(set flusharc-dir (pathonly (getenv "commandpath")))
(run 'UnSetEnv commandpath'
  (safe)
)
(user old-user-level)

(complete 10)

; select parts to install
(set default-parts (+ 1 8))
(if (exists "SYS:WbStartup/StartARC" (noreq))
  (set default-parts (bitor default-parts 2))
)
(if (and (<= wbversion 38) (exists "LOCALE:"))
  (set default-parts (bitor default-parts 4))
)
(if (<= wbversion 39)
  (set default-parts (bitor default-parts 16))
)
(if (not update)
  (set default-parts (bitor default-parts 32))
)
(if (<> support-dest "")
  (set default-parts (bitor default-parts 64))
)
(if (or (exists "L:arc-handler") (<> flusharc-dir ""))
  (set default-parts (bitor default-parts 128))
)
(set parts
  (askoptions
    (prompt #ask-parts)
    (help #ask-parts-help @askoptions-help)
    (choices
      #archandler-part
      #wbstartup-part
      #catalogs-part
      #help-part
      #pictures-part
    )
    (default default-parts)
  )
)
(set parts2
  (askoptions
    (prompt #ask-parts)
    (help #ask-parts-help @askoptions-help)
    (choices
      #icons-part
      #support-part
      #delete1x-part
    )
    (default (/ default-parts 32))
  )
)
(set parts (+ parts (* parts2 32)))

(complete 15)

; select directory for temporary files
(if (and (not update) (bitand parts 1))
  (set tempdir
    (askdir
      (prompt #ask-tempdir)
      (help #ask-tempdir-help @askdir-help)
      (default @default-tempdir)
    )
  )
)

(complete 20)

; select lha command
(if (and (not update) (bitand parts 1))
  (
    (user 0)
    (run 'C/FindCommand LhA'
      (safe)
    )
    (set lhapath (getenv "commandpath"))
    (run 'UnSetEnv commandpath'
      (safe)
    )
    (if (= lhapath "")
      (
        (user 2)
        (set lhapath
          (askdir
            (prompt #ask-lhacommand)
            (help #ask-lhacommand-help @askdir-help)
            (default "C:")
          )
        )
        (set lhapath (tackon lhapath "LhA"))
      )
    )
    (user old-user-level)
  )
)

(complete 25)

; select catalog languages to install
(if (bitand parts 4)
  (
    ; default language
    (set n 0)
    (set m 1)
    (set default-catalog-languages 2)
    (while
      (set catalog-language
        (select n
          "dansk"
          "deutsch"
          "english"
          "español"
          "français"
          "italiano"
          "nederlands"
          "português"
          "suomi"
          "svenska"
          ""
        )
      )
      (
        (if (= catalog-language pref-language)
          (set default-catalog-languages m)
        )
        (set n (+ n 1))
        (set m (+ m m))
      )
    )

    ; select languages
    (set catalog-languages
      (askoptions
        (prompt #which-catalog-language)
        (help #which-catalog-language-help @askoptions-help)
        (choices
          "Dansk"
          "Deutsch"
          "English"
          "Español"
          "Français"
          "Italiano"
          "Nederlands"
          "Português"
          "Suomi"
          "Svenska"
        )
        (default default-catalog-languages)
      )
    )
  )
)

(complete 30)

; select help languages to install
(if (bitand parts 8)
  (
    ; default language
    (set n 0)
    (set m 1)
    (set default-help-languages 1)
    (while
      (set help-language
        (select n
          "english"
          ""
        )
      )
      (
        (if (= help-language pref-language)
          (set default-help-languages m)
        )
        (set n (+ n 1))
        (set m (+ m m))
      )
    )

    ; select languages
    (set help-languages
      (askoptions
        (prompt #which-help-language)
        (help #which-help-language-help @askoptions-help)
        (choices
          "English"
        )
        (default default-help-languages)
      )
    )
  )
)

(complete 35)

; where do the support commands go?
(if (bitand parts 64)
  (
    (if (= support-dest "")
      (
        (user 2)
        (set support-dest
          (askdir
            (prompt #support-dest)
            (help #support-help @askdir-help)
            (default @default-support-dest)
          )
        )
        (user old-user-level)
      )
    )
  )
)

(complete 40)

;================================================================================
; Install everything

; program
(if (bitand parts 1)
  (
    (copylib
      (source archandler-src)
      (dest archandler-dest)
    )

    ; it's icon
    (if (not update)
      (
        (copyfiles
          (source archandlericon-src)
          (dest archandler-dest)
        )
        (tooltype
          (dest (tackon archandler-dest "ARCHandler"))
          (settooltype "LHACOMMAND" lhapath)
          (settooltype "(LHACOMMAND")
          (settooltype "FILESDIR" (tackon archandler-dest "ARCFiles"))
          (settooltype "(FILESDIR")
          (settooltype "TEMPDIR" tempdir)
          (settooltype "(TEMPDIR")

          ; Try to remove NewIcons: if NewIcons is installed these won't be found.
          (settooltype "*** DON'T EDIT THE FOLLOWING LINES!! ***")
          (settooltype "IM1")
          (settooltype "IM1")
          (settooltype "IM1")
          (settooltype "IM1")
          (settooltype "IM2")
          (settooltype "IM2")
          (settooltype "IM2")
          (settooltype "IM2")
          (settooltype "IM2")
          (settooltype "IM2")
          (noposition)
        )
      )
    )
  )
)

(complete 50)

; launcher
(if (bitand parts 2)
  (
    ; WbStartup drawer
    (makedir "SYS:WbStartup"
      (infos)
    )

    ; launcher
    (copylib
      (source startarc-src)
      (dest "SYS:WbStartup")
    )

    ; launcher icon
    (if (not (bitand default-parts 2))
      (
        (copyfiles
          (source startarcicon-src)
          (dest "SYS:WbStartup")
        )
        (tooltype
          (dest "SYS:WbStartup/StartARC")
          (settooltype "PROGRAM" (tackon archandler-dest "ARCHandler"))
          (settooltype "(PROGRAM")
          (noposition)
        )
      )
    )
  )
)

(complete 60)

; files dir
(if (bitand parts 33)
  (
    (set arcfiles-dest (tackon archandler-dest "ARCFiles"))
    (makedir arcfiles-dest)

    ; default icons
    (if (bitand parts 32)
      (copyfiles
        (source arcfiles-src)
        (dest arcfiles-dest)
        (all)
      )
    )
  )
)

(complete 65)

; catalogs
(if (bitand parts 4)
  (
    ; catalog directory
    (makedir "LOCALE:Catalogs")

    ; catalogs
    (set n 0)
    (while
      (set catalog-language
        (select n
          "dansk"
          "deutsch"
          "english"
          "español"
          "français"
          "italiano"
          "nederlands"
          "português"
          "suomi"
          "svenska"
          ""
        )
      )
      (
        (if (and (in catalog-languages n) (<> "english" catalog-language))
          (
            (copyfiles
              (source catalog-src)
              (dest "LOCALE:Catalogs/")
              (pattern catalog-language)
            )
          )
        )
        (set n (+ n 1))
      )
    )
  )
)

(complete 75)

; help
(if (bitand parts 24)
  (
    ; help directory
    (set help-dest (tackon archandler-dest "Help"))
    (makedir help-dest
      (infos)
    )

    ; help files
    (if (bitand parts 8)
      (
        (set n 0)
        (while
          (set help-language
            (select n
              "english"
              ""
            )
          )
          (
            (if (in help-languages n)
              (
                (makedir (tackon help-dest help-language)
                  (infos)
                )
                (copyfiles
                  (source help-src)
                  (dest help-dest)
                  (pattern help-language)
                )
                (tooltype
                  (dest (tackon (tackon help-dest help-language) "ARCHandler.guide"))
                  (if (<= wbversion 39)
                    (setdefaulttool "MultiView")
                    (setdefaulttool "AmigaGuide")
                  )
                  (noposition)
                )
              )
            )
            (set n (+ n 1))
          )
        )
      )
    )

    (complete 85)

    ; help pictures
    (if (bitand parts 16)
      (copyfiles
        (source (tackon help-src "Pictures"))
        (dest (tackon help-dest "Pictures"))
        (all)
      )
    )
  )
)

(complete 90)

; support commands
(if (bitand parts 64)
  (
    (copylib
      (source fromarc-src)
      (dest support-dest)
    )
    (copylib
      (source toarc-src)
      (dest support-dest)
    )
  )
)

(complete 98)

; delete 1.x archandler
(if (bitand parts 128)
  (
    (delete "L:arc-handler")
    (delete (tackon flusharc-dir "FlushARC"))
    (delete "DEVS:DOSDrivers/ARC")
    (delete "DEVS:DOSDrivers/ARC.info")
    (delete "SYS:Storage/DOSDrivers/ARC")
    (delete "SYS:Storage/DOSDrivers/ARC.info")
  )
)

(complete 100)

;================================================================================
; Goodbye...

(set @default-dest archandler-dest)
(exit "\n" #shareware)