Mine

;; Power Snippet By ???
;; /power [-e] will show your power
alias power {
  var %y,%c,%z,%x = 0,%chn,%o,%cid = $activecid
  while %x < $scon(0) { 
    inc %x 
    %c = 0 
    scon %x 
    inc %chn $chan(0) 
    while %c < $chan(0) {
      inc %c 
      if $me isop $chan(%c) {
        inc %o 
        inc %y $nick($chan(%c),0) 
      } 
      inc %z $nick($chan(%c),0) 
    }
  }
  %x = 0 
  while %x < $scon(0) { inc %x | .scon %x | if $window(status window).cid == %cid { %cid = %x } }
  scon %cid 
  if $1 == -e || $active == status window || $left($active,1) == @ { 
    echo $color(info) -a You have op in %o $+ / $+ %chn Channels and Control %y $+ / $+ %z users on $scon(0) Network $+ $iif($scon(0) != 1,s) ( $+ $percent(%y,%z) $+ )
  }
  else { msg $active I have op in %o $+ / $+ %chn Channels and Control %y $+ / $+ %z users on $scon(0) Network $+ $iif($scon(0) != 1,s) ( $+ $percent(%y,%z) $+ ) }
}
alias percent { if $1 && $2 { return $round($calc($1 * 100 / $2),$iif($3,$3,1)) $+ % } }