dialog okm {
  title "Özel Kontrol"
  size -1 -1 250 325
  option pixels
  icon 1, 25 0 200 150, images\GPerfect.PNG, 0 noborder
  check "Özel Kontrolu Durum:", 2, 10 160 230 17
  list 3, 10 180 158 151
  button "Ekle", 4, 175 180 65 25
  button "Sil", 5, 175 211 65 25
  button "Kapat", 6, 175 302 65 25
  edit "", 7, 170 180 70 20, autohs
}
on *:dialog:okm:*:*: {
  if $devent == sclick {
    if $did == 4 {
      if $ulist($did(okm,7),qlist,*) == 1 {
        echo -a $logo Bu kişiyi zaten eklemişsiniz.
      }
      if $ulist($did(okm,7),qlist,*) == 0 {
        auser qlist $did(okm,7)
        echo -a $logo $did(okm,7) Nickini listenize eklediniz.
        did -? $dname 3 $did(okm,7)
      }
    }
  }
}