home *** CD-ROM | disk | FTP | other *** search
/ OS/2 Shareware BBS: 35 Internet / 35-Internet.zip / bircv02b.zip / sound.cmd < prev    next >
OS/2 REXX Batch file  |  1999-03-12  |  1KB  |  46 lines
  1. /* REXX sound processor to accompany BiRC */
  2.  
  3. call RxFuncAdd 'SysLoadFuncs','RexxUtil','SysLoadFuncs'
  4. call SysLoadFuncs
  5.  
  6. trace off
  7. '@echo off'
  8.  
  9. parse upper arg playfile
  10. playfile=space(playfile)
  11.  
  12. if (right(filespec('n',playfile),4)='.MP3') then /* Playing an mp3 */
  13.    do
  14.    'start "BiRC: Playing MP3' playfile'" /C /min mp3play 'playfile
  15.    end /* MP3 */
  16. else if (right(filespec('n',playfile),4)='.MOD') then /* Playing a mod */
  17.    do
  18.    'start "BiRC: Playing MOD' playfile'" /C /min modplay 'playfile
  19.    end
  20. else if (right(filespec('n',playfile),4)='.S3M') then /* Playing an s3m */
  21.    do
  22.    'start "BiRC: Playing S3M' playfile'" /C /min S3Mplay 'playfile
  23.    end
  24. else if (right(filespec('n',playfile),3)='.XM') then /* Playing an xm */
  25.    do
  26.    'start "BiRC: Playing XM' playfile'" /C /min xmplay 'playfile
  27.    end
  28. else if (right(filespec('n',playfile),4)='.AMF') then /* Playing an AMF */
  29.    do
  30.    'start "BiRC: Playing AMF' playfile'" /C /min amfplay 'playfile
  31.    end
  32. else if (right(filespec('n',playfile),3)='.IT') then /* Playing an IT */
  33.    do
  34.    'start "BiRC: Playing IT' playfile'" /C /min itplay 'playfile
  35.    end
  36. else if (right(filespec('n',playfile),4)='.WAV') then /* Playing a wav */
  37.    do
  38.    'start "BiRC: Playing WAV' playfile'" /C /min play file='playfile
  39.    end
  40. else if (right(filespec('n',playfile),4)='.MID') then /* Playing a midi */
  41.    do
  42.    'start "BiRC: Playing MIDI' playfile'" /C /min play file='playfile
  43.    end
  44.  
  45. exit
  46.