function Trig_Test_Func006A takes nothing returns nothing
    local unit u
    local real x
    local real y
    set u = GroupPickRandomUnit(udg_spartans)
    set x = GetUnitX(u)
    set y = GetUnitY(u)
    call IssuePointOrder( GetEnumUnit(), "attack", x,y )
    set u = null
endfunction

function Trig_Test_Actions takes nothing returns nothing
    call ForGroupBJ( GetUnitsOfPlayerAndTypeId(Player(11), 'hfoo'), function Trig_Test_Func006A )
endfunction

//===========================================================================
function InitTrig_Test takes nothing returns nothing
    set gg_trg_Test = CreateTrigger(  )
    call TriggerRegisterTimerEventPeriodic( gg_trg_Test, 10.00 )
    call TriggerAddAction( gg_trg_Test, function Trig_Test_Actions )
endfunction