alias power {
  cco
  power2
}
alias cco {
  if ($me isop $1) || ($me ishop $1) || (o isincs $usermode) || ($pos($prefix,$left($nick($1,$me).pnick,1)) < $pos($prefix,@)) { return 1 }
  return 0
}
alias power2 {
  var %tc = 0,%tu = 0,%oc = 0,%po = 0,%i = $scid(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 ($cco($chan(%c))) {
          inc %oc
          inc %po $calc($nick($chan(%c),0) -1)
        }
        dec %c
      }
    }
    dec %i
  }
  scid -r
msg $active I have ops in %oc $+ / $+ %tc channels on $iif($scid(0) == 1,1 network,$scid(0) networks) $+ . I have the power over %po $+ / $+ %tu users. }
else { return %po }