Description: Can be used to sort userlists, scores, various other things.


;$sortlist(name1:23 name2:2 name3:34 name4:3 name5:1 name6:44) == name6:44 name3:34 name1:23 name4:3 name2:2 name5:1
alias sortlist {
  var %x = 1, %nums = $sorttok($regsubex($1-,/\S+:/g,$null),32,rn)
  while (%x <= $numtok(%nums,32)) {
    var %num = $gettok(%nums,%x,32)
    if ($regex($1-,/\b(\S+: $+ %num $+ )\b/g)) {
      if ($regml(0) == 1) { var %text = $addtok(%text,$regml(1),32) }
      else {
        var %y = 1
        while ($regml(%y)) { if (!$istok(%text,$regml(%y),32)) { var %text = $addtok(%text,$regml(%y),32) } | inc %y }
      }
    }
    inc %x
  }
  return %text
}


Oops! You need to login or register before you can post a comment!