Destructibles

library DestructibleEnums initializer Init //You can do either circle or square with this
    globals
        private real CX = 0.00
        private real CY = 0.00
        private rect R = null
        constant integer DENUM_TYPE_CIRCLE = 1
        constant integer DENUM_TYPE_SQUARE = 2
        private boolexpr B = null
        private integer T = 0
        private real R = 0.00
    endglobals

    private function True takes nothing returns boolean
        return true
    endfunction

    private function Enum takes nothing returns nothing
        local destructible D
        local real X
        local real Y

        if T == DENUM_TYPE_CIRCLE then
            set D = GetEnumDestructible()
            set X = GetDestructibleX(D)
            set Y = GetDestructibleY(D)

            if (CX-X)*(CX-X)+(CY-Y)*(CY-Y) < R then
                call KillDestructible(D)
            endif

            set D = null
        elseif T == DENUM_TYPE_SQUARE then
            call KillDestructible(GetEnumDestructible())
        debug else
            debug call BJDebugMsg("Error: Unknown type in DestructibleEnums; check "Type" argument.")
        endif
    endfunction

    function KillDestructibleArea takes location L, real Width, real Height, integer Type returns nothing
        set CX = GetLocationX(L)
        set CY = GetLocationY(L)
        set Width = Width/2
        set Height = Height/2
        set T = Type

        if Type == 1 then
            set R = Width*Height
        endif

        call SetRect(R, CX-Width, CY-Height, CX+Width, CY+Height)
        call EnumDestructiblesInRect(R, B, function Enum)
    endfunction

    private function Init takes nothing returns nothing
        set R = Rect(0.00, 0.00, 0.00, 0.00)
        set B = Condition(function True)
    endfunction
endlibrary