function HasDestructable takes nothing returns nothing
    if GetEnumDestructable( ) != null then
set bj_result = true // или false.. я хз при каком return должен быть отскок
    endif
endfunction

globals
	boolean bj_result
endglobals
function HasDestructable takes nothing returns nothing
	if GetEnumDestructable( ) != null then
		set bj_result = true
	endif
endfunction
function IsPointPathable takes real x, real y returns boolean
	local rect r = Rect( x - 50.00, y - 50.00, x + 50.00, y + 50.00 )
	set bj_result = false
	call EnumDestructablesInRect( r, null, function HasDestructable )
	call RemoveRect( r )
	set r = null
	return bj_result
endfunction

function HasDestructable takes nothing returns nothing
    set bj_result = bj_result or ( GetEnumDestructable( ) != null )
endfunction

globals
	integer bj_result = 0
endglobals
function HasDestructable takes nothing returns nothing
    if GetEnumDestructable( ) != null then
        set bj_result = bj_result + 1
    endif
endfunction

function IsPointPathable takes real x, real y returns boolean
    local rect r = Rect( x - 32.00, y - 32.00, x + 32.00, y + 32.00 )
    set bj_result = 0
    call EnumDestructablesInRect( r, null, function HasDestructable )
    call RemoveRect( r )
    set r = null
    return bj_result > 0
endfunction