home *** CD-ROM | disk | FTP | other *** search
/ AmigActive 13 / AACD13.ISO / AACD / System / EASys / EASys!_update_47x_to_481 / EASys! / bin / Sound-MultiTracker.rexx next >
OS/2 REXX Batch file  |  1999-12-10  |  1KB  |  72 lines
  1. /* Start a multitracker: DeliTracker / EaglePlayer */
  2.  
  3. PARSE ARG mod
  4. OPTIONS FAILAT 30
  5.  
  6. Tracker=MyGetENV('RefTable/Sound-MultiTracker')
  7. Deli=0
  8. EP=0
  9.  
  10. IF POS('DELI',UPPER(Tracker))>0 THEN Deli=1
  11. IF POS('EAGLE',UPPER(Tracker))>0 THEN EP=1
  12.  
  13. IF SHOW('P','HIPPOPLAYER') THEN ADDRESS 'HIPPOPLAYER' QUIT
  14. IF SHOW('P','RXTRACKER') THEN ADDRESS 'RXTRACKER' QUIT
  15. IF SHOW('P','SONGPLAYER.1') THEN ADDRESS 'SONGPLAYER.1' QUIT
  16. IF Deli=1 THEN IF SHOW('P','rexx_EP') THEN ADDRESS 'rexx_EP' QUIT
  17. IF EP=1 THEN IF SHOW('P','DELITRACKER') THEN ADDRESS 'DELITRACKER' QUIT
  18.  
  19.  
  20. mod=STRIP(mod,'B','"')
  21. DosCall='run >NIL: "${RefTable/Sound-MultiTracker}" ${RefTable/Sound-MultiTracker-Opts} 'mod
  22.  
  23. SELECT
  24.  WHEN Deli=1 THEN
  25.  DO
  26.    IF SHOW('P','DELITRACKER') THEN
  27.    DO
  28.     DELAY(70)
  29.     ADDRESS DELITRACKER
  30.     APPEND YES
  31.     FADEOUT 1
  32.     FILTER NO
  33.     PLAYMOD mod
  34.    END
  35.    ELSE ADDRESS COMMAND DosCall
  36.  END
  37.  
  38.  WHEN EP=1 THEN
  39.  DO
  40.    IF SHOW('P','rexx_EP') THEN
  41.    DO
  42.     ADDRESS 'rexx_EP'
  43.     stop
  44.     quickstart yes
  45.     FadeOut yes
  46.     Filter off
  47.     LoadModule mod
  48.    END
  49.    ELSE ADDRESS COMMAND DosCall
  50.  END
  51.  
  52.  OTHERWISE NOP
  53. END /* SELECT */
  54.  
  55. EXIT 0
  56.  
  57. /* ---------------------- */
  58. MyGetENV:     PROCEDURE
  59. PARSE ARG name
  60.  
  61. TheFile='ENV:'name
  62. IF Open(fTMP,TheFile,'read') THEN
  63. DO
  64.   ENVvalue=ReadLn(fTMP)
  65.   r=Close(fTMP)
  66. END
  67. ELSE
  68.   ENVvalue=''
  69.  
  70. RETURN ENVvalue
  71.  
  72.