home *** CD-ROM | disk | FTP | other *** search
/ Magazyn Amiga Shareware Floppies / ma48.dms / ma48.adf / XPKatana / Install / Português < prev   
Encoding:
Text File  |  1995-12-20  |  3.6 KB  |  161 lines
  1. ; XPKatana Installer Script
  2. ; $Ver: 1.0 (28.11.95)
  3. ; Written by Philip A. Vedovatti
  4. ; Portuguese translation by Georges Goncalves
  5.  
  6. (set #bad-kick
  7.    (cat "\n\nPesso desculpa ! Vôcé tem que ter o Workbench 2.0"
  8.         "ó melhor para utilizar XPKatana."))
  9.  
  10. (set #hello-message
  11.    (cat "\n\n\"Corte ao comprimento do seus archivos em boccados !\""
  12.         "\n\nBenvindo ao scripto d'installaçaõ de XPKatana."
  13.         "\n\nQueira ler a documentacaõ para tirar ao maximo"
  14.         "\nd'este programma."
  15.         "\n\n\nPRIMA PARA CONTINUAR"))
  16.  
  17. (set #install-which
  18.    (cat "\nQual partes de XPKatana vôcé quer"
  19.         "\ninstallar no disco ?\n"))
  20.  
  21. (set #tools-dest
  22.    (cat "\nEm qual repertorio vôcé quer installar"
  23.         "\nao programma principàl de XPKatana ?\n"))
  24.  
  25. (set #docs-dest
  26.    (cat "\nEm qual repertorio vôcé quer installar"
  27.         "\na documentacaõ de XPKatana ?\n"))
  28.  
  29. (set #rexx-dest
  30.    (cat "\nEm qual repertorio vôcé quer installar"
  31.         "\naos scriptos ARexx de XPKatana ?\n"))
  32.  
  33. (set #install-arexx-help
  34.    (cat "\nIsto vai installar alguns scriptos ARexx"
  35.         "\nque podem ser utilizados com XPKatana."))
  36.  
  37. (set #exit-message
  38.    (cat "\nInstallacaõ complèta !"))
  39.  
  40. (set #install-library
  41.    ("\nCopiagem da FileID.library em Libs:"))
  42.  
  43. ; ------------------------------
  44. ; Check Kickstart Version
  45. ; ------------------------------
  46.  
  47.  (if (< (getversion "LIBS:version.library") (* 37 65536))
  48.         (abort #bad-kick)
  49.  )
  50.  
  51. (message #hello-message)
  52.  
  53. ; ------------------------------
  54. ; What should I install?
  55. ; ------------------------------
  56.  
  57. (set InstallOpt
  58.       (askoptions (prompt #install-which)
  59.                   (help @askoptions-help)
  60.                   (choices "XPKatana" "Scripts Arexx" "FileID.library"
  61.                            "Documentation")
  62.       )
  63. )
  64.  
  65. (if (= InstallOpt 0)
  66.       (abort (cat "\n\nInstallation Avortée :(")
  67.                   "\n\nAucun fichier à installer!")
  68. )
  69.  
  70.  
  71. ;-------------------------------------------------------
  72. ;Install binary, Icons, and support files
  73. ;-------------------------------------------------------
  74.  
  75.  
  76. (if (BITAND InstallOpt 1)
  77.  
  78.   ((set destdir
  79.       (askdir
  80.             (prompt #tools-dest)
  81.             (help @askdir-help)
  82.             (default "Sys:Utilities")
  83.       )
  84.    )
  85.  
  86.    (set @default-dest destdir)
  87.    (copyfiles
  88.       (source "/XPKatana")
  89.       (dest destdir)
  90.       (infos)
  91.    )
  92.   )
  93. )
  94.  
  95. ;-------------------------------------------------------
  96. ;Insall Arexx scripts
  97. ;-------------------------------------------------------
  98.  
  99.  
  100.  
  101. (if (BITAND InstallOpt 2)
  102.  
  103.   ((set destdir
  104.       (askdir
  105.             (prompt #rexx-dest)
  106.             (help #install-arexx-help)
  107.             (default "REXX:")
  108.       )
  109.    )
  110.  
  111.    (copyfiles
  112.       (source "/ARexx")
  113.       (dest destdir)
  114.       (all)
  115.    )
  116.   )
  117. )
  118.  
  119. ;-------------------------------------------------------
  120. ;Install FileID.library files
  121. ;-------------------------------------------------------
  122.  
  123. (if (BITAND InstallOpt 4)
  124.  
  125.   ((copylib
  126.       (prompt #install-library)
  127.       (source "/Libs/FileID.library")
  128.       (dest "Libs:")
  129.    )
  130.  
  131.    (if (exists "Locale:catalogs/deutsch")
  132.        (copyfiles
  133.           (source "/Locale/catalogs/deutsch/FileID_lib.catalog")
  134.           (dest "Locale:catalogs/deutsch")
  135.        )
  136.    )
  137.   )
  138. )
  139.  
  140. ;-------------------------------------------------------
  141. ;Install FileID.library files
  142. ;-------------------------------------------------------
  143.  
  144. (if (BITAND InstallOpt 8)
  145.  
  146.   ((set destdir
  147.       (askdir
  148.             (prompt #docs-dest)
  149.             (help @askdir-help)
  150.             (default "Help:")
  151.       )
  152.    )
  153.    (copyfiles
  154.       (source "/Docs/XPKatana_eng.guide")
  155.       (dest destdir)
  156.       (newname "XPKatana.guide")
  157.       (infos)
  158.    )
  159.   )
  160. )
  161. (exit #exit-message)