home *** CD-ROM | disk | FTP | other *** search
/ Dream 52 / Amiga_Dream_52.iso / Amiga / Workbench / DOpus / OpusMPEGA.lha / opusmpega / arexx / Play-MPx.dopus5 < prev    next >
Text File  |  1998-04-18  |  1KB  |  36 lines
  1. /* AREXX Script for MPEG-Soundplaying Layer 1,2&3 Opus5.5+ Filetypes
  2. ** Displays Song, MPEG-Layer, Playtime in a Dopus Progress Window
  3. **
  4. ** This script requires the modules 'OpusMPEGA.dopus5' !
  5. ** *****************************************************
  6. ** $VER: Play-MPx.dopus5 3.1 (29.4.98) ⌐1995-1998 by Eckhard Ludwig (Eckhard@top.east.de) [Emailware]
  7. ** This program is Email-Ware !
  8. **
  9. ** Call as:
  10. ** --------------------------------------------------------------------------
  11. ** (Doubleklick)   ARexx DOpus5:ARexx/Play-MPx.dopus5 {f} {Qp} {Ql} Funktion
  12. ** --------------------------------------------------------------------------
  13. */
  14.  
  15. parse arg '"'Titel'"' portname handle funktion
  16. if portname='' then portname='DOPUS.1'
  17.  
  18. If ~show("P",portname) then do
  19.         SAY portname' is not a valid port!'
  20.     exit
  21. end
  22. options results
  23. address value portname
  24. if Titel="EXIT"|Titel="NEXT"|Titel="PREVIOUS"|Titel="STOP"|Titel="PLAY"|Titel="QUIT"|Titel="INFO"|Titel="TAGINFO" then do
  25.     dopus send 'mpegport' Titel
  26.     exit
  27. end
  28.  
  29. if funktion='' then funktion="PLAYSONG"
  30. If ~show('P','mpegport') then command 'OpusMPEGA'
  31.     else if funktion="PLAYSONG" then dopus send 'mpegport' 'STOP'
  32.  
  33. address command 'waitforport mpegport'
  34. dopus send 'mpegport' ' 'funktion' ' handle '"'Titel'"'
  35. exit
  36.