Mine

alias power {
  var %a = 1,%nets = 0,%ops = 0,%halfops = 0,%voiced = 0,%normal = 0,%control = 0,%total = 0,%totalchans = 0
  while ($scon(0) >= %a) {
    scon %a
    if ($status == connected) {
      inc %nets
      var %chans $comchan($me,0)
      inc %totalchans %chans
      var %b = 1
      while (%chans >= %b) {
        if ($me isreg $comchan($me,%b)) inc %normal
        elseif ($me isop $comchan($me,%b)) inc %ops
        elseif ($me ishop $comchan($me,%b)) inc %halfops
        elseif ($me isvoice $comchan($me,%b)) inc %voiced
        var %c = 1
        ;nicks in each channel
        while (%c <= $nick($comchan($me,%b),%c)) {
          inc %total
          var %curchan = $comchan($me,%b)
          if ($me isreg %curchan) { inc %total $nick($comchan($me,%b),0) | break }
          elseif ($nick(%curchan,%c) ishop %curchan) {
            if ($!me isop %curchan) inc %control
          }
          elseif ($nick(%curchan,%c) isvoice %curchan) || ($nick(%curchan,%c) isreg %curchan) {
            if ($me isop %curchan) || ($me ishop %curchan) inc %control
          }
          inc %c
        }
        inc %b
      }
    }
    inc %a
  }
  scon -r
  var %msg = 14I am currently in04  $+ $p.c(%totalchans) $+  14channels across04  $+ $p.c(%nets) $+  14network(s). 14I am04 Oped 14in04  $+ $p.c(%ops) $+  14channels, 07Halfoped 14in07  $+ $p.c(%halfops) $+  14channels, $&
    12Voiced 14in12  $+ $p.c(%voiced) $+  14channels, 14and a 10Regular 14user in10  $+ $p.c(%normal) $+  14channels. 14I control04  $+ $p.c($+(%control,/,%total)) $+  $+ , 14or04  $+ $p.c($round($calc(%control / %total *100),2) $+ %) $+  14of users.
  msg $active $iif(c !isincs $chan($active).mode,%msg,$strip(%msg))
}
alias -l p.c return $+(,$1-,)