function GetDistanceDestPoint takes destructable d, real x, real y returns real
    local real dx = GetDestructableX(d) - x
    local real dy = GetDestructableY(d) - y
    return SquareRoot(dx * dx + dy * dy)
endfunction

struct Object
    readonly static real StartDistance
    readonly static rect World
    private static boolexpr filter
    
    static thistype array entities
    readonly static integer top = -1
    
    real x
    real y
    readonly destructable d
    private real distance = StartDistance
    private integer index
    
    static method create takes real x, real y returns thistype
        local thistype this = allocate()
        set this.x = x
        set this.y = y
        set top = top + 1
        set entities[top] = this
        set index = top
        return this
    endmethod
    
    method onDestroy takes nothing returns nothing
        local integer i = index
        if i < top then
            set entities[i] = entities[top]
            set entities[i].index = i
        endif
        set top = top - 1
        set d = null
    endmethod
    
    method updateDest takes destructable d returns nothing
        local real dist = GetDistanceDestPoint(d, x, y)
        if dist > distance then
            set this.d = d
            set distance = dist
        endif
    endmethod
    
    static method updateDestForAll takes destructable d returns nothing
        local integer a = 0
        loop
            exitwhen a > top
            call entities[a].updateDest(d)
            set a = a + 1
        endloop
    endmethod
    
    private static method FilterFunc takes nothing returns boolean
        //local destructable t = GetFilterDestructable()
        //if GetDestructableTypeId(t) == 'ATtr' then
        //    call TransmittedObject.updateDest(t)
        //endif
        //set t = null
        call TransmittedObject.updateDest(GetFilterDestructable())
        return false
    endmethod
    
    private static thistype TransmittedObject
    
    method findClosestDest takes nothing returns nothing
        set TransmittedObject = this
        call EnumDestructablesInRect(World, filter, null)
    endmethod
    
    static method findClosestDestForAll takes nothing returns nothing
        local integer a = 0
        loop
            exitwhen a > top
            call entities[a].findClosestDest()
            set a = a + 1
        endloop
    endmethod
    
    private static method OnInit takes nothing returns nothing
        local rect r = GetWorldBounds()
        local real dx = GetRectMaxX(r) - GetRectMinX(r)
        local real dy = GetRectMaxY(r) - GetRectMinY(r)
        set StartDistance = SquareRoot(dx * dx + dy * dy) * 2.
        set World = r
        set r = null
        set filter = Filter(function thistype.FilterFunc)
    endmethod
endstruct