function RS_T_Action takes nothing returns nothing
    local integer a = 0
    loop
    exitwhen a>udg_RS_Count
        if GetHandleInt(udg_RS_UTypes[a],"Time")>0 then
            call SetHandleInt(udg_RS_UTypes[a],"Time",GetHandleInt(udg_RS_UTypes[a],"Time")-1)
        else
            if DistanceBetweenPoints(GetUnitLoc(udg_RS_UTypes[a]), GetCameraTargetPositionLoc()) >= 900.00 then
                call RS_CreateUnit(GetUnitTypeId(udg_RS_UTypes[a]),GetHandleInt(udg_RS_UTypes[a],"Dtime"),Location(GetHandleReal(udg_RS_UTypes[a],"LocX"),GetHandleReal(udg_RS_UTypes[a],"LocY")),GetPlayerId(GetOwningPlayer(udg_RS_UTypes[a]) ) )
                call ResetUnitAnimation(GetLastCreatedUnit())
                call FlushHandle(udg_RS_UTypes[a]) 
                call RemoveUnit(udg_RS_UTypes[a])
                set udg_RS_UTypes[a]=udg_RS_UTypes[udg_RS_Count]
                set udg_RS_UTypes[udg_RS_Count]=null
                set udg_RS_Count=udg_RS_Count-1
            endif
        endif
        set a = a + 1
    endloop
endfunction