alias power {
  set %Power1 0
  set %Power2 $comchan($me,0)
  set %opchans 0
  set %halfopchans 0
  set %voicechans 0
  set %total $comchan($me,0)
  goto start
  :start
  while (%Power1 < %Power2) {
    inc %Power1 1
    if ($comchan($me,%Power1).op == $true) { inc %opchans 1 | goto start }
    if ($comchan($me,%Power1).help == $true) { inc %halfopchans 1 | goto start }
    if ($comchan($me,%Power1).voice == $true) { inc %voicechans 1 | goto start }
  }
  unset %power.*
  %power.n = 0
  while (%power.n < $chan(0)) {
    inc %power.n
    inc %power.people $nick($chan(%power.n),0)
    if ($me isop $chan(%power.n)) { 
      inc %power.chan 
      %power.ppl = $calc(%power.ppl + $nick($chan(%power.n),0))
    }
  }
  %power.ppl = $calc(%power.ppl - 2)
  %power.people = $calc(%power.people - 2)
  msg $active 10I am 4Operator 10(4@10) status in4 %opchans 10channels 3.:.:.10  I am 7Halfoperator 10(7%10) in7 %halfopchans 10channels 3.:.:.10  I am 12Voiced 10(12+10) in12 %voicechans 10channels 3.:.:.10  I have control over3 %power.ppl 10out of3 %power.people 10people3 ( $+ $round($calc((%power.ppl / %power.people) * 100),1) $+ $chr(37) $+ ) $+ 
  unset %opchans |  unset %halfopchans |  unset %voicechans |  unset %Power1 |  unset %Power2
}