Anonymous

alias ccol {
  if ($dialog(ccol) == $null) {
    dialog -ma ccol ccol
  }
  else {
    dialog -v ccol ccol
  }
}
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:sclick:9:{
  /topic $did($dname,1).seltext $$?="New Topic?"
}
on *:DIALOG:ccol:sclick:4:{
  if ($remove($did($dname,2).seltext,@%+) isop $did($dname,1).seltext) {
    /mode $did($dname,1).seltext -o $remove($did($dname,2).seltext,@%+)
  }
  else {
    /mode $did($dname,1).seltext +o $remove($did($dname,2).seltext,@%+)
  }
}
on *:DIALOG:ccol:sclick:7:{
  /kick $did($dname,1).seltext $remove($did($dname,2).seltext
}
on *:DIALOG:ccol:sclick:8:{
  /ban -k $did($dname,1).seltext $did($dname,2).seltext 3
}
on *:DIALOG:ccol:sclick:5:{
  if ($remove($did($dname,2).seltext,@%+) ishop $did($dname,1).seltext) {
    /mode $did($dname,1).seltext -h $remove($did($dname,2).seltext,@%+)
  }
  else {
    /mode $did($dname,1).seltext +h $remove($did($dname,2).seltext,@%+)
  }
}
on *:DIALOG:ccol:sclick:6:{
  if ($remove($did($dname,2).seltext,@%+) isvoice $did($dname,1).seltext) {
    /mode $did($dname,1).seltext -v $remove($did($dname,2).seltext,@%+)
  }
  else {
    /mode $did($dname,1).seltext +v $remove($did($dname,2).seltext,@%+)
  }
}
on *:DIALOG:ccol:sclick:10:{
  set %chan $did($dname,1).seltext
  cmod
}
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)
      } 
    }
  }
  if ($me ishop $did($dname,1).seltext) ||  ($me isop $did($dname,1).seltext) {
    did -e $dname 9,10
    did -b $dname 4-8
  }
}
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-9
}

;-----------
;---MODES---
;-----------
alias cmod {
  if ($dialog(cmod) == $null) {
    dialog -ma cmod cmod
  }
  else {
    dialog -v cmod cmod
  }
}

dialog cmod {
  title "Channel Modes"
  size -1 -1 139 107
  option dbu
  button "Block Colors", 1, 6 8 37 12
  button "Strip Colors", 2, 6 24 37 12
  button "Invite Only", 3, 55 8 37 12
  button "Password", 4, 56 62 37 12
  button "Limit Users", 5, 95 77 37 12
  button "Registered Nicks Only", 6, 62 91 63 12
  button "Swear Filter", 7, 95 62 37 12
  button "Lock Topic", 8, 55 24 37 12
  button "Moderate", 9, 56 77 37 12
  button "Secret Chan", 10, 94 8 37 12
  button "Private Chan", 11, 94 24 37 12
  box "Color Controls", 12, 2 1 45 37
  button "No External Messages", 13, 62 39 63 12
  box "Misc. Controls", 14, 51 1 87 53
  box "Limiting Controls", 15, 51 55 87 51
  button "Close", 16, 6 92 37 12, cancel
  list 17, 2 40 45 50, size
}
on *:DIALOG:cmod:close:*:{
  unset %chan
}
on *:DIALOG:cmod:sclick:1:{
  if (c isincs $gettok($chan(%chan).mode,1,32)) {
    mode %chan -c
  }
  else {
    mode %chan +c
  }
}