function Trig_buildSys_build_Func001A takes nothing returns nothing
loop
if udg_buildSys_unit_dummy[index] == GetEnumUnit() then
set udg_buildSys_unit_dummy[index] = u
loop
exitwhen i > 2
call IssueTargetOrderById( udg_buildSys_unit[index * 3 + i], 'Ahrp', udg_buildSys_unit_dummy[index] )
set i = i + 1
endloop
exitwhen true
endif
exitwhen index == udg_buildSys_indexMax
set index = index + 1
endloop
endfunction
function Trig_buildSys_build_Actions takes nothing returns nothing
local unit u = GetTriggerUnit()
local real x = GetUnitX(u)
local real y = GetUnitY(u)
local location xy = Location( x, y )
local player p = GetTriggerPlayer()
local integer index = 0
local integer i = 0
call DisplayTextToForce( GetPlayersAll(), R2S(x) + R2S(y) )
call DisplayTextToForce( GetPlayersAll(), GetUnitName(u) )
call bj_wantDestroyGroup = true
call ForGroupBJ( GetUnitsInRangeOfLocAll(128, xy ), function Trig_buildSys_build_Func001A )
endfunction
//===========================================================================
function InitTrig_buildSys_build takes nothing returns nothing
set gg_trg_buildSys_build = CreateTrigger( )
call TriggerRegisterAnyUnitEventBJ( gg_trg_buildSys_build, EVENT_PLAYER_UNIT_CONSTRUCT_START )
call TriggerAddAction( gg_trg_buildSys_build, function Trig_buildSys_build_Actions )
endfunction