| immortaL | 10 Haziran 2016 19:32 |
MSG/AME Koruma Diyalogu
Kod:
alias mdx dll dll\mdx.dll $1-
menu menubar,status,channel,query {
MSG/AME Menüsü:amen
}
alias amen { if $dialog(amen) { !echo -a 10MSG/AME Koruma Menüsü 2Zaten 3AÇIK! } | else { !dialog -m amen amen } }
dialog amen {
title "« Ame - Amsg Koruması - Script »"
size -1 -1 183 123
option dbu
tab "Ame", 1, 3 2 119 99
combo 3, 10 28 60 68, tab 1 size
button "Ekle", 4, 78 28 37 12, tab 1
button "SiL", 5, 78 48 37 12, tab 1
tab "Amsg", 2
combo 6, 10 28 60 68, tab 2 size
button "Ekle", 7, 78 28 37 12, tab 2
button "SiL", 8, 78 48 37 12, tab 2
box "#Kanal Şeklinde Ekleyebilirsiniz", 9, 6 18 112 80
box "RenkLeR", 10, 125 2 53 120
combo 11, 130 12 42 110, size vsbar drop
button "Kapat", 12, 80 105 30 15, ok cancel
}
alias ame {
var %_ = 1
while $chan(%_) {
if !$istok(%muafame,$v1,32) {
describe $chan(%_) $1-
}
inc %_
}
}
alias amsg { haltdef | var %i 0 | var %t $chan(0) | while %i < %t { inc %i | if $istok(%muafamsg,$chan(%i),32) != $true { msg $chan(%i) $1- } } }
on *:dialog:amen:init:*:{
if (%muafame) .didtok $dname 3 32 $ifmatch
if (%muafamsg) .didtok $dname 6 32 $ifmatch
mdx MarkDialog $dname
mdx SetDialog $dname bgcolor $iif(%renklerim,%renklerim,$rgb(102,177,147))
mdx SetColor $dname 5,9,11,15,36,38,6,14,19,33,31,37,34,25,12,30,3,1,24,21,27,20 text $iif(%renklerim,%renklerim,$rgb(102,177,147))
mdx SetColor $dname 10,35,23 text $rgb(0,69,111)
mdx SetColor $dname 5,9,11,15,36,38,6,14,19,33,31,37,34,25,10,35,4,20,21,3,23,27,24 textbg $iif(%renklerim,%renklerim,$rgb(102,177,147))
mdx SetColor $dname 6,14,19,33,31,37,34,25,5,9,11,15,36,38,7,8,13,16,17,22,39,40,10,35,4,20,21,3,23,4,27 background $iif(%renklerim,%renklerim,$rgb(102,177,147))
mdx SetColor $dname 9,10 background $iif(%renklerim,%renklerim,$rgb(102,177,147))
mdx SetFont $dname 6,14,19,33,31,37,12,30,18,26,10,35,7,8,13,16,17,22,39,40,20,21,1,2,23,3,4,27,24,34,25 +b Turkish 13 800 Candara
mdx SetFont $dname 5,9,11,15,36,38 +b Turkish 13 800 Candara
mdx SetDialog $dname style title tool sysmenu
did -a $dname 11 Renk1
did -a $dname 11 Renk2
did -a $dname 11 Renk3
did -a $dname 11 Renk4
did -a $dname 11 Renk5
did -a $dname 11 Renk6
did -a $dname 11 Renk7
did -a $dname 11 Renk8
did -a $dname 11 Renk9
did -a $dname 11 Renk10
did -a $dname 11 Renk11
did -a $dname 11 Renk12
did -a $dname 11 Renk13
did -a $dname 11 Renk14
did -a $dname 11 Renk15
}
on *:dialog:amen:sclick:*: {
;ame icin muafiyet
if ($did == 4) { if ($did(3) != $null) { set -u %sk $did(3) | if (%sk) && (!$istok(%muafame,%sk,32)) { .set %muafame $addtok(%muafame,%sk,32) | did -a $dname 3 %sk } } }
if ($did == 5) { if ($did(3).sel > 0) { .set %muafame $remtok(%muafame,$did(3).seltext,1,32) | did -d $dname 3 $did(3).sel | did -c $dname 3 1 } }
;amsg icin muafiyet
if ($did == 7) { if ($did(6) != $null) { set -u %sk $did(6) | if (%sk) && (!$istok(%muafamsg,%sk,32)) { .set %muafamsg $addtok(%muafamsg,%sk,32) | did -a $dname 6 %sk } } }
if ($did == 8) { if ($did(6).sel > 0) { .set %muafamsg $remtok(%muafamsg,$did(6).seltext,1,32) | did -d $dname 6 $did(6).sel | did -c $dname 6 1 } }
;renkler
if $did == 11 && $regex($did(11).text,/^Renk1$/) { set %renklerim $rgb(102,177,147) | renklendir }
elseif $did(11) && $regex($did(11).text,/^Renk2$/) { set %renklerim $rgb(216,222,225) | renklendir }
elseif $did(11) && $regex($did(11).text,/^Renk3$/) { set %renklerim $rgb(201,138,201) | renklendir }
elseif $did(11) && $regex($did(11).text,/^Renk4$/) { set %renklerim $rgb(243,192,189) | renklendir }
elseif $did(11) && $regex($did(11).text,/^Renk5$/) { set %renklerim $rgb(165,141,0) | renklendir }
elseif $did(11) && $regex($did(11).text,/^Renk6$/) { set %renklerim $rgb(255,36,255) | renklendir }
elseif $did(11) && $regex($did(11).text,/^Renk7$/) { set %renklerim $rgb(9,165,249) | renklendir }
elseif $did(11) && $regex($did(11).text,/^Renk8$/) { set %renklerim $rgb(9,165,111) | renklendir }
elseif $did(11) && $regex($did(11).text,/^Renk9$/) { set %renklerim $rgb(81,219,255) | renklendir }
elseif $did(11) && $regex($did(11).text,/^Renk10$/) { set %renklerim $rgb(255,183,102) | renklendir }
elseif $did(11) && $regex($did(11).text,/^Renk11$/) { set %renklerim $rgb(255,0,0) | renklendir }
elseif $did(11) && $regex($did(11).text,/^Renk12$/) { set %renklerim $rgb(255,255,255) | renklendir }
elseif $did(11) && $regex($did(11).text,/^Renk13$/) { set %renklerim $rgb(255,255,0) | renklendir }
elseif $did(11) && $regex($did(11).text,/^Renk14$/) { set %renklerim $rgb(162,162,150) | renklendir }
elseif $did(11) && $regex($did(11).text,/^Renk15$/) { set %renklerim $rgb(0,204,198) | renklendir }
}
alias renklendir {
mdx MarkDialog amen
mdx SetDialog amen bgcolor %renklerim
mdx SetColor amen 5,9,11,15,36,38,6,14,19,33,31,37,34,25,12,30,3,1 text $rgb(0,0,100)
mdx SetColor amen 10,35,23 text $rgb(0,69,111)
mdx SetColor amen 5,9,11,15,36,38,6,14,19,33,31,37,34,25,10,35,4,20,21,3,23,27 textbg %renklerim
mdx SetColor amen 6,14,19,33,31,37,34,25,5,9,11,15,36,38,7,8,13,16,17,22,39,40,10,35,4,20,21,3,23,4,27 background %renklerim
mdx SetColor $dname 9,10 background %renklerim
mdx SetFont amen 6,14,19,33,31,37,12,30,18,26,10,35,7,8,13,16,17,22,39,40,20,21,1,2,23,3,4,27 +b Turkish 13 800 Candara
mdx SetFont amen 5,9,11,15,36,38 +b Turkish 13 800 Candara
mdx SetDialog amen style title tool sysmenu
}
Script Klasörünüzün İçinde Dll Klasörü Varsa İçine mdx.dll yi Attığınızda Diyalog Gayet Sağlıklı Çalışacaktır.
Alıntı. |
