globals
    unit array udg_GrUnits
endglobals

function Sort takes nothing returns nothing
    local real array Life
    local boolean b = false
    local unit u
    local real lif
    local integer i = 0
    loop
        exitwhen udg_GrUnits[i] == null
        set Life[i] = GetUnitState(udg_GrUnits[i], UNIT_STATE_LIFE)
        set i = i + 1
    endloop
    set i = 0
    loop
        if udg_GrUnits[i+1] == null then            
            if b then
                set i = 0
                set b = false
            else
                exitwhen true
            endif
        endif
        if (Life[i] > Life[i+1]) then
            set u = udg_GrUnits[i]
            set udg_GrUnits[i] = udg_GrUnits[i+1]
            set udg_GrUnits[i+1] = u
            set lif = Life[i]
            set Life[i] = Life[i+1]
            set Life[i+1] = lif  
            set b = true
        endif
        set i = i + 1
    endloop
endfunction

set lif = Life[i]
set Life[i] = Life[i+1]
set Life[i+1] = lif

set Life[i]=Life[i]-Life[i+1]
set Life[i+1]=Life[i]+Life[i+1]
set Life[i]=Life[i+1]-Life[i]

if (Life[i] > Life[i+1]) then

if (Life[i] < Life[i+1]) then