on *:nick: {
  if $level($+($newnick,!*@*)) == 666 {  
    var %x = 1 | while $comchan($newnick,%x) { var %' = $v1 | if $me isop %' && !$istok(#kanal1 #kanal2,%',32) { mode %' +b $newnick | kick %' $newnick Sebep } | inc %x }
  }
}