;;$VER: Install 37.27 (17.1.95)
;;
;;  $Filename: Install $
;;  $Version: 37.27 $
;;  $Date: 17.1.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 @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 2.0\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 2.0.\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 is 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!")
)


;================================================================================
; 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 2.0\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 2.0.\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!")
    )
  )
)

;================================================================================
; 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 2.0\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 2.0.\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 ReqChange")
    )

    (set #install
      (cat
        "\nARCHandler-installation\n\n\n"
        "Det här programmet installerar ARCHandler 2.0\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 2.0.\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 'SetEnv archandlerpath "`C/FindCommand ARCHandler`"'
  (safe)
)
(set archandler-dest (pathonly (getenv "archandlerpath")))
(run 'UnSetEnv archandlerpath'
  (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 'SetEnv supportpath "`C/FindCommand FromARC`"'
  (safe)
)
(set support-dest (pathonly (getenv "supportpath")))
(run 'UnSetEnv supportpath'
  (safe)
)
;(user old-user-level)

; try to find old support command
;(user 0)
(run 'SetEnv flusharcpath "`C/FindCommand FlushARC`"'
  (safe)
)
(set flusharc-dir (pathonly (getenv "flusharcpath")))
(run 'UnSetEnv flusharcpath'
  (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
      #icons-part
      #support-part
      #delete1x-part
    )
    (default default-parts)
  )
)

(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 'SetEnv lhapath "`C/FindCommand LhA`"'
      (safe)
    )
    (set lhapath (getenv "lhapath"))
    (run 'UnSetEnv lhapath'
      (safe)
    )
    (if (= lhapath "")
      (
        (user 2)
        (set lhapath
          (askdir
            (prompt #ask-lhacommand)
            (help #ask-lhacommand-help @askdir-help)
            (default "C:")
          )
        )
      )
    )
    (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 1)
    (while
      (set catalog-language
        (select n
          "english"
          "español"
          "italiano"
          "nederlands"
          "português"
          "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
          "English"
          "Español"
          "Italiano"
          "Nederlands"
          "Português"
          "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")
          (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
          "english"
          "español"
          "italiano"
          "nederlands"
          "português"
          "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)