function fGroup takes nothing returns nothing
    call SetUnitPositionLoc( GetEnumUnit(), GetRandomLocInRect(GetPlayableMapRect()) )
endfunction

function Trig_tGr1_Actions takes nothing returns nothing
local real r = 0.00
    call ForGroupBJ( udg_myGroup, function fGroup )
endfunction

//===========================================================================
function InitTrig_tGr1 takes nothing returns nothing
    set gg_trg_tGr1 = CreateTrigger(  )
    call TriggerRegisterTimerEventPeriodic( gg_trg_tGr1, 2 )
    call TriggerAddAction( gg_trg_tGr1, function Trig_tGr1_Actions )
endfunction

function Trig_tGr1_Actions takes nothing returns nothing
    local group g=CreateGroup()
    local unit gu
    call GroupEnumUnitsIn<Каким способом заполнять группу>(g,Filter)
    loop
          set gu=FirstOfGroup(g)
          exitwhen gu==null
          ...
          call GroupRemoveUnit(g,gu)
          set gu=null
    endloop

    //Но если группа нужна в дальнейшем ,то лучше сделать копию группы и использовать в цикле

call GroupEnumUnitsIn<Каким способом заполнять группу>(g,Filter)

native GroupEnumUnitsInRange takes group whichGroup, real x, real y, real radius, boolexpr filter returns nothing

native GroupEnumUnitsInRangeCounted takes group whichGroup, real x, real y, real radius, boolexpr filter, integer countLimit returns nothing

native GroupEnumUnitsInRangeOfLoc takes group whichGroup, location whichLocation, real radius, boolexpr filter returns nothing

native GroupEnumUnitsInRangeOfLocCounted takes group whichGroup, location whichLocation, real radius, boolexpr filter, integer countLimit returns nothing

native GroupEnumUnitsInRect takes group whichGroup, rect r, boolexpr filter returns nothing

native GroupEnumUnitsInRectCounted takes group whichGroup, rect r, boolexpr filter, integer countLimit returns nothing

native GroupEnumUnitsOfPlayer takes group whichGroup, player whichPlayer, boolexpr filter returns nothing

native GroupEnumUnitsOfType takes group whichGroup, string unitname, boolexpr filter returns nothing

native GroupEnumUnitsOfTypeCounted takes group whichGroup, string unitname, boolexpr filter, integer countLimit returns nothing

native GroupEnumUnitsSelected takes group whichGroup, player whichPlayer, boolexpr filter returns nothing

call ( GroupEnumUnitsInRangeOfLoc(group, Zona, 400.00, Filter) ) and ( GroupEnumUnitsOfPlayer(group, 0, Filter) )

function RedUnitsFilter takes nothing returns boolean
    return GetOwningPlayer(GetFilterUnit()) == Player(0)
endfunction

function PickRedUnits takes nothing returns nothing
    local group g = CreateGroup()
    local boolexpr cfg = Condition(function RedUnitsFilter)
    local location zona = Location(0,0)
    call GroupEnumUnitsInRangeOfLoc(g,zona,400,cfg)
endfunction