; +--------------------------------------------------------+
; |               Install script for AmiNES                |
; |                Written by Tomas Amsrud                 |
; |             AmiNES is Juan Antonio Gmez              |
; |   Send Translations to me at: gdwarf@applausenett.no   |
; +--------------------------------------------------------+
; $Ver: AmiNES Installer V1.1 (28-Jul-97)

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

(set @default-dest "")
(set emunam "AmiNES")              ; Name of Program to Install
(set emuver "0.3")                 ; Emulator Version
(set insver "1.1")                 ; Install Script Version
(set emuaut "Juan Antonio Gmez")  ; 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" "Espaol" "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 Krber
;*****************
(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 Krber"))
 (set #where (cat "\nWohin soll " emunam " installiert werden? (Verzeichnis wird angelegt)"))
 (set #whaticon   "\nWelche Piktogramme mchten Sie installieren?")
 (set #filecopy   ". .. ....Kopiere Dateien.... .. .")
 (set #doccopy    ". .. ....Kopiere Anleitungen.... .. .")
 (set #packicons  ". .. ....Entpacke Piktogramme.... .. .")
 (set #copyicons  ". .. ....Kopiere Piktogramme.... .. .")
 (set #cleanup    ". .. ....Rume 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 Franais par Pascal WILLANO"))
 (set #where (cat "\nO voulez vous installer " emunam "? (Un rpertoire sera cr)"))
 (set #whaticon   "\nQuel type d'icnes voulez vous installer?")
 (set #filecopy   ". .. ....Copie des fichiers.... .. .")
 (set #doccopy    ". .. ....Copie de la Documention.... .. .")
 (set #packicons  ". .. ....Decompression des icnes.... .. .")
 (set #copyicons  ". .. ....Copie des icnes.... .. .")
 (set #cleanup    ". .. ....Ntoyage.... .. .")
))

;*****************
;**** 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.... .. .")
))

;*****************
;**** Espaol **** By Juan Antonio Gmez
;*****************
(if (= lang 4)
((set #about (cat "\n\nBienvenido al\n\nInstalador de " emunam " v" emuver "\n" emunam " es " emuaut "\n\nScript de instalacin v" insver "\nby " insaut "\n\nTraduccin Espaola por " emuaut))
 (set #where (cat "\nDonde quiere instalar " emunam "? (Un directorio ser creado)"))
 (set #whaticon   "\nQue tipo de iconos quiere instalar?")
 (set #filecopy   ". .. ....Copiando Ficheros.... .. .")
 (set #doccopy    ". .. ....Copiando Documentacin.... .. .")
 (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  **** By Niklas
;*****************
(if (= lang 6)
((set #about (cat "\n\n\nVlkommen till\n\n" emunam " v" emuver " installationsprogram\n" emunam " is " emuaut "\n\nInstalations skript v" insver "\nby " insaut))
 (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    ". .. ....Stdar Upp.... .. .")
))

;*****************
;****  Dutch  **** By Roderick
;*****************
(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))
 (set #where (cat "\nWaar wil je " emunam " installeren? (Een lade zalgecreerd worden)"))
 (set #whaticon   "\nWelk type icons wil je installeren?")
 (set #filecopy   ". .. ....Kopiren van bestanden.... .. .")
 (set #doccopy    ". .. ....Kopiren van documentatie.... .. .")
 (set #packicons  ". .. ....Uitpakken van icons.... .. .")
 (set #copyicons  ". .. ....Kopiren 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 nesdest
  (tackon dester "AmiNES"))

(complete 20)
(set ScrOpt
      (askchoice (prompt #whaticon)
                 (help @askchoise-help)
                 (choices "4ColorHires      (Normal)" "8ColorHires      (SmalBench)" "8ColorHiresLaced (MagicWB)")))

;***************************************************************************
;*** Copying files
;***************************************************************************
(complete 40)
(working #filecopy)
(copyfiles
   (source "")
   (dest nesdest)
   (all)
)

;***************************************************************************
;*** Unpacking Icons
;***************************************************************************
(complete 60)
(working #packicons)
(if (= (exists ("NESIcons.lha") (noreq)) 1)
  (run ("c:lha x NESIcons.lha Ram:") (safe))
)

;***************************************************************************
;*** Copying Icons
;***************************************************************************
(complete 70)
(working #copyicons)
(if (= (exists ("NESIcons.lha") (noreq)) 1)
((copyfiles
   (source "Ram:Icons/AmiNES.info")
   (dest dester)
)
((if (= ScrOpt 0)
     (copyfiles
        (source "Ram:Icons/4cHires")
        (dest nesdest)
        (pattern "~(#?02#?)")
     )
 
 )
 (if (= ScrOpt 1)
     (copyfiles
        (source "Ram:Icons/8cHires")
        (dest nesdest)
        (pattern "~(#?02#?)")
     )
 )
 (if (= ScrOpt 2)
     (copyfiles
        (source "Ram:Icons/8cHiresLace")
        (dest nesdest)
        (pattern "~(#?02#?)")
     )
 )
 (if (= ScrOpt 3)
     (copyfiles
        (source "Ram:Icons/NewIcons")
        (dest nesdest)
        (pattern "~(#?02#?)")
     )
 )
)))

;***************************************************************************
;**+ Copying docs
;***************************************************************************
(complete 80)
(working #doccopy)
(if (= (exists ("Docs/AmiNES.Guide") (noreq)) 1)
   (copyfiles
      (source ("Docs/AmiNES.Guide"))
      (dest nesdest)
   )
)
(if (= lang 4)
(if (= (exists ("Docs/AmiNES_Es.Guide") (noreq)) 1)
   ((copyfiles
       (source ("Docs/AmiNES_Es.Guide"))
       (dest nesdest)
    )
    (delete ("%s/AmiNES.Guide" nesdest))
    (rename ("%s/AmiNES.Guide.info" nesdest) ("%s/AmiNES_Es.Guide.info" nesdest))
   )
))
(if (= lang 5)
(if (= (exists ("Docs/AmiNES_No.Guide") (noreq)) 1)
   ((copyfiles
       (source ("Docs/AmiNES_No.Guide"))
       (dest nesdest)
    )
    (delete ("%s/AmiNES.Guide" nesdest))
    (rename ("%s/AmiNES.Guide.info" nesdest) ("%s/AmiNES_No.Guide.info" nesdest))
   )
))

;***************************************************************************
;*** Clean up Part
;***************************************************************************
(complete 90)
(working #cleanup)
(delete "ram:Icons" (all) (safe))
(delete ("%s/Docs" nesdest) (all))
(delete ("%s/Install" nesdest))
(delete ("%s/Install.info" nesdest))

(complete 100)