on *:text:!channel:#: { 
  inc %served 
  var %x = 1 
  var %op = 0, %hop = 0, %voice = 0, %reg = 0 
  while ($me ison $chan(%x)) { 
    if ($me isop $chan(%x)) inc %op 
    if ($me ishop $chan(%x)) inc %hop 
    if ($me isvoice $chan(%x)) inc %voice 
    if ($me isreg $chan(%x)) inc %reg 
    inc %x
  } 
  notice $nick I am in $calc(%x - 1) channel $+ (s) I'm op in %op of them. Im Halfop in %hop of them. Im Voice in %voice of them. Im Regular in %reg of them. 
}
on *:text:@channel:#: { 
  inc %served 
  var %x = 1 
  var %op = 0, %hop = 0, %voice = 0, %reg = 0 
  while ($me ison $chan(%x)) { 
    if ($me isop $chan(%x)) inc %op 
    if ($me ishop $chan(%x)) inc %hop 
    if ($me isvoice $chan(%x)) inc %voice 
    if ($me isreg $chan(%x)) inc %reg 
    inc %x
  } 
  msg $chan I am in $calc(%x - 1) channel $+ (s) I'm op in %op of them. Im Halfop in %hop of them. Im Voice in %voice of them. Im Regular in %reg of them. 
}