Konu: !tara
Tekil Mesaj gösterimi
Alt 21 Ekim 2013, 16:17   #2
Çevrimdışı
Reqal
Kullanıcıların profil bilgileri misafirlere kapatılmıştır.
IF Ticaret Sayısı: (0)
IF Ticaret Yüzdesi:(%)
Cevap: !tara




Kod:   Kodu kopyalamak için üzerine çift tıklayın!
alias mdx { dll dll\mdx.dll $1- } menu channel,status { - H » BadNick Koruma:/bads - } alias bads { dialog -m bads bads } dialog bads { title "KiLLed Badnick Koruması" size -1 -1 256 176 option dbu edit "", 2, 17 22 64 10, return autohs list 3, 17 34 64 75, sort size hsbar button "Nick ekle", 4, 17 11 32 10 button "Nick SiL", 5, 49 11 32 10 edit "", 6, 98 22 64 10, return autohs list 7, 98 34 64 75, sort size hsbar button "M Nick Ekle", 8, 98 11 32 10 button "M Nick SiL", 9, 130 11 32 10 edit "", 10, 176 22 64 10, return autohs list 11, 176 34 64 75, sort size hsbar button "M kanal ekle", 12, 176 11 32 10 button "M kanal SiL", 13, 208 11 32 10 button "Badnick Tara", 15, 197 124 50 10 button "Tamam/Kapat", 16, 79 124 99 12, ok check "Aç / Kapat", 17, 10 124 50 10 box " Badnick Listesi", 19, 10 1 78 116 box " Muaf Nick Listesi", 20, 90 1 78 116 box " Muaf Kanal Listesi", 21, 170 1 78 116 edit "KiLLed Badnick Korumasi", 29, 10 142 237 26, read center } on *:dialog:bads:sclick:*:{ if ($did(17).state == 1) { .enable #kbk } | else { .disable #kbk } if ($did == 4) { write bads.txt $did(2) | did -a $dname 3 $did(2) | did -r $dname 2 } if ($did == 5) { write -dl $+ $did(3).sel bads.txt | did -d $dname 3 $did(3).sel } if ($did == 8) { if ($did(6) != $null) { set -u %mnk $did(6) | if (%mnk) && (!$istok(%korunick,%mnk,32)) { .set %korunick $addtok(%korunick,%mnk,32) | did -a $dname 7 %mnk | did -r $dname 6 } } } if ($did == 9) { if ($did(7).sel > 0) { .set %korunick $remtok(%korunick,$did(7).seltext,1,32) | did -d $dname 7 $did(7).sel | did -c $dname 7 } } if ($did == 12) { if ($did(10) != $null) { set -u %mke $did(10) | if (%mke) && (!$istok(%korukanal,%mke,32)) { .set %korukanal $addtok(%korukanal,%mke,32) | did -a $dname 11 %mke | did -r $dname 10 } } } if ($did == 13) { if ($did(11).sel > 0) { .set %korukanal $remtok(%korukanal,$did(11).seltext,1,32) | did -d $dname 11 $did(11).sel | did -c $dname 11 } } if ($did == 15) { .tara $active } } on 1:dialog:bads:init:0: { mdx SetMircVersion $version mdx MarkDialog $dname mdx SetBorderStyle 4,14,18,20 mdx SetDialog [ $dname ] bgcolor [ $rgb(28,96,113) ] mdx SetColor $dname 29 text $rgb(164,0,0) mdx SetFont $dname 29 Batı 40 750 Old English Text MT mdx SetColor 2,3,6,7,10,11,29 textbg [ $rgb(0,0,0) ] mdx SetColor $dname 2,3,6,7,10,11 text $rgb(255,255,255) mdx SetColor 2,3,6,7,10,11,29 background [ $rgb(0,0,0) ] if ($isfile(bads.txt) == $false) { write -c bads.txt } | else { loadbuf -o $dname 3 bads.txt } if (%korunick) .didtok $dname 7 32 $ifmatch if (%korukanal) .didtok $dname 11 32 $ifmatch if ($group(#kbk) == on) { did -c bads 17 } } #Kbk on on !*:join:#: { if $istok(%korukanal,#,32) == $true { halt } if $istok(%korunick,$nick,32) == $true { halt } if ($me isop $chan) || ($me ishop $chan) || (o isin $usermode) { var %hd $lines(bads.txt) while (0 <= %hd) { if $read(bads.txt,%hd) iswm $nick { mode # +b $+($v1,!*@*) kick # $nick 14,14l15,1  Nick'iniz KanaL Seviyesine Uygun Değildir. 14,14l %logo } dec %hd } } } on *:NICK:{ if $istok(%korunick,$newnick,32) == $true { halt } if $badnick($newnick) { var %e = 1, %u = $v1 while $comchan($newnick,%e) { if ($me isop $v1) || ($me ishop $v1) && (%korukanal != $v2) && ($newnick isreg $v2) { mode $v2 +b %u kick $v2 $newnick 14,14l15,1  Nick'iniz KanaL Seviyesine Uygun Değildir. 14,14l %logo } inc %e } } } alias badnick { var %e = 1 while $read(bads.txt,%e) { if $v1 iswm $1 { return $v1 } inc %e } return $false } #Kbk end alias tara { if $1 ischan { var %d = $lines(bads.txt) while %d { if $fline($1,$read(bads.txt,%d),0,1) >= 1 { var %q = $ifmatch | while %q { if $line($1,$fline($1,$read(bads.txt,%d),%q,1),1) isreg $1 { mode $1 +b $+($read(bads.txt,%d),!*@*) | kick $1 $line($1,$fline($1,$read(bads.txt,%d),%q,1),1) 14,14l15,1  Nick'iniz KanaL Seviyesine Uygun Değildir. 14,14l %logo } | dec %q } } dec %d } } }



bu badnick korumasında hiç bad list olmadığı için bad atmıyo şimdi ben buna nasıl badleri görmesini sağlarım örnek cinsel içerikli nickleri nasıl görmesi sağlarım sadece benim eklediğim badleri atmasın kendide görmesini nasıl sağlarım.

--IRCForumlari.NET ; Flood Engellendi -->-> Yeni yazılan mesaj 14:17 -->-> Daha önceki mesaj 14:09 --

Toprak Nickli Üyeden Alıntı
Bu forumdaki linkleri ve resimleri görebilmek için en az 25 mesajınız olması gerekir.
PM atıp id şifre yollarmısın.



Konu açmak istemedim başınızı ağrıtıyorum zaten bedavadan

 
Alıntı ile Cevapla

IRCForumlari.NET Reklamlar
sohbet odaları eglen sohbet reklamver