Untitled

/power {
  %p.scid = $scid(0)
  %p.u = 0
  %p.t.c = 0
  %p.o.c = 0
  %p.u.p = 0
  while (%p.scid) {
    scid $scon(%p.scid)
    %p.chans = $chan(0)
    inc %p.t.c $chan(0)
    while (%p.chans) {
      inc %p.u $calc($nick($chan(%p.chans),0) -1)
      if ($me isop $chan(%p.chans)) {
        inc %p.o.c
        inc %p.u.p $calc($nick($chan(%p.chans),0) -1)
      }
      dec %p.chans
    }
    dec %p.scid
  }
  scid -r
  msg $chan I'm considered uber in $+(%p.o.c,/,%p.t.c) channels on $scid(0) networks, I own approximately $+(%p.u.p,/,%p.u) neeblets
}