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

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


;================ My ranking alias

alias rank {
  window -h @list1
  window -h @list2
  var %aa 1
  while ($var(%cookies*,%aa)) {
    aline -a @list1 $($v1,2) $right($v1,100)
    inc %aa
  }
  filter -wwteuc 1 1 @list1 @list2
  var %bb $iif($1 isnum,$1,$fline(@list2,*%cookies $+ $1)), %rr = $token($line(@list2,%bb),2,32) $token($line(@list2,%bb),1,32) %bb
  close -@ @list*
  return %rr
}