IRCForumları - IRC ve mIRC Kullanıcılarının Buluşma Noktası

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
}
}
}
var %e = $lines(badnick.txt) demek badnick.txt içerisinde kac satır varsa hafızaya al demek

örnek: //echo -a $lines(badnick.txt)
--------------
while döngü kurmaktır badnick.txt içerisinde satırların hepsi tekerteker karşılaştırmak için kodun satır sayısı kadar eşleştirme yapması anlamını taşır
-----------
burada ise sorgu(if) diyorki kanala giren nick badnick.txt içerisndeki sonuncu satırda varsakick ban at diyor saçma bir kodlama olmus
if $read(badnick.txt,%e) iswm $nick {
------------
olması gereken aşağıda

Kod:

;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

kodu burdan alınız

Kod:

 

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

  }

}