on *:TEXT:!status:#: {
  var %x = 1
  var %v = 0
  var %hop = 0
  var %op = 0
  var %r = 0
  while ($chan(%x)) {
var %chan = $v1
    if ($me isop %chan) { inc %op | goto Next }
    if ($me ishop %chan) { inc %hop | goto Next }
    if ($me isvoice %chan) { inc %v | goto Next }
    else { inc %r | goto Next }
    :Next
    inc %x
  }
  .msg $chan I Am, Op In: %op Chans, Halfop In: %hop Chans, Voiced In: %v Chans And Reg In: %r Chans. I Am In A Total Of %x Channels 
}