Pasted

# /power alias 
# Say in the active window on how many networks and channels you are in total
# Unknown author
#############################################################################
 
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
  }
 msg $active I'm in a total of $calc(%o + %h + %v + %r) $iif($calc(%o + %h + %v + %r) == 1,channel,channels) over $calc(%x - 1) $iif($calc(%x - 1) == 1,network,networks)
}