home *** CD-ROM | disk | FTP | other *** search
/ Magazyn Amiga Shareware Floppies / ma48.dms / ma48.adf / XPKatana / Install / English < prev    next >
Encoding:
Text File  |  1995-12-20  |  3.5 KB  |  162 lines
  1. ; XPKatana Installer Script
  2. ; $Ver: 1.0 (28.11.95)
  3. ; Written by Philip A. Vedovatti
  4.  
  5.  
  6. (set #bad-kick
  7.    (cat "\n\nSorry! You must have Workbench 2.0 or"
  8.         "higher to to use this package."))
  9.  
  10. (set #hello-message
  11.    (cat "\n\n\"Chop yer file sizes to bits!\""
  12.         "\n\nWelcome to the XPKatana Installer Script."
  13.         "\n\nPlease read the documentation to get the most out"
  14.         "\nof this package."
  15.         "\n\n\nCLICK TO PROCEED"))
  16.  
  17. (set #install-which
  18.    (cat "\nWhich part(s) of the XPKatana archive would"
  19.         "\nyou like to install onto your hard drive?\n"))
  20.  
  21. (set #tools-dest
  22.    (cat "\nWhich drawer would you like the main"
  23.         "\nXPKatana program to be installed?\n"))
  24.  
  25. (set #docs-dest
  26.    (cat "\nWhere would you like the documentation"
  27.         "\nto be installed?\n"))
  28.  
  29. (set #rexx-dest
  30.    (cat "\nWhere would you like the Katana Arexx"
  31.         "\nscripts to be installed?\n"))
  32.  
  33. (set #install-arexx-help
  34.    (cat "\nThis installs the Arexx scripts to"
  35.         "\nenhance XPKatana's functionality."))
  36.  
  37. (set #exit-message
  38.    (cat "\nXPKatana is now fully installed!"
  39.         "\nEnjoy."))
  40.  
  41. (set #install-library
  42.    ("\nInstalling FileID.library to Libs:"))
  43.  
  44. ; ------------------------------
  45. ; Check Kickstart Version
  46. ; ------------------------------
  47.  
  48.  (if (< (getversion "LIBS:version.library") (* 37 65536))
  49.         (abort #bad-kick)
  50.  )
  51.  
  52. (message #hello-message)
  53.  
  54. ; ------------------------------
  55. ; What should I install?
  56. ; ------------------------------
  57.  
  58. (set InstallOpt
  59.       (askoptions (prompt #install-which)
  60.                   (help @askoptions-help)
  61.                   (choices "XPKatana" "Arexx Scripts" "FileID.library"
  62.                            "Documentation")
  63.       )
  64. )
  65.  
  66. (if (= InstallOpt 0)
  67.       (abort (cat "\n\nInstallation Aborted :(")
  68.                   "\n\nNo files selected to install!")
  69. )
  70.  
  71.  
  72. ;-------------------------------------------------------
  73. ;Install binary, Icons, and support files
  74. ;-------------------------------------------------------
  75.  
  76.  
  77. (if (BITAND InstallOpt 1)
  78.  
  79.   ((set destdir
  80.       (askdir
  81.             (prompt #tools-dest)
  82.             (help @askdir-help)
  83.             (default "Sys:Utilities")
  84.       )
  85.    )
  86.  
  87.    (set @default-dest destdir)
  88.    (copyfiles
  89.       (source "/XPKatana")
  90.       (dest destdir)
  91.       (infos)
  92.    )
  93.   )
  94. )
  95.  
  96. ;-------------------------------------------------------
  97. ;Insall Arexx scripts
  98. ;-------------------------------------------------------
  99.  
  100.  
  101.  
  102. (if (BITAND InstallOpt 2)
  103.  
  104.   ((set destdir
  105.       (askdir
  106.             (prompt #rexx-dest)
  107.             (help #install-arexx-help)
  108.             (default "REXX:")
  109.       )
  110.    )
  111.  
  112.    (copyfiles
  113.       (source "/ARexx")
  114.       (dest destdir)
  115.       (all)
  116.    )
  117.   )
  118. )
  119.  
  120. ;-------------------------------------------------------
  121. ;Install FileID.library files
  122. ;-------------------------------------------------------
  123.  
  124. (if (BITAND InstallOpt 4)
  125.  
  126.   ((copylib
  127.       (prompt #install-library)
  128.       (source "/Libs/FileID.library")
  129.       (dest "Libs:")
  130.    )
  131.  
  132.    (if (exists "Locale:catalogs/deutsch")
  133.        (copyfiles
  134.           (source "/Locale/catalogs/deutsch/FileID_lib.catalog")
  135.           (dest "Locale:catalogs/deutsch")
  136.        )
  137.    )
  138.   )
  139. )
  140.  
  141. ;-------------------------------------------------------
  142. ;Install FileID.library files
  143. ;-------------------------------------------------------
  144.  
  145. (if (BITAND InstallOpt 8)
  146.  
  147.   ((set destdir
  148.       (askdir
  149.             (prompt #docs-dest)
  150.             (help @askdir-help)
  151.             (default "Help:")
  152.       )
  153.    )
  154.    (copyfiles
  155.       (source "/Docs/XPKatana_eng.guide")
  156.       (dest destdir)
  157.       (newname "XPKatana.guide")
  158.       (infos)
  159.    )
  160.   )
  161. )
  162. (exit #exit-message)