on @badnick:join:#:mode # +b $nick | kick # $nick " BadNick! " 
alias tara {
  if $nick isop $chan { halt }
  if $nick ishop $chan { halt }
  if $me !isop $1 { return }
  var %t = 1
  while (%t <= $nick($1,0)) {
    var %bdnick = $nick($1,%t)
    if ($level($nick($1,%t)) == bad) { mode $1 +b  $ulist(%bdnick) | kick $1 %bdnick  " BadNick! " 
    }
    inc %t 1
  }
}