/* Autokick and kicknban 1993, 1994
 * This script requires ircII-EPIC 
 */

load guh
@ auto.kicks = []

alias autokick {
	if ($is_on($0) == [$0]) {
		@auto.kicks #= [ $uh($0)]
	} {
		echo *** $0 is not on irc right now
	}
}
alias unkick {
	if ($is_on($0) == [$0]) {
		@auto.kicks = $remw($uh($0) $auto.kicks)
	} {
		echo *** $0 is not on irc right now
	}
}

^on #-join -30 '% % \\[$auto.kicks\\]' {
	kick $1 $0 autokicked
	echo *** AUTOKICK PROTECTION ACTIVATED AGAINST $0
	mode $1 +b *!$2
}

alias kicknban {
      if (onchannel($0 $C)) {
          kick * $0 $1-
          mode * +b *!$uh($0)
	  if (onchannel($0 $C)) {
              kick * $0 GO AWAY!
	  }
      } { kick * $0 $1- }
}

#hop'94
