dialog cvc {
  title "Spam Listesi"
  size -1 -1 134 152
  option dbu
  edit "", 4, 2 111 81 10
  box "", 5, 2 122 129 15
  text " Silmek için kelimenin ustunu çift tıklayınız.", 6, 3 127 126 8
  button "Kapat", 7, 2 138 129 12, ok
  button "Ekle", 2, 83 111 47 10
  list 1, 2 4 129 103, size vsbar
}
on *:dialog:cvc:init:*:{
  var %p = 1
  while (%p <= $ulist(*,spamkel,0)) { 
    did -a cvc 1 $ulist(*,spamkel,%p)
    inc %p
  }
}
on *:dialog:cvc:sclick:*:{

  if ($did == 2) { 
    auser spamkel $did(4)
    did -a $dname 1 $did(4)
    spamfilter add cpnNPqdu gline 999d Guvenlik $did(4) 
    msg #Kontrol .glineekle $+(*, $+ $did(4) $+ ,*)
  }
}
on *:dialog:cvc:dclick:*:{
  if ($did == 1) {
    msg #Kontrol .glinesil $+(*,$did(1).seltext,*)
    ruser spamkel $did(1).seltext
    spamfilter del cpnNPqdu gline 999d Guvenlik $did(1).seltext 
    did -d $dname 1 $did(1).sel


  }
}