home *** CD-ROM | disk | FTP | other *** search
/ OS/2 Shareware BBS: 35 Internet / 35-Internet.zip / ezirc12o.zip / install.zip / alias / sound.cmd < prev    next >
OS/2 REXX Batch file  |  1997-12-26  |  484b  |  19 lines

  1. /* SOUND.CMD */
  2. /* This script is for LOCAL alias scripting.                   */
  3. /* It takes the input of /sound nickname filename.ext          */
  4. /* and converts it to /ctcp nickname SOUND filename.ext        */
  5. /* Note that nickname can also be a channel or * for current   */
  6. parse arg window nick filename trash
  7.  
  8. if nick='*'
  9.    then
  10.      nick=window
  11.    else
  12.      nop
  13.  
  14.         str = '/ctcp '||nick||' SOUND '||filename||' '||trash
  15. say str
  16. return str
  17. signal end
  18.  
  19.