on *:TEXT:!status:#: {
  var %x = 1
  var %opin = 0
  var %voicein = 0
  var %hopin = 0
  var %regin = 0
  while ($chan(%x)) {
    var %chan = $v1
    elseif ($me isop %chan) {
      inc %opin
      goto NextChannel
    }
    elseif ($me ishop %chan) {
      inc %hopin
      goto NextChannel
    }
    elseif ($me isvoice %chan) {
      inc %voicein
       goto NextChannel
    }
    else {
      inc %regin
      goto NextChannel
    }
    :NextChannel
    inc %x
  }

  .msg $chan I have 4 $+ Op 1 $+ in 12 $+ %opin 1 $+ chan's, 4 $+ Hop 1 $+ in 12 $+ %hopin 1 $+ chan's, 4 $+ Voice 1 $+ in 12 $+ %voicein 1 $+ chan's, 4 $+ Reg 1 $+ in 12 $+ %regin 1 $+ chan's
}