alias cstudio { $iif(!$dialog(cstudio),dialog -m cstudio cstudio,dialog -v cstudio) }
dialog cstudio {
title "Color Studio | www.mIRCdb.Com | by ReBeL"
size -1 -1 154 131
option dbu
scroll "", 1, 35 3 115 8, range 0 255 horizontal bottom
text "Red", 2, 1 3 11 8
text "Green", 3, 1 15 16 8
text "Blue", 4, 1 27 10 8
scroll "", 5, 35 15 115 8, range 0 255 horizontal bottom
scroll "", 6, 35 27 115 8, range 0 255 horizontal bottom
list 7, 5 45 139 26, size
box "Renk", 8, 1 37 149 38
box "Degerler", 9, 1 77 149 37
edit "", 10, 45 87 99 10, read
text "RGB", 11, 8 89 16 8
text "$RGB", 12, 8 100 20 8
edit "", 13, 45 99 99 10, read
button "Exit", 14, 1 115 46 12
button "İnfo", 15, 50 115 47 12
button "Visit To Web Site", 16, 99 115 51 12
}
on *:dialog:cstudio:*:*: {
if $devent == init {
if !%mdx.dll { taramdx }
var %s dll %mdx.dll
%s MarkDialog $dname
%s SetBorderStyle $dname 7
%s SetColor $dname 7 background 0
}
if $devent == scroll {
if !%mdx.dll { taramdx }
var %s dll %mdx.dll
%s SetColor $dname 7 background $rgb($did(1).sel,$did(5).sel,$did(6).sel)
did -ra $dname 10 $rgb($did(1).sel,$did(5).sel,$did(6).sel)
did -ra $dname 13 Red; $did(1).sel Green; $did(5).sel Blue; $did(6).sel
}
if $devent == sclick {
if $did == 14 { dialog -x $dname }
if $did == 15 {
var %a echo 2 -a
%a *** "Color Dialog" ReBeL Tarafından Yazılmış Bir Dialogdur
%a *** Bu Dialog Sayesinde Renklerin RGB Kodunu Alabilirsiniz
%a *** Hayırlı Çalışmalar Dileriz
%a *** www.mIRCdb.Com
}
if $did == 16 { run www.mircdb.com }
}
}
alias taramdx {
var %q 1
var %i $scriptdir
while (%q <= $findfile(%i,*.dll,0)) {
if $gettok($findfile(%i,*.dll,%q),-1,$asc()) == mdx.dll {
set %mdx.dll $shortfn($findfile(%i,*.dll,%q))
}
inc %q
}
}
 Bu yazıyı web sayfanızda alıntılayın | Görüntüleme sayısı: 113 | E-Posta
Sadece kayıtlı kullanıcılar yorum yazabilir.
Lütfen sisteme giriş yapın veya kayıt olun. Powered by AkoComment Tweaked Special Edition v.1.4.6
AkoComment © Copyright 2004 by Arthur Konze - www.mamboportal.com
All right reserved |
mIRC Hazır Kodlar 
