menu channel {

  -

  » Ame-Amsg-Muaf:/amele

  -

}

dialog amele {

  title "KiLLed Ame-Amsg Muaf Menu"

  size -1 -1 240 126

  option dbu

  edit "" 11, 10 26 60 10

  list 3, 10 36 60 70

  button "Ekle", 4, 78 28 32 12

  button "Sil", 5, 78 48 33 12

  edit "" 12, 130 26 60 10

  list 6, 130 36 60 70

  button "Ekle", 7, 196 28 33 12

  button "Sil", 8, 196 48 33 12, tab 2

  box "Muaf Ame ekleyiniz", 9, 5 14 110 90

  box "Muaf Amsg ekleyiniz", 19, 125 14 110 90

  button "Tamam", 10, 5 110 230 10, ok

}

alias amele { .dialog -m amele amele }

alias ame { haltdef | var %i 0 | var %t $chan(0) | while %i < %t { inc %i | if $istok(%muafame,$chan(%i),32) != $true { describe $chan(%i) $1- } } }

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:amele:init:*:{

  if (%muafame) .didtok $dname 3 32 $ifmatch

  if (%muafamsg) .didtok $dname 6 32 $ifmatch

}

on *:dialog:amele:sclick:*: {

  ;ame için muafiyet

  if ($did == 4) { if ($did(11) != $null) { set -u %sk $did(11) | if (%sk) && (!$istok(%muafame,%sk,32)) { .set %muafame $addtok(%muafame,%sk,32) | did -a $dname 3 %sk | did -r $dname 11 } } }

  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 için muafiyet

  if ($did == 7) { if ($did(12) != $null) { set -u %sk $did(12) | if (%sk) && (!$istok(%muafamsg,%sk,32)) { .set %muafamsg $addtok(%muafamsg,%sk,32) | did -a $dname 6 %sk | did -r $dname 12 } } }

  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 } }

}