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: Kodu kopyalamak için üzerine çift tıklayın!
;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: Kodu kopyalamak için üzerine çift tıklayın!
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
}
}