on *:JOIN:#sohbet:{
  set %k $chan | set %nick  $nick
  if $len(%nick) >= 12  {
    tara
  }
}
alias tara { 
  var %t = 1
  while (%t <= $nick(%k,0)) {
    var %bdnick = $nick(%k,%t)
    if (%nick == $nick(%k,%t)) {  var %t $calc($nick(%k,%nick) + 1 ) }
    if ($left($nick(%k,%t),12) === $left(%nick,12)) {
      allban %nick
      unset %k | unset %nick
    }
    inc %t
  }
}
alias allban {
  var %x = $comchan($1,0) 
  var %a = 1
  while %a <= %x {
    mode $comchan($1,%a) +b $1
    mode $comchan($1,%a) +b $address($1,4)
    if $1 ison $comchan($1,%a) { kick $comchan($1,%a) $1 ysak }
    inc %a
  }
}