Something

alias stat {
  var %i 1,%t $chan(0),%opchan 0,%hopchan 0,%vchan 0,%rchan 0
  while (%i <= %t) {
    if ($me isop $chan(%i)) inc %opchan 
    elseif ($me ishop $chan(%i)) inc %hopchan
    elseif ($me isvoice $chan(%i)) inc %vchan
    else inc %rchan
    inc %i
  }
  msg $chan I Am, Op In: %opchan Chans, Halfop In: %hopchan Chans, Voiced In: %vchan Chans And Reg In: %rchan Chans. I Am In A Total Of $calc(%opchan + %vchan + %hopchan + %rchan) Channels.
}