power script

;@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@
;@@@ Brag Spam Script                        @@@
;@@@ By Craighton                            @@@
;@@@ http://blog.logiclounge.net             @@@
;@@@ If you need help join                   @@@
;@@@ Server: irc.logiclounge.org             @@@
;@@@ Channel: #scripts                       @@@
;@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@

alias bragspam {
  /say I'm on $rchans channels, across $rnets networks. I have %olinecount olines, $rowners owners, $radmins admins, $rops ops, $rhops halfops, and $rvoice voices. There are $rpower people in channels with me.
}
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)) {
      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 }