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
}