home *** CD-ROM | disk | FTP | other *** search
/ Amiga ISO Collection / AmigaUtilCD1.iso / Fax / AVMN199D.LHA / avminstall / rexx / playamigadirect.avm < prev    next >
Encoding:
Text File  |  1995-04-10  |  694 b   |  31 lines
  1. /*
  2. */
  3.  
  4. parse arg fileName .
  5. address command
  6.  
  7. if exists(filename || 'i') then do
  8.    avmbusy = getclip('AVMBusy')
  9.         say 'avmbusy=' avmbusy
  10.    if avmbusy = "" then call setclip('AVMBusy', '1')
  11.    else call setclip('AVMBusy', avmbusy + 1)
  12.  
  13.    'avm:dsound/dsound -2' filename || 'i'
  14.         /*
  15.    'avm:agmsplaysound' filename || 'i'
  16.         */
  17.  
  18.    avmbusy = getclip('AVMBusy')
  19.    call setclip('AVMBusy', avmbusy - 1)
  20. end; else do
  21.    avmbusy = getclip('AVMBusy')
  22.    if avmbusy = "" then call setclip('AVMBusy', '1')
  23.    else call setclip('AVMBusy', avmbusy + 1)
  24.  
  25.    'avm:voice2iff' fileName 'dummy' '-play' '-nosave'
  26.  
  27.    avmbusy = getclip('AVMBusy')
  28.    call setclip('AVMBusy', avmbusy - 1)
  29. end
  30.  
  31.