# Rejectchan.irc by mg (mg@infinity.stf.org) and skully (skully@drpepper.org)
# based on chankil.irc by moogy (tuxford@doitnow.com)
# Well, mg took moogy's chankil.irc, and modified it to do rejects. This
# then made it into skullY's hands, who decided to turn this into a real
# script. 
# Most of this was rewritten by skullY, but most the actuall reject logic
# was left in place on the rejectchan alias, which is renamed from massreject. 
# I just made it easier to check for things such as ircop status.

assign REJECTCHAN #blahblah

^on ^set "REJECTCHAN %" {
 xecho -banner Value of REJECTCHAN set to $1
 assign REJECTCHAN $1
}

alias rejectchan {
  xecho -banner Mass rejecting $REJECTCHAN, please wait
 if ([$0]) {
  ^assign message $*
 }{
  ^assign message $namef()
 }
 fe ( $nochops($REJECTCHAN) ) lemur {
# ^on ^who "$REJECTCHAN *" {
#  ^assign rejectchan_status $2
#  ^assign massreject_return $rejectcheckf($lemur)
  if ([$0]!=[$N]) {
   msg adminserv reject *@$after(@ $userhost($lemur)) $namef()
   kill $lemur $namef()
  }
 }
# ^on ^315 "% $REJECTCHAN *" {
#  ^on who -"$REJECTCHAN *" 
#  ^on 315 -"% $REJECTCHAN *"
# }
# ^who $REJECTCHAN
}

alias rejectcheckf {
 if ([$0]!=[$N]) {
  ^assign -massreject_oper
  ^assign massreject_oper $count(* $pass(* $rejectchan_status))
  ^assign function_return $massreject_oper
 }{
  ^assign function_return 1
 }
}

xecho -banner massreject.irc is now loaded. 
xecho -banner be sure to /set rejectchan.