hayır ya ip ban atıyorum ayrıca diğer tüm komutlarım çalışıyor cs den ip ban atıyor yani sadece bu komutta takılıp kaldım. İşin kötü tarafı +b yi kullanamıyorum kanalda çünkü ban list dolu herkes cs kullanıyor. Yani bulmam lazım ve yine bulmam lazım:)
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) Shit listemdesin. } | dec %x }
buradada bi yer değişecek olmasın ama neresi bilmiyorum :) Ama aklıma tek bu geldi acaba burdada bi yerin değişmesimi lazım.?

cs akick komutunun önüne /echo 4 -a ekleyip aktif pencerede çıkan yazıyı gösterir misin? Böylece senin ChanServ'e ne mesaj gönderdiğini görmüş oluruz.

cs den ban nasıl oluyor erdem bi ornek gosterirmisin?

cs ban = akick

el33t seni sefiyorum sen olmasan asla çözemezdim koddaki hatayı Valla burda olsaydın bi korneti haketmiştin:) Kuusra bakma Param şuan buna yetiyo:)
Maelstrom cs ban olayına gelince şöyle önce akick e aldırıyosun sonra enforce çektiriyorsun sonrada akick listen siliyosun. Bildiğin gibi akick listeki biri enforce ile atıldığında cs den ban yer o nedenle cs ban diyoruz Bu arada komut şöyleymiş

dialog shitlist {
title "ShitList"
size -1 -1 64 109
option dbu
list 1, 3 4 58 80, size
edit "", 2, 3 85 34 10, autohs
button "Ekle", 3, 38 85 23 10,
check "Kapalı", 4, 3 96 29 10, push
button "Kapat", 5, 32 96 29 10, cancel
box "", 6, 1 0 62 108
}
on *:dialog:shitlist:init:*:if ($group(#shitlist) = on) { did -c $dname 4 0 | did -a $dname 4 Açık } | var %x = $lines(shitlist.txt) | while %x { did -a $dname 1 $read(shitlist.txt,%x) | dec %x }
on *:dialog:shitlist:sclick:4:{ if ($did(4).state = 1) { .enable #shitlist | did -a $dname 4 Açık } | elseif ($did(4).state = 0) { .disable #shitlist | did -a $dname 4 Kapalı } }
on *:dialog:shitlist:sclick:1:did -ra $dname 2 $did(1).seltext | did -ra $dname 3 Çıkar
on *:dialog:shitlist:sclick:3:{
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 } }
if ($did(3).text = Ekle) && ($did(2).text) { write shitlist.txt $did(2).text | did -a $dname 1 $did(2).text | kickcomchan $did(2).text Shit listemdesin. }
}
on *:dialog:shitlist:edit:2:did -ra $dname 3 Ekle
#shitlist on
on @*:join:#:if ($read(shitlist.txt, w, $nick)) ban -k # $nick Shit listemdesin.
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 }
on *:nick:{ if ($read(shitlist.txt, w, $newnick)) { kickcomchan $newnick Shit listemdesin } }
#shitlist end
alias kickcomchan { if ($1) { var %x = $comchan($1,0) | while %x { $iif($me isop $comchan($1,%x),cs akick $comchan($1,%x) add $2-) | cs akick $comchan($1,%x) enforce | cs akick $comchan($1,%x) del $2 | dec %x } } }
menu channel,status,menubar {
Shitlist:dialog -ma shitlist shitlist
}
alias shitlist { if ($dialog(shitlist)) { dialog -x shitlist } | dialog -ma shitlist shitlist }

el33t birde bu koda yardım edermisin acaba bunuda aynı şekilde cs den ban attırmak istiyorum ip ban
alias badnicktara {
if $me isop $1 {
set %:bulunan 0
var %s 1
while %s <= $nick($1,0) {
%:gnick = $nick($1,%s)
if %:gnick isreg $1 && $level(%:gnick $+ !*@*) == 666 {
inc %:bulunan 1
mode $1 +b $ulist(%:gnick,666,1)
kick $1 %:gnick Badnick kullandiginiz tespit edildi!
}
inc %s
}
echo -a 2 Badnickler tarandi: $1 - %:bulunan badnick bulundu.
}
else {
echo -a 2 $1 kanalinda OP olmaniz gerekmektedir.
}
}

raw 366:*: {
var %i 1
while %i <= $comchan($1,0) {
if $1 !isop $comchan($1,%i) { timer 1 3 .badnicktara $comchan($1,%i) }
inc %i
}
}


on *:join:#: {
if $level($nick $+ !*@*) == 666 {
mode # +b $ulist($nick,666,1)
kick # $nick Badnick kullandiginiz tespit edildi!
}
}

on *:nick: {
if $level($newnick $+ !*@*) == 666 {
banall $newnick $ulist($newnick,666,1)
kickall $newnick Badnick kullandiginiz tespit edildi!
}
}

alias banall {
var %i 1
while %i <= $comchan($1,0) {
if $1 !isop $comchan($1,%i) { mode $comchan($1,%i) +b $2- }
inc %i
}
}

alias kickall {
var %i 1
while %i <= $comchan($1,0) {
if $1 !isop $comchan($1,%i) { kick $comchan($1,%i) $1 $2- }
inc %i
}
}
Malesef bunuda çözemedim bu senin yazdığın koddan daha karmaşık geldi bana echo yöntemi ilede çözemedim:( yardım pls
Neden iki kod birden soranlara söylim bende iki ayrı shiftlist var birincisinde bir txt içinde nickler var ikincisinde ise normal userlist de proxy adresleri var ikisini ayrı tutuyorum şimdi bu dosyaylada ayarıbilirisn diyebilirsiniz haklısınız ama bazı nedenlerden dolayı ayıtmak istemiyorum yardımlarınız için çok tşk ediyorum ve yine yardımınızı bekliyorum.

erdem55 önce ilk kodda şu hatayı düzelt

alias kickcomchan { if ($1) { var %x = $comchan($1,0) | while %x { $iif($me isop $comchan($1,%x),cs akick $comchan($1,%x) add $2-) | cs akick $comchan($1,%x) enforce | cs akick $comchan($1,%x) del $2 | dec %x } } }

Yukardaki kodu aşağıdakiyle değiştir, yukardakinde bir hata var, doğrusu:

alias kickcomchan { if ($1) { var %x = $comchan($1,0) | while %x { if ($me isop $comchan($1,%x)) { cs akick $comchan($1,%x) add $2-) | cs akick $comchan($1,%x) enforce | cs akick $comchan($1,%x) del $2 } | dec %x } } }

-
İ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)

ile değiştir ve on join ile başlayan ve devam eden kısmı aşağıdaki gibi değiş..
-
on *:join:#: {
if $level($nick $+ !*@*) == 666 {
cs akick $chan add $wildsite Bad nick
cs akick $chan enforce
cs akick $chan del $wildsite
}
}

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
}
}
}
on *:nick:{ if $level($newnick $+ !*@*) == 666 { kball $newnick $address($nick,2) Badnick kullandiginiz tespit edildi! } }

el33t öncelikle çok teşekkür ediyorum.

alias kickcomchan { if ($1) { var %x = $comchan($1,0) | while %x { if ($me isop $comchan($1,%x)) { cs akick $comchan($1,%x) add $2-) | cs akick $comchan($1,%x) enforce | cs akick $comchan($1,%x) del $2 } | dec %x } } }

bu kodu eklediğim yani ilk addon da bi sorun yaşıyorum.join kısmını

on @*:join:#:if ($read(shitlist.txt, w, $nick)) cs akick # add $address($nick,2) 0,2Shit listemdesin. | cs akick # enforce | cs akick # del $address($nick,2)

bu şekilde değiştirdim gayet iyi çalışıyor fakat aşadaki gibi garip bi olayla karşılaştım. İp i banlıyor fakat sonrasında tekrardan [Üye Olmadan Linkleri Göremezsiniz. Üye Olmak için TIKLAYIN...] ip adresini sanırım eklemeye çalışmıyor ama enforce ve silmeye çalışıyor. Bir neden ikinci defa akick silsin ikincisi benim ident aşada bu identi nerden buluyor?
-
-ChanServ- [Üye Olmadan Linkleri Göremezsiniz. Üye Olmak için TIKLAYIN...] maskesi #erdemler kanalinin akick listesine eklendi.
-
* You were kicked from #erdemler by ChanServ (AKICK by erdem55 (Shit listemdesin.))
-
-ChanServ- #erdemler icin AKICK ENFORCE tamamlandi; 2 kullanici bundan etkilendi.
-
-ChanServ- [Üye Olmadan Linkleri Göremezsiniz. Üye Olmak için TIKLAYIN...] #erdemler kanalinin akick listesinden silindi.
-
-ChanServ- #erdemler kanali su an kullanimda degil.
-
-ChanServ- [Üye Olmadan Linkleri Göremezsiniz. Üye Olmak için TIKLAYIN...] #erdemler kanalinin akick listesinde bulunamadi.

Kodun neden öyle yaptığını bilmiyorum ama bir de aşağıdaki gibi dene istersen:

on @*:join:#:{ if ($read(shitlist.txt, w, $nick)) && ($address($nick,2)) { var %o = $address($nick,2) | cs akick # add %o 0,2Shit listemdesin. | cs akick # enforce | cs akick # del %o } }

el33t harika old:) $newnick kısmınıda sizden öğrendiklerim sayesinde yaptım özellikle şu son öğrettiğin /echo 4 -a yöntemi harika işime yaradı. Ya varya gerçekten çok teşekkür ederim. Şimdi diğer kodu denicem. Onu daha deneyemedimde:) İyiki varsın el33t bu arada kimse yağ mağ diye anlamasın lütfen gerçekten beni büyük bi dertten kurtardı hem komutlardaki yardımıyla hemde en büyük yardımı olan bana birşey öğretmesiyle çünkü öğrettiği kod her alanda işime yarıyor. İki saat onu değiştir ayy o değilmiş bunu değiştir buda olmadı demiyorum artık koddaki hata tam olarak nerde görebiliyorum ona göre çözüm üretiyorum. Tekrar tşkler

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.

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

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

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

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

$address($gettok($4-,%x,32),2) diye değiştirmelisin.
malesef olmadı yaw ne berbat koda bulaşmışım:) el33t varya adamlar istesede senin kodu değiştiremezler:) Sen bile zorlanıyorsun. Ne yazmışsın ama

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 :) 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.

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

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ı:) 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ı.

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 [Üye Olmadan Linkleri Göremezsiniz. Üye Olmak için TIKLAYIN...] şeklinde eklediğimde malesef görmüyor. Bunu nasıl düzeltebilirim acaba?

Herhangi bir yanıt yokmu acaba? Ben iyice sıyırmak üzereyim. Ya bildiğim her türlü yolu denedim olmuyo olmuyo olmuyo ne dediğim şekilde okutabildim nede raw535 ü düzeltebildim yardım pls

Zaten $read() 'daki w wilcard Anlamına Gelir.

Yani Olay Şu.

Mesela deneme.txt Dosyasında abcde Diye bişi var.

Eğer Sen $read(deneme.txt,w,*b*) Yaparsan Bu Calışır.
Ama Deneme.txt dosyasına *b* yazıpta $read(deneme.txt,w,abcde) yaparsan Bu Çalışmaz...

Yani Sen on @*:join:#:{ if ($read(shitlist.txt, w, $nick)) Kısmını on @*:join:#:{ if ($read(shitlist.txt, w, $+(*,$nick,*))) Şeklinde Yaparsan .txt Dosyasından *erdem55* olarak Okutacak ve Doğal Olarakta Senin .txt'deki *erdem55*!*@* yada *!*erdem55*@* Maskları Çıkacaktır.ve tabiki Kod Çalışacaktır...