alias chanstats { 
  var %i = 1 | var %o = 0 | var %h = 0 | var %v = 0 |  var %r = 0 
  var %dispaly = $iif($1,msg $active,echo -ta) 
  while (%i <= $nick($chan,0)) { 
    if ($nick($chan,%i) isop $chan) { inc %o } 
    elseif ($nick($chan,%i) ishop $chan) { inc %h } 
    elseif ($nick($chan,%i) isvoice $chan) { inc %v } 
    elseif ($nick($chan,%i) ISREG $chan) { inc %r } 
    inc %i 
  } 
  %dispaly $c1(There is) $c2(%o $+($chr(40),$round($calc(%o / %i *100),d),$chr(37),$chr(41)))) $c1(opped people,) $c2(%h $+($chr(40),$round($calc(%h / %i *100),d),$chr(37),$chr(41))))) $c1(hopped,) $c2(%v $+($chr(40),$round($calc(%v / %i *100),d),$chr(37),$chr(41))))) $c1(voices,) $c2(%r  $+($chr(40),$round($calc(%r / %i *100),d),$chr(37),$chr(41))))) $c1(Reg, and) $c2(%i) $c1(Total users on) $c2($chan) 
} 
alias c1 { return $+($chr(3),13,$1-) } 
alias c2 { return $+($chr(3),09,$1-) }