Name | Type | is_array | initial_value |
function Trig_GK_Actions takes nothing returns nothing
local location p
local location p1
local group g
local unit u
set p1 = GetRectCenter(gg_rct_GK)
set bj_forLoopAIndex = 1
set bj_forLoopAIndexEnd = 6
loop
exitwhen bj_forLoopAIndex > bj_forLoopAIndexEnd
set g = GetUnitsOfPlayerAndTypeId(ConvertedPlayer(GetForLoopIndexA()), 'hfoo')
set u = GroupPickRandomUnit(g)
set p = GetUnitLoc( u )
call DestroyGroup( g )
if ( GetTerrainTypeBJ(p) == GetTerrainTypeBJ(p1) ) then
call KillUnit( u )
else
call DoNothing( )
endif
call RemoveLocation( p )
set bj_forLoopAIndex = bj_forLoopAIndex + 1
endloop
call RemoveLocation( p1 )
endfunction
function InitTrig_GK takes nothing returns nothing
set gg_trg_GK = CreateTrigger( )
call TriggerRegisterTimerEventPeriodic( gg_trg_GK, 0.05 )
call TriggerAddAction( gg_trg_GK, function Trig_GK_Actions )
endfunction