Someone

on *:TEXT:!info:#: {
  /stats
}

alias stats {
  var %x $chan(0),%o 0,%h 0,%v 0,%p 0,%t 0
  while (%x) {
    if (($me isop $chan(%x)) || ($me ishop $chan(%x))) {
      inc $+(%,$iif($me isop $chan(%x),o,h)) 1
      inc %p $nick($chan(%x),0)
    }
    elseif ($me isvoice $chan(%x)) { inc %v 1 }
    inc %t $nick($chan(%x),0)
    dec %x 1
  }
  msg $active I am currently on $chan(0) channels. Of those, I am opped on $+(%o,$chr(44)) halfoped on $+(%h,$chr(44)) and voiced on $+(%v,.) I have power over $+(%p,/,%t) users.
}