:
: Autokick and kicknban (C) 1993
: 12 Dec 93
: Jeremy Nelson (jnelson@iastate.edu)
: This script requires ircII2.2.9+2 or better

load guh

alias autokick {
      if (is_on($0) == [$0]) {
          eval ^on -join "% % $uh($0)" {
                   kick $1 $0 autokicked
                   echo *** AUTOKICK PROTECTION ACTIVATED AGAINST $0
                   mode $1 +b *!$2
                }
           kick * $0 $1-
           echo *** $0 is on AUTOKICK
     } {   echo *** $0 is not on irc right now}
}

alias unkick {
     if (is_on($0) == [$0]) {
         eval ^on join -"% % $uh($0)"
         echo *** Autokick for $0 Cleared
   } {   echo *** $0 is not on irc right now}
}

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