home *** CD-ROM | disk | FTP | other *** search
/ Fresh Fish 9 / FreshFishVol9-CD2.bin / bbs / util / startup-menu-1.39.lha / Startup-Menu / Install_SM < prev    next >
Text File  |  1994-09-27  |  2KB  |  124 lines
  1. ; Startup-Menu install script for CBM Installer
  2. ;$VER: SM_install 1.0
  3. ;$AUTHOR: Lee Kindness
  4.  
  5. (set @default-dest '')
  6.  
  7. ; make sure OS 2+
  8. (set vernum (getversion))
  9. (set ver (/ vernum 65536))
  10.  
  11. (if (< vernum 37)
  12.     (abort 'Workbench 2 or higher required')
  13. )
  14.  
  15. ; mak' SM dir'
  16. (makedir 'S:SM')
  17.  
  18. ; copy reqtools library
  19. (copylib
  20.     (prompt 'Copying Reqtools.library')
  21.     (help 'This file is required by SMPrefs. It is used to create some of the requesters.\n\n'@copylib-help)
  22.     (source 'reqtools.library')
  23.     (dest 'LIBS:')
  24.     (confirm)
  25. )
  26.  
  27. ; copy SMPrefs
  28. (copyfiles
  29.     (prompt 'Copying Startup-Menu preference editor.')
  30.     (help 'This file is used to configure the menu.\n\n'@copyfiles-help)
  31.     (source 'SMPrefs')
  32.     (dest 'SYS:Prefs')
  33.     (confirm)
  34.     (infos)
  35. )
  36.  
  37. ; copy SM
  38. (copyfiles
  39.     (source 'Startup-Menu')
  40.     (dest 'C:')
  41. )
  42.  
  43. ; copy .WIT files
  44. (copyfiles
  45.     (prompt 'Copying phrase files')
  46.     (help 'These files are used to pick random phrases from. The phrases are then scrolled along the menu.\n\n'@copyfiles-help)
  47.     (source 'S/SM')
  48.     (dest 'S:SM')
  49.     (pattern '#?.WIT')
  50.     (confirm)
  51. )
  52.  
  53. ; copy Sample prefs
  54. (if (askbool
  55.         (prompt 'Do you wish to install the sample preferences?')
  56.         (default 1)
  57.         (help 'none.')
  58.         )
  59.         ((copyfiles
  60.             (source 'S/Startup-Menu.prefs')
  61.             (dest 'S:')
  62.             (confirm)
  63.             (help 'This is a sample preference file\n\n.'@copyfiles-help)
  64.             (prompt 'Copying sample prefs file')
  65.         )
  66.  
  67.         (copyfiles
  68.             (source 'S')
  69.             (dest 'S:')
  70.             (pattern '#?.rexx')
  71.             (confirm)
  72.             (help 'These are sample ARexx scripts.\n\n'@copyfiles-help)
  73.             (prompt 'Copying sample ARexx scripts')
  74.         )
  75.  
  76.         (copyfiles
  77.             (source 'S/SM')
  78.             (dest 'S:SM')
  79.             (pattern '~(#?.WIT)')
  80.             (confirm)
  81.             (help 'These files are used by the sample config.\n\n'@copyfiles-help)
  82.             (prompt 'Copying sample prefs script files')
  83.         )
  84.     )
  85. )
  86.  
  87. ; make startup-sequence backup
  88.  
  89. (If    (= (Exists "S:Startup-Sequence.SMOLD" (noreq)) 0) 
  90.     (
  91.         (copyfiles
  92.             (source 'S:Startup-Sequence')
  93.             (dest 'S:')
  94.             (newname 'Startup-sequence.SMOLD')
  95.             (nogauge)
  96.         )
  97.     )
  98. )
  99.  
  100. ; rename and copy new startup-sequence
  101. (if (>= vernum 39)
  102.     (set filetocopy "S/Startup-sequence_OS3")
  103.     (set filetocopy "S/Startup-sequence_OS2")
  104. )
  105.  
  106. (copyfiles
  107.     (prompt 'Renaming Startup-Sequence')
  108.     (help 'The Startup-sequence must be replaced. A backup (Startup-sequence.SMOLD) has been made.\n\n'@copyfiles-help)
  109.     (source filetocopy)
  110.     (dest 'S:')
  111.     (newname 'Startup-sequence')
  112.     (confirm)
  113. )
  114.  
  115. (transcript '\nStartup-Menu installed.\n')
  116.  
  117. (exit 'I hope you find Startup-Menu useful.\n    LSK _\\\\//')
  118.  
  119.     
  120.  
  121.  
  122.  
  123.  
  124.