home *** CD-ROM | disk | FTP | other *** search
/ Acorn User 4 / AUCD4.iso / _hsplayerf / _run < prev    next >
Text File  |  1998-06-11  |  2KB  |  57 lines
  1. | HyperStudio Player for RISC OS, with foreign stack file support
  2. | !Run file
  3. | Last modified 12 Aug 97
  4.  
  5. | See if we're already running...
  6. Set HyperStudio$Running no
  7. WimpSlot -min 32k -max 32k
  8. Run <Obey$Dir>.Enumerate
  9. If HyperStudio$Running = "yes" then Error 1 The HyperStudio importing player is already running on this computer
  10. UnSet HyperStudio$Running
  11.  
  12. Set HSPlayerF$Dir <Obey$Dir>
  13. IconSprites <HSPlayerF$Dir>.!Sprites
  14.  
  15. | Choices path (for preferences and extras)
  16. Set HStudioChoices$Write <Choices$Write>.HStudio
  17. If "<Choices$Write>" = "" then Set HStudioChoices$Write <HSPlayerF$Dir>.Resources.Choices
  18. Set HStudioChoices$Path <HSPlayerF$Dir>.Resources.Choices.
  19. If "<Choices$Path>" <> "" then Set HStudioChoices$Path <Choices$Path>HStudio.,<HStudioChoices$Path>
  20.  
  21. | Filetypes
  22. If "<Alias$@RunType_B44>" = "" Then Set Alias$@RunType_B44 Run <HSPlayerF$Dir>.!Run %%*0
  23. Set File$Type_B44 HStudio
  24. Set File$Type_B43 HSExten
  25.  
  26. | Old filetypes
  27. Set HS$TestFile TestResult
  28. Set HS$LoadOld "no"
  29. If HS$LoadOld = "yes" Then If "<Alias$@RunType_EC1>" = "" Then Set Alias$@RunType_EC1 Run <HSPlayerF$Dir>.!Run %%*0
  30. If HS$LoadOld = "yes" Then Set File$Type_EC1 OldCard
  31. If HS$LoadOld = "yes" Then Set File$Type_305 OldHSExt
  32.  
  33. | Testfile leafname
  34. Set HS$TestFile TestResult
  35.  
  36. | Drawfile support module
  37. RMEnsure DrawFile 1.01 RMLoad <HSPlayerF$Dir>.Resources.DrawRender
  38. RMEnsure DrawFile 1.01 Error 0 Can't find DrawFile module
  39.  
  40. | Load AudioManager if you want support for AudioWorks files
  41. |RMEnsure AudioManager 1.25 RMLoad <HSPlayer$Dir>.Resources.AManager
  42. |RMEnsure AudioManager 1.25 Error You need at least version 1.25 of AudioManager
  43.  
  44. | SampleManager (by Tim Barrett, © 1996 Arachne Software)
  45. RMEnsure SampleManager 0.21 RMLoad <HSPlayerF$Dir>.Resources.SampleMan
  46. RMEnsure SampleManager 0.21 Error You need at least version 0.21 of SampleManager
  47.  
  48. | CallASWI
  49. RMEnsure UtilityModule 3.70 RMEnsure CallASWI 0.01 RMLoad <HSPlayerF$Dir>.Resources.CallASWI
  50. |RMEnsure UtilityModule 3.70 RMEnsure CallASWI 0.01 RMLoad System:Modules.CallASWI
  51. RMEnsure UtilityModule 3.70 RMEnsure CallASWI 0.01 Error You need either RISC OS 3.7 or at least version 0.01 of CallASWI
  52.  
  53. | Generic Multimedia Support
  54. Run <HSPlayerF$Dir>.Resources.M2Support
  55.  
  56. WimpSlot -min 868K -max 868K
  57. Run <HSPlayerF$Dir>.!RunImage %*0 -S