private struct spell
 real x2
 real y2
 location target
endstruct


private function Timer takes nothing returns nothing
     local timer t=GetExpiredTimer()
     local spell s=GetInt(t)
………
endfunction

private function Trig_Actions takes nothing returns nothing
    local spell s=spell.create()
    local timer t=CreateTimer()
    set s.target = GetSpellTargetLoc ( )
    set s.x2 = GetLocationX (s.target)
    set s.y2 = GetLocationY (s.target)

  call GroupEnumUnitsInRange(gr_temp,s.x2,s.y2,Range,cnd)
  call SetInt(t, integer(s))
  call TimerStart(t, 1.2, false, function Timer)
endfunction
в конце идет XAT

private function Timer takes nothing returns nothing
    local timer ct = GetExpiredTimer()
    local spell s = GetStoredInteger(cache, I2S(H2I(ct)), "s") 
    call GroupEnumUnitsInRange(gr_temp,s.x2,s.y2,Range,cnd)

endfunction

private function Trig_Actions takes nothing returns nothing
    local spell s=spell.create()
    local timer t=CreateTimer()

    set s.x2 = GetLocationX (s.target)
    set s.y2 = GetLocationY (s.target)

    call TimerStart(t, 1.2, false, function Timer)
    call StoreInteger(cache, I2S(H2I(t)), "s", s) 

endfunction

local timer t=GetExpiredTimer()
 local spell s=GetInt(t)

private function Timer takes nothing returns nothing
  local spell s = GetInt(GetExpiredTimer()) // getting attach
  call GroupEnumUnitsInRange(gr_temp,s.x2,s.y2,Range,cnd)
  // . . .
endfunction

private function Trig_Actions takes nothing returns nothing
  local spell s=spell.create()
  local timer t=CreateTimer()
  // . . .
  set s.x2 = GetLocationX (s.target)
  set s.y2 = GetLocationY (s.target)

  call GroupEnumUnitsInRange(gr_temp,s.x2,s.y2,Range,cnd)
  call SetInt(t, s) // attaching
  call TimerStart(t, 1.2, false, function Timer)
endfunction

private function Timer takes nothing returns nothing
  local spell s = spell(GetInt(GetExpiredTimer()))
  call BJDebugMsg(I2S(integer(s)) + "   " + R2S(s.x2) + "   " + R2S(s.y2))
  // . . .
endfunction

private function flt takes nothing returns boolean
   local unit castunit = GetTriggerUnit (  )
   local unit u = GetFilterUnit ( )
   local integer level = GetUnitAbilityLevel (castunit, Spell_ID)
 
...
ДЕЙСТВИЯ С ЮНИТАМИ
...
  
   set u        = null
   set castunit = null
   return false
endfunction