My version of a power script, technically it's not accurate since you don't have power over ~ if you are @ but hey! it gets the idea accross

/power

alias power {
  if ($chan) {
    var %cid = $cid
    var %x.servers = 1, %t.chans = 0, %t.power = 0, %t.max = 0
    while (%x.servers <= $scon(0)) {
      scid $scon(%x.servers)
      var %x.chans = 1
      inc %t.chans $chan(0)
      while (%x.chans <= $chan(0)) {   
        inc %t.max $nick($chan(%x.chans),0)
        if ($me isop $chan(%x.chans)) {
          inc %t.power $nick($chan(%x.chans),0)
        }
        inc %x.chans
      }
      inc %x.servers
    }
    scid %cid
    describe $active is on [4 %t.chans ] channels, over [4 $scon(0) ] server $+ $iif($scon > 1,s,) $+ , and have power over [4 %t.power /4 %t.max ( $+ $calc((%t.power / %t.max) * 100) $+ 4% $+ ) ]
  }
  else {
    echo -a You must be in an active channel
  }
}