It's just a power script that gets power from all servers.

alias power {
  var %x 1,%r 0,%v 0,%h 0,%o 0
  while ($scon(%x)) {
    scon %x
    var %i 1
    while ($chan(%i)) {
      if ($me isop $chan(%i)) { inc %o }
      elseif ($me ishop $chan(%i)) { inc %h }
      elseif ($me isvoice $chan(%i)) { inc %v }
      elseif ($me isreg $chan(%i)) { inc %r }
      inc %i
    }
    inc %x
  }
  scon -r msg $active 07I'm in a total of14 $calc(%o + %h + %v + %r) 07 $+ $iif($calc(%o + %h + %v + %r) == 1,channel,channels) 07over14 $calc(%x - 1) 07 $+ $iif($calc(%x - 1) == 1,server,servers) $+ . I'm opped14(@) 07in14 %o 07 $+ $iif(%o == 1,channel,channels) $+ 07, halfopped14(%) 07in14 %h 07 $+ $iif(%h == 1,channel,channels) $+ 07, voiced14(+) 07in14 %v 07 $+ $iif(%v == 1,channel,channels) $+ 07, and regular in14 %r 07 $+ $iif(%r == 1,channel,channels) $+ .
}
pu