23 Şubat 2013, 18:57 | #1 | |
Çevrimdışı
Kullanıcıların profil bilgileri misafirlere kapatılmıştır.
IF Ticaret Sayısı: (0) | KiLLed Badnick Korumasi evet arkadaşlar son günlerde durmadan forumdan badnick taraması bilmem nesi falan filan çok istek oldu bende forumdan aldığım remotelere ek yaparak birde diyalog haline getirip sizlere bir badnick koruması sunuyorum. özellikleri; girişte bads.txt dosyasına eklenmiş nickleri atar Nick değişiminde listede mevcut nickleri atar kanal taramasını yapar muaf nick muaf kanal ekleme özelliği mevcut. ayrıca kanalda herhangi bir prefixe sahip kişi nick değişimi ve taramadan muaftır. [BOX="+i"]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 } } } [/BOX] Görüntüsü; Bu forumdaki linkleri ve resimleri görebilmek için en az 25 mesajınız olması gerekir. | |
|
Etiketler |
badnick, killed, korumasi |
Konuyu Toplam 1 Üye okuyor. (0 Kayıtlı üye ve 1 Misafir) | |
| |
Benzer Konular | ||||
Konu | Konuyu Başlatan | Forum | Cevaplar | Son Mesaj |
KiLLed Script | KiLLed | mIRC Scripting Tanıtımları | 48 | 18 Eylül 2014 23:33 |
KiLLed Zline Kodu | KiLLed | mIRC Scripting Hazır Kodlar | 2 | 24 Şubat 2013 08:59 |
Badnick Korumasi | toXic | Hazır_kodlar | 5 | 17 Mayıs 2011 19:29 |
badnick korumasi editi | Nothinq | mIRC Scripting Sorunları | 3 | 26 Şubat 2011 20:54 |