--принадлежит ли точка 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

						Color = {}
                        Setting = {}  
                        
                        --Gold Bounty
                            Color[1] = {}
                            Color[1][1] = 255
                            Color[1][2] = 220
                            Color[1][3] = 0
                            Color[1][4] = 255
                            Setting[1] = {}
                            Setting[1][1] = 0.0 -- Velocity 1
                            Setting[1][2] = 0.03 -- Velocity 2
                            Setting[1][3] = 2.0 -- Fadepoint
                            Setting[1][4] = 3.0 -- Lifespan
                            Setting[1][5] = -16.0 -- OffsetX
                        --Lumber Bounty
                            Color[2] = {}
                            Color[2][1] = 0
                            Color[2][2] = 200
                            Color[2][3] = 80
                            Color[2][4] = 255
                            Setting[2] = {}
                            Setting[2][1] = 0.0 -- Velocity 1
                            Setting[2][2] = 0.03 -- Velocity 2
                            Setting[2][3] = 2.0 -- Fadepoint
                            Setting[2][4] = 3.0 -- Lifespan
                            Setting[2][5] = -16.0 -- OffsetX