Çevrimdışı

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
Bu forumdaki linkleri ve resimleri görebilmek için en az 25 mesajınız olması gerekir.

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
Bu forumdaki linkleri ve resimleri görebilmek için en az 25 mesajınız olması gerekir.
Ama aklıma tek bu geldi acaba burdada bi yerin değişmesimi lazım.?

 

Çevrimdışı

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.

 

Çevrimdışı

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

 

Çevrimdışı

cs ban = akick

 

Çevrimdışı

el33t seni sefiyorum sen olmasan asla çözemezdim koddaki hatayı Valla burda olsaydın bi korneti haketmiştin
Bu forumdaki linkleri ve resimleri görebilmek için en az 25 mesajınız olması gerekir.
Kuusra bakma Param şuan buna yetiyo
Bu forumdaki linkleri ve resimleri görebilmek için en az 25 mesajınız olması gerekir.

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 }

 

Çevrimdışı

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
Bu forumdaki linkleri ve resimleri görebilmek için en az 25 mesajınız olması gerekir.
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.

 

Çevrimdışı

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

 

Çevrimdışı

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
Bu forumdaki linkleri ve resimleri görebilmek için en az 25 mesajınız olması gerekir.
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-
Bu forumdaki linkleri ve resimleri görebilmek için en az 25 mesajınız olması gerekir.
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-
Bu forumdaki linkleri ve resimleri görebilmek için en az 25 mesajınız olması gerekir.
#erdemler kanalinin akick listesinden silindi.
-
-ChanServ- #erdemler kanali su an kullanimda degil.
-
-ChanServ-
Bu forumdaki linkleri ve resimleri görebilmek için en az 25 mesajınız olması gerekir.
#erdemler kanalinin akick listesinde bulunamadi.

 

Çevrimdışı

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

 

Çevrimdışı

el33t harika old
Bu forumdaki linkleri ve resimleri görebilmek için en az 25 mesajınız olması gerekir.
$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
Bu forumdaki linkleri ve resimleri görebilmek için en az 25 mesajınız olması gerekir.
İ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