power { 
  var %x = 1, %i = 1, %z = 1
  var %Owncount = 0, %Acount = 0, %Ocount = 0, %Hcount = 0, %Vcount = 0, %chancount = 0, %infcount = 0, %usercount = 0 
  while (%i <= $scon(0)) { 
    scon %i { 
      while ($chan(%x) <= $chan(0)) { 
        if ($me isop $chan(%x)) { inc %Ocount | inc %Ousercount = $nick($chan(%x),0) } 
        elseif ($me ishop $chan(%x)) { inc %Hcount | inc %Husercount = $nick($chan(%x),0) } 
        elseif ($me isvoice $chan(%x)) { inc %Vcount | inc %Vusercount = $nick($chan(%x),0) } 
        while ( %z <= $nick($chan(%x),0) ) {
          if ($nick($chan(%x),%z) == $me) {
            if ( ~ isin $nick($chan(%x),%z).pnick ) { inc %Owncount | %Ocount = $calc(%Ocount - 1) }
            elseif ( & isin $nick($chan(%x),%z).pnick ) { inc %Acount | %Ocount = $calc(%Ocount - 1) }
            inc %z
          }
          else inc %z
        }
        if ($me isop $chan(%x)) || ($me ishop $chan(%x)) inc %infcount $nick($chan(%x),0,$iif($me isop $chan(%x),rvh,rv)))        
        inc %usercount $nick($chan(%x),0) 
        inc %Chancount 
        inc %x 
        %z = 1
      } 
    } 
    inc %i 
    var %x = 1 
  } 
  scid -r 
  $iif($1 == -e,echo 14 -ga,say) 14I have: (4~14)Owner in7 %owncount $+ 14, (4&14)Admin in7 %Acount $+ 14, (4@14)Op in7 %Ocount $+ 14, $&
    (07%14)Halfop in7 %Hcount $+ 14, (11+14)Voice in7 %Vcount $+ 14, and regular in7 $&
    $calc(%chancount - %Owncount - %Acount - %Ocount - %Hcount - %Vcount) 14out of7 %chancount 14channels over7 $scid(0) 14networks. $&
    I control7 $+(%infcount,/,%usercount) 14people. 
}