; $VER: Install_SuperView.script V5.00 (8.10.95)
;  1993-95 by Andreas R. Kleinert.
; Italian texts by Alessandro Basso (cralex@amiga.dei.unipd.it)

(set selectlang (askchoice
                   (prompt "")
                   (help @askchoice-help)
                   (choices "Deutsche Installation" "English Installation" "Italian Installation")
                   (default 1)
                 )
)

(if (= selectlang 0) (set @language "deutsch")  )
(if (= selectlang 1) (set @language "english")  )
(if (= selectlang 2) (set @language "italiano") )

(if (= @language "deutsch")
  (
    (set MSG_wrong_OS       (cat "Sie bentigen mindestens OS V2.04 fr SuperView !\n\n"
                                 "SuperView wird auf Ihrem System nicht laufen !"))
    (set MSG_InstallingSuperView "Installiere jetzt SuperView. Die Libraries mssen separat installiert werden !")
    (set MSG_SelectPath          "Whlen Sie das Zielverzeichnis fr SuperView")
    (set MSG_InstallingCatalogs  "Installiere jetzt die Katalog-Dateien fr die\nOS V2.1+ Sprach-Untersttzung.")
    (set MSG_SelectCatalogPath   "Whlen Sie den Pfad fr die Katalog-Dateien")
    (set MSG_DoInstallSuperView  "SuperView wurde installiert.\nSie sollten nun SuperView-Library installieren,\nfalls nicht bereits geschehen.")
    (set MSG_SuperViewPath       "Modifiziere jetzt S:User-Startup fr einen Suchpfad...")
  )
)

(if (= @language "english")
  (
    (set MSG_wrong_OS       (cat "You need at least OS V2.04 to run SuperView !\n\n"
                                 "SuperView will not run with your system configuration !"))
    (set MSG_InstallingSuperView "Installing SuperView now. Libraries have to be installed separately !")
    (set MSG_SelectPath          "Select path to install SuperView to")
    (set MSG_InstallingCatalogs  "Installing Catalog-Files for OS V2.1+\nCode localization.")
    (set MSG_SelectCatalogPath   "Select path to install Catalogs to")
    (set MSG_DoInstallSuperView  "SuperView has been installed.\nYou should install SuperView-Library\nnow if not already done.")
    (set MSG_SuperViewPath       "Now modifying your S:User-Startup for a search path...")
  )
)

(if (= @language "italiano")
  (
    (set MSG_wrong_OS       (cat "Serve almeno l' OS V2.04 per usare SuperView !\n\n"
                                 "SuperView non funzioner con la tua configurazione di sistema !"))
    (set MSG_InstallingSuperView "Ora installo SuperView.Le Librerie dovranno essere installate separatamente !")
    (set MSG_SelectPath          "Seleziona il percorso in cui installare SuperView")
    (set MSG_InstallingCatalogs  "Installo File-Catalogo per OS V2.1+\nLocalizzazione Codice.")
    (set MSG_SelectCatalogPath   "Seleziona percorso in cui installare i Cataloghi")
    (set MSG_DoInstallSuperView  "SuperView has been installed.\nYou should install SuperView-Library\nnow if not already done.")
    (set MSG_SuperViewPath       "Now modifying your S:User-Startup for a search path...")
  )
)

(set OS_VER (/ (getversion) 65536) )

(if(< OS_VER 37)
  (abort MSG_wrong_OS)
)

(complete 0)

(copyfiles
  (prompt MSG_Installing)
  (help @copyfiles-help)
  (source "")
  (set svcomdir
              (askdir
                     (prompt MSG_SelectPath)
                     (help @askdir-help)
                     (newpath)
                     (default "SYS:SuperView")
              )
  )
  (dest svcomdir)
  (all)
  (confirm)
)

(complete 70)

(copyfiles
  (prompt MSG_InstallingCatalogs)
  (help @copyfiles-help)
  (source "locale/catalogs")
  (set svcomdir
              (askdir
                     (prompt MSG_SelectCatalogPath)
                     (help @askdir-help)
                     (newpath)
                     (default "SYS:locale/Catalogs")
              )
  )
  (dest svcomdir)
  (all)
  (confirm)
)

(startup "SuperView"
  (prompt MSG_SuperViewPath)
  (help @startup-help)
  (command "Path "svcomdir" ADD\n")
)

(complete 99)

(exit MSG_DoInstallSuperView)
