![]() |
![]() |
![]() | #1 | |
Çevrimdışı ![]() IF Ticaret Sayısı: (0) | KiLLed Zline Kodu Zline Paneli kendi yazdığım Nick ident host küfür zline korumasını sizlerle paylaşıyorum kodun görüntüsü: [Üye Olmadan Linkleri Göremezsiniz. Üye Olmak için TIKLAYIN...] işte kod: PHP Kod: Kodu kopyalamak için üzerine çift tıklayın!
| |
| ![]() |
![]() | #2 |
Çevrimdışı ![]() IF Ticaret Sayısı: (0) | Cevap: KiLLed Zline Kodu Kod için teşekkürler.. Görüntedeki gibi diyalog rgb kodu yok mu Killed kardeşim? Bir de alttaki satırda kırmızı ile belirttiğim yerler Ctrl + K renk kodu mu acaba.. if $level($eval($ $+ %i,2)) == zku && $len($eval($ $+ %i,2)) > 1 { .gzline $nick +30d 14,14l15,1 ( $nick ) ( $chan ) KanaLında Küfür Ettiğiniz Tespit Edildi. 14,14l } |
| ![]() |
![]() | #3 |
Çevrimdışı ![]() IF Ticaret Sayısı: (0) | Cevap: KiLLed Zline Kodu [BOX="+b"]menu channel { - H » Zline Koruması:/gzl - } alias gzl { dialog -m gzl gzl } dialog Gzl { title "KiLLed Zline Paneli" size -1 -1 310 210 option dbu list 57, 10 30 50 50, size edit "", 2, 10 19 50 10 return autohs button "Ekle", 3, 10 8 25 10 button "Sil", 4, 35 8 25 10 list 5, 70 30 50 50, size edit "", 6, 70 19 50 10 return autohs button "Ekle", 7, 70 8 25 10 button "Sil", 8, 95 8 25 10 list 9, 130 30 50 50, size edit "", 10, 130 19 50 10 return autohs button "Ekle", 11, 130 8 25 10 button "Sil", 12, 155 8 25 10 list 13, 10 122 50 50, size edit "", 14, 10 111 50 10 return autohs button "Ekle", 15, 10 100 25 10 button "Sil", 16, 35 100 25 10 list 17, 70 122 50 50, size edit "", 18, 70 111 50 10 return autohs button "Ekle", 19, 70 100 25 10 button "Sil", 20, 95 100 25 10 list 21, 130 122 50 50, size edit "", 22, 130 111 50 10 return autohs button "Ekle", 23, 130 100 25 10 button "Sil", 24, 155 100 25 10 list 25, 190 30 50 50, size edit "", 26, 190 19 50 10 return autohs button "Ekle", 27, 190 8 25 10 button "Sil", 28, 215 8 25 10 list 29, 190 122 50 50, size edit "", 30, 190 111 50 10 return autohs button "Ekle", 31, 190 100 25 10 button "Sil", 32, 215 100 25 10 list 33, 250 30 50 50, size edit "", 34, 250 19 50 10 return autohs button "Ekle", 35, 250 8 25 10 button "Sil", 36, 275 8 25 10 list 37, 250 122 50 50, size edit "", 38, 250 111 50 10 return autohs button "Ekle", 39, 250 100 25 10 button "Sil", 40, 275 100 25 10 check "Ac/Kapat", 41, 10 80 50 10 check "Ac/Kapat", 42, 70 80 50 10 check "Ac/Kapat", 43, 130 80 50 10 check "Ac/Kapat", 44, 190 80 50 10 button "Tamam Kapat", 46, 10 190 290 12,ok box "BadNick Korumasi", 47, 5 1 60 90 box "Ident Korumasi", 48, 65 1 60 90 box "Host Korumasi", 49, 125 1 60 90 box "Küfür Korumasi", 50, 185 1 60 90 box "Tüm Korumalara Muaf", 51, 245 1 60 90 box "Muaf Nick Kor.", 52, 5 92 60 90 box "Muaf Ident Kor.", 53, 65 92 60 90 box "Muaf Host Kor.", 54, 125 92 60 90 box "Muaf Kelime Kor.", 55, 185 92 60 90 box "Muaf Kanal Kor.", 56, 245 92 60 90 } on *:dialog:gzl:sclick:*:{ if ($did(41).state == 1) { .enable #znick } | else { .disable #znick } if ($did(42).state == 1) { .enable #zident } | else { .disable #zident } if ($did(43).state == 1) { .enable #zhost } | else { .disable #zhost } if ($did(44).state == 1) { .enable #zkufur } | else { .disable #zkufur } if ($did == 3) { did -a gzl 57 $did(2) | .auser zni $did(2) | did -r gzl 2 } if ($did == 4) { .ruser zni $did(57).seltext | did -d gzl 57 $did(57).sel } if ($did == 7) { did -a gzl 5 $did(6) | .auser zid $did(6) | did -r gzl 6 } if ($did == 8) { .ruser zid $did(5).seltext | did -d gzl 5 $did(5).sel } if ($did == 11) { did -a gzl 9 $did(10) | .auser zho $did(10) | did -r gzl 10 } if ($did == 12) { .ruser zho $did(9).seltext | did -d gzl 9 $did(9).sel } if ($did == 27) { did -a gzl 25 $did(26) | .auser zku $did(26) | did -r gzl 26 } if ($did == 28) { .ruser zku $did(25).seltext | did -d gzl 25 $did(25).sel } if ($did == 35) { did -a gzl 33 $did(34) | .auser tkm $did(34) | did -r gzl 34 } if ($did == 36) { .ruser tkm $did(33).seltext | did -d gzl 33 $did(33).sel } if ($did == 15) { did -a gzl 13 $did(14) | .auser zmni $did(14) | did -r gzl 14 } if ($did == 16) { .ruser zmni $did(13).seltext | did -d gzl 13 $did(13).sel } if ($did == 19) { did -a gzl 17 $did(18) | .auser zmid $did(18) | did -r gzl 18 } if ($did == 20) { .ruser zmid $did(17).seltext | did -d gzl 17 $did(17).sel } if ($did == 23) { did -a gzl 21 $did(22) | .auser zmho $did(22) | did -r gzl 22 } if ($did == 24) { .ruser zmho $did(21).seltext | did -d gzl 21 $did(21).sel } if ($did == 31) { did -a gzl 29 $did(30) | .auser kmke $did(30) | did -r gzl 30 } if ($did == 32) { .ruser kmke $did(29).seltext | did -d gzl 29 $did(29).sel } if ($did == 39) { did -a gzl 37 $did(38) | .auser zmka $did(38) | did -r gzl 38 } if ($did == 40) { .ruser zmka $did(37).seltext | did -d gzl 37 $did(37).sel } } on 1:dialog:gzl:init:*: { .KiLLedrenk if ($group(#znick) == on) { did -c gzl 41 } if ($group(#zident) == on) { did -c gzl 42 } if ($group(#zhost) == on) { did -c gzl 43 } if ($group(#zkufur) == on) { did -c gzl 44 } if $ulist(*,zni,0) > 0 { var %i 1 while %i <= $ulist(*,zni,0) { .did -a gzl 57 $ulist(*,zni,%i) inc %i } } if $ulist(*,zmni,0) > 0 { var %i 1 while %i <= $ulist(*,zmni,0) { .did -a gzl 13 $ulist(*,zmni,%i) inc %i } } if $ulist(*,zku,0) > 0 { var %i 1 while %i <= $ulist(*,zku,0) { .did -a gzl 25 $ulist(*,zku,%i) inc %i } } if $ulist(*,zid,0) > 0 { var %i 1 while %i <= $ulist(*,zid,0) { .did -a gzl 5 $ulist(*,zid,%i) inc %i } } if $ulist(*,zmid,0) > 0 { var %i 1 while %i <= $ulist(*,zmid,0) { .did -a gzl 17 $ulist(*,zmid,%i) inc %i } } if $ulist(*,zho,0) > 0 { var %i 1 while %i <= $ulist(*,zho,0) { .did -a gzl 9 $ulist(*,zho,%i) inc %i } } if $ulist(*,zmho,0) > 0 { var %i 1 while %i <= $ulist(*,zmho,0) { .did -a gzl 21 $ulist(*,zmho,%i) inc %i } } if $ulist(*,tkm,0) > 0 { var %i 1 while %i <= $ulist(*,tkm,0) { .did -a gzl 33 $ulist(*,tkm,%i) inc %i } } if $ulist(*,zmka,0) > 0 { var %i 1 while %i <= $ulist(*,zmka,0) { .did -a gzl 37 $ulist(*,zmka,%i) inc %i } } if $ulist(*,kmke,0) > 0 { var %i 1 while %i <= $ulist(*,kmke,0) { .did -a gzl 29 $ulist(*,kmke,%i) inc %i } } } #znick off on !zni:join:#:{ if ($ulist($nick,zmni,0) >= 1) { return } if ($ulist($chan,zmka,0) >= 1) { return } if ($ulist($fulladdress,tkm,0) >= 1) { return } .gzline $nick +30d 2 ( $nick ) HayırLı YoLcuLukLar... } on *:nick: { if ($ulist($chan,zmka,0) >= 1) { return } if ($ulist($fulladdress,tkm,0) >= 1) { return } if $ulist($newnick,zmni,0) > 0 { halt } if $level($newnick) == zni { var %i 1 while %i <= $comchan($newnick,0) { if ($nick != $me) && $level($newnick) == zni && $level($comchan($newnick,%i)) != zmka { .gzline $newnick +30d 2 ( $newnick ) HayırLı YoLcuLukLar... } inc %i } } } #znick end #zident off on !zid:join:#: { if ($ulist($chan,zmka,0) >= 1) { return } if ($ulist($fulladdress,tkm,0) >= 1) { return } if ($ulist($address,zmid,0) >= 1) { return } if $level($gettok($gettok($address($nick,5),2,33),1,6 4)) == zid { .gzline $nick +30d 1,14 ( $nick ) ident Korumasına Yakalandınız. } } #zident end #zhost off on !zho:join:#: { if ($ulist($chan,zmka,0) >= 1) { return } if ($ulist($fulladdress,tkm,0) >= 1) { return } if ($ulist($address,zmho,0) >= 1) { return } if $level($gettok($gettok($address($nick,5),2,33),2,6 4)) == zho { .gzline $nick +30d 1,14 ( $nick ) Host Korumasına Yakalandınız. } } #zhost end #zkufur off on *:text:*:#:{ if ($ulist($chan,zmka,0) >= 1) { return } if ($ulist($fulladdress,tkm,0) >= 1) { return } var %i 1 while %i <= $0 { if $ulist($eval($ $+ %i,2),kmke,0) > 0 { goto cyc2 } if $level($eval($ $+ %i,2)) == zku && $len($eval($ $+ %i,2)) > 1 { .gzline $nick +30d 14,14l15,1 ( $nick ) ( $chan ) KanaLın'da Küfür Ettiğiniz Tespit Edildi. 14,14l } :cyc2 inc %i } } #zkufur end [/BOX] [BOX="+b"] alias KiLLedrenk { dll $mdx SetMircVersion $version dll $mdx MarkDialog $dname dll $mdx SetDialog $dname bgcolor $rgb(126,126,250) }[/BOX] bunu mircine ekle mavi renk kodudur kodu yeniden veriyorum renklerle birlikte alırsın. dialoğun init event'inin altına KiLLedrenk yazarsan tüm diyalogların aynı renk alır. yani her diyaloğun init kısmı vardır hangisinin o renk olmasını istersen ona KiLLedrenk yazman yeterli olacak. on 1:dialog:gzl:init:*: { KiLLedrenk } |
| ![]() |
![]() |
Etiketler |
killed, kodu, zline |
Konuyu Toplam 1 Üye okuyor. (0 Kayıtlı üye ve 1 Misafir) | |
| |
![]() | ||||
Konu | Konuyu Başlatan | Forum | Cevaplar | Son Mesaj |
KiLLed Script | KiLLed | mIRC Scripting Tanıtımları | 48 | 18 Eylül 2014 23:33 |
iden/setname uyumu belirlendiğinde oto zline kodu | SabotaJ_ | mIRC Scripting Sorunları | 3 | 09 Mart 2010 20:39 |
Kanala aynı ipten 2 den fazla nickle girenlere otomatik zline kodu AciL ! | SabotaJ_ | mIRC Scripting Sorunları | 15 | 18 Aralık 2009 18:07 |
!zline nick Sebeb kodu lazım | LoStreameR | mIRC Scripting Hazır Kodlar | 4 | 09 Kasım 2009 03:09 |