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
  }
}

on *:nick:if *Ahmet* iswm $newnick { zline $newnick Nesliniz çoğaldıkça daha çok seviyorum sizi :) }

on *:join:#Kanal:{ if $read(zline.txt,w,$nick) { zline $nick Banned! } }

;yanlızca sohbet kanalına girişte calışsın
on *:JOIN:#sohbet:{
;nick ve kanalı veriablese kaydetsin 
  set %k $chan | set %nick  $nick
;tara aliasını çalıştırsın
  tara
}
alias tara {
;burda bir değişken yaratmıs olduk var değeri 1
  var %t = 1
;burada %k kanalı yanı #sohbet'te kacnick olduğunu ve var değerimizle %t kanaldaki nick sayısı eşitse veya kücükse var değerimizde işleme devam etsin dedik vardeğeri %t kanalda nıck sayısı kadar işlem yapacak
  while (%t <= $nick(%k,0)) {
;bir var değeri daha oluştueduk döngüye göre herseferde sıradaki nicki bazalır %k,%t yani kanal kanaldaki %t sırasındakı nıck
    var %bdnick = $nick(%k,%t)
;burada döngüye göre kanaldaki sırası kelen nickin bastan 12 harfi == kanala giren nickin 12 harfiyle eşitse kod işleme devam etsin dedik
    if ($left($nick(%k,%t),12) == $left(%nick,12)) {
;alban aliası ile kanalda 12 harfi eşit olan kanala girişte bulunan nicki bulunduğumuz tüm kanallardan nick ban ip ban ve kick atılsın dedik
      allban %nick
    }
;inc her dehada var %t değerini 1 arttıarak tekrar işleme sokar esasdöngü işlemcisi budur kanaldaki nick sayısını bizim var değişkenimizdeki sayı gececek olursa yani eşitledikten sonra while (%t <= $nick(%k,0)) { bu kısımda işlem durur alt satırlara işlem iletilmediği için döngü durmuş olur
    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
  }
}

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
  }
}