Mine

alias power {
  set %power.chan.counter 0
  set %power.powerover 0
  set %power.opchans 0
  set %power.hopchans 0
  set %power.vopchans 0
  set %power.totalnetworks $scon(0)
  set %power.totalnetworks.count 0
  set %power.total.channels 0
  set %power.max.chans 0

  :connectionloop
  inc %power.totalnetworks.count
  if ( %power.totalnetworks.count > %power.totalnetworks ) { goto end }
  scon %power.totalnetworks.count
  set %power.total.channels %power.total.channels + $chan(0)
  set %power.max.chans $chan(0)
  set %power.chan.counter 0
  :loop

  if ( %power.chan.counter > %power.max.chans ) { goto connectionloop }
  set %power.chan.counter $calc( %power.chan.counter + 1 )

  if ( $me isop $chan(%power.chan.counter) ) {
    set %power.powerover %power.powerover + $nick($chan(%power.chan.counter),0)
    inc %power.opchans
  }

  if ( $me ishop $chan(%power.chan.counter) ) {
    set %power.powerover %power.powerover + $nick($chan(%power.chan.counter),0)
    inc %power.hopchans
  }

  if ( $me isvoice $chan(%power.chan.counter) ) {
    inc %power.vopchans
  }
  goto loop
  :end
  scon -r
  if ( %power.total.channels = 1 ) var %power.chanword channel
  if ( %power.total.channels > 1 ) var %power.chanword channels
  if ( %power.totalnetworks = 1 ) var %power.netword network
  if ( %power.totalnetworks > 1 ) var %power.netword different networks

  msg $chan is currently Op in %power.opchans $chr(91) $+ $round($calc((%power.opchans / %power.total.channels) *100),2) $+ % $+ $chr(93) $+ , HalfOP in %power.hopchans $chr(91) $+ $round($calc((%power.hopchans / %power.total.channels) *100),2) $+ % $+ $chr(93) $+ , and Voice in %power.vopchans $chr(91) $+ $round($calc((%power.vopchans / %power.total.channels) *100),2) $+ % $+ $chr(93) %power.chanword out of %power.total.channels on < $+ %power.totalnetworks $+ > %power.netword $+ .
  msg $chan controls < $+ %power.powerover $+ > inferior mortals.

  unset %power.*
}