alias _prots {
  tokenize 32 $1-
  if ($1 = <-) {
    if ($3 = JOIN) {
      var %nick = $right($gettok($2,1,33),-1),%chan = $right($4,-1)
      if $me isop %chan || o isin $usermode { 
        if $hfind(badnick,%nick,1,W).data {
        mode %chan +b %nick
        }
      }
    }
  }
}

mode %chan +b %nick | kick %chan %nick Sebep