alias -l _sortlist {
  tokenize 32 $1 $2
  if ($2 < $4) return 1
  elseif ($2 == $4) return 0
  else return -1
}
alias -l _sortlistwrite { !write top.txt $1- }
alias top {
  var %x = 1
  var %f = your_file.txt
  write -c top_temp.txt
  while ($read(%f,%x)) {
    ;; nickname XXXXX
    write top_temp.txt $v1
    inc %x
  }
  if ($exists(top.txt)) { write -c top.txt }
  !filter -ffkau top_temp.txt _sortlistwrite _sortlist * 
}