Tekil Mesaj gösterimi
Alt 22 Ocak 2005, 17:41   #23
Çevrimdışı
el33t
Kullanıcıların profil bilgileri misafirlere kapatılmıştır.
IF Ticaret Sayısı: (0)
IF Ticaret Yüzdesi:(%)



Aşağıdaki kod ben ve diğer 3 arkadaşımda nedense "sorunsuz çalıştı"
Sende sorun nedir bilemiyorum ama olabilecek tek sorun senin lagda olmandır. Çünkü bir kanala girdiğinde op olma süren önemli. Ben 5 saniyeye ayarladım ve bende hatasız çalıştı. [ON NICK'de ekledim. Böylece biri nick değiştirdiğinde de eğer ShitListendeyse o da atılır]
İşte kod:

Kod:   Kodu kopyalamak için üzerine çift tıklayın!
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) 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 }

Umarım işine yarar..

 
Alıntı ile Cevapla

IRCForumlari.NET Reklamlar
sohbet odaları sohbet odaları Benimmekan Mobil Sohbet