Mine

alias power { 
  set %power.chan.counter 0 
  set %power.powerover 0 
  set %power.opchans 0 
  set %power.totalnetworks $scon(0)
  set %power.totalnetworks.count 0
  set %power.total.channels 0
  set %power.max.chans 0 
  set %power.oper 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
  if (o isin $usermode) { inc %power.oper }
  :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.voicechans
  }
  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 $active 15,01 $+ I am OP'd in 04(00 $+ %power.opchans $+ 14/00 $+ %power.total.channels $+ 04) 15halfoped'd in 04(00 $+ %power.hopchans $+ 14/00 $+ %power.total.channels $+ 04) 15Voiced'd in 04(00 $+ %power.voicechans $+ 14/00 $+ %power.total.channels $+ 04) 15 $+ %power.chanword on 04(00 $+ %power.totalnetworks $+ 04) 15 $+ %power.netword $+ . I am 08IRCOP15 on 04(00 $+ %power.oper $+ 04)15 of those networks. 15 I own 04(00 $+ %power.powerover $+ 4)15 lucky people
  echo -a OMG, Joe > $me - hahahahahaha. GINGER FTW!
  unset %power.*
}