home *** CD-ROM | disk | FTP | other *** search
/ The AGA Experience 2 / agavol2.iso / rexx / playmodule.ro < prev    next >
Text File  |  1995-05-12  |  972b  |  50 lines
  1. /* 
  2.  
  3.    $VER: PlayModule.RO 0.2
  4.  
  5.    Author:
  6.     Oliver Rummeyer (oliver.rummeyer@student.uni-ulm.de)
  7.  
  8.    Function:
  9.     Loads the specified module into DeliTracker and plays it.
  10.     If DeliTracker isn't started it's loaded by the script.
  11.  
  12.    Requires:
  13.     RO 0.90 or newer and DeliTracker 2.01 or newer
  14.  
  15.    Example:
  16.     CUSTOMTYPE "#?.mod" "" "Sound Module" "Rx >NIL: Rexx:RO/PlayModule.RO %P%N %a"
  17.  
  18. */
  19.  
  20. PARSE ARG FileName PortName
  21.  
  22. IF PortName="" THEN
  23.  PortName='RO.1'
  24. ELSE
  25.  PortName=STRIP(PortName)
  26.  
  27. ADDRESS VALUE PortName
  28. OPTIONS RESULTS
  29.  
  30. 'Sleep'
  31.  
  32. IF ~SHOW('Ports','DELITRACKER') THEN
  33.  DO
  34.   'Message "Starting DeliTracker..."'
  35.   ADDRESS 'COMMAND' 'Run >NIL: DeliTracker CX_POPUP=NO'
  36.   ADDRESS 'COMMAND' 'WaitForPort DELITRACKER'
  37.   IF ~SHOW('Ports','DELITRACKER') THEN
  38.    DO
  39.     'Message "Unable to load DeliTracker II."'
  40.     'Wakeup'
  41.     EXIT 10
  42.    END
  43.  END
  44.  
  45. 'Message '||'"'||'Loading module '||FileName||'...'||'"'
  46.  
  47. ADDRESS 'DELITRACKER' 'PLAYMOD '||FileName
  48.  
  49. 'Wakeup'
  50.