sortArray(array, key := "", desc := 1, string := 0)
{
	str := "", d1 := Chr(1), d2 := Chr(2)
	for k, v in array
		str .= (str = "" ? "" : d1) . (key ? v[key] : v) . d2 . k

	Sort, str, % (desc ? "R" : "") (string ? "" : "N") "D" . d1
	newArr := []
	Loop, parse, str, % d1
		newArr.Push(array[ RegExReplace(A_LoopField, ".+" . d2) ])
	return newArr
}

array := [13, 4, 1, 58, 25]

SortArray(Array, Order := "A")
{
	;Order A: Ascending, D: Descending, R: Reverse
	MaxIndex := ObjMaxIndex(Array)
	If (Order == "R")
	{
		count := 0
		Loop, % MaxIndex
			ObjInsert(Array, ObjRemove(Array, MaxIndex - count++))
		Return
	}
	Partitions := "|" ObjMinIndex(Array) "," MaxIndex
	Loop
	{
		comma := InStr(this_partition := SubStr(Partitions, InStr(Partitions, "|", False, 0)+1), ",")
		spos := pivot := SubStr(this_partition, 1, comma-1) , epos := SubStr(this_partition, comma+1)
		if (Order == "A")
		{
			Loop, % epos - spos
			{
				if (Array[pivot] > Array[A_Index+spos])
					ObjInsert(Array, pivot++, ObjRemove(Array, A_Index+spos))
			}
		}
		else
		{
			Loop, % epos - spos
			{
				if (Array[pivot] < Array[A_Index+spos])
					ObjInsert(Array, pivot++, ObjRemove(Array, A_Index+spos))
			}
		}
		Partitions := SubStr(Partitions, 1, InStr(Partitions, "|", False, 0)-1)
		if (pivot - spos) > 1    ;if more than one elements
			Partitions .= "|" spos "," pivot-1        ;the left partition
		if (epos - pivot) > 1    ;if more than one elements
			Partitions .= "|" pivot+1 "," epos        ;the right partition
	}
	Until !Partitions
}

arr := [ {id: 43, isAFK: 1, nick: "Thiago_Montesdeoca", rankNum:  2}
       , {id: 40, isAFK: 0, nick: "kukumba"           , rankNum: 10}
       , {id:  5, isAFK: 1, nick: "blackboss"         , rankNum:  3} ]
key := "rankNum"

str := "", d1 := Chr(1), d2 := Chr(2)
for k, v in arr
   str .= (str = "" ? "" : d1) . v[key] . d2 . k

Sort, str, % "D" . d1
newArr := []
Loop, parse, str, % d1
   newArr.Push(arr[ RegExReplace(A_LoopField, ".+" . d2) ])

for k, v in newArr
   MsgBox, % v.nick

Sort, str, RD%d%

Sort, str, % "D" .d "R"
Sort, str, % "D" .d " R"
Sort, str, % "RD" .d
Sort, str, % "R D" .d

arr := [ {id: 43, isAFK: 1, nick: "Thiago_Montesdeoca", rankNum:  2}
       , {id: 40, isAFK: 0, nick: "kukumba"           , rankNum: 10}
       , {id:  5, isAFK: 1, nick: "blackboss"         , rankNum:  3} ]
key := "rankNum"

str := "", d := Chr(1)
for k, v in arr
   str .= (str = "" ? "" : d) . v[key] . "~" . k

Sort, str, % "D" . d
newArr := []
Loop, parse, str, % d
   newArr.Push(arr[ RegExReplace(A_LoopField, ".+~") ])

for k, v in newArr
   MsgBox, % v.nick