home *** CD-ROM | disk | FTP | other *** search
/ Dream 44 / Amiga_Dream_44.iso / Amiga / emulateurs / AmiNES.lha / amines / Install_AmiNES < prev    next >
Text File  |  1997-08-26  |  10KB  |  265 lines
  1. ; +--------------------------------------------------------+
  2. ; |               Install script for AmiNES                |
  3. ; |                Written by Tomas Amsrud                 |
  4. ; |             AmiNES is ⌐Juan Antonio G≤mez              |
  5. ; |   Send Translations to me at: gdwarf@applausenett.no   |
  6. ; +--------------------------------------------------------+
  7. ; $Ver: AmiNES Installer V1.1 (28-Jul-97)
  8.  
  9. ;***************************************************************************
  10. ;*** Something Default
  11. ;***************************************************************************
  12.  
  13. (set @default-dest "")
  14. (set emunam "AmiNES")              ; Name of Program to Install
  15. (set emuver "0.3")                 ; Emulator Version
  16. (set insver "1.1")                 ; Install Script Version
  17. (set emuaut "Juan Antonio G≤mez")  ; Emulator Author
  18. (set insaut "Tomas Amsrud")        ; Install Script Maker
  19.  
  20. ;***************************************************************************
  21. ;*** Choose Language
  22. ;***************************************************************************
  23.  
  24. (complete 0)
  25. (set lang
  26.       (askchoice (prompt "\nWhat Language Do you want to use???")
  27.                  (help @askchoise-help)
  28.                  (choices "English" "German" "French" "Italian" "Espa±ol" "Norsk" "Svensk " "Dutch")))
  29.  
  30. ;*****************
  31. ;**** ENGLISH ****
  32. ;*****************
  33. (set #about (cat "\n\n\nWelcome to\n\nInstalation of " emunam " v" emuver "\n" emunam " is ⌐" emuaut "\n\nInstalation script v" insver "\nby " insaut))
  34. (set #where (cat "\nWhere do you want to install " emunam "? (A drawer will be created)"))
  35. (set #whaticon   "\nWhat kind of Icons do you want to install?")
  36. (set #filecopy   ". .. ....Copying Files.... .. .")
  37. (set #doccopy    ". .. ....Copying Docs.... .. .")
  38. (set #packicons  ". .. ....Un-Packing Icons.... .. .")
  39. (set #copyicons  ". .. ....Copying Icons.... .. .")
  40. (set #cleanup    ". .. ....Cleaning Up.... .. .")
  41.  
  42. ;*****************
  43. ;**** German  **** 'German' Translation done by Richard K÷rber
  44. ;*****************
  45. (if (= lang 1)
  46. ((set #about (cat "\n\n\nWillkommen 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"))
  47.  (set #where (cat "\nWohin soll " emunam " installiert werden? (Verzeichnis wird angelegt)"))
  48.  (set #whaticon   "\nWelche Piktogramme m÷chten Sie installieren?")
  49.  (set #filecopy   ". .. ....Kopiere Dateien.... .. .")
  50.  (set #doccopy    ". .. ....Kopiere Anleitungen.... .. .")
  51.  (set #packicons  ". .. ....Entpacke Piktogramme.... .. .")
  52.  (set #copyicons  ". .. ....Kopiere Piktogramme.... .. .")
  53.  (set #cleanup    ". .. ....RΣume auf.... .. .")
  54. ))
  55.  
  56. ;*****************
  57. ;**** French  **** French translation made by Pascal Willano
  58. ;*****************
  59. (if (= lang 2)
  60. ((set #about (cat "\n\n\nBienvenu α\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"))
  61.  (set #where (cat "\nO∙ voulez vous installer " emunam "? (Un rΘpertoire sera crΘΘ)"))
  62.  (set #whaticon   "\nQuel type d'ic⌠nes voulez vous installer?")
  63.  (set #filecopy   ". .. ....Copie des fichiers.... .. .")
  64.  (set #doccopy    ". .. ....Copie de la Documention.... .. .")
  65.  (set #packicons  ". .. ....Decompression des ic⌠nes.... .. .")
  66.  (set #copyicons  ". .. ....Copie des ic⌠nes.... .. .")
  67.  (set #cleanup    ". .. ....NΘtoyage.... .. .")
  68. ))
  69.  
  70. ;*****************
  71. ;**** Italian **** Italian Translation done by Simone Bevilacqua
  72. ;*****************
  73. (if (= lang 3)
  74. ((set #about (cat "\n\n\nBenvenuto\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"))
  75.  (set #where (cat "\nDove vuoi che " emunam " sia installato? (verra' creata un' apposita directory)"))
  76.  (set #whaticon   "\nChe tipo di icone vuoi installare?")
  77.  (set #filecopy   ". .. ....Copia files in corso.... .. .")
  78.  (set #doccopy    ". .. ....Copia documentazione in corso.... .. .")
  79.  (set #packicons  ". .. ....Decompressione icone in corso.... .. .")
  80.  (set #copyicons  ". .. ....Copia icone in corso.... .. .")
  81.  (set #cleanup    ". .. ....Eliminazione file temporanei.... .. .")
  82. ))
  83.  
  84. ;*****************
  85. ;**** Espa±ol **** By Juan Antonio G≤mez
  86. ;*****************
  87. (if (= lang 4)
  88. ((set #about (cat "\n\nBienvenido al\n\nInstalador de " emunam " v" emuver "\n" emunam " es ⌐" emuaut "\n\nScript de instalaci≤n v" insver "\nby " insaut "\n\nTraducci≤n Espa±ola por " emuaut))
  89.  (set #where (cat "\n┐Donde quiere instalar " emunam "? (Un directorio serß creado)"))
  90.  (set #whaticon   "\n┐Que tipo de iconos quiere instalar?")
  91.  (set #filecopy   ". .. ....Copiando Ficheros.... .. .")
  92.  (set #doccopy    ". .. ....Copiando Documentaci≤n.... .. .")
  93.  (set #packicons  ". .. ....Descomprimiendo Iconos.... .. .")
  94.  (set #copyicons  ". .. ....Copiando Iconos.... .. .")
  95.  (set #cleanup    ". .. ....Borrando.... .. .")
  96. ))
  97.  
  98. ;*****************
  99. ;****  Norsk  **** By Tomas Amsrud (gdwarf@applausenett.no)
  100. ;*****************
  101. (if (= lang 5)
  102. ((set #about (cat "\n\nVelkommen til\n\nInstaleringen av " emunam " v" emuver "\n" emunam " er ⌐" emuaut "\n\nInstalasjon script v" insver "\nav " insaut "\n\nNorsk oversetting av " insaut))
  103.  (set #where (cat "\nHvor vil du instalere " emunam "? (En katalog vil bli lagd)"))
  104.  (set #whaticon   "\nHva slags iconer vil du Instalere?")
  105.  (set #filecopy   ". .. ....Kopierer Filer.... .. .")
  106.  (set #doccopy    ". .. ....Kopierer Dokumentasjon.... .. .")
  107.  (set #packicons  ". .. ....PakkerOpp Iconer.... .. .")
  108.  (set #copyicons  ". .. ....Kopierer Iconer.... .. .")
  109.  (set #cleanup    ". .. ....Rydder Opp.... .. .")
  110. ))
  111.  
  112. ;*****************
  113. ;**** Sweden  **** By Niklas
  114. ;*****************
  115. (if (= lang 6)
  116. ((set #about (cat "\n\n\nVΣlkommen till\n\n" emunam " v" emuver " installationsprogram\n" emunam " is ⌐" emuaut "\n\nInstalations skript v" insver "\nby " insaut))
  117.  (set #where (cat "\nVar vill du installera " emunam "? (En katalog kommer att skapas)"))
  118.  (set #whaticon   "\nVilken slags ikoner vill du installera?")
  119.  (set #filecopy   ". .. ....Kopierar Filer.... .. .")
  120.  (set #doccopy    ". .. ....Kopierar Dokumentation.... .. .")
  121.  (set #packicons  ". .. ....Packar upp Ikoner.... .. .")
  122.  (set #copyicons  ". .. ....Kopierar Ikoner.... .. .")
  123.  (set #cleanup    ". .. ....StΣdar Upp.... .. .")
  124. ))
  125.  
  126. ;*****************
  127. ;****  Dutch  **** By Roderick
  128. ;*****************
  129. (if (= lang 7)
  130. ((set #about (cat "\n\n\nWelkom bij de\n\nInstallatie van " emunam " v"emuver "\n" emunam " is ⌐" emuaut "\n\nInstallatie script v" insver "\ndoor " insaut))
  131.  (set #where (cat "\nWaar wil je " emunam " installeren? (Een lade zalgecreδerd worden)"))
  132.  (set #whaticon   "\nWelk type icons wil je installeren?")
  133.  (set #filecopy   ". .. ....Kopiδren van bestanden.... .. .")
  134.  (set #doccopy    ". .. ....Kopiδren van documentatie.... .. .")
  135.  (set #packicons  ". .. ....Uitpakken van icons.... .. .")
  136.  (set #copyicons  ". .. ....Kopiδren van icons.... .. .")
  137.  (set #cleanup    ". .. ....Opruimen.... .. .")
  138. ))
  139.  
  140. ;***************************************************************************
  141. ;*** Install part
  142. ;***************************************************************************
  143. (complete 8)
  144. (message #about)
  145. (complete 9)
  146. (welcome)
  147.  
  148. (complete 10)
  149. (set dester
  150.      (askdir (prompt #where)
  151.              (help @askdir-help)
  152.              (default "Ram:")))
  153. (set nesdest
  154.   (tackon dester "AmiNES"))
  155.  
  156. (complete 20)
  157. (set ScrOpt
  158.       (askchoice (prompt #whaticon)
  159.                  (help @askchoise-help)
  160.                  (choices "4ColorHires      (Normal)" "8ColorHires      (SmalBench)" "8ColorHiresLaced (MagicWB)")))
  161.  
  162. ;***************************************************************************
  163. ;*** Copying files
  164. ;***************************************************************************
  165. (complete 40)
  166. (working #filecopy)
  167. (copyfiles
  168.    (source "")
  169.    (dest nesdest)
  170.    (all)
  171. )
  172.  
  173. ;***************************************************************************
  174. ;*** Unpacking Icons
  175. ;***************************************************************************
  176. (complete 60)
  177. (working #packicons)
  178. (if (= (exists ("NESIcons.lha") (noreq)) 1)
  179.   (run ("c:lha x NESIcons.lha Ram:") (safe))
  180. )
  181.  
  182. ;***************************************************************************
  183. ;*** Copying Icons
  184. ;***************************************************************************
  185. (complete 70)
  186. (working #copyicons)
  187. (if (= (exists ("NESIcons.lha") (noreq)) 1)
  188. ((copyfiles
  189.    (source "Ram:Icons/AmiNES.info")
  190.    (dest dester)
  191. )
  192. ((if (= ScrOpt 0)
  193.      (copyfiles
  194.         (source "Ram:Icons/4cHires")
  195.         (dest nesdest)
  196.         (pattern "~(#?02#?)")
  197.      )
  198.  
  199.  )
  200.  (if (= ScrOpt 1)
  201.      (copyfiles
  202.         (source "Ram:Icons/8cHires")
  203.         (dest nesdest)
  204.         (pattern "~(#?02#?)")
  205.      )
  206.  )
  207.  (if (= ScrOpt 2)
  208.      (copyfiles
  209.         (source "Ram:Icons/8cHiresLace")
  210.         (dest nesdest)
  211.         (pattern "~(#?02#?)")
  212.      )
  213.  )
  214.  (if (= ScrOpt 3)
  215.      (copyfiles
  216.         (source "Ram:Icons/NewIcons")
  217.         (dest nesdest)
  218.         (pattern "~(#?02#?)")
  219.      )
  220.  )
  221. )))
  222.  
  223. ;***************************************************************************
  224. ;*** Copying docs
  225. ;***************************************************************************
  226. (complete 80)
  227. (working #doccopy)
  228. (if (= (exists ("Docs/AmiNES.Guide") (noreq)) 1)
  229.    (copyfiles
  230.       (source ("Docs/AmiNES.Guide"))
  231.       (dest nesdest)
  232.    )
  233. )
  234. (if (= lang 4)
  235. (if (= (exists ("Docs/AmiNES_Es.Guide") (noreq)) 1)
  236.    ((copyfiles
  237.        (source ("Docs/AmiNES_Es.Guide"))
  238.        (dest nesdest)
  239.     )
  240.     (delete ("%s/AmiNES.Guide" nesdest))
  241.     (rename ("%s/AmiNES.Guide.info" nesdest) ("%s/AmiNES_Es.Guide.info" nesdest))
  242.    )
  243. ))
  244. (if (= lang 5)
  245. (if (= (exists ("Docs/AmiNES_No.Guide") (noreq)) 1)
  246.    ((copyfiles
  247.        (source ("Docs/AmiNES_No.Guide"))
  248.        (dest nesdest)
  249.     )
  250.     (delete ("%s/AmiNES.Guide" nesdest))
  251.     (rename ("%s/AmiNES.Guide.info" nesdest) ("%s/AmiNES_No.Guide.info" nesdest))
  252.    )
  253. ))
  254.  
  255. ;***************************************************************************
  256. ;*** Clean up Part
  257. ;***************************************************************************
  258. (complete 90)
  259. (working #cleanup)
  260. (delete "ram:Icons" (all) (safe))
  261. (delete ("%s/Docs" nesdest) (all))
  262. (delete ("%s/Install" nesdest))
  263. (delete ("%s/Install.info" nesdest))
  264.  
  265. (complete 100)