when you enter "/bragspam" into you mIRC consol it will calculate how many channels you are on and it will figure out what your status is in each channel and will report the totals in the channel. Really good 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. I have abusive power over $rpower people.
}
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 }