; ·--------------------------------------------------------·
; |              Install script for CoolNESs               |
; |                Written by Tomas Amsrud                 |
; |              CoolNESs is ©Fredrik Olsson               |
; |   Send Translations to me at: gdwarf@applausenett.no   |
; `--------------------------------------------------------'
; $VER: CoolNESs Installer V1.0 (19971011)


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

(set @default-dest "")
(set emunam "CoolNESs")       ; Name of Program to Install
(set emuver "0.67")           ; Emulator Version
(set insver "1.0")            ; Install Script Version
(set emuaut "Fredrik Olsson") ; Emulator Author
(set insaut "Tomas Amsrud")   ; Install Script Maker

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

;*****************
;**** ENGLISH ****
;*****************
(set #lowtech (cat "You need at least AGA, a 68020\nand AmigaOS 3.0 to run " emunam " !\n\n"))
(set #about (cat "Welcome to the Installation of " emunam " v" emuver "\n" emunam " is ©" emuaut "\nInstallation 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 #exists (cat "\n" emunam " already exists\nWhat do you want to do?\n"))
(set #installing "Installing ")
(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 (= @language "german")
((set #about (cat "Willkommen 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 #installing "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 (= @language "french")
((set #about (cat "Bienvenu à\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 #installing "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 (= @language "italiano")
((set #about (cat "Benvenuto\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 #installing "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 (= @language "española")
((set #about (cat "Bienvenido al\n\nInstalador de " emunam " v" emuver "\n" emunam " es ©" emuaut "\n\nScript de Instalación v" insver " by " insaut "\n\nTraducción Española por Juan Antonio Gómez"))
 (set #where (cat "\n¿Donde quiere instalar " emunam "? (Un directorio será creado)"))
 (set #whaticon   "\n¿Que tipo de iconos quiere instalar?")
 (set #installing "Instalar ")
 (set #filecopy   ". .. ....Copiando Ficheros.... .. .")
 (set #doccopy    ". .. ....Copiando Documentación.... .. .")
 (set #packicons  ". .. ....Descomprimiendo Iconos.... .. .")
 (set #copyicons  ". .. ....Copiando Iconos.... .. .")
 (set #cleanup    ". .. ....Borrando.... .. .")
))

;*****************
;**** Sweden  **** By Fredrik Olsson (flubba@hem2.passagen.se).
;*****************
(if (= @language "svenska")
((set #about (cat "Välkommen till " emunam " v" emuver " installationsprogram\n" emunam " är ©" emuaut "\nInstallations skript v" insver " av " insaut "\nSvensk översättning gjord av Fredrik Olsson"))
 (set #where (cat "\nVar vill du installera " emunam "? (En katalog kommer att skapas)"))
 (set #whaticon   "\nVilken slags ikoner vill du installera?")
 (set #installing "Installerar ")
 (set #filecopy   ". .. ....Kopierar Filer.... .. .")
 (set #doccopy    ". .. ....Kopierar Dokumentation.... .. .")
 (set #packicons  ". .. ....Packar upp Ikoner.... .. .")
 (set #copyicons  ". .. ....Kopierar Ikoner.... .. .")
 (set #cleanup    ". .. ....Städar Upp.... .. .")
))

;*****************
;****  Norsk  **** By Tomas Amsrud (gdwarf@applausenett.no)
;*****************
(if (= @language "norsk")
((set #about (cat "Velkommen til Instaleringen av " emunam " v" emuver "\n" emunam " er ©" emuaut "\nInstalasjon script v" insver " av " insaut "\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 #installing "Installerer ")
 (set #filecopy   ". .. ....Kopierer Filer.... .. .")
 (set #doccopy    ". .. ....Kopierer Dokumentasjon.... .. .")
 (set #packicons  ". .. ....PakkerOpp Iconer.... .. .")
 (set #copyicons  ". .. ....Kopierer Iconer.... .. .")
 (set #cleanup    ". .. ....Rydder Opp.... .. .")
))

;*****************
;****  Dutch  **** Dutch Translation done by Roderick Mouthaan.
;*****************
(if (= @language "dutch")
((set #about (cat "Welkom 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 #installing "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.... .. .")
))

;*****************
;****  Suomi  **** Suomi Translation done by ???.
;*****************
(if (= @language "suomi")
((set #about (cat "Hyve! " emunam " v"emuver "\n" emunam " is ©" emuaut "\n\nInstallation script v" insver "\nby " insaut "\n\nPlease send a Suomi Translation to me!"))
 (set #installing "Assenan ")
))

;***************************************************************************
;*** Install part
;***************************************************************************


(complete 0)
;Check if tere is a 020 or better.
(if (patmatch "68000" (database "cpu"))
  (abort #lowtech))
(if (patmatch "68010" (database "cpu"))
  (abort #lowtech))

(complete 1)
;Check if tere is AGA.
(if (<> (patmatch "AA" (database "chiprev")))
  (abort #lowtech))

(complete 2)
;Check OS version
(set #OS_VER (/ (getversion) 65536) )
(if(< #OS_VER 39)
  (abort #lowtech))

(complete 3)
(welcome #about)

(complete 10)
(set dester
	(askdir (prompt #where)
		(help @askdir-help)
		(default @default-dest)))
(set nesdest
	(tackon dester "CoolNESs"))
(set @default-dest nesdest)


(complete 20)

(set #icon 0)
(if (<> (getenv "MagicWB") "")
	(set #icon 2))
(if (> (getversion "LIBS:newicon.library") (* 5 65536))
	(set #icon 5))

(set ScrOpt
	(askchoice (prompt #whaticon)
		(help @askchoise-help)
		(choices "Normal" "SmalBench" "MagicWB1 - Normal MagicWB" "MagicWB2 - CoolNESs Logo" "MagicWB3 - NoBorder Icon" "New Icon")
	(default #icon)
))

(if (= ScrOpt 0) (set coolicon "Normal"))
(if (= ScrOpt 1) (set coolicon "SmalBench"))
(if (= ScrOpt 2) (set coolicon "MagicWB1"))
(if (= ScrOpt 3) (set coolicon "MagicWB2"))
(if (= ScrOpt 4) (set coolicon "MagicWB3"))
(if (= ScrOpt 5) (set coolicon "NewIcon"))

(complete 30)
(copylib
	(help @copylib-help)
	(source "tabs.gadget")
	(dest "SYS:Classes/Gadgets")
	(Prompt #installing "tabs.gadget")
	(confirm)
)

;***************************************************************************
;*** Copying files
;***************************************************************************
(complete 40)
(working #filecopy)
(copyfiles
	(source "CoolNESs")
	(dest nesdest)
)
(complete 45)
(copyfiles
	(source "NewKeys.iff")
	(dest nesdest)
)
(complete 50)
(copyfiles
	(source "gadgets.readme")
	(dest nesdest)
)
(complete 55)
(copyfiles
	(source "Roms.info")
	(dest nesdest)
)
(complete 60)
(copyfiles
	(source "Roms")
	(dest ("%s/Roms" nesdest))
	(all)
)

;***************************************************************************
;*** Copying Icons
;***************************************************************************
(complete 65)
(working #copyicons)
(copyfiles
	(source ("Icons/%s" coolicon))
	(dest nesdest)
	(all)
)
(complete 70)
(copyfiles
	(source ("Icons/%s.info" coolicon))
	(dest dester)
	(newname "CoolNESs.info")
)

;***************************************************************************
;*** Copying docs
;***************************************************************************
(complete 80)
(working #doccopy)
(if (= (exists ("Docs/CoolNESs.Guide") (noreq)) 1)
	(copyfiles
	(source ("Docs/CoolNESs.Guide"))
	(dest nesdest)
   )
)
(if (= @language "svenska")
(if (= (exists ("Docs/CoolNESs_Se.Guide") (noreq)) 1)
	(copyfiles
	(source ("Docs/CoolNESs_Se.Guide"))
	(dest nesdest)
	(newname "CoolNESs.Guide")
   )
))
(if (= @language "french")
(if (= (exists ("Docs/CoolNESs_Fr.Guide") (noreq)) 1)
	(copyfiles
	(source ("Docs/CoolNESs_Fr.Guide"))
	(dest nesdest)
	(newname "CoolNESs.Guide")
   )
))
(if (= @language "norsk")
(if (= (exists ("Docs/CoolNESs_No.Guide") (noreq)) 1)
   ((copyfiles
       (source ("Docs/CoolNESs_No.Guide"))
       (dest nesdest)
    )
    (delete ("%s/CoolNESs.Guide" nesdest))
    (rename ("%s/CoolNESs.Guide.info" nesdest) ("%s/CoolNESs_No.Guide.info" nesdest))
   )
))

;***************************************************************************
;*** Clean up Part
;***************************************************************************
(complete 90)
(working #cleanup)

(complete 100)
(Exit)