Mine

/power { 
  var %a = 1, %b = $scon(0)
  var %networks = network $+ $iif(%b > 1,s), %chan = channel
  while %a <= %b  {
    .scon %a
    var %c = 1, %d = $chan(0)
    inc %chans %d
    if %d > 1 || %chan == channels {
      %chan = channels
    }
    %chan = $remove(%chan,$chr(32))
    while %c <= %d {
      inc %noobs $nick($chan(%c),0,r)
      inc %Op $iif($me isop $chan(%c),1,0)
      inc %hop $iif($me ishop $chan(%c),1,0)
      inc %Voice $iif($me isvoice $chan(%c),1,0)
      inc %c
    }
    inc %a
  }  

  scid -r | me is currently on  $scon(0)  networks, with hops and ops in  $calc( %hop + %Op )  of  %chans  chans. I own  %noobs  n00bs.

  unset %Op
  unset %hop
unset %chans
unset %noobs
}