Stuff

data { 
  var %cid = $cid
  var %x = 1
  set %u 0
  while (%x <= $scon(0)) {
    var %y = 1
    scon %x
    while (%y <= $chan(0)) {
      set %u $calc(%u + $nick($chan(%y),0))
      if ($me isop $chan(%y)) {
        inc %o 
        set %po $calc(%po + $nick($chan(%y),0))
      }
      if ($me ishop $chan(%y)) { 
        inc %h 
        var %f = 1
        while (%f <= $nick($chan(%y),0)) {
          if (($nick($chan(%y),%f) isreg $chan(%y)) || ($nick($chan(%y),%f) isvoice $chan(%y))) {
            inc %po
          }
          inc %f
        }
      }
      if ($me isvoice $chan(%y)) { 
        inc %v 
        var %f = 1
        while (%f <= $nick($chan(%y),0)) {
          if ($nick($chan(%y),%f) isreg $chan(%y)) {
            inc %po
          }
          inc %f
        }
      }
      elseif ($me isreg $chan(%y)) {  inc %r }
      inc %y
      set %users 
    }
    set %c $calc(%c + $chan(0))
    inc %x
  }
  scid %cid
  $iif($isid == $true,return,msg $active) 6I am currently on 13 $+ $iif(%c,%c,0) 6channels over 13 $+ $calc(%x -1) 6networks. I am an op on 13 $+ $iif(%o,%o,0) $+ 6, halfop on 13 $+ $iif(%h,%h,0) $+ 6, voiced on 13 $+ $iif(%v,%v,0) $+ 6, and a regular user on 13 $+ $iif(%r,%r,0) $+ 6. I have power over 13 $+ %po $+ 6/13 $+ %u $+ 6 (13 $+ $round($calc((%po / %u) *100),0) $+ % $+ 6) users.
  unset %u
  unset %v  
  unset %o
  unset %po
  unset %r
  unset %h
  unset %c
}