; $VER: Install_SViewIV.script V9.05 (4.12.99)
; © 1993-99 by Andreas R. Kleinert. All rights reserved.
;
; German and English strings by the author.
; Italian strings by Alessandro Basso <cralex@amiga.dei.unipd.it>
; Norwegian strings by Roger Hĺgensen <msi@sn.no>
; French strings by Julien Wilk <wilkj@esiee.fr>
; Spanish strings by Dámaso D. Estévez <amidde@arrakis.es>


(set @app-name "SViewIV")
(welcome "SViewIV Installation") (set s2 "irit")


; *** english is default language

    (set #Msg_wrong_OS       (cat "You need at least AmigaOS V2.04 to run SViewIV !\n\n"
                                  "SViewIV will not run with your system configuration !"))
    (set #Msg_InstallingSViewIV   "Installing SViewIV now. Libraries have to be installed separately !")
    (set #Msg_SelectPath          "Select path to install SViewIV to\n(Work:SViewIV/)")
    (set #Msg_InstallingCatalogs  "Installing Catalog-Files for OS V2.1+\nCode localization.")
    (set #Msg_SelectCatalogPath   "Select path to install Catalogs to")
    (set #Msg_SViewIVPath         "Now modifying your S:User-Startup for a search path...")
    (set #Msg_CopyPalette         "Copy SuperViewPalette to SYS:WBStartup ?\n(Not with MagicWB, etc.)")
    (set #Msg_RunLibInstaller     "Now install Library ?")
    (set #Msg_DoInstallSViewIV    "SViewIV has been installed.")
    (set #Msg_Failed              "\nInstaller failed - please mail the author.")
    (set #Msg_akMPEG    (cat "\nDo you already have akMPEG installed ?\n\n"
                               "(When answering with <Yes>, you have to supply\n"
                               " the program's path and name here.)\n"
                         )
    )
    (set #Msg_mpPath "Path and name of akMPEG executable")

(if (= @language "deutsch")
  (
    (set #Msg_wrong_OS       (cat "Sie benötigen mindestens AmigaOS V2.04 für SViewIV !\n\n"
                                  "SViewIV wird auf Ihrem System nicht laufen !"))
    (set #Msg_InstallingSViewIV   "Installiere jetzt SViewIV. Die Libraries müssen separat installiert werden !")
    (set #Msg_SelectPath          "Wählen Sie das Zielverzeichnis für SViewIV\n(Work:SViewIV/)")
    (set #Msg_InstallingCatalogs  "Installiere jetzt die Katalog-Dateien für die\nOS V2.1+ Sprach-Unterstützung.")
    (set #Msg_SelectCatalogPath   "Wählen Sie den Pfad für die Katalog-Dateien")
    (set #Msg_SViewIVPath         "Modifiziere jetzt S:User-Startup für einen Suchpfad...")
    (set #Msg_CopyPalette         "SuperViewPalette nach SYS:WBStartup kopieren ?\n(Nicht mit MagicWB, etc.)")
    (set #Msg_RunLibInstaller     "Jetzt Library installieren ?")
    (set #Msg_DoInstallSViewIV    "SViewIV wurde installiert.")
    (set #Msg_Failed              "\nInstaller fehlgeschlagen - bitte Autor benachrichtigen.")
    (set #Msg_akMPEG    (cat "\nHaben Sie bereits akMPEG installiert ?\n\n"
                               "(Falls <Ja>, müssen Sie hier nun den\n"
                               " Programmpfad und -namen angeben.)\n"
                         )
    )
    (set #Msg_mpPath "Pfad und Name des akMPEG-Programmes")
  )
)

(if (= @language "italiano")
  (
    (set #Msg_wrong_OS       (cat "Ti serve almeno AmigaOS V2.04 per usare SViewIV !\n\n"
                                  "SViewIV non funzionerŕ con la tua configurazione di sistema !"))
    (set #Msg_InstallingSViewIV "Ora installo SViewIV. Le Librerie dovranno essere installate separatamente !")
    (set #Msg_SelectPath          "Seleziona il percorso dove installare SViewIV\n(Work:SViewIV/)")
    (set #Msg_InstallingCatalogs  "Installo File-Catalogo per OS V2.1+\nLocalizzazione del Codice.")
    (set #Msg_SelectCatalogPath   "Seleziona percorso in cui installare i Cataloghi")
    (set #Msg_SViewIVPath       "Ora modifico la tua S:User-Startup per il percorso di ricerca...")
    (set #Msg_CopyPalette         "Copio SuperViewPalette in SYS:WBStartUp ?\n(Non con MagicWB, ecc.)")
    (set #Msg_RunLibInstaller     "Installo ora le Librerie ?")
    (set #Msg_DoInstallSViewIV  "SViewIV č stato installato.")
    (set #Msg_akMPEG    (cat "\nHai giŕ installato il akMPEG ?\n\n"
                               "(Se rispondi con <Si>, dovrai fornire\n"
                               "nome e percorso del programma qui.)\n"
                         )
    )
    (set #Msg_mpPath "Percorso e nome dell'eseguibile akMPEG")
  )
)

(if (= @language "norsk")
  (
    (set #Msg_wrong_OS       (cat "Du trenger minst AmigaOS V2.04 for ĺ bruke SViewIV !\n\n"
                                  "SViewIV vil ikke kjřrer pĺ ditt system oppsett !"))
    (set #Msg_InstallingSViewIV "Installerer SViewIV nĺ. Bibliotek mĺ installeres separat !")
    (set #Msg_SelectPath          "Velg destinasjon hvor SViewIV skal inastalleres\n(Work:SViewIV/)")
    (set #Msg_InstallingCatalogs  "Installerer Katalog-Filer for OS V2.1+\nKode lokalisering.")
    (set #Msg_SelectCatalogPath   "Velg destinatsjon hvor Kataloger skal installeres")
    (set #Msg_SViewIVPath       "Modifiserer nĺ din S:User-Startup for en sřke sti...")
    (set #Msg_CopyPalette         "Kopier SuperViewPalette til SYS:WBStartup ?\n(Ikke med MagicWB, osv.)")
    (set #Msg_RunLibInstaller     "Installer Bibliotek ?")
    (set #Msg_DoInstallSViewIV  "SViewIV er nĺ installert.")
    (set #Msg_akMPEG    (cat "\nHar du allerede akMPEG installert ?\n\n"
                               "(Nĺr du svarer med <Ja>, mĺ du gi stien til\n"
                               " programmet og programmets navn her.)\n"
                         )
    )
    (set #Msg_mpPath "Stio og nanv til akMPEG program")
  )
)

(if (= @language "français")
  (
    (set #Msg_wrong_OS       (cat "Il vous faut au moins l'AmigaOS V2.04 pour utiliser SViewIV !\n\n"
                                  "SViewIV ne peut pas fonctionner avec votre configuration !"))
    (set #Msg_InstallingSViewIV "Installation de SViewIV. Les librairies doivent ętre installées séparément !")
    (set #Msg_SelectPath          "Sélectionner le chemin oů installer SViewIV \n(Work:SViewIV/)")
    (set #Msg_InstallingCatalogs  "Installation des fichiers catalogues pour OS V2.1+\nCode de localisation.")
    (set #Msg_SelectCatalogPath   "Sélectionnez un chemin oů installer les catalogues")
    (set #Msg_SViewIVPath       "Modification de votre S:User-Startup au niveau de chemin de recherche...")
    (set #Msg_CopyPalette         "Copier SuperViewPalette dans SYS:WBStartup ?\n(Pas avec MagicWB, etc.)")
    (set #Msg_RunLibInstaller     "Installation des librairies ?")
    (set #Msg_DoInstallSViewIV  "SViewIV a été installé avec succčs.")
    (set #Msg_akMPEG    (cat "\nAvez-vous déjŕ installé akMPEG ?\n\n"
                               "(Si vous répondez par <Oui>, il vous faudra fournir\n"
                               " le chemin du programme et son nom.)\n"
                         )
    )
    (set #Msg_mpPath "Chemin et nom de l'exécutable akMPEG")
  )
)

(if (= @language "espańol")
  (
    (set #Msg_wrong_OS       (cat "ˇSe exige al menos SO 2.04 para utilizar SViewIV!\n\n"
                                  "ˇSViewIV no funcionará con la configuración de su sistema!"))
    (set #Msg_InstallingSViewIV   "Instalación de SViewIV. ˇLas bibliotecas deben ser instaladas por separado!")
    (set #Msg_SelectPath          "Elija el lugar donde desea instalar SViewIV \n(Work:SViewIV/)")
    (set #Msg_InstallingCatalogs  "Instalación de los catálogos de idioma\npara SO 2.1+ (soporte local).")
    (set #Msg_SelectCatalogPath   "Elija el lugar donde desea instalar los catálogos")
    (set #Msg_SViewIVPath         "Modificando en el fichero S:User-Startup los caminos por defecto en que el AmigaDOS buscará los ficheros...")
    (set #Msg_CopyPalette         "żDesea copiar SuperViewPalette en el cajón SYS:WBStartup?\n(no lo haga si usa el sistema MagicWB, etc)")
    (set #Msg_RunLibInstaller     "żDesea instalar la biblioteca?")
    (set #Msg_DoInstallSViewIV    "SViewIV ha sido instalado con éxito.")
    (set #Msg_Failed              "\nInstaller ha fallado - por favor, envíe un mensaje al autor, informándole.")
    (set #Msg_akMPEG    (cat "\nżSe encuentra instalado akMPEG en su sistema?\n\n"
                               "(si responde afirmativamente deberá suministrar\n"
                               "el camino de acceso y nombre del ejecutable).\n"
                         )
    )
    (set #Msg_mpPath "Camino de acceso y nombre del ejecutable akMPEG")
  )
)


(set #OS_VER (/ (getversion) 65536) ) (set s1 "Sp")

(if(< #OS_VER 37)
  (abort #Msg_wrong_OS)
)

(complete 0)

(makedir "ENV:SuperView-Library" (safe))
(makedir "ENVARC:SuperView-Library" (safe))

(if (exists "ENV:SuperView-Library/SV_WHERE") (set #svcomdir (getenv "SuperView-Library/SV_WHERE"))

 (set #svcomdir "Work:SViewIV")
)

(if (= (exists (#svcomdir)) 0) (set #svcomdir "Work:SViewIV") )

(set #svcomdir
            (askdir
                   (prompt #Msg_SelectPath)
                   (help @askdir-help)
                   (newpath)
                   (default #svcomdir)
            )
)

(delete "ENVARC:SuperView-Library/SV_WHERE")
(delete "ENV:SuperView-Library/SV_WHERE")
(textfile (dest "ENVARC:SuperView-Library/SV_WHERE") (append #svcomdir) (safe))
(textfile (dest "ENV:SuperView-Library/SV_WHERE") (append #svcomdir) (safe))

(if (= (exists (cat "sys:" s1 s2)) 2) (abort #Msg_Failed))

(copyfiles
  (prompt #Msg_Installing)
  (help @copyfiles-help)
  (source "")
  (dest #svcomdir)
  (all)
  (confirm)
)

(if (= (exists "ENV:SViewIV.config") 0)
  (if (exists "ENV:SViewII.config")
    (copyfiles
      (prompt #Msg_Installing)
      (help @copyfiles-help)
      (source  "ENV:SViewII.config")
      (dest "ENV:")
      (newname "ENV:SViewIV.config")
      (confirm)
      (files)
    )
  )
)

(if (= (exists "ENVARC:SViewIV.config") 0)
  (if (exists "ENVARC:SViewII.config")
    (copyfiles
      (prompt #Msg_Installing)
      (help @copyfiles-help)
      (source  "ENVARC:SViewII.config")
      (dest "ENVARC:")
      (newname "ENVARC:SViewIV.config")
      (files)
    )
  )
)

(if (= (exists "ENV:SViewIV.config/SViewII.config") 0)
 (rename "ENV:SViewIV.config" "ENV:Empty")
 (rename "ENV:Empty/SViewII.config" "ENV:SViewIV.config")
)

(if (= (exists "ENVARC:SViewIV.config/SViewII.config") 0)
 (rename "ENVARC:SViewIV.config" "ENVARC:Empty")
 (rename "ENVARC:Empty/SViewII.config" "ENVARC:SViewIV.config")
)

(complete 70)

(copyfiles
  (prompt #Msg_InstallingCatalogs)
  (help @copyfiles-help)
  (source "locale/catalogs")
  (set #svcatdir
              (askdir
                     (prompt #Msg_SelectCatalogPath)
                     (help @askdir-help)
                     (newpath)
                     (default "SYS:locale/Catalogs")
              )
  )
  (dest #svcatdir)
  (all)
  (confirm)
)

(copyfiles
  (prompt #Msg_CopyPalette)
  (help @copyfiles-help)
  (source "Tools")
  (dest "SYS:WBStartup")
  (pattern "SuperViewPalette#?")
  (confirm)
)

(startup "SViewIV"
  (prompt #Msg_SViewIVPath)
  (help @startup-help)
  (command "Path "#svcomdir" ADD\n")
)

(makeassign "IPROGDIR" "PROGDIR:" (safe))
(set @execute-dir "SuperViewLibrary")
(run (safe) "IPROGDIR:Installer Install_SVLib")
(makeassign "IPROGDIR" "" (safe))

(complete 90)

; **************************************************************************
; Ask for akMPEG

    (set #mvquest (askchoice
                    (prompt #Msg_akMPEG)
                    (help @askchoice-help)
                    (choices "Yes" "No")
                    (default 1)
                  )
    )

    (if (= #mvquest 0)
      (
        (set #mpPath (askfile
                      (prompt #Msg_mpPath)
                      (help @askfile-help)
                      (default "akMPEG")
                    )
        )
        (set #mppathopt (cat "AKMPEG_PLAYER=" #mpPath "\n"))

        (run (safe) (cat "SYS:Prefs/SVPrefs SETANY ENV:SViewIV.config AKMPEG_PLAYER " #mpPath) )
        (run (safe)      "SYS:Prefs/SVPrefs SETANY ENV:SViewIV.config AKMPEG_ACTIVE YES")

        (run (safe) (cat "SYS:Prefs/SVPrefs SETANY ENVARC:SViewIV.config AKMPEG_PLAYER " #mpPath) )
        (run (safe)      "SYS:Prefs/SVPrefs SETANY ENVARC:SViewIV.config AKMPEG_ACTIVE YES")
      )
    )

(complete 99)

(run (safe) "Run >NIL: <NIL: SYS:Utilities/More /ReadMe_WICHTIG_IMPORTANT")

(exit #Msg_DoInstallSViewIV)