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:

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 }

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
}