globals
  group gr
  filterfunc Fil
endglobals

function FilFunc takes nothing returns nothing
  if (GetFilterUnit()== ...условие ...) then
    // ...действие с псевдогруппой
  endif
  return false
endfunction

function InitGlobals takes nothing returns nothing
  set gr = CreateGroup()
  set Fil = Filter(function FilFunc)
endfunction
...
call GroupEnumUnitsInRange(gr, 0.00, 0.00, 512.00, Fil)
...

function CallBack takes nothing returns nothing
  local *type* var = udg_var
  ...
endfunction
...
set udg_var = value
call ForGroup(gr, function CallBack)
...

function FilFunc takes nothing returns nothing
  if (GetFilterUnit()== ...условие ...) then
    // ...действие с псевдогруппой
  endif
  return false
endfunction

globals
 group g_temp=CreateGroup()
 boolexpr act=null
 integer var_0=0
 real var_1=0.
endglobals

function WichCalledForEachUnit takes nothing returns boolean
 if var_0!=0 then
 endif
 return false
endfunction

function Init takes nothing returns nothing
 set act=Condition(function WichCalledForEachUnit)
endfunction

...
 set var_0=23412
 set var_1=2345.345
 call GroupEnumUnitsInRange(g_temp, x, y, r, act)
...