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