home *** CD-ROM | disk | FTP | other *** search
/ back2roots/padua / padua.7z / padua / ftp.vapor.com / amirc / submissions / MCF4AmIRCv4_13.lzx / MCF4AmIRC / Rexx / MCF_KB.AMIRX < prev    next >
Encoding:
Text File  |  1996-09-27  |  1015 b   |  10 lines
  1. /* MCF_KB.AMIRX
  2. // $VER: MCF_KB.AMIRX 4.5 (17.097.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. ;parse arg MCFenv MyNick Unick CurCh junk Rnick reason;address value(MCFenv);options results;userhost Rnick;IPAddr=upper(result);atpos=pos("@",IPAddr)+1;IPAddr=substr(IPAddr,atpos);xl=length(IPAddr);userhost MyNick;if right(upper(result),xl)=IPAddr then;do;userhost Unick;if right(upper(result),xl) ~=IPAddr then exit;end;Client=substr(MCFenv,pos(".",MCFenv)+1);CName=CurCh||"."||Client;ChUs=getclip(value(CName));URnick=upper(Rnick)||" ";if 0=pos(URnick,ChUs)|Rnick="" then;do;"RAW PRIVMSG "Unick" :You cannot Kick-Ban "|| d2c(2)||Rnick||"." Rnick|| d2c(2) "is not on"|| d2c(2) CurCh;exit;end;if Rnick ~=MyNick then;"say /kickban "CurCh Rnick "At the request of"d2c(2) Unick d2c(2)||reason;exit