Çevrimdışı

maelstrom senin kod çalışıyor fakat nick ban atıyor ben ip ban atmak istiyorum. Uonur malesef senin dediğin şekilde çalışmadı
Bu forumdaki linkleri ve resimleri görebilmek için en az 25 mesajınız olması gerekir.
yarım pls

 

Çevrimdışı

$address($ulist(%:gnick,666,1),2) Dene
Bu forumdaki linkleri ve resimleri görebilmek için en az 25 mesajınız olması gerekir.

 

Çevrimdışı

-ChanServ- "mask" nick!kullanici@IP seklinde tanimlanmali.
malesef olmadı
cs akick $1 add $address($ulist(%:gnick,666,1),2) Badnick.
bu şekilde ekledim

 

Çevrimdışı

eğer o olmuyosa bunu cs den ip e ban atacak şeklilde ayarlayabilirmiyiz?
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) 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),ban -k $comchan($1,%x) $1 $2-) | dec %x } } }
menu channel,status,menubar {
Shitlist:dialog -ma shitlist shitlist
}
alias shitlist { if ($dialog(shitlist)) { dialog -x shitlist } | dialog -ma shitlist shitlist }

aslında eğer mümkünse ikisinide cs den ip ban atacak şekilde ayarlamak istiyorum ama olmuyo işte heleki benim gibi daha yeni biri için baya zor oldu bu iş ya çıkamıyorum işin içinden

 

Çevrimdışı

ya yardımcı olacak kimse yokmu acaba off delircem ya ne denediysem olmuyo

 

Çevrimdışı

En baştan Okumadan Bişiler Dedim ama Olmamış
Bu forumdaki linkleri ve resimleri görebilmek için en az 25 mesajınız olması gerekir.

Sana bi Kod veriim idare eder heralde seni.

alias akickle {
var %ğh $comchan($1,0)
while (0 < %ğh) {
cs akick $comchan($1,%ğh) add $address($1,2)
dec %ğh
}
}

/akickle UOnur yap Bana ip'den akick kosun
Bu forumdaki linkleri ve resimleri görebilmek için en az 25 mesajınız olması gerekir.

Ama Sadece Ortak Kanallarımızda Akick Ekler.Eğer Ortak kanal Yoksa Eklemez...

 

Çevrimdışı

uonur sanırım yine okumadınız. Bende allban zaten varki. Benim istediğim. Yukarda verdiğim kodlardaki normal banı kaldırıp cs ban eklemek ve bunu ip ye atmasını sağlamak.

 

Çevrimdışı

Ban Atan Kısım Şu:

alias kickcomchan { if ($1) { var %x = $comchan($1,0) | while %x { $iif($me isop $comchan($1,%x),ban -k $comchan($1,%x) $1 $2-) | dec %x } } }

Ve sen Banlamasın onun yerine Akick eklesin Diyorsun Deilmi?

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

 

Çevrimdışı

-ChanServ- "mask" nick!kullanici@IP seklinde tanimlanmali.

aynen bunu söylüyor

 

Çevrimdışı

Alla Alla.
Ortak Kanalın varsa $address calısır.
Eğer Yoksa ztn Kod çalışmaz.Bu ne biçim iş .)

Bağlandığın Sunucuyla Alakalı birşey Olabilirmi ?
ip akick Konulmayabilir yada başka bisi ?