/power { 
  set %Temp.Power.Ops 0
  set %Temp.Power.Halfops 0
  set %Temp.Power.Voices 0
  set %Temp.Power.Networks $scid(0)
  while ( %Temp.Power.Networks > 0 ) { 
    /scon %Temp.Power.Networks /set %Temp.Power.Cur.Channels $!chan(0)
    /scon %Temp.Power.Networks /inc %Temp.Power.Cur.Channels $!chan(0)
    while ( %Temp.Power.Cur.Channels > 0 ) {
      /scon %Temp.Power.Networks /if ( $!me isop $!chan(%Temp.Power.Cur.Channels) ) { inc %Temp.Power.Ops | inc %Temp.Power.Over $calc( $nick($!chan(%Temp.Power.Cur.Channels),0) - $nick($!chan(%Temp.Power.Cur.Channels),0,0) ) | inc %Temp.Power.People $nick($!chan(%Temp.Power.Cur.Channels),0) }
      /scon %Temp.Power.Networks /elseif ( $!me ishop $!chan(%Temp.Power.Cur.Channels) ) { inc %Temp.Power.Halfops | inc %Temp.Power.Over $calc( $nick($!chan(%Temp.Power.Cur.Channels),0,v) + $nick($!chan(%Temp.Power.Cur.Channels),0,r) ) | inc %Temp.Power.People $nick($!chan(%Temp.Power.Cur.Channels),0) }
      /scon %Temp.Power.Networks /elseif ( $!me isvoice $!chan(%Temp.Power.Cur.Channels) ) { inc %Temp.Power.Voice | inc %Temp.Power.Over $nick($!chan(%Temp.Power.Cur.Channels),0,r) | inc %Temp.Power.People $nick($!chan(%Temp.Power.Cur.Channels),0) }
      /dec %Temp.Power.Cur.Channels
    }
    /dec %Temp.Power.Networks
  }
  /echo 14[15»12Networks14:12  $+ $scid(0) $+ 15«14][15»12Channels14:12  $+ %Temp.Power.All.Channels $+  15«14][15»4Ops14:4  $+ %Temp.Power.Ops $+ 15«14][15»7HalfOps14:7  $+ %Temp.Power.Halfops $+ 15«14][15»2Voices14:2  $+ %Temp.Power.Voice $+ 15«14][15»12Power14:12  $+ %Temp.Power.Over $+14/12 $+ %Temp.Power.People $+ 15(12 $+ $round( $calc( %Temp.Power.Over / %Temp.Power.People * 100 ) ,2) $+ 1%15)15«14] 
  /unset %Temp.Power*
}