Untitled

on $*:text:/^[!@.]top10$/Si:*: { notice $nick Top10: $top10 }

alias top10 {
  ;;$top10 returns "<top 10 ranked players>";;
  window -h @list1
  window -h @list2
  var %a 1,%b 1
  while ($var(%cash*,%a)) {
    aline -a @list1 $($v1,2) $right($v1,-5)
    inc %a
  }
  filter -wwteuc 1 1 @list1 @list2
  while (%b < 11) { var %c $line(@List2,%b),%d $addtok(%d,$+($token(%c,2,32),: $+($token(%c,1,32))),32) $+ $chr(44) | inc %b }
  timer 1 0 close -@ @list*
  return $remtok(%d,$chr(56),1,32)
}