on $*:text:/^[!@.]ctop10/Si:#: {
  $topten
$iif($left($1,1) == @,msg $chan,notice $nick) 14(10TopTen14): The top 10 players are: $var(%top*) }

alias topten {
  var %xx = 1
  while (%xx <= 10) {
    set %top $+ $var(%xx) $remove($gettok($rank($var(%xx)),1,32),$chr(37) $+ cookies))
  }
  inc %xx
}