home *** CD-ROM | disk | FTP | other *** search
/ Meeting Pearls 3 / Meeting_Pearls_III.iso / Pearls / mods / PlayDT.rexx < prev    next >
OS/2 REXX Batch file  |  1995-10-06  |  952b  |  35 lines
  1. /* PlayDT.rexx
  2.    a little Arexx script to make DT play modules
  3. */
  4.  
  5. parse arg filename
  6.  
  7. ADDRESS COMMAND 'run :C/NessyOpenLib xpkmaster.library'
  8. ADDRESS COMMAND 'run :C/NessyOpenLib xpkSQSH.library'
  9. ADDRESS COMMAND 'execute :Pearls/mods/SetConfig'
  10.  
  11. IF ~SHOW( 'P', "DELITRACKER" ) THEN DO
  12.     ADDRESS COMMAND ':C/NessyWaitForLib xpkmaster.library'
  13.     ADDRESS COMMAND ':C/NessyWaitForLib xpkSQSH.library'
  14.     ADDRESS COMMAND 'run >NIL: :Pearls/mus/DeliTracker_II/DeliTracker2 NESSY=yes'
  15.     ADDRESS COMMAND ':c/WaitForPort' "DELITRACKER"
  16.     IF RC ~= 0 THEN DO
  17.         SAY ERROR: Could not start Delitracker!!
  18.         ADDRESS COMMAND 'NessyCloseLib xpkmaster.library'
  19.         ADDRESS COMMAND 'NessyCloseLib xpkSQSH.library'
  20.         EXIT 20
  21.     END
  22. END
  23.  
  24. SAY Playing filename
  25.  
  26. ADDRESS 'DELITRACKER'
  27.  
  28. songend yes
  29. randmod yes
  30. fadeout 3
  31. playmod filename
  32.  
  33. ADDRESS COMMAND ':c/NessyCloseLib xpkSQSH.library'
  34. ADDRESS COMMAND ':c/NessyCloseLib xpkmaster.library'
  35.