lua: ошибка

                    --принадлежит ли точка Region[n]
                        --@param real x
                        --@param real y
                        --@param integer k
                        ---@return boolean
                        function IsPointInArea(x,y,k)
                            return (IsPointInRegion(Region[k], x, y))
                        end


                    --лежит ли точка в незанятом ActiveArea и внутри игровой карты
                        --помогает искать первую точку при создании региона
                        --а также при расширении ищет незанятую никем землю/и не упирается в границы карты
                        --@param rect rt <-ActiveArea
                        --@param real x
                        --@param real y
                        ---@return boolean
                        function IsPointInArea_1 (rt,x,y) 
                            return ( RectContainsCoords(rt,x,y) and (not IsPointInRegionVillage(x, y)))and RectContainsCoords(bj_mapInitialPlayableArea,x,y)
                        end
                    --лежит ли точка внутри региона или в незанятом ActiveArea
                        --юзается при создании региона, только там еще земля не внесена в регион, тут ищут только по ActiveArea.
                        --и при расширении региона юзается жта функция, она ищет вершины
                        --@param rect rt <-ActiveArea
                        --@param real x
                        --@param real y
                        --@param integer n <= number of region
                        ---@return boolean
                        function IsPointInArea_2(rt,x,y,n)
                            return IsPointInArea(x,y,n) or IsPointInArea_1(rt,x, y)
                        end


                    --Точка лежит внутри poligon или в незанятом ActiveArea, и свободна точка от CheckArea
                        --используется для разбивки многоугольника на ректы. Когда находим рект, его записываем в CheckArea, так мы будем знать что участок разбит.
                        --при создании региона или расширении мы учитываем ActiveArea
                        --@param rect rt <-ActiveArea
                        --@param real x
                        --@param real y
                        --@param integer n <= number of region
                        ---@return boolean
                        function IsPointInArea_3(rt,x,y,n)
                            return (IsPointInArea_2(rt,x,y,n))and (not IsPointInRegion(CheckArea, x,y) )
                        end

                    --число диагоналей, принадлежащих свободному ActiveArea и Region, не принадлежащих CheckArea (разбивает участок на ректы при создании)
                        --@param rect rt <-ActiveArea
                        --@param real x
                        --@param real y
                        --@param integer n <= number of region
                        ---@return integer
                        function CountFreePointsInArea(rt,x,y,n)
                            local a = 0
                            local r = 4.00
                            local angle
                            --local px = {} 
                            --local py = {}

                            --1) берем 4 точки от точки x,y и считаем кол-во свободных точек
                            if IsPointInArea_3(rt,x-r,y+r,n) then
                                px[a] = x-r
                                py[a] = y+r
                                a = a + 1
                            end
                            if IsPointInArea_3(rt,x+r,y+r,n) then
                                px[a] = x+r
                                py[a] = y+r
                                a = a + 1
                            end
                            if IsPointInArea_3(rt,x+r,y-r,n) then
                                px[a] = x+r
                                py[a] = y-r
                                a = a + 1
                            end
                            if IsPointInArea_3(rt,x-r,y-r,n) then
                                px[a] = x-r
                                py[a] = y-r
                                a = a + 1
                            end

                            --print("число точек (для напр): "..a )
                            if a == 2 then
                                angle = Acos(AngleBetweenTwoVectors(px[0]-x,py[0]-y, px[1]-x,py[1]-y)) * bj_RADTODEG
                                --print("угол: "..angle )
                                if angle == 90.00 then
                                    return 2
                                else
                                    return 5
                                end

                            end

                            return a
                        end