home *** CD-ROM | disk | FTP | other *** search
/ The Datafile PD-CD 3 / PDCD_3.iso / utilities / utilsp / qtmplay / !QTMPlay / !Run < prev    next >
Text File  |  1995-08-27  |  887b  |  32 lines
  1. | !Run file for QTMPlay
  2. |
  3. | © 1994/5 Chris Rutter of DIGITAL DREAM
  4. |
  5. IconSprites <Obey$Dir>.!Sprites
  6.  
  7. Set QTMPlay$Dir <Obey$Dir>
  8. Set File$Type_000 STracker
  9. Set File$Type_001 STracker
  10. Set File$Type_CC5 TeqMusic
  11. Set File$Type_CB6 STModule
  12.  
  13. If "<QTM$Loaded>"="Yes" Then Error You cannot load two copies of QTM Player at once.
  14. Set QTM$Loaded "Yes"
  15.  
  16. Set QTM$WasLoaded True
  17. RmEnsure QTMTracker 1.00 Set QTM$WasLoaded False
  18. RmEnsure QTMTracker 1.00 Run <QTMPlay$Dir>.Resources.QTMModule
  19.  
  20. Set Alias$@RunType_CB6 Run <QTMPlay$Dir>.!Run -file:
  21. Set Alias$@RunType_CC5 Run <QTMPlay$Dir>.!Run -file:
  22. Set Alias$@RunType_001 Run <QTMPlay$Dir>.!Run -file:
  23. Set Alias$@RunType_000 Run <QTMPlay$Dir>.!Run -file:  
  24.  
  25. IconSprites <Obey$Dir>.Resources.Pointers
  26.  
  27. WimpSlot -min 80k -max 80k
  28. Run <QTMPlay$Dir>.!RunImage %*0
  29. If "<QTM$WasLoaded>"="False" Then RmKill QTMTracker
  30. UnSet QTM$WasLoaded
  31. UnSet QTM$Loaded
  32.