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