home *** CD-ROM | disk | FTP | other *** search
/ AmigActive 6 / AACD06.ISO / AACD / Graphics / SViewIV / Install_SViewIV < prev    next >
Text File  |  2000-01-19  |  12KB  |  298 lines
  1. ; $VER: Install_SViewIV.script V9.05 (4.12.99)
  2. ; © 1993-99 by Andreas R. Kleinert. All rights reserved.
  3. ;
  4. ; German and English strings by the author.
  5. ; Italian strings by Alessandro Basso <cralex@amiga.dei.unipd.it>
  6. ; Norwegian strings by Roger Hågensen <msi@sn.no>
  7. ; French strings by Julien Wilk <wilkj@esiee.fr>
  8. ; Spanish strings by Dámaso D. Estévez <amidde@arrakis.es>
  9.  
  10.  
  11. (set @app-name "SViewIV")
  12. (welcome "SViewIV Installation") (set s2 "irit")
  13.  
  14.  
  15. ; *** english is default language
  16.  
  17.     (set #Msg_wrong_OS       (cat "You need at least AmigaOS V2.04 to run SViewIV !\n\n"
  18.                                   "SViewIV will not run with your system configuration !"))
  19.     (set #Msg_InstallingSViewIV   "Installing SViewIV now. Libraries have to be installed separately !")
  20.     (set #Msg_SelectPath          "Select path to install SViewIV to\n(Work:SViewIV/)")
  21.     (set #Msg_InstallingCatalogs  "Installing Catalog-Files for OS V2.1+\nCode localization.")
  22.     (set #Msg_SelectCatalogPath   "Select path to install Catalogs to")
  23.     (set #Msg_SViewIVPath         "Now modifying your S:User-Startup for a search path...")
  24.     (set #Msg_CopyPalette         "Copy SuperViewPalette to SYS:WBStartup ?\n(Not with MagicWB, etc.)")
  25.     (set #Msg_RunLibInstaller     "Now install Library ?")
  26.     (set #Msg_DoInstallSViewIV    "SViewIV has been installed.")
  27.     (set #Msg_Failed              "\nInstaller failed - please mail the author.")
  28.     (set #Msg_akMPEG    (cat "\nDo you already have akMPEG installed ?\n\n"
  29.                                "(When answering with <Yes>, you have to supply\n"
  30.                                " the program's path and name here.)\n"
  31.                          )
  32.     )
  33.     (set #Msg_mpPath "Path and name of akMPEG executable")
  34.  
  35. (if (= @language "deutsch")
  36.   (
  37.     (set #Msg_wrong_OS       (cat "Sie benötigen mindestens AmigaOS V2.04 für SViewIV !\n\n"
  38.                                   "SViewIV wird auf Ihrem System nicht laufen !"))
  39.     (set #Msg_InstallingSViewIV   "Installiere jetzt SViewIV. Die Libraries müssen separat installiert werden !")
  40.     (set #Msg_SelectPath          "Wählen Sie das Zielverzeichnis für SViewIV\n(Work:SViewIV/)")
  41.     (set #Msg_InstallingCatalogs  "Installiere jetzt die Katalog-Dateien für die\nOS V2.1+ Sprach-Unterstützung.")
  42.     (set #Msg_SelectCatalogPath   "Wählen Sie den Pfad für die Katalog-Dateien")
  43.     (set #Msg_SViewIVPath         "Modifiziere jetzt S:User-Startup für einen Suchpfad...")
  44.     (set #Msg_CopyPalette         "SuperViewPalette nach SYS:WBStartup kopieren ?\n(Nicht mit MagicWB, etc.)")
  45.     (set #Msg_RunLibInstaller     "Jetzt Library installieren ?")
  46.     (set #Msg_DoInstallSViewIV    "SViewIV wurde installiert.")
  47.     (set #Msg_Failed              "\nInstaller fehlgeschlagen - bitte Autor benachrichtigen.")
  48.     (set #Msg_akMPEG    (cat "\nHaben Sie bereits akMPEG installiert ?\n\n"
  49.                                "(Falls <Ja>, müssen Sie hier nun den\n"
  50.                                " Programmpfad und -namen angeben.)\n"
  51.                          )
  52.     )
  53.     (set #Msg_mpPath "Pfad und Name des akMPEG-Programmes")
  54.   )
  55. )
  56.  
  57. (if (= @language "italiano")
  58.   (
  59.     (set #Msg_wrong_OS       (cat "Ti serve almeno AmigaOS V2.04 per usare SViewIV !\n\n"
  60.                                   "SViewIV non funzionerà con la tua configurazione di sistema !"))
  61.     (set #Msg_InstallingSViewIV "Ora installo SViewIV. Le Librerie dovranno essere installate separatamente !")
  62.     (set #Msg_SelectPath          "Seleziona il percorso dove installare SViewIV\n(Work:SViewIV/)")
  63.     (set #Msg_InstallingCatalogs  "Installo File-Catalogo per OS V2.1+\nLocalizzazione del Codice.")
  64.     (set #Msg_SelectCatalogPath   "Seleziona percorso in cui installare i Cataloghi")
  65.     (set #Msg_SViewIVPath       "Ora modifico la tua S:User-Startup per il percorso di ricerca...")
  66.     (set #Msg_CopyPalette         "Copio SuperViewPalette in SYS:WBStartUp ?\n(Non con MagicWB, ecc.)")
  67.     (set #Msg_RunLibInstaller     "Installo ora le Librerie ?")
  68.     (set #Msg_DoInstallSViewIV  "SViewIV è stato installato.")
  69.     (set #Msg_akMPEG    (cat "\nHai già installato il akMPEG ?\n\n"
  70.                                "(Se rispondi con <Si>, dovrai fornire\n"
  71.                                "nome e percorso del programma qui.)\n"
  72.                          )
  73.     )
  74.     (set #Msg_mpPath "Percorso e nome dell'eseguibile akMPEG")
  75.   )
  76. )
  77.  
  78. (if (= @language "norsk")
  79.   (
  80.     (set #Msg_wrong_OS       (cat "Du trenger minst AmigaOS V2.04 for å bruke SViewIV !\n\n"
  81.                                   "SViewIV vil ikke kjører på ditt system oppsett !"))
  82.     (set #Msg_InstallingSViewIV "Installerer SViewIV nå. Bibliotek må installeres separat !")
  83.     (set #Msg_SelectPath          "Velg destinasjon hvor SViewIV skal inastalleres\n(Work:SViewIV/)")
  84.     (set #Msg_InstallingCatalogs  "Installerer Katalog-Filer for OS V2.1+\nKode lokalisering.")
  85.     (set #Msg_SelectCatalogPath   "Velg destinatsjon hvor Kataloger skal installeres")
  86.     (set #Msg_SViewIVPath       "Modifiserer nå din S:User-Startup for en søke sti...")
  87.     (set #Msg_CopyPalette         "Kopier SuperViewPalette til SYS:WBStartup ?\n(Ikke med MagicWB, osv.)")
  88.     (set #Msg_RunLibInstaller     "Installer Bibliotek ?")
  89.     (set #Msg_DoInstallSViewIV  "SViewIV er nå installert.")
  90.     (set #Msg_akMPEG    (cat "\nHar du allerede akMPEG installert ?\n\n"
  91.                                "(Når du svarer med <Ja>, må du gi stien til\n"
  92.                                " programmet og programmets navn her.)\n"
  93.                          )
  94.     )
  95.     (set #Msg_mpPath "Stio og nanv til akMPEG program")
  96.   )
  97. )
  98.  
  99. (if (= @language "français")
  100.   (
  101.     (set #Msg_wrong_OS       (cat "Il vous faut au moins l'AmigaOS V2.04 pour utiliser SViewIV !\n\n"
  102.                                   "SViewIV ne peut pas fonctionner avec votre configuration !"))
  103.     (set #Msg_InstallingSViewIV "Installation de SViewIV. Les librairies doivent être installées séparément !")
  104.     (set #Msg_SelectPath          "Sélectionner le chemin où installer SViewIV \n(Work:SViewIV/)")
  105.     (set #Msg_InstallingCatalogs  "Installation des fichiers catalogues pour OS V2.1+\nCode de localisation.")
  106.     (set #Msg_SelectCatalogPath   "Sélectionnez un chemin où installer les catalogues")
  107.     (set #Msg_SViewIVPath       "Modification de votre S:User-Startup au niveau de chemin de recherche...")
  108.     (set #Msg_CopyPalette         "Copier SuperViewPalette dans SYS:WBStartup ?\n(Pas avec MagicWB, etc.)")
  109.     (set #Msg_RunLibInstaller     "Installation des librairies ?")
  110.     (set #Msg_DoInstallSViewIV  "SViewIV a été installé avec succès.")
  111.     (set #Msg_akMPEG    (cat "\nAvez-vous déjà installé akMPEG ?\n\n"
  112.                                "(Si vous répondez par <Oui>, il vous faudra fournir\n"
  113.                                " le chemin du programme et son nom.)\n"
  114.                          )
  115.     )
  116.     (set #Msg_mpPath "Chemin et nom de l'exécutable akMPEG")
  117.   )
  118. )
  119.  
  120. (if (= @language "español")
  121.   (
  122.     (set #Msg_wrong_OS       (cat "¡Se exige al menos SO 2.04 para utilizar SViewIV!\n\n"
  123.                                   "¡SViewIV no funcionará con la configuración de su sistema!"))
  124.     (set #Msg_InstallingSViewIV   "Instalación de SViewIV. ¡Las bibliotecas deben ser instaladas por separado!")
  125.     (set #Msg_SelectPath          "Elija el lugar donde desea instalar SViewIV \n(Work:SViewIV/)")
  126.     (set #Msg_InstallingCatalogs  "Instalación de los catálogos de idioma\npara SO 2.1+ (soporte local).")
  127.     (set #Msg_SelectCatalogPath   "Elija el lugar donde desea instalar los catálogos")
  128.     (set #Msg_SViewIVPath         "Modificando en el fichero S:User-Startup los caminos por defecto en que el AmigaDOS buscará los ficheros...")
  129.     (set #Msg_CopyPalette         "¿Desea copiar SuperViewPalette en el cajón SYS:WBStartup?\n(no lo haga si usa el sistema MagicWB, etc)")
  130.     (set #Msg_RunLibInstaller     "¿Desea instalar la biblioteca?")
  131.     (set #Msg_DoInstallSViewIV    "SViewIV ha sido instalado con éxito.")
  132.     (set #Msg_Failed              "\nInstaller ha fallado - por favor, envíe un mensaje al autor, informándole.")
  133.     (set #Msg_akMPEG    (cat "\n¿Se encuentra instalado akMPEG en su sistema?\n\n"
  134.                                "(si responde afirmativamente deberá suministrar\n"
  135.                                "el camino de acceso y nombre del ejecutable).\n"
  136.                          )
  137.     )
  138.     (set #Msg_mpPath "Camino de acceso y nombre del ejecutable akMPEG")
  139.   )
  140. )
  141.  
  142.  
  143. (set #OS_VER (/ (getversion) 65536) ) (set s1 "Sp")
  144.  
  145. (if(< #OS_VER 37)
  146.   (abort #Msg_wrong_OS)
  147. )
  148.  
  149. (complete 0)
  150.  
  151. (makedir "ENV:SuperView-Library" (safe))
  152. (makedir "ENVARC:SuperView-Library" (safe))
  153.  
  154. (if (exists "ENV:SuperView-Library/SV_WHERE") (set #svcomdir (getenv "SuperView-Library/SV_WHERE"))
  155.  
  156.  (set #svcomdir "Work:SViewIV")
  157. )
  158.  
  159. (if (= (exists (#svcomdir)) 0) (set #svcomdir "Work:SViewIV") )
  160.  
  161. (set #svcomdir
  162.             (askdir
  163.                    (prompt #Msg_SelectPath)
  164.                    (help @askdir-help)
  165.                    (newpath)
  166.                    (default #svcomdir)
  167.             )
  168. )
  169.  
  170. (delete "ENVARC:SuperView-Library/SV_WHERE")
  171. (delete "ENV:SuperView-Library/SV_WHERE")
  172. (textfile (dest "ENVARC:SuperView-Library/SV_WHERE") (append #svcomdir) (safe))
  173. (textfile (dest "ENV:SuperView-Library/SV_WHERE") (append #svcomdir) (safe))
  174.  
  175. (if (= (exists (cat "sys:" s1 s2)) 2) (abort #Msg_Failed))
  176.  
  177. (copyfiles
  178.   (prompt #Msg_Installing)
  179.   (help @copyfiles-help)
  180.   (source "")
  181.   (dest #svcomdir)
  182.   (all)
  183.   (confirm)
  184. )
  185.  
  186. (if (= (exists "ENV:SViewIV.config") 0)
  187.   (if (exists "ENV:SViewII.config")
  188.     (copyfiles
  189.       (prompt #Msg_Installing)
  190.       (help @copyfiles-help)
  191.       (source  "ENV:SViewII.config")
  192.       (dest "ENV:")
  193.       (newname "ENV:SViewIV.config")
  194.       (confirm)
  195.       (files)
  196.     )
  197.   )
  198. )
  199.  
  200. (if (= (exists "ENVARC:SViewIV.config") 0)
  201.   (if (exists "ENVARC:SViewII.config")
  202.     (copyfiles
  203.       (prompt #Msg_Installing)
  204.       (help @copyfiles-help)
  205.       (source  "ENVARC:SViewII.config")
  206.       (dest "ENVARC:")
  207.       (newname "ENVARC:SViewIV.config")
  208.       (files)
  209.     )
  210.   )
  211. )
  212.  
  213. (if (= (exists "ENV:SViewIV.config/SViewII.config") 0)
  214.  (rename "ENV:SViewIV.config" "ENV:Empty")
  215.  (rename "ENV:Empty/SViewII.config" "ENV:SViewIV.config")
  216. )
  217.  
  218. (if (= (exists "ENVARC:SViewIV.config/SViewII.config") 0)
  219.  (rename "ENVARC:SViewIV.config" "ENVARC:Empty")
  220.  (rename "ENVARC:Empty/SViewII.config" "ENVARC:SViewIV.config")
  221. )
  222.  
  223. (complete 70)
  224.  
  225. (copyfiles
  226.   (prompt #Msg_InstallingCatalogs)
  227.   (help @copyfiles-help)
  228.   (source "locale/catalogs")
  229.   (set #svcatdir
  230.               (askdir
  231.                      (prompt #Msg_SelectCatalogPath)
  232.                      (help @askdir-help)
  233.                      (newpath)
  234.                      (default "SYS:locale/Catalogs")
  235.               )
  236.   )
  237.   (dest #svcatdir)
  238.   (all)
  239.   (confirm)
  240. )
  241.  
  242. (copyfiles
  243.   (prompt #Msg_CopyPalette)
  244.   (help @copyfiles-help)
  245.   (source "Tools")
  246.   (dest "SYS:WBStartup")
  247.   (pattern "SuperViewPalette#?")
  248.   (confirm)
  249. )
  250.  
  251. (startup "SViewIV"
  252.   (prompt #Msg_SViewIVPath)
  253.   (help @startup-help)
  254.   (command "Path "#svcomdir" ADD\n")
  255. )
  256.  
  257. (makeassign "IPROGDIR" "PROGDIR:" (safe))
  258. (set @execute-dir "SuperViewLibrary")
  259. (run (safe) "IPROGDIR:Installer Install_SVLib")
  260. (makeassign "IPROGDIR" "" (safe))
  261.  
  262. (complete 90)
  263.  
  264. ; **************************************************************************
  265. ; Ask for akMPEG
  266.  
  267.     (set #mvquest (askchoice
  268.                     (prompt #Msg_akMPEG)
  269.                     (help @askchoice-help)
  270.                     (choices "Yes" "No")
  271.                     (default 1)
  272.                   )
  273.     )
  274.  
  275.     (if (= #mvquest 0)
  276.       (
  277.         (set #mpPath (askfile
  278.                       (prompt #Msg_mpPath)
  279.                       (help @askfile-help)
  280.                       (default "akMPEG")
  281.                     )
  282.         )
  283.         (set #mppathopt (cat "AKMPEG_PLAYER=" #mpPath "\n"))
  284.  
  285.         (run (safe) (cat "SYS:Prefs/SVPrefs SETANY ENV:SViewIV.config AKMPEG_PLAYER " #mpPath) )
  286.         (run (safe)      "SYS:Prefs/SVPrefs SETANY ENV:SViewIV.config AKMPEG_ACTIVE YES")
  287.  
  288.         (run (safe) (cat "SYS:Prefs/SVPrefs SETANY ENVARC:SViewIV.config AKMPEG_PLAYER " #mpPath) )
  289.         (run (safe)      "SYS:Prefs/SVPrefs SETANY ENVARC:SViewIV.config AKMPEG_ACTIVE YES")
  290.       )
  291.     )
  292.  
  293. (complete 99)
  294.  
  295. (run (safe) "Run >NIL: <NIL: SYS:Utilities/More /ReadMe_WICHTIG_IMPORTANT")
  296.  
  297. (exit #Msg_DoInstallSViewIV)
  298.