Angelina's status script

ON *:TEXT:!status:#:{ 
  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 
}