if $2 == JOIN {
  if $left($right($3,-1),1) == $chr(35) {
    var %chan = $right($3,-1)
    var %nick = $remove($gettok($1,1,33),:)
    if $level(%nick $+ !*@*) == badnick {
      sockwrite -nt $sockname mode %chan +b %nick
      sockwrite -nt $sockname kick %chan %nick Badnick Yasak...!
    }
  }
}