alias cstudio { $iif(!$dialog(cstudio),dialog -m cstudio cstudio,dialog -v cstudio) }
 dialog cstudio {
 title “Color Studio | 
Bu forumdaki linkleri ve resimleri görebilmek için en az 25 mesajınız olması gerekir.
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 “[Üye Olmadan Linkleri Göremezsiniz. Üye Olmak için TIKLAYIN...]”, 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 *** [Üye Olmadan Linkleri Göremezsiniz. Üye Olmak için TIKLAYIN...]
 }
 if $did == 16 { run [Üye Olmadan Linkleri Göremezsiniz. Üye Olmak için TIKLAYIN...] }
 }
 }
 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
 }
 }