function Trig_Capture_Village_Conditions takes nothing returns boolean
return GetUnitTypeId(GetConstructedStructure()) == 'ugol'
endfunction

function Rescue_Village_Buildings takes nothing returns nothing
    local unit b = GetConstructedStructure()
    local integer h = GetHandleId(b)
    local group villagebuildings = LoadGroupHandle(udg_hash, h, StringHash("villagebuildings"))
    local unit E = GetEnumUnit()
    local integer newbarracks
    local integer newshop
//Установка id новых зданий
    call DisplayTextToForce( GetPlayersAll(), "Rescue_Village_Buildings" )
    if IsPlayerInForce(GetOwningPlayer(b), udg_Alliance) == true then
        set newbarracks = 'hbar'
        set newshop = 'hvlt'
    endif
    if IsPlayerInForce(GetOwningPlayer(b), udg_Scourge) == true then
        set newbarracks = 'usep'
        set newshop = 'utom'
    endif
//Замена и изменение владельца зданий.
    if GetUnitTypeId(E) == 'hbar' or GetUnitTypeId(E) == 'usep' then
        set E = ReplaceUnitBJ(E, newbarracks, bj_UNIT_STATE_METHOD_MAXIMUM)
        call GroupAddUnitSimple( E, villagebuildings )
        call DisplayTextToForce( GetPlayersAll(), "Бараки заменили" )
    endif
    if GetUnitTypeId(E) == 'hvlt' or GetUnitTypeId(E) == 'utom' then
        set E = ReplaceUnitBJ(E, newshop, bj_UNIT_STATE_METHOD_MAXIMUM)
        call GroupAddUnitSimple( E, villagebuildings )
        call DisplayTextToForce( GetPlayersAll(), "Шопы заменили" )
    endif
    call AddSpecialEffectTargetUnitBJ( "overhead", E, "Abilities\\Spells\\Other\\TalkToMe\\TalkToMe.mdl" )
    call RescueUnitBJ(E, GetOwningPlayer(b), true)
    call SaveGroupHandle(udg_hash, h, StringHash("villagebuildings"), villagebuildings)
    call DisplayTextToForce(GetPlayersAll(), ( "В отряде после спасения " + I2S(CountUnitsInGroup(villagebuildings))))
    set E = null
    set b = null
    set villagebuildings = null
endfunction

function Create_Village_Hash takes nothing returns nothing
local unit b = GetConstructedStructure()
local unit E = GetEnumUnit()
local integer h = GetHandleId(b)
local group villagebuildings = CreateGroup()
//Добавление юнитов определенного типа в хеш.
if GetUnitTypeId(E) == 'ntow' or GetUnitTypeId(E) == 'hbar' or GetUnitTypeId(E) == 'hvlt' or GetUnitTypeId(E) == 'usep' or GetUnitTypeId(E) == 'utom' then
    call GroupAddUnitSimple( E, villagebuildings )
endif
call SaveGroupHandle(udg_hash, h, StringHash("villagebuildings"), villagebuildings)
call DisplayTextToForce(GetPlayersAll(), ( "В отряде при его создании " + I2S(CountUnitsInGroup(villagebuildings))))
call ForGroupBJ(villagebuildings, function Rescue_Village_Buildings )
set E = null
set b = null
set villagebuildings = null
endfunction

function Trig_Capture_Village_Actions takes nothing returns nothing
    local unit b = GetConstructedStructure()
    local unit flag
    local integer h = GetHandleId(b)
    local integer flagtype
    local integer creep
    local group villagebuildings = LoadGroupHandle(udg_hash, h, StringHash("villagebuildings"))
//Изменение тумана, создание флага и добавление особых способностей точке. Это непосредственно к
//проблеме не относится.
    if IsPlayerInForce(GetOwningPlayer(b), udg_Alliance) == true then
        set flagtype = 'alli'
        set creep = 'Abdl'
        set udg_Fog = ( udg_Fog + 500.00 )
    endif
    if IsPlayerInForce(GetOwningPlayer(b), udg_Scourge) == true then
        set flagtype = 'scou'
        set creep = 'Abgl'
        set udg_Fog = ( udg_Fog - 500.00 )
    endif
    call UnitAddAbilityBJ( creep, b )
    set flag = CreateUnit(GetOwningPlayer(b), flagtype, GetUnitX(b), GetUnitY(b), 270.0)
    call SaveUnitHandle(udg_hash, h, StringHash("flag"), flag)
    call SetTerrainFogExBJ( 0, udg_Fog, 7000.00, 50.00, 80.00, 40.00, 10.00 )
//Проверка количества юнитов в группе их делание в зависимости от этого действий.
    if CountUnitsInGroup(villagebuildings) == 0 then
        call ForGroupBJ( GetUnitsInRangeOfLocAll(10000.00, GetUnitLoc(b)), function Create_Village_Hash )
        call DisplayTextToForce(GetPlayersAll(), ( "В отряде при запуске (тру) " + I2S(CountUnitsInGroup(villagebuildings))))
    else
        call ForGroupBJ(villagebuildings, function Rescue_Village_Buildings )
        call DisplayTextToForce(GetPlayersAll(), ( "В отряде при запуске (фэлс) " + I2S(CountUnitsInGroup(villagebuildings))))
    endif
    set b = null
    set flag = null
    set villagebuildings = null
endfunction

//===========================================================================
function InitTrig_Capture_Village takes nothing returns nothing
    set gg_trg_Capture_Village = CreateTrigger(  )
    call TriggerRegisterAnyUnitEventBJ( gg_trg_Capture_Village, EVENT_PLAYER_UNIT_CONSTRUCT_FINISH )
    call TriggerAddCondition( gg_trg_Capture_Village, Condition( function Trig_Capture_Village_Conditions ) )
    call TriggerAddAction( gg_trg_Capture_Village, function Trig_Capture_Village_Actions )
endfunction

local group g = CreateGroup()
local boolexpr b = Condition(function Check)
call GroupEnumUnitInRange(g,x,y,Range,b)
call ForGroup(g,function Actions) //Или через FirstofGroup
call DestroyGroup(g)
call DestroyBoolexpr(b)
set g = null
set b = null