home *** CD-ROM | disk | FTP | other *** search
/ Fresh Fish 8 / FreshFishVol8-CD2.bin / bbs / util / alertpatch-3.0.lha / AlertPatch / Install < prev    next >
Text File  |  1994-03-10  |  3KB  |  134 lines
  1. (complete 0)
  2.  
  3. (set #bad-kick
  4. (cat "You must be using Kickstart 2.0 (V37) to install AlertPatch"
  5. ))
  6.  
  7. (set #which-disk
  8. (cat "\nSelect directory to install to"
  9. ))
  10.  
  11. (set #which-disk-help
  12. (cat "\nThis section lets you choose where to install AlertPatch "
  13.      "on your hard disk. This should normally go in the Workbench "
  14.      "Startup drawer - SYS:WBStartup.\n\n"
  15.      @askdir-help
  16. ))
  17.  
  18. (set #which-language
  19. (cat "\nWhich languages should be installed"
  20. ))
  21.  
  22. (set #which-language-help
  23. (cat "\nCheck the boxes of the languages you wish "
  24.      "to have available with AlertPatch.\n\n"
  25.      @askoptions-help
  26. ))
  27.  
  28. (set #which-icons
  29. (cat "\nInstall MagicWB style icons?"
  30. ))
  31.  
  32. (set #which-icons-help
  33. (cat "\nThe MagicWB icon for AlertPatch was designed by Osma Ahvenlampi (oahvenla@snakemail.hut.fi) "
  34.      @askbool-help
  35. ))
  36.  
  37.  
  38. (if (< (/ (getversion) 65536) 37)
  39. (
  40.     (abort #bad-kick)
  41. ))
  42.  
  43. (complete 15)
  44.  
  45. ;=============================================================================
  46. ; Installation target dir?
  47.  
  48. (set target (askdir (prompt #which-disk)
  49.         (help #which-disk-help)
  50.         (default "SYS:WBStartup")
  51.     )
  52. )
  53. (set @default-dest target)
  54.  
  55. (complete 30)
  56.  
  57. ;=============================================================================
  58. ; which languages should be installed?
  59.  
  60. (set lang (askoptions (prompt #which-language)
  61.               (help #which-language-help)
  62.               (choices "Français" )
  63.               (default 0)
  64.       )
  65.  
  66. )
  67.  
  68.     (set n 0)
  69.  
  70.     (while (set language (select n "français" "" ) )
  71.     (
  72.     (if (IN lang n)
  73.  
  74.     (copyfiles
  75.         (source (cat "catalogs/" language "/matrix/" ))
  76.         (dest (cat "LOCALE:catalogs/" language "/matrix/" ))
  77.         (all)
  78.     )
  79.     )
  80.         (set n (+ n 1))
  81.     ))
  82.  
  83. (complete 50)
  84.  
  85. ;=============================================================================
  86. ; Required libraries
  87.  
  88. (copylib
  89.     (prompt "Installing matrix.library")
  90.     (help @copylib-help)
  91.     (source "matrix.library")
  92.     (dest "LIBS:")
  93.     (confirm)
  94. )
  95. (complete 75)
  96.  
  97. ;=============================================================================
  98. ; Main program
  99.  
  100. (copyfiles
  101.     (prompt "Copying to " #target )
  102.     (help @copyfiles-help)
  103.     (source "")
  104.     (dest (cat target) )
  105.     (choices "AlertPatch")
  106. )
  107.  
  108. (complete 90)
  109.  
  110. (set iconz (askbool (prompt #which-icons)
  111.         (help #which-icons-help)
  112.         (choices "YES" "NO")
  113.       )
  114. )
  115.  
  116.  
  117.     (if (= iconz 0)                           ; conditional test
  118.         (set #iconname (cat "AlertPatch.info" )
  119.     )
  120.         (set #iconname (cat "AlertPatch.magicwb" )
  121.     )
  122.     )
  123.  
  124. (copyfiles
  125.     (prompt "Installing icons...")
  126.     (help @copyfiles-help)
  127.     (source #iconname)
  128.     (dest (cat target) )
  129.     (newname "AlertPatch.info" )
  130. )
  131.  
  132. (complete 100)
  133.  
  134.