home *** CD-ROM | disk | FTP | other *** search
/ back2roots/padua / padua.7z / padua / ftp.vapor.com / amirc / submissions / MCF4AmIRCv4_13.lzx / MCF4AmIRC / Rexx / MCF_GETSOUND.AMIRX < prev    next >
Encoding:
Text File  |  1996-11-05  |  760 b   |  11 lines
  1. /* MCF_GETSOUND.AMIRX
  2. // $VER: MCF_GETSOUND.AMIRX 4.8 (04.11.96)
  3. \\ Written by Donald T. Becker (dtbecker@prolog.net) IRC: StarDustr
  4. // Please mail any bug reports/comments to the above address with a subject
  5. \\ header of MCF.AMIRX.
  6. //
  7. \\ ** What to do with this file?
  8. // Put this script in REXX:        It will be used by MCF.AMIRX.
  9. \\
  10. */
  11. ;parse arg MCFenv SoundDir Unick wavfile junk;address value(MCFenv);options results;getmynick;mynick=result;if upper(wavfile)="LIST" then;do;FN="T:"||mynick||".List";if ~exists(FN) then;address command "List >"FN SoundDir" lformat %n";end;if upper(wavfile) ~="LIST" then;do;FN=SoundDir||wavfile;if ~exists(FN) then;do;"RAW PRIVMSG "Unick" :I don't have"d2c(2) wavfile d2c(2)"either!";exit;end;end;"Say /DCC SEND "Unick FN;exit