home *** CD-ROM | disk | FTP | other *** search
/ Acorn User 1 / AU_CD1.iso / demos / j_to_r / mouse / !Mouse / !Run next >
Encoding:
Text File  |  1994-07-04  |  2.2 KB  |  64 lines

  1. | !Mouse
  2. | Version 1.00
  3. |
  4. Set UseMouse1 0
  5. If "<Obey$Dir>" = "ADFS::Mouse2.$.!Mouse" Then Set UseMouse1 1
  6. If "<Obey$Dir>" = "adfs::Mouse2.$.!Mouse" Then Set UseMouse1 1
  7. If "<Obey$Dir>" = "ADFS::Mouse3.$.!Mouse" Then Set UseMouse1 1
  8. If "<Obey$Dir>" = "adfs::Mouse3.$.!Mouse" Then Set UseMouse1 1
  9. If "<UseMouse1>" = "1" Then Set Mouse$Dir ADFS::Mouse1.!Mouse Else Set Mouse$Dir <Obey$Dir>
  10. Unset UseMouse1
  11. |
  12. Set MouseData$Dir <Mouse$Dir>
  13. |
  14. <Mouse$Dir>.Hourglass
  15. |
  16. IconSprites <Obey$Dir>.!Sprites
  17. |
  18. if "<System$Path>" = "" Then Run ADFS::Mouse1.!System
  19. if "<System$Path>" = "" then Error 0 System resources cannot be found
  20. |
  21. if "<Font$Path>" = "" Then Run ADFS::Mouse1.!Fonts
  22. |
  23. set ro31$flag 1
  24. RMEnsure UtilityModule 3.10 set ro31$flag 0
  25. If "<ro31$flag>"="1" Then RMEnsure BorderUtils 0.02 RMLoad System:Modules.BorderUtil
  26. RMEnsure IRQUtils 0.09 RMLoad System:Modules.IRQUtils
  27. RMEnsure HourGlass 2.02 RMLoad System:Modules.Hourglass
  28. RMEnsure SoundScheduler 1.13 RMLoad System:Modules.Sound2
  29. RMEnsure WindowUtils 0.04 RMLoad System:Modules.WimpUtils
  30. unset ro31$flag
  31. |
  32. RMEnsure ColourTrans 0.51 RMLoad System:Modules.Colours
  33. RMEnsure ColourTrans 0.51 Error You need ColourTrans 0.51 or later
  34. |
  35. set clib$flag 0
  36. RMensure SharedClibrary 3.75 set clib$flag 1
  37. RMensure SharedClibrary 0 set clib$flag 0
  38. if "<clib$flag>"="1" then Error !!! Old shared C library !!! An old version of the shared C library (clib) is resident in memory.
  39. unset clib$flag
  40. |  
  41. | Install the shared C library (clib)
  42. | -----------------------------------
  43. |
  44. RMensure SharedClibrary 3.75 RMload System:modules.clib
  45. RMensure SharedClibrary 3.75 Error You need at least version 3.75 of the shared C library
  46. |
  47. | Install the floating point emulator
  48. | -----------------------------------
  49. |
  50. RMensure FPEmulator 2.80 RMload System:modules.FPEmulator
  51. RMensure FPEmulator 2.80 Error You need at least version 2.80 of the floating point emulator
  52. |
  53. | Install the Tracker player program
  54. | ----------------------------------
  55. |
  56. RMEnsure 4MationTracker 3.14 RMLoad <Mouse$Dir>.PlayerMod
  57. RMEnsure 4MationTracker 3.14 Error You need 4MationTracker 3.14 or later
  58. |
  59. | Grab extra memory for resources
  60. Wimpslot -min 400K -max 400K
  61. |
  62. Wimpslot -min 320K -max 320K
  63. Run <Mouse$Dir>.!RunImage %*0
  64.