alias power {
  /say 4,1 I'm on $rchans channels, 9,1 across $rnets networks. 6,1 I have %olinecount olines, 8,1 $rowners owners, 12,1 $radmins admins, 11,1 $rops ops, 7,1 $rhops halfops, 3,1 and $rvoice voices. 1,0 I have $rpower noobs under my control.
}
alias rchans {
  set %total 0
  set %counter 1
  while (%counter <= $scon(0)) {
    /scon %counter
    /set %chans $chan(0)
    set %total $calc(%total + %chans)
    inc %counter
  }
  return %total
}
alias rops {
  set %ops 0
  set %counter 1
  while (%counter <= $scon(0)) {
    /scon %counter
    set %scounter 1
    while (%scounter <= $chan(0)) {
      if ($me isop $chan(%scounter)) inc %ops
      inc %scounter
    }
    inc %counter
  }
  return %ops
}
alias rpower {
  set %peeps 0
  set %counter 1
  while (%counter <= $scon(0)) {
    /scon %counter
    set %scounter 1
    while (%scounter <= $chan(0)) {
      if ($me isop $chan(%scounter)) set %peeps $calc(%peeps + $nick($chan(%scounter),0) - 1)
      if ($me ishop $chan(%scounter)) set %peeps $calc(%peeps + $nick($chan(%scounter),0) - 1)
      inc %scounter
    }
    inc %counter
  }
  return %peeps
}
alias rowners {
  set %owners 0
  set %counter 1
  while (%counter <= $scon(0)) {
    /scon %counter
    set %scounter 1
    while (%scounter <= $chan(0)) {
      if ($nick($chan(%scounter),$me,q)) inc %owners
      inc %scounter
    }
    inc %counter
  }
  return %owners
}
alias radmins {
  set %admins 0
  set %counter 1
  while (%counter <= $scon(0)) {
    scon %counter
    set %scounter 1
    while (%scounter <= $chan(0)) {
      if ($nick($chan(%scounter),$me,a) == 1) { inc %admins 1 }
      inc %scounter
    }
    inc %counter
  }
  return %admins
}
alias rhops {
  set %hops 0
  set %counter 1
  while (%counter <= $scon(0)) {
    /scon %counter
    set %scounter 1
    while (%scounter <= $chan(0)) {
      if ($me ishop $chan(%scounter)) inc %hops
      inc %scounter
    }
    inc %counter
  }
  return %hops
}
alias rvoice {
  set %voice 0
  set %counter 1
  while (%counter <= $scon(0)) {
    /scon %counter
    set %scounter 1
    while (%scounter <= $chan(0)) {
      if ($me isvoice $chan(%scounter)) inc %voice
      inc %scounter
    }
    inc %counter
  }
  return %voice
}
alias rnets {
  return $scon(0)
}
raw 381:*:{
  set %curbragwork ¬ $+ $network $+ ¬
  if (%curbragwork !isin %countednets) {
    set %countednets %countednets $+ %curbragwork
    inc %olinecount
  }
}
on *:start: { unset %countednets | set %olinecount 0 }