Something

alias 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) 02I am currently on 04 $+ $iif(%c,%c,0) 02channels over 04 $+ $calc(%x -1) 02networks. I am an op on 04 $+ $iif(%o,%o,0) $+ 02, halfop on 04 $+ $iif(%h,%h,0) $+ 02, voiced on 04 $+ $iif(%v,%v,0) $+ 02, and a regular user on 04 $+ $iif(%r,%r,0) $+ 02. I have power over 04 $+ %po $+ 02/04 $+ %u $+ 02 (04 $+ $round($calc((%po / %u) *100),0) $+ % $+ 02) users.
  unset %u
  unset %v  
  unset %o
  unset %po
  unset %r
  unset %h
  unset %c
}