;
; NewInstaller Installation
; by Andreas Falkenhahn
;
; personal note: This is the last install script I create forever.
;  NewInstaller`s out....why create install scripts by hand?
;
; big thanks to all members of ATO for
; translation. Thank you all!
;

(set #readme "/NewInstaller.readme")

; Set strings
(if (= @language "português") (
   (set #welcome "\nBem-vindo à instalação do\n\nNewInstaller\n\n(C) Copyright de Andreas Falkenhahn\n")
   (set #copydoc "A copiar a documentação do NewInstaller...")
   (set #copyni  "A copiar o executável do NewInstaller...")
   (set #copymsg "Por favor espere...\n\nA instalar o NewInstaller")
   (set #fnshmsg "\nInstalação bem sucedida!\n\nVocê pode iniciar o NewInstaller pelo CLI: NewInstaller!\n\nDê uma vista de olhos à documentação!")
   (set #language "português")
))

(if (= @language "suomi") (
   (set #welcome "\nTervetuloa asentamaan\n\nNewInstaller\n\n(C) Tekijänoikeudet Andreas Falkenhahn\n")
   (set #copydoc "Kopioi NewInstallerin dokumentointia...")
   (set #copyni  "Kopioi NewInstallerin ajettavaa osaa...")
   (set #copymsg "Ole hyvä ja odota...\n\nAsentaa NewInstalleria")
   (set #fnshmsg "\nAsennus onnistui!\n\nVoit käynnistää NewInstallerin\nkäskyllä CLI: NewInstaller!\n\nVilkaise dokumentointia!")
   (set #language "suomi")
))

(if (= @language "nederlands") (
   (set #welcome "\nWelkom bij de Installer voor\n\nNewInstaller\n\n(C) Copyright door Andreas Falkenhahn\n")
   (set #copydoc "Kopiëren van NewInstaller documentatie...")
   (set #copyni  "Kopiëren van NewInstaller programma...")
   (set #copymsg "Wacht even...\n\nInstalleren van NewInstaller")
   (set #fnshmsg "\nInstallatie voltooid!\n\nU kunt NewInstaller starten vanuit de CLI: NewInstaller!\n\nLees de documentatie!")
   (set #language "nederlands")
))

(if (= @language "norsk") (
   (set #welcome "\nVelkommen til Installasjons scriptet for\n\nNewInstaller\n\n(C) Kopibeskyttet av Andreas Falkenhahn\n")
   (set #copydoc "Kopierer NewInstaller dokumentsjonen...")
   (set #copyni  "Kopierer NewInstaller programmet...")
   (set #copymsg "Vennligst vent...\n\nInstallerer NewInstaller")
   (set #fnshmsg "\nInstallasjonen er vellykket!\n\nDu kan nå starte NewInstaller ved CLI: NewInstaller!\n\nTa en titt på dokumentasjonen!")
   (set #language "norsk")
))

(if (= @language "türkçe") (
   (set #welcome "\nNewInstaller programýnýn\n\nkurulumuna hoþ geldiniz.\n\n(C) Copyright by Andreas Falkenhahn\n")
   (set #copydoc "NewInstaller dökümantasyonu kopyalanýyor...")
   (set #copyni  "NewInstaller çalýþtýrabilir dosya kopyalanýyor....")
   (set #copymsg "Lütfen bekleyin...\n\nNewInstaller kuruluyor")
   (set #fnshmsg "\nKurulum tamamlandý!\n\nNewInstaller`i CLI: NewInstaller`dan baþlatabilirsiniz!\n\nDökümana bir göz atýnýz lütfen")
   (set #language "türkçe")
))

(if (= @language "italiano") (
   (set #welcome "\nBenvenuto nell'Installer di\n\nNewInstaller\n\n(C) Copyright di Andreas Falkenhahn\n")
   (set #copydoc "Copio la documentazione di NewInstaller...")
   (set #copyni  "Copio l'eseguibile di NewInstaller...")
   (set #copymsg "Attendere prego...\n\nInstallo NewInstaller")
   (set #fnshmsg "\nL'installazione ha avuto successo!\n\nPuoi avviare NewInstaller dalla CLI: NewInstaller!\n\Leggi la documentazione!")
   (set #language "italiano")
))

(if (= @language "français") (
   (set #welcome "\nBienvenue à l'installeur de\n\nNewInstaller\n\n(C) Copyright par Andreas Falkenhahn\n")
   (set #copydoc "Copie de la documentation de NewInstaller...")
   (set #copyni  "Copie de l'exécutable de NewInstaller...")
   (set #copymsg "Veuillez patienter...\n\nInstallation de NewInstaller")
   (set #fnshmsg "\nInstallation terminée!\n\nVous pouvez lancer NewInstaller du CLI: NewInstaller!\n\nLisez la documentation!")  
   (set #language "français")
))

(if (= @language "english") (
   (set #welcome "\nWelcome to the Installer for\n\nNewInstaller\n\n(C) Copyright by Andreas Falkenhahn\n")
   (set #copydoc "Copying NewInstaller documentation...")
   (set #copyni  "Copying NewInstaller executable...")
   (set #copymsg "Please wait...\n\nInstalling NewInstaller")
   (set #fnshmsg "\nInstallation succeeded!\n\nYou can start NewInstaller by CLI: NewInstaller!\n\nHave a look at the documentation!")  
   (set #language "english")
))

(if (= @language "polski") (
   (set #welcome "\nWelcome to the Installer for\n\nNewInstaller\n\n(C) Copyright by Andreas Falkenhahn\n\n\nSorry, there`s no polish translation of the install script. But a catalog translation was done!")
   (set #copydoc "Copying NewInstaller documentation...")
   (set #copyni  "Copying NewInstaller executable...")
   (set #copymsg "Please wait...\n\nInstalling NewInstaller")
   (set #fnshmsg "\nInstallation succeeded!\n\nYou can start NewInstaller by CLI: NewInstaller!\n\nHave a look at the documentation!")  
   (set #language "english")
))

(if (= @language "Æeàtina") (
   (set #welcome "\nWelcome to the Installer for\n\nNewInstaller\n\n(C) Copyright by Andreas Falkenhahn\n\n\nSorry, there`s no czech translation of the install script. But a catalog translation was done!")
   (set #copydoc "Copying NewInstaller documentation...")
   (set #copyni  "Copying NewInstaller executable...")
   (set #copymsg "Please wait...\n\nInstalling NewInstaller")
   (set #fnshmsg "\nInstallation succeeded!\n\nYou can start NewInstaller by CLI: NewInstaller!\n\nHave a look at the documentation!")  
   (set #language "english")
))

(if (= @language "deutsch") (
   (set #welcome "\nWillkommen zum Installer für\n\nNewInstaller\n\n(C) Copyright by Andreas Falkenhahn\n")
   (set #copydoc "Kopiere NewInstaller Dokumentation...")
   (set #copyni  "Kopiere das Programm NewInstaller...")
   (set #copymsg "Bitte warten...\n\nInstalliere NewInstaller")
   (set #fnshmsg "\nInstallation war erfolgreich!\n\nSie können NewInstaller über CLI NewInstaller starten!\n\nSchauen Sie mal in die Dokumentation!")
   (set #language "deutsch")
))

(if (= @language "magyar") (
   (set #welcome "\nÜdvözlöm a\n\nNewInstaller\n\n telepítõjében! (C) Szerzõi jogok: Andreas Falkenhahn\n")
   (set #copydoc "A NewInstaller dokumentáció másolása...")
   (set #copyni  "A NewInstaller program másolása...")
   (set #copymsg "Kérem várjon...\n\nTelepítem a NewInstaller-t")
   (set #fnshmsg "\nA telepítés sikeresen befejezõdött!\n\nA NewInstaller-t CLI:-bõl a NewInstaller paranccsal indíthatja!\n\nNézze meg a dokumentációt is!")  
   (set #language "magyar")
))

(if (= @language "russian") (
   (set #welcome "\nÃíàïí îíåaêíáañû á Çìðñaêêþñíï\n\nNewInstaller\n\nAáñíï: (ð) Aìãïäað Óaêéäìôaôì\n")
   (set #copydoc "Éíîçïòäñðþ ãíéòëäìñaõçþ é îïíâïaëëä NewInstaller...")
   (set #copyni  "Éíîçïòäñðþ íðìíáìíè óaèê NewInstaller...")
   (set #copymsg "Îíãíåãçñä îíåaêòèðña...\n\nÇìðñaêêçïòäñðþ NewInstaller")
   (set #fnshmsg "\nÇìðñaêêþõçþ áúîíêìäìa!\n\nÃêþ æaîòðéa NewInstaller ìaàäïçñä á CLI: NewInstaller!\n\nÎíãïíàìíðñç ðëíñïçñä á ãíéòëäìñaõçç!")
   (set #language "russian")
))

; Display the start message
(message #welcome)

(complete 20)

; Start process
(welcome)

(complete 40)

; Copying executable
(copyfiles
   (source "/NewInstaller")
   (dest   "C:")
   (prompt #copyni)
   (help   @copyfiles-help)
   (infos)
   (confirm)
   (nogauge)
)

(working #copymsg)
(complete 60)

; due to the matter of fact that ATO didn`t translate the doc files
; in all languages we need to find out what languages were translated
(if (exists (cat "/Docs/NInstaller_" #language ".guide"))
   (set #docfile (cat "/Docs/NInstaller_" #language ".guide"))
 (
   (if (= #language "português")                         ; the português docfile is different than
      (set #docfile "/Docs/NInstalle_português.guide")   ; the others because the AmigaOS allows only
    (                                                    ; 30 chars per filename and NInstaller_português.guide.info
      (set #docfile "/Docs/NInstaller_english.guide")    ; has 31 chars so I was forced to shorten the
   ))                                                    ; the filename to NInstalle_português.guide
))

; and copy them
(copyfiles
   (source #docfile) ;(cat "/Docs/NInstaller_" #language ".guide"))
   (dest   "HELP:")
   (prompt #copydoc)
   (help   @copyfiles-help)
   (newname "NewInstaller.guide") ; change the filename - this is needed for NewInstaller`s online help
   (infos)
   (confirm)
   (nogauge)
)

(working #copymsg)
(complete 80)

; Copying catalogs (english is inbuild)
(if (not (= #language "english")) (
   (copyfiles
      (source (cat "/Catalogs/" #language "/NewInstaller.catalog")) ; that`s a bit weird, but it works :)
      (dest   (cat "Locale:Catalogs/" #language "/"))
      (nogauge)
   )
))

; NewInstaller strongly needs reqtools.library v38+
(copylib
   (source "/Libs/reqtools.library")
   (dest   "Libs:") ; where else
   (prompt "NewInstaller requires reqtools.library...") ; not translated yet
   (help   @copylib-help)
   (optional force askuser)
   (confirm)
)

(working #copymsg)
(complete 100)

; show the readme file with multiview (V39+)
(run (cat "sys:utilities/multiview " #readme))
(message #fnshmsg)

; Quiet exit
(exit (quiet))