Çevrimdışı

on *:nick:{ if $level($newnick $+ !*@*) == 666 { kball $newnick $address($nick,2) Badnick kullandiginiz tespit edildi! } }

ikinci kodda bunu ekledim ve dennemek için kanaldayken badnick e kayıtlı bir userin nickini aldım fakat
erdem55 has quit IRC (Excess Flood)
mirc donuyor ve excess flood dan düşüyorum neden acaba?

Birde şu koddaki hatayı çözemedim
İkincisinde

mode $1 +b $ulist(%:gnick,666,1)
kick $1 %:gnick Badnick kullandiginiz tespit edildi!

olan yeri

/cs akick $1 add $address(%:gnick,2)
/cs akick $1 enforce
/cs akick $1 del $address(%:gnick,2)

değiştirdim ve kanala girdim kanalda badlistemde kayıtlı userde vardı ama atmayınca echo yöntemini deneyim baya kurcaladım. Cıx add den sonra $address ile başlayan hiçbir komutu görmüyor.

Aşağıda echo ile bakılmış hali var yardımı olur die düşündüm

/cs akick #erdemler add Badnick Tespit edildi.
/cs akick #erdemler enforce
/cs akick #erdemler del
2 Badnickler tarandi: #erdemler - 1 badnick bulundu.

 

Çevrimdışı

kball alias'ını yani:

alias kball {
var %c = $comchan($1,0)
while %c {
if $me isop $comchan($1,%c) && $1 isreg $comchan($1,%c) {
cs akick $comchan($1,%c) add $2 $3-
cs akick $comchan($1,%c) enforce
cs akick $comchan($1,%c) del $2
}
}
}

yukardakini, aşağıdakiyle değiş:

alias kball { var %c = $comchan($1,0) | while %c { if $me isop $comchan($1,%c) && $1 isreg $comchan($1,%c) { cs akick $comchan($1,%c) add $2 $3- | cs akick $comchan($1,%c) enforce | cs akick $comchan($1,%c) del $2 } | dec %c } }

 

Çevrimdışı

İkinci sorun ise kanala girdiğinde, kanaldaki kişilerin IP'lerinin senin IAL'inde olmadığından dolayıdır, onun için kanala girer girmez kanala who çekebilirsin (tabi kanala girer girmez bad nick taramayı kaldırmalısın) , yani

on me:*:join:#:{ who # }

ve who'nun son rawıyla birlikte kanaldaki nickleri tararsın, yani:

raw 315:*:{ badnicktara $2 }

 

Çevrimdışı

raw 353:*:var %x = $numtok($4-,32) | while %x { if ($read(shitlist.txt, w, $gettok($4-,%x,32))) { .timer 1 5 kickcomchan $gettok($4-,%x,32) $address($1,2) Shit listemdesin. } | dec %x }

Senin yazdığın kodda bu bölümde sorun çıktı el33t şuan onu deniyordum da nasıl oluyorsa direkt benim ip i akick liste ekliyor. Şuan hata sadece bu kısımda

 

Çevrimdışı

$address($1,2)'yi $address($gettok($4-,%x,32),2) diye değiştirmelisin.

 

Çevrimdışı

$address($gettok($4-,%x,32),2) diye değiştirmelisin.
malesef olmadı yaw ne berbat koda bulaşmışım
Bu forumdaki linkleri ve resimleri görebilmek için en az 25 mesajınız olması gerekir.
el33t varya adamlar istesede senin kodu değiştiremezler
Bu forumdaki linkleri ve resimleri görebilmek için en az 25 mesajınız olması gerekir.
Sen bile zorlanıyorsun. Ne yazmışsın ama

 

Çevrimdışı

raw 353:*:var %x = $numtok($4-,32) | while %x { if ($read(shitlist.txt, w, $gettok($4-,%x,32))) { .timer 1 5 kickcomchan $gettok($4-,%x,32) $address($1,2) Shit listemdesin. } | dec %x }
bu kısmın beni banlamaması badnickimdekileir banlaması için napıcam ben
Bu forumdaki linkleri ve resimleri görebilmek için en az 25 mesajınız olması gerekir.
Sıyırdım Ne koyduysa ya görmüyo yada beni banlıyo

Birde
if ($did(3).text = Çıkar) { if ($read(shitlist.txt, w, $did(1).seltext)) { write -dl %4$s $readn shitlist.txt | did -d $dname 1 $did(1).sel | did -r $dname 2 } }
Şurdaki kodu şöyle yapamazmıyız yani birisini silceğim zaman
write -dl %4$s $readn shitlist.txt bu kodu ben
Write -dl shitlist.txt nick şeklinde mircde yazdığımda dsyadan o nicki silmesini istiyorum ama bir türlü yapamadım yani mircde bu şekilde bir komut yazarak birini shitlist.txt dosyasından nasıl silebilirim acaba.

 

Çevrimdışı

Senin IP'ni banlayan kısım şurası: $address($1,2), onu $address($gettok($4-,%x,32),2) diye değiştirdiğimizde normal şartlar altında yani mIRC'nin bu kişinin IP'sine sahip olduğunu varsaydığımızda o kişinin IP'sini almış oluyoruz fakat o sırada mIRC bu kişinin IP'sine sahip olmadığı için çalışmıyor, bunu başına echo koyarak görebilirsin, biz normalde ban #kanal nick 2 dediğimizde mIRC otomatik olarak yani o kişinin IP'si mIRC'nin IAL'inde olmadığı halde o kişinin IP'sini serverın alarak banlamasını sağlıyor, ama sen direk IP'yi istediğin için, önceden kanala who çekmelisin..

 

Çevrimdışı

el33t dediğini aynen ekledim.
cs akick #Zurna add Shit listemdesin.) bu çıkıyor yani ip yi görmüyor who da çektirdim.

raw 353:*:var %x = $numtok($4-,32) | while %x { if ($read(shitlist.txt, w, $gettok($4-,%x,32))) { .timer 1 10 kickcomchan $gettok($4-,%x,32) $address($gettok($4-,%x,32),2) Shit listemdesin. } | dec %x }

ve bu şekilde düzelttim yukardaki çıkıyo. Fakat belki dedim $address den önceki $gettok($4-,%x,32) koduda silmem gerekiyordur öyle yapınca bu kez hiç bir mesaj yollamadı
Bu forumdaki linkleri ve resimleri görebilmek için en az 25 mesajınız olması gerekir.
who olayına gelince bende away scan var ve kanala girdikten 2 sn sonra who # yapıyor. kanala girişimden 10 sn sonrada yukardaki gibi banı devreye soktum ama olmadı.

 

Çevrimdışı

on @*:join:#:{ if ($read(shitlist.txt, w, $nick)) && ($address($nick,2)) { var %o = $address($nick,2) | cs akick # add %o 15,1ReKLaM / Trojen / Badnick Nick Yasaktir.! | cs akick # enforce | cs akick # del %o } }
yardım lütfen mesela shitlist liste erdem55 nickini erdem55 diye eklersem sorun çıkmıyor fakat *erdem55*!*@* şeklinde veya *!*erdem55*@* veya
Bu forumdaki linkleri ve resimleri görebilmek için en az 25 mesajınız olması gerekir.
şeklinde eklediğimde malesef görmüyor. Bunu nasıl düzeltebilirim acaba?