on *:JOIN:#sohbet:{
  set %k $chan | set %nick  $nick
  tara
}
alias tara { 
  var %t = 1
  while (%t <= $nick(%k,0)) {
    var %bdnick = $nick(%k,%t)
    if ($left($nick(%k,%t),14) == $left(%nick,14) {
      allban %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
  }
}