Someone

on *:text:-hangman top5:#: {
  /sortit
}

alias sortit {
  var %a = 0
  while (%a < $ini(hangman.ini,scores,0)) {
    inc %a
    var %l = $readini(hangman.ini,scores,$ini(hangman.ini,scores,%a))
    if (%a <= 5) var %line = %line %l $+ : $+ $ini(hangman.ini,scores,%a)
    else {
      var %c = 1
      while ($gettok(%line,%c,32)) {
        var %currentToken = $v1
        if (%l >= $gettok(%currentToken,1,$asc(:))) { var %line = $instok(%line,$+(%l,:,$ini(hangman.ini,scores,%a)),%c,32) | break }
        inc %c
      }
      var %line = $gettok(%line,1-5,32)
    }
    if (%a == 5) var %line = $sorttok(%line,32,nr)
  }
  var %a = 0, %c = %line 
  while (%a < $numtok(%c,32)) { inc %a | var %line = %line $sorttok($gettok(%c,%a,32),$asc(:),r) } 
  notice $nick $replace(%line,:,$chr(40),$chr(32),$+($chr(41),$chr(32))) $+ )
}