Anonymous

dialog ccol {
  title "Channel Controls"
  size -1 -1 155 90
  option dbu
  list 1, 3 4 50 65, size
  list 2, 59 14 50 55, size
  button "Op", 4, 114 5 37 12
  button "Half-Op", 5, 114 18 37 12
  button "Voice", 6, 114 31 37 12
  button "Kick", 7, 114 44 37 12
  button "Kick Ban", 8, 114 57 37 12
  button "Topic", 9, 14 73 37 12
  button "Modes", 10, 60 73 37 12
  button "Close", 11, 105 73 37 12, flat cancel
  text "", 3, 59 5 50 8
}
on *:DIALOG:ccol:init:*:{
  var %i = 0
  while (%i < $chan(0)) {
    inc %i 1
    if ($me isop $chan(%i))  || ($me ishop $chan(%i)) {
      did -a $dname 1 $chan(%i)
    }
  }
  did -b $dname 4-10
}
on *:DIALOG:ccol:sclick:1:{
  var %i = 0
  did -r $dname 2
  while (%i < $nick($did($dname,1).seltext,0)) {
    inc %i 1
    if ($nick($did($dname,1).seltext,%i) != $me) {
      if ($nick($did($dname,1).seltext,%i) isreg $did($dname,1).seltext) {
        did -a $dname 2 $nick($did($dname,1).seltext,%i)
      }
      elseif ($nick($did($dname,1).seltext,%i) ishop $did($dname,1).seltext) {
        did -a $dname 2 % $+ $nick($did($dname,1).seltext,%i)
      }
      elseif ($nick($did($dname,1).seltext,%i) isop $did($dname,1).seltext) {
        did -a $dname 2 @ $+ $nick($did($dname,1).seltext,%i)
      }
      if ($nick($did($dname,1).seltext,%i) isvoice $did($dname,1).seltext) {
        did -a $dname 2 + $+ $nick($did($dname,1).seltext,%i)
      } 
    }
  }
}
on *:DIALOG:ccol:sclick:2:{
  if ($me !isop $did($dname,1).seltext) {
    did -b $dname 4
  }
  if ($me isop $did($dname,1).seltext) {
    did -e $dname 4
  }
  did -e $dname 5-10
}