Проблема с "крипами"

globals
    constant group TempG   = CreateGroup( )
    unit bj_lastFilterUnit = null
    unit TempUnit          = null
    real TempR = 0.00
    real TempX = 0.00
    real TempY = 0.00
endglobals

native UnitAlive takes unit id returns boolean

function NearUnit takes nothing returns boolean
    local real r
    set bj_lastFilterUnit = GetFilterUnit( )

	if IsUnitEnemy( bj_lastFilterUnit, bj_groupEnumOwningPlayer ) and UnitAlive( bj_lastFilterUnit ) then
	    set r = SquareRoot( ( TempX - GetUnitX( bj_lastFilterUnit ) ) * ( TempX - GetUnitX( bj_lastFilterUnit ) ) + ( TempY - GetUnitY( bj_lastFilterUnit ) ) * ( TempY - GetUnitY( bj_lastFilterUnit ) ) )
	    
	    if r < TempR then
	        set TempR = r
	        set TempUnit = bj_lastFilterUnit
	    endif
	endif
    
    return false
endfunction

function myfunc takes nothing returns nothing
    set TempX = GetUnitX( whichUnit )
    set TempY = GetUnitY( whichUnit )
    set TempR = 999999
    
    set TempUnit = null
	set bj_groupEnumOwningPlayer = GetOwningPlayer( whichUnit )
    call GroupEnumUnitsInRange( TempG, TempX, TempY, TempR, Condition( function NearUnit ) )
	
	if TempUnit != null then
		call IssueTargetOrder( TempUnit, "attack", whichUnit )
	endif
endfunction