on *:TEXT:!status:#: {
  var %x = 1
  var %v = 0
  var %hop = 0
  var %op = 0
  var %r = 0
  while ($chan(%x)) {
    if ($me isop $v1) { inc %op | goto Next }
    if ($me ishop $v1) { inc %hop | goto Next }
    if ($me isvoice $v1) { 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 
}