Someone

alias power {
  set %i 1 | set %power 0 | set %power.total 0 | set %power.op 0
  while (%i <= $chan(0)) {
    if ($me isop $chan(%i)) {
      inc %power $nick($chan(%i),0)
      inc %power.op
    }
    inc %power.total $nick($chan(%i),0)
    inc %i
  }
  set %power.p $calc((%power / %power.total) * 100) | set %power.p1 $calc((%power.op / $chan(0)) * 100)
  set %bar.0 $chr(91) | set %i 1 | set %x $round($calc(%power.p / 10),0)
  while (%i <= %x) {
    set %bar.0 %bar.0 $+ 4|
    inc %i
  }
  set %x $calc(10 - %x) | set %i 0
  while (%i < %x) {
    set %bar.0 %bar.0 $+ 15|
    inc %i
  }
  set %bar.0 %bar.0 $+  $+ $chr(93) | set %bar.1 $chr(91)
  set %i 1 | set %x $round($calc(%power.p1 / 10),0)
  while (%i <= %x) {
    set %bar.1 %bar.1 $+ 4|
    inc %i
  }
  set %x $calc(10 - %x) | set %i 0
  while (%i < %x) {
    set %bar.1 %bar.1 $+ 15|
    inc %i
  }
  set %bar.1 %bar.1 $+  $+ $chr(93)
  msg $active Power: %power $+ / $+ %power.total ( $+ $ceil(%power.p) $+ $chr(37) $+ ) %bar.0 users. Ops: %power.op $+ / $+ $chan(0) ( $+ $ceil(%power.p1) $+ $chr(37) $+ ) %bar.1 channels.
  unset %power.* | unset %bar.*
}