; ·--------------------------------------------------------·
; |           Install script  for AmiMasterGear            |
; |                Written by Tomas Amsrud                 |
; |         AmiMasterGear is © Juan Antonio Gómez          |
; |   Send Translations to me at: gdwarf@applausenett.no   |
; `--------------------------------------------------------'
; $Ver: AmiMasterGear Installer V1.12 (19971004)

;***************************************************************************
;*** Something Default
;***************************************************************************

(set @default-dest "")
(set emunam "AmiMasterGear")       ; Name of Program to Install
(set emuver "0.62")                ; Emulator Version
(set insver "1.12")                ; Install Script Version
(set emuaut "Juan Antonio Gómez")  ; Emulator Author
(set insaut "Tomas Amsrud")        ; Install Script Maker

;***************************************************************************
;*** Choose Language
;***************************************************************************

(complete 0)
(set lang
      (askchoice (prompt "\nWhat Language Do you want to use???")
                 (help @askchoise-help)
                 (choices "English" "German" "French" "Italian" "Español" "Norsk" "Svensk " "Dutch")))

;*****************
;**** ENGLISH ****
;*****************
(set #about (cat "\n\n\nWelcome to\n\nInstalation of " emunam " v" emuver "\n" emunam " is ©" emuaut "\n\nInstalation script v" insver "\nby " insaut))
(set #where (cat "\nWhere do you want to install " emunam "? (A drawer will be created)"))
(set #whaticon   "\nWhat kind of Icons do you want to install?")
(set #filecopy   ". .. ....Copying Files.... .. .")
(set #doccopy    ". .. ....Copying Docs.... .. .")
(set #packicons  ". .. ....Un-Packing Icons.... .. .")
(set #copyicons  ". .. ....Copying Icons.... .. .")
(set #cleanup    ". .. ....Cleaning Up.... .. .")

;*****************
;**** German  **** 'German' Translation done by Richard Körber
;*****************
(if (= lang 1)
((set #about (cat "\n\n\nWillkommen zu der\n\nInstallation von " emunam " V" emuver "\n" emunam " ist ©" emuaut "\n\nInstaller-Skript V" insver "\nvon " insaut "\n\nDeutsche Übersetzung von Richard Körber"))
 (set #where (cat "\nWohin soll " emunam " installiert werden? (Verzeichnis wird angelegt)"))
 (set #whaticon   "\nWelche Piktogramme möchten Sie installieren?")
 (set #filecopy   ". .. ....Kopiere Dateien.... .. .")
 (set #doccopy    ". .. ....Kopiere Anleitungen.... .. .")
 (set #packicons  ". .. ....Entpacke Piktogramme.... .. .")
 (set #copyicons  ". .. ....Kopiere Piktogramme.... .. .")
 (set #cleanup    ". .. ....Räume auf.... .. .")
))

;*****************
;**** French  **** French translation made by Pascal Willano
;*****************
(if (= lang 2)
((set #about (cat "\n\n\nBienvenu à\n\nl'installation d'" emunam " v" emuver "\n" emunam " est ©" emuaut "\n\nScript d'installation v" insver "\nby " insaut "\n\nTraduit en Français par Pascal WILLANO"))
 (set #where (cat "\nOù voulez vous installer " emunam "? (Un répertoire sera créé)"))
 (set #whaticon   "\nQuel type d'icônes voulez vous installer?")
 (set #filecopy   ". .. ....Copie des fichiers.... .. .")
 (set #doccopy    ". .. ....Copie de la Documention.... .. .")
 (set #packicons  ". .. ....Decompression des icônes.... .. .")
 (set #copyicons  ". .. ....Copie des icônes.... .. .")
 (set #cleanup    ". .. ....Nétoyage.... .. .")
))

;*****************
;**** Italian **** Italian Translation done by Simone Bevilacqua
;*****************
(if (= lang 3)
((set #about (cat "\n\n\nBenvenuto\n\nal programma di installazione di " emunam " v" emuver "\n" emunam " e' ©" emuaut "\n\nScript di installazione v" insver "\ndi " insaut "\n\nTraduzione Italiana di Simone Bevilacqua"))
 (set #where (cat "\nDove vuoi che " emunam " sia installato? (verra' creata un' apposita directory)"))
 (set #whaticon   "\nChe tipo di icone vuoi installare?")
 (set #filecopy   ". .. ....Copia files in corso.... .. .")
 (set #doccopy    ". .. ....Copia documentazione in corso.... .. .")
 (set #packicons  ". .. ....Decompressione icone in corso.... .. .")
 (set #copyicons  ". .. ....Copia icone in corso.... .. .")
 (set #cleanup    ". .. ....Eliminazione file temporanei.... .. .")
))

;*****************
;**** Español **** By Juan Antonio Gómez
;*****************
(if (= lang 4)
((set #about (cat "\n\nBienvenido al\n\nInstalador de " emunam " v" emuver "\n" emunam " es ©" emuaut "\n\nScript de Instalación v" insver "\nby " insaut "\n\nTraducción Española por " emuaut))
 (set #where (cat "\n¿Donde quiere instalar " emunam "? (Un directorio será creado)"))
 (set #whaticon   "\n¿Que tipo de iconos quiere instalar?")
 (set #filecopy   ". .. ....Copiando Ficheros.... .. .")
 (set #doccopy    ". .. ....Copiando Documentación.... .. .")
 (set #packicons  ". .. ....Descomprimiendo Iconos.... .. .")
 (set #copyicons  ". .. ....Copiando Iconos.... .. .")
 (set #cleanup    ". .. ....Borrando.... .. .")
))

;*****************
;****  Norsk  **** By Tomas Amsrud (gdwarf@applausenett.no)
;*****************
(if (= lang 5)
((set #about (cat "\n\nVelkommen til\n\nInstaleringen av " emunam " v" emuver "\n" emunam " er ©" emuaut "\n\nInstalasjon script v" insver "\nav " insaut "\n\nNorsk oversetting av " insaut))
 (set #where (cat "\nHvor vil du instalere " emunam "? (En katalog vil bli lagd)"))
 (set #whaticon   "\nHva slags iconer vil du Instalere?")
 (set #filecopy   ". .. ....Kopierer Filer.... .. .")
 (set #doccopy    ". .. ....Kopierer Dokumentasjon.... .. .")
 (set #packicons  ". .. ....PakkerOpp Iconer.... .. .")
 (set #copyicons  ". .. ....Kopierer Iconer.... .. .")
 (set #cleanup    ". .. ....Rydder Opp.... .. .")
))

;*****************
;**** Sweden  **** Swedish Translation done by Niklas Berg.
;*****************
(if (= lang 6)
((set #about (cat "\n\n\nVälkommen till\n\n" emunam " v" emuver " installationsprogram\n" emunam " is ©" emuaut "\n\nInstalations skript v" insver "\nby " insaut "\n\nSwedish Translation done by Niklas Berg."))
 (set #where (cat "\nVar vill du installera " emunam "? (En katalog kommer att skapas)"))
 (set #whaticon   "\nVilken slags ikoner vill du installera?")
 (set #filecopy   ". .. ....Kopierar Filer.... .. .")
 (set #doccopy    ". .. ....Kopierar Dokumentation.... .. .")
 (set #packicons  ". .. ....Packar upp Ikoner.... .. .")
 (set #copyicons  ". .. ....Kopierar Ikoner.... .. .")
 (set #cleanup    ". .. ....Städar Upp.... .. .")
))

;*****************
;****  Dutch  **** Dutch Translation done by Roderick Mouthaan.
;*****************
(if (= lang 7)
((set #about (cat "\n\n\nWelkom bij de\n\nInstallatie van " emunam " v"emuver "\n" emunam " is ©" emuaut "\n\nInstallatie script v" insver "\ndoor " insaut "\n\nNederlandse vertaling door Roderick Mouthaan"))
 (set #where (cat "\nWaar wil je " emunam " installeren? (Een lade zalgecreëerd worden)"))
 (set #whaticon   "\nWelk type icons wil je installeren?")
 (set #filecopy   ". .. ....Kopiëren van bestanden.... .. .")
 (set #doccopy    ". .. ....Kopiëren van documentatie.... .. .")
 (set #packicons  ". .. ....Uitpakken van icons.... .. .")
 (set #copyicons  ". .. ....Kopiëren van icons.... .. .")
 (set #cleanup    ". .. ....Opruimen.... .. .")
))

;***************************************************************************
;*** Install part
;***************************************************************************
(complete 8)
(message #about)
(complete 9)
(welcome)

(complete 10)
(set dester
     (askdir (prompt #where)
             (help @askdir-help)
             (default "Ram:")))
(set msxdest
  (tackon dester "AmiMasterGear"))

;***************************************************************************
;*** Copying files
;***************************************************************************
(complete 20)
(working #filecopy)
(copyfiles
   (source "AmiMasterGear")
   (dest msxdest)
   (pattern "#?")
)
(complete 30)
(working #filecopy)
(copyfiles
   (source "AmiMasterGear.info")
   (dest dester)
)
(complete 40)
(working #filecopy)
(if (<> (exists ("S:AmiMasterGear.Key") (noreq)) 1)
    (if (= (exists ("S/AmiMasterGear.Key") (noreq)) 1)
        (copyfiles
            (source "S/AmiMasterGear.Key")
            (dest "S:")
        )
    )
)
(complete 50)
(working #filecopy)
(if (<> (exists ("Libs:Stc.library") (noreq)) 1)
   (copyfiles
      (source "Libs/Stc.library")
      (dest "Libs:")
   )
)
(complete 60)
(complete 70)
;***************************************************************************
;*** Clean up Part
;***************************************************************************
(complete 90)
(working #cleanup)
(complete 100)