alias power {
  var %tc = 0,%tu = 0,%oc = 0,%po = 0,%i = $scid(0),%hc = 0,%vc = 0,%else = 0
  while (%i) {
    scid $scon(%i)
    if ($status == connected) {
      var %c = $chan(0)
      while (%c) {
        inc %tc
        inc %tu $calc($nick($chan(%c),0) -1)
        if ($me isop $chan(%c)) {
          inc %oc
          inc %po $calc($nick($chan(%c),0) -1)
        }
        elseif ($me ishop $chan(%c)) {
          inc %hc
          ;inc %po $calc($nick($chan(%c),0) -1)
        }
        elseif ($me isvoice $chan(%c)) {
          inc %vc
          ;inc %po $calc($nick($chan(%c),0) -1)
        }
        else {
          inc %else
          ;inc %po $calc($nick($chan(%c),0) -1)
        }
        dec %c
      }
    }
    dec %i
  }
  scid -r
  if (!$isid) {
    if ($1 == -e) { echo -a $gtd(Stats) you're opped in $sd($+(%oc,/,%tc)) channels on $sd($scid(0)) $iif($scid(0) == 1,network.,networks.) You have the power over $sd($+(%po,/,%tu)) users. }
    else { say [2Power] Operator: $+(12[,%oc,/,%tc,12]) Halfop $+(12[,%hc,/,%tc,12]) Voice: $+(12[,%vc,/,%tc,12]) Networks: $+(12[,$scid(0),12]) Power: $+(12[,%po,/,%tu,12])$+ users. }
  }
  else { return %po }
}