alias power {
  var %chans = $chan(0), %oppedin, %users
  while (%chans) {
    if ($me isop $chan(%chans)) inc %oppedin
    %users = $calc(%users + ($nick($chan(%chans),0) - 1))
    dec %chans
  }
  msg $active Opped in: %oppedin $+ / $+ $chan(0) Channels - Controlling: %users Users
}

menu channel {
  power:power
}