Forums Scripts & Popups Filtering/sorting hashtable?

;This is here just so we can get a hash table with some data in it.
alias randomstuff {
  hfree -w randomstuff
  hmake randomstuff
  var %x = 5000
  while (%x) {
    hadd randomstuff %x %x
    dec %x
  }
}

alias sortrandomstuff {

  ;Window to sort and list the items/data.
  window -n @randomstuff
  clear @randomstuff

  ;List all the items and data in the hash table.
  noop $hfind(randomstuff,*,0,w,aline @randomstuff $1 $hget(randomstuff,$1))

  ;"u" makes it numerical sort. If you want it in descending order, add "e" flag.
  ;2 is the column and 32 is the character, it's same as with gettok.
  filter -cwwtu 2 32 @randomstuff @randomstuff

  ;Activates the window after listing's done. (You really want to hide lists/windows/whatever when listing loads of lines.)
  window -a @randomstuff
}

alias top10 {
  hsave -no points top10.txt
  filter -ffcteun 1 32 top10.txt top10.txt
  var %i = 1 | while (%i <= 10) {
    var %top10.item = $hget(points,$gettok($read(top10.txt,nt,%i),1,32)).item
    set %top10 %top10 %top10.item  ( $+ $hget(points,%top10.item) $+ )
    inc %i
  }
  echo $replace(%top10,$chr(32),$+($chr(44),$chr(32)))
  unset %top10
}

alias bottom10 {
  hsave -no points bottom10.txt
  filter -ffctun 1 32 bottom10.txt bottom10.txt
  var %i = 1 | while (%i <= 10) {
    var %bottom10.item = $hget(points,$gettok($read(bottom10.txt,nt,%i),1,32)).item
    set %bottom10 %bottom10 %bottom10.item ( $+ $hget(points,%bottom10.item) $+ )
    inc %i
  }
  echo $replace(%bottom10,$chr(32),$+($chr(44),$chr(32)))
  unset %bottom10
}

alias sortrandomstuff {
  window -h @randomstuff
  clear @randomstuff
  noop $hfind(randomstuff,*,0,w,aline @randomstuff $1 $hget(randomstuff,$1))
  filter -cwwtu 2 32 @randomstuff @randomstuff
  var %x = 1,%l
  while (%x <= 10) {

    ;$hfind formatted the lines as follows: name<space>score
    ;$1 = users name & $2 = score
    tokenize 32 $line(@randomstuff,%x)

    ;And here the magic happens.
    ;There's multiple ways to do it, and this is one of them.
    ;It separates the entries with $chr(1) which are replaced with comma and space when we're done.
    var %l = $addtok(%l,Amazing user $1 has $2 points and is ranked $ord(%x),1)
    inc %x
  }
  window -c @randomstuff

  ;Here we replace $chr(1) with whatever we want.
  echo -a $replacex(%l,$chr(1),$chr(44) $+ $chr(32))
}

/hadd -m table username points