on @*:JOIN:#:{
  var %e = $lines(badnick.txt)
  while %e {
    if $read(badnick.txt,%e) iswm $nick {
      mode # +b $ifmatch
      kick # $nick Bad Nick!.
    }
    else {
      dec %e
    }
  }
} 

;girilen kanalda opisem
on @*:JOIN:#:{
;1 inci satırı hafızada tut %x olarak tanımla
  var %x = 1
badnick.txt içerisindeki satır sayısını hafızada tut %e olarak tanımla
  var %e = $lines(badnick.txt)
;Döngü kur %x değeri %e değerinden küçük veya eşit olduğu sürece tekrarla
  while %x <= %e {
;sorgu(if) Burada sorgu diyorki badnick.txt2deki satırları tektek karşılaştır içerisnde $nick yanı kanala giren nıck varmı varsa işleme baslaban kick
    if $read(badnick.txt,%x) iswm $nick { mode # +b $nick Bad Nick!. | kick # $nick Bad Nick!. }
;inc bahsettik döngüde kodlamayı mirc okurken sona geldiğinde yani inc'e geldiğinde %x sayısını bir arttır diyor eger 1 se o tekrarlanan döngüde 2 olarak okunacak
    %inc %x
  }
}  
 
burası karıştı :) eğer kodlarla uğraşacaksanız dersler bölümünü dikkate alınız

 
on @*:JOIN:#:{
  var %x = 1
  var %e = $lines(badnick.txt)
  while %x <= %e {
    if $read(badnick.txt,%x) iswm $nick { mode # +b $nick Bad Nick!. | kick # $nick Bad Nick!. }
    %inc %x
  }
}