home *** CD-ROM | disk | FTP | other *** search
/ back2roots/padua / padua.7z / padua / ftp.vapor.com / amirc / submissions / MCF4AmIRCv4_13.lzx / MCF4AmIRC / Rexx / MCF_Silence.AMIRX < prev    next >
Encoding:
Text File  |  1996-09-17  |  711 b   |  12 lines
  1. /* MCF_Silence.AMIRX
  2. // $VER: MCF_Silence.AMIRX 4.1 (29.07.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:  Add the following Aliases:
  9. \\   SI /Rx MCF_Silence %p     this will silence the user.
  10. //   US /Rx MCF_Silence %p -   this will remove the silence entry.
  11. */
  12. ;parse arg Nick flag junk Uflag UType;options results;userhost Nick;FHost=result;xl=pos('@',FHost);if xl=1 then exit;Host="*!*"||substr(FHost,xl);if flag="-" then;Uflag="Un";else UType="CTCP PRIV";"RAW Silence "flag||Host;"Say /"Uflag"Ignore " Host UType;exit