scoresort {
var %i = 1
write -c sc.txt
while ($hget(scores,0).item >= %i) { write -c sc.txt $read(sc.txt,1) $+ $hget(scores,%i).data $hget(scores,%i).item $+ , | inc %i }
var %b = $sorttok($read(sc.txt,1),44,rn)
hfree scores
hmake scores
var %c = 1
while (%c <= $numtok(%b,44)) { hadd scores $gettok($gettok(%b,%c,44),2,32) $gettok($gettok(%b,%c,44),1,32) | inc %c }
}