on me:*:join:#:$iif($read(kanal.txt,w,$chan),leave #)
dialog chanlist {
  title "Yasak Kanallar"
  size -1 -1 145 120
  option dbu
  text "Yasak Kanal Listesi", 9, 58 5 101 8
  list 10, 49 26 62 89, size vsbar
  edit "", 11, 48 13 62 12, return autohs autovs
  button "Ekle", 12, 115 14 25 11
  button "Çıkart", 13, 115 30 25 11
  box "", 14, 145 1 98 117
}
on 1:dialog:chanlist:*:*:{
  if ($regex($devent,^init$)) {
 if ($read(kanal.txt)) { loadbuf -o $dname 10 kanal.txt } 
}
  if ($regex($devent,^sclick$)) {
    if ($regex($did,^12$)) {
     var %e = $did(11) 
     if (!%e) { $iif($input(kanal girmediniz.,y) == $true,halt,halt) | halt } 
      else { $iif($read(kanal.txt,w,%e),$iif($input(Eklediğiniz kanal mevcut.,y) == $true,halt,halt),write kanal.txt %e) | did -a $dname 10 %e | did -r $dname 11 }
    }
    if ($regex($did,^13$)) { 
      var %r = $did($dname,10).sel
      if (!%r) { $iif($input(Herhangi bir kanal seçmediniz.,y) == $true,halt,halt) | halt }
      else { var %- = $did($dname,10).seltext | did -d $dname 10 %r | write $+(-ds,%-) kanal.txt }
    }
  }
}
menu * {
  -
  Yasak Kanallar:.dialog -m chanlist chanlist
  -
}