dialog nicklist {
  title "Nick List"
  size -1 -1 131 250
  option dbu
  text "Kanal Seç", 1, 6 6 25 8
  text "Nick Listesi", 2, 61 6 67 9
  list 3, 5 17 49 120, size
  list 4, 61 29 65 220, size
  edit "", 6, 61 18 65 10
  button "Kapat", 5, 5 143 48 102, flat cancel
}
alias nicklist { dialog -m nicklist nicklist }
on *:dialog:nicklist:*:*:{
  if ($devent = init) { var %i = 1 | while %i <= $chan(0) { did -a $dname 3 $chan(%i) | inc %i } }
  elseif ($devent = sclick) && $did = 3 {
    if !$did(6) {
      did -r $dname 4 | var %i = 1 ,%c = $did(3).seltext 
      while %i <= $nick(%c,0) { did -a $dname 4 $nick(%c,%i) | inc %i }
    }
    elseif $did(6) { 
      did -r $dname 4 | var %i = 1 ,%c = $did(3).seltext 
      while %i <= $nick(%c,0) { $iif($did(6).text isin $nick(%c,%i),did -a $dname 4 $nick(%c,%i)) | inc %i }
    }
  }
  elseif ($devent = edit) && $did = 6 {
    did -r $dname 4 | var %i = 1 ,%c = $did(3).seltext 
    while %i <= $nick(%c,0) { $iif($did(6).text isin $nick(%c,%i),did -a $dname 4 $nick(%c,%i)) | inc %i }
  }
}