home *** CD-ROM | disk | FTP | other *** search
/ AmigActive 6 / AACD06.ISO / AACD / System / T.H.E. / Install < prev    next >
Text File  |  1999-12-06  |  9KB  |  269 lines
  1. ; $VER: Installer script for RA_THE 1.1 (21.11.99) © 1999 by Nils Görs
  2.  
  3. ; ENGLISH
  4. (procedure english (
  5.     (set #install-msg  "\n\nThis Script installs the Workbench Hotkey-and Toolsmenu Editor to your system.")
  6.     (set #bad-lib "You must have workbench.library v44 (OS3.5) to run T.H.E..")
  7.     (set #copytxt "Copy T.H.E and the icon.")
  8.     (set #copytxt2 "\nCopy the example script and the icon to your WBStartup. If you don't use the new Workbench Hotkey and Tools-Menu options i recommend to install this script")
  9.     (set #copytxt3 "Would you like to copy the documentation?\n")
  10.     (set #askwirklich "\nYou agree?")
  11.     (set #seldir "Please select the destination drawer.")
  12.     (set #selfiles "Please select files to copy.\n")
  13.     (set #copyAScripts "Installing the supported ARexx-Scripts and then requestDevice.\n(HINT: You'll find more useful Arexx-Scripts and Shell Tools in the OS3.5 distribution!)")
  14. ))
  15.  
  16. ; DEUTSCH
  17. (procedure deutsch (
  18.     (set #install-msg  "\n\nDieses Skript installiert den\nWorkbench Hilfmittel-& Tastenbefehl-Voreinsteller auf Ihre Festplatte.")
  19.     (set #bad-lib "Sie benötigen workbench.library v44 (OS3.5) um\nT.H.E. nutzen zu können.")
  20.     (set #copytxt "Kopiere jetzt T.H.E. und das Piktogramm.")
  21.     (set #copytxt2 "\nKopiere jetzt das Beispielskript und das dazugehörige Piktogramm in die WBStartup. Falls Sie noch keine Workbench-Tastenbefehle (Hotkeys) und/oder das Hilfsmittelmenü (Tools-Menu) eingerichtet haben sollten, empfehle ich Ihnen diesen Schritt durchzuführen.")
  22.     (set #copytxt3 "Möchten Sie die Dokumentation kopieren?\n")
  23.     (set #askwirklich "\nMöchten Sie das?")
  24.     (set #seldir "Bitte wählen Sie ein Zielverzeichnis.\n")
  25.     (set #selfiles "Bitte wählen Sie die Dateien aus, die kopiert werden sollen.\n")
  26.     (set #copyAScripts "Installiere nun die mitgelieferten ARexx-Skripten und danach requestDevice.\n(HINWEIS: In der OS3.5 Distribution finden Sie weitere nützliche ARexx-Skripten und Tools.)")
  27. ))
  28. ; FRANÇAIS
  29. (procedure français (
  30.     (set #install-msg  "\n\nCe Script installe un gestionnaire de raccourcis-clavier pour le Workbench et un éditeur de menu pour votre système.")
  31.     (set #bad-lib "Vous devez avoir la version 44 (OS 3.5) de la « workbench.library » pour exécuter « T.H.E. ».")
  32.     (set #copytxt "Copie le programme « T.H.E » et son icône.")
  33.     (set #copytxt2 "\nCopie le script d'exemple et son icône dans votre répertoire WBStartup. Si vous n'utilisez pas les nouveaux raccourcis du Workbench ni les options du menu outils, Je vous recommande d'installer ce script.")
  34.     (set #copytxt3 "Voulez-vous aussi copier la documentation ?\n")
  35.     (set #askwirklich "\nÊtes-vous d'accord ?")
  36.     (set #seldir "Choisissez le répertoire de destination.")
  37.     (set #selfiles "Choisissez les fichiers à copier.\n")
  38.     (set #copyAScripts "Installation des scripts ARexx supportés et de la requête de périphérique.\n(ASTUCE : Vous trouverez plein d'autres scripts ARexx utiles et des utilitaires pour le Shell avec la distribution de l'OS 3.5 !)")
  39. ))
  40.  
  41. ; SUOMI
  42. (procedure suomi (
  43.     (set #install-msg  "\n\nTämä skripti asentaa Workbenchin pikanäppäimien ja työkaluvalikon muokkausohjelman (T.H.E.) laitteistoosi.")
  44.     (set #bad-lib "Workbench.library v44 (OS3.5) tarvitaan T.H.E:n suorittamiseen..")
  45.     (set #copytxt "Kopioi T.H.E ja ikoni.")
  46.     (set #copytxt2 "\nKopioi malliskripti ja ikoni WBStartup-hakemistoosi. Jos et käytä Workbenchin uusia pikanäppäin- ja valikkomenutoimintoja, skriptin asentaminen on suositeltavaa.")
  47.     (set #copytxt3 "Kopioidaanko ohjetiedostot?\n")
  48.     (set #askwirklich "\nSamaa mieltä?")
  49.     (set #seldir "Ole hyvä ja valitse kohdehakemisto.")
  50.     (set #selfiles "Ole hyvä ja valitse kopioitavat tiedostot.\n")
  51. ))
  52.  
  53. ; NORSK
  54. (procedure norsk (
  55.     (set #install-msg  "\n\nDette skriptet installerer Workbench hurtigtast og verktøymeny editoren(T.H.E) på ditt system.")
  56.     (set #bad-lib "Du må ha workbench.library v44 (OS3.5) for å bruke T.H.E..")
  57.     (set #copytxt "Kopiere T.H.E og ikon.")
  58.     (set #copytxt2 "\nKopiere eksempel skript og ikon til WBStartup. Hvis du ikke bruker de nye Workbench hurtigtast og verktøymeny opsjonene anbefales det at du installerer dette skriptet")
  59.     (set #copytxt3 "Vil du kopiere dokumentasjonen?\n")
  60.     (set #askwirklich "\nEr du enig?")
  61.     (set #seldir "Vennligst velg målskuff.")
  62.     (set #selfiles "Vennligst velg filer som skal kopieres.\n")
  63. ))
  64.  
  65. ; PORTUGUÊS
  66. (procedure português (
  67.     (set #install-msg  "\n\nEste script instala o Editor de atalhos e do menu de ferramentas do Workbench no seu sistema.")
  68.     (set #bad-lib "É necessária a workbench.library v44 (OS3.5) para correr o T.H.E..")
  69.     (set #copytxt "Copia o T.H.E. e o ícone.")
  70.     (set #copytxt2 "\nCopia o script de exemplo e o ícone para o seu directório WBStartup. Se não utiliza as novas opções do Editor de atalhos e do menu de ferramentas do Workbench eu recomendo que instale este script.")
  71.     (set #copytxt3 "Quer copiar a documentação?\n")
  72.     (set #askwirklich "\nConcorda?")
  73.     (set #seldir "Por favor seleccione a gaveta de destino.")
  74.     (set #selfiles "Por favor seleccione os ficheiros a copiar.\n")
  75. ))
  76.  
  77. ; NEDERLANDS
  78. (procedure nederlands (
  79.     (set #install-msg  "\n\nDit script installeert de Workbench sneltoetsen gereedschapsmenubewerker op uw systeem.")
  80.     (set #bad-lib "U moet workbench.library v44 (OS3.5) hebben om T.H.E. te kunnen gebruiken.")
  81.     (set #copytxt "Kopiëer T.H.E en het icoon.")
  82.     (set #copytxt2 "\nKopiëer het voorbeeldscript en het icoon naar uw WBStartup. Indien u de nieuwe Workbench sneltoets- en gereedschapsmenuopties niet gebruikt raad ik u aan dit script te installeren.")
  83.     (set #copytxt3 "Wilt u de documentatie kopiëren?\n")
  84.     (set #askwirklich "\nGaat u akkoord?")
  85.     (set #seldir "Selecteer AUB de bestemmingsdirectory.")
  86.     (set #selfiles "Selecteer AUB bestanden om te kopiëren.\n")
  87. ))
  88.  
  89. (if (= @language "english") (english))
  90. (if (= @language "deutsch") (deutsch))
  91. (if (= @language "français") (français))
  92. (if (= @language "suomi") (suomi))
  93. (if (= @language "norsk") (norsk))
  94. (if (= @language "português") (português))
  95. (if (= @language "nederlands") (nederlands))
  96.  
  97.  
  98. (if (< (/ (getversion "workbench.library" (resident)) 65536) 44) ((abort #bad-lib)))
  99.  
  100. (message #install-msg)
  101.  
  102. (SET @default-dest "ram:")
  103.  
  104. (set @dest-dir (askdir
  105.         (prompt #seldir "\n" #copytxt "\n")
  106.         (help @askdir-help)
  107.         (default "Sys:Prefs")
  108.         )
  109. )
  110.  
  111. (copyfiles
  112.     (prompt #selfiles "\n")
  113.     (help @copylib-help)
  114.     (source "prefs/")
  115.     (files)
  116.     (all)
  117.     (infos)
  118.     (dest @dest-dir)
  119.     (confirm)
  120. )
  121.  
  122. (procedure @askcopy
  123.     (askbool
  124.         (prompt #copytxt2 "\n" #askwirklich)
  125.         (help @askbool-help)
  126.     )
  127. )
  128.  
  129. (if (> (@askcopy) 0)
  130. (
  131.     (set @dest-dir (askdir
  132.             (prompt #seldir "\n")
  133.             (help @askdir-help)
  134.             (default "Sys:WBStartup")
  135.             )
  136.     )
  137.  
  138.     (copyfiles
  139.         (prompt #selfiles "\n")
  140.         (help @copylib-help)
  141.         (source "wbstartup/")
  142.         (all)
  143.         (files)
  144.         (dest @dest-dir)
  145.         (confirm)
  146.     )
  147. ))
  148.  
  149. (procedure @askcopy
  150.     (askbool
  151.         (prompt #copytxt3)
  152.         (help @askbool-help)
  153.     )
  154. )
  155.  
  156. (if (> (@askcopy) 0)
  157. (
  158.     (set @dest-dir (askdir
  159.             (prompt #seldir "\n")
  160.             (help @askdir-help)
  161.             (default "HELP:")
  162.             )
  163.     )
  164.     (set #scr_name (tackon "docs/" @language))
  165.  
  166.     (if (exists (tackon #scr_name "the.guide"))
  167.     (
  168.         (copyfiles
  169.             (help @copylib-help)
  170.             (source (tackon #scr_name "the.guide"))
  171.             (files)
  172.             (dest @dest-dir)
  173.         )
  174.     )
  175.         (message "Sorry, there is no " @language " documentation available at the moment!")
  176.     )
  177. ))
  178.  
  179. (if (NOT (= @language "english")) 
  180. (
  181.     (set #src_name
  182.         (tackon "Catalogs/" @language)
  183.     )
  184.     (set #dst_name
  185.         (tackon "LOCALE:" #src_name)
  186.     )
  187.     (set #src_name
  188.         (tackon #src_name "the.catalog")
  189.     )
  190.  
  191.     (if (exists #src_name (noreq))
  192.     (
  193.         (copyfiles
  194.             (help @copyfiles-help)
  195.             (prompt #installing #src_name)
  196.             (source #src_name)
  197.             (dest #dst_name)
  198.             (confirm)
  199.         )
  200.     )
  201.         (message "Sorry, there is no " @language " catalog available at the moment!")
  202.     )
  203. )
  204. )
  205.  
  206. ; Installing AWNPipe
  207. (copylib
  208.     (source "l/awnpipe-handler")
  209.     (dest "l:")
  210.     (prompt #installing "AWNPipe-handler")
  211.     (help @copyfiles-help)
  212.     (confirm)
  213. )
  214. (copyfiles
  215.     (source "devs/dosdrivers")
  216.     (dest "Devs:dosdrivers")
  217.     (choices "awnpipe" "awnpipe.info")
  218.     (prompt #installing "AWNPipe:")
  219.     (help @copyfiles-help)
  220.     (confirm)
  221. )
  222.     (run "C:assign AWNPipe: dismount")
  223.     (run "C:mount AWNPipe:")
  224.  
  225. ; Install ARexx-Scripts and requestDevice
  226. (procedure @askcopy
  227.     (askbool
  228.         (prompt #copyAScripts  "\n" #askwirklich)
  229.         (help @askbool-help)
  230.     )
  231. )
  232.  
  233. (if (> (@askcopy) 0)
  234. (
  235.     (set @dest-dir (askdir
  236.             (prompt #seldir "\n")
  237.             (help @askdir-help)
  238.             (default "rexx:")
  239.             )
  240.     )
  241.  
  242.     (copyfiles
  243.         (prompt #selfiles "\n")
  244.         (help @copylib-help)
  245.         (source "rexx/")
  246.         (all)
  247.         (dest @dest-dir)
  248.         (confirm)
  249.     )
  250.  
  251.     (set @dest-dir (askdir
  252.             (prompt #seldir "\n")
  253.             (help @askdir-help)
  254.             (default "c:")
  255.             )
  256.     )
  257.  
  258.     (copyfiles
  259.         (prompt #selfiles "\n")
  260.         (help @copylib-help)
  261.         (source "c/")
  262.         (all)
  263.         (files)
  264.         (dest @dest-dir)
  265.         (confirm)
  266.     )
  267.  
  268. ))
  269.