PowerDisplay

power {
  var %x = 1, %y = 0, %o = 0, %h = 0, %v = 0, %r = 0, %n = 0, %t = 0, %c = 0, %oo = 0, %hh = 0, %my_cid $cid
  while ($scon(%x)) {
    scid $scon(%x)
    set %i 1
    while ($chan(%i)) {
      inc %t $nick($chan(%i),0)
      if ($me isop $chan(%i))          { inc %o | inc %n $nick($chan(%i),0,a,o)  | inc %hh $nick($chan(%i),0,o) }
      elseif ($me ishop $chan(%i))     { inc %h | inc %n $nick($chan(%i),0,a,oh) | inc %hh $nick($chan(%i),0,h,o)   | inc %oo $nick($chan(%i),0,o) }
      elseif ( $me isvoice $chan(%i) ) { inc %v | inc %n $nick($chan(%i),0,r)    | inc %hh $nick($chan(%i),0,v,ho)  | inc %oo $nick($chan(%i),0,oh) }
      elseif ($me isreg $chan(%i))     { inc %r |                                  inc %hh $nick($chan(%i),0,r,ohv) | inc %oo $nick($chan(%i),0,a,r) }
      inc %y | inc %i | inc %c
    }
    inc %x
  }
  scid %my_cid
  echo -s You are opped in04 %o  $+ $iif(%o > 1,channels,channel) ( $+ 12 $+ $ceil($calc(%o / %c * 100)) $+ 12%), $&
    Halfopped on04 %h ( $+ 12 $+ $ceil($calc(%h / %c * 100)) $+ 12%), $&
    Voiced on04 %v ( $+ 12 $+ $ceil($calc(%v / %c * 100)) $+ 12%), $&
    And regular on04 %r ( $+ 12 $+ $ceil($calc(%r / %c * 100)) $+ 12%). $&
    On a total of04 %c  $+ $iif(%c > 1,Channels,Channel) on04 $scon(0)  $+ $iif($scon(0) > 1,Networks,Network) $+ .
  echo -s You have rank over 04 %n  $+ $iif(%n > 1,users,user), $&
    is equal to 04 %hh  $+ $iif(%o > 1,users,user)  $&
    and has 04 %oo  $+ $iif(%o > 1,users,user) above
}