home *** CD-ROM | disk | FTP | other *** search
/ All About Planes & All About Handwriting / Topologika_AllAboutPlanesHandwriting.iso / extras / topodemos / musicbox / _musicboxd / _run next >
Text File  |  1995-01-27  |  1KB  |  35 lines
  1. | !Run for Music Box
  2.  
  3. | Change the below line to include the ROM voices you want to use. It should
  4. | be a list of voice names the same as those found when you issue a *VOICES
  5. | command. The voice names should be seperated by a single space.
  6.  
  7. SET MBROM$Instruments "WaveSynth-Beep StringLib-Soft Percussion-Snare"
  8.  
  9. | D O   N O T   C H A N G E   A N Y T H I N G   B E L O W   T H I S   L I N E
  10. |____________________________________________________________________________
  11. Set MusicBoxD$Dir <Obey$Dir>
  12. Set ROMInstrumentSprites$Dir <Obey$Dir>.ROMInsts.Sprites
  13. Set ROMInstrumentSprites22$Dir <Obey$Dir>.ROMInsts.Sprites22
  14. RMEnsure AEHModule 1.25 RMLoad <Obey$Dir>.AEHModule
  15. RMEnsure DummyVoice 1.00 RMLoad <Obey$Dir>.DummyVoice
  16. IF "<MBFlag>" = "3" THEN ERROR "Music box is already loaded."
  17. SET MBFlag 0
  18. Set MBConfigFiles$Dir <Obey$Dir>.Configure
  19. Set MBTuneFiles$Dir   <Obey$Dir>.Data.Tunes
  20. Set MBBeatFiles$Dir   <Obey$Dir>.Data.Beats
  21. Set MBChordFiles$Dir  <Obey$Dir>.Data.Chords
  22. Set MBSoundFiles$Dir  <Obey$Dir>.Data.Sounds
  23.  
  24. Set MBInstruments$Dir       <Obey$Dir>.Data.Instrumnts
  25. Set MBInstrumentSprites$Dir <Obey$Dir>.Data.Sprites
  26. Set MBInstrumentSprites22$Dir <Obey$Dir>.Data.Sprites22
  27. Iconsprites <Obey$Dir>.!Sprites
  28.  
  29. |RMEnsure MusicBox 2.00 RMLoad <Obey$Dir>.MBLd
  30. RMEnsure AEHProc 1.00 RMLoad <Obey$Dir>.AEHProc
  31. WimpSlot -min 550k -max 550k
  32. Run <Obey$Dir>.WimpMsg
  33. |RMEnsure MusicBox 1.00 RMLoad <Obey$Dir>.MusicBox
  34. WimpSlot -min 550k -max 550k
  35. IF "<MBFLAG>"=256 THEN Run <Obey$Dir>.!RunImage