home *** CD-ROM | disk | FTP | other *** search
/ ANews 2 / AnewsCD2.iso / Script / jouer.rexx < prev    next >
OS/2 REXX Batch file  |  1999-10-11  |  677b  |  36 lines
  1. /* Script Action Jouer */
  2.  
  3. parse arg type exe '"' filename '"'
  4.  
  5. type=upper(type)
  6.  
  7. say type
  8. /* Selection du type de player */
  9.  
  10. if type="HIPPOPLAYER" then call HIP
  11. if type="EAGLEPLAYER" then call EP
  12. exit
  13.  
  14. /* Hippoplayer */
  15. HIP:
  16. if ~show(ports,'HIPPOPLAYER') then address command exe
  17. hiploop:
  18. call delay(25)
  19. result = SHOW("p","HIPPOPLAYER")
  20. if result=0 then signal hiploop
  21. address 'HIPPOPLAYER'
  22. ZIP 0
  23. if pos(':', filename) ~= 0 then play filename
  24. exit
  25.  
  26. /* EaglePlayer */
  27.  
  28. EP:
  29. if ~show(ports,'rexx_EP') then address command 'WBRUN '||exe
  30. eploop:
  31. result = SHOW("p","rexx_EP")
  32. if result=0 then signal eploop
  33. address 'rexx_EP'
  34. if pos(':', filename) ~= 0 then loadmodule filename
  35. exit
  36.