globals
hashtable Hash=InitHashtable()
real c=0
endglobals

function Trig_as_Conditions takes nothing returns boolean
    return GetSpellAbilityId() == 'A000'
endfunction

function Trig_as_T takes nothing returns nothing
    local timer t=GetExpiredTimer()
    local unit u=LoadUnitHandle(Hash, GetHandleId(t), 0)
    local group g=LoadGroupHandle(Hash, GetHandleId(t), 1)
    local unit eu
    local real speed= -2.5
    local real dx
    local real dy
    set c=c+1
    if not (HaveSavedHandle(Hash, GetHandleId(t), 0)) then
    call BJDebugMsg("DAMN")
    endif
    if c >= 200 then
    call BJDebugMsg("destroy")
    call FlushChildHashtable(Hash, GetHandleId(t))
    call DestroyTimer(t)
    set c=0
    else
    call BJDebugMsg("work")
        loop //вот отсюда и начинается фигня. т.к. по ходу группа пустая, то цикл заканчивается сразу.
            set eu = FirstOfGroup(g)
            exitwhen eu == null
            if IsPlayerEnemy(GetOwningPlayer(eu), GetOwningPlayer(u)) == true and IsUnitDeadBJ(eu) == false and IsUnitType(eu, UNIT_TYPE_STRUCTURE) == false then
                call DestroyEffect(AddSpecialEffectTarget("Abilities\\Spells\\Other\\Stampede\\StampedeMissileDeath.​mdl",eu,"origin"))
                set dx=GetUnitX(eu)+speed*Cos(GetUnitFacing(eu) * bj_DEGTORAD)
                call BJDebugMsg("dX"+R2S(dx))
                set dy=GetUnitY(eu)+speed*Sin(GetUnitFacing(eu) * bj_DEGTORAD)
                call BJDebugMsg("dY"+R2S(dy))
                call SetUnitX(eu, dx)
                call SetUnitY(eu, dy)
            endif
            call GroupRemoveUnit(g, eu)
        endloop
    endif
	call DestroyGroup(g)
set t=null
set u=null
set eu=null
set g=null
endfunction

function Trig_as_Actions takes nothing returns nothing
    local timer t=CreateTimer()
    local unit u=GetTriggerUnit()
    local group g=CreateGroup()
    local real x=GetUnitX(u)
    local real y=GetUnitY(u)
    local real rd=600.00
    
    call GroupEnumUnitsInRange( g, x, y, rd, null)
    call GroupRemoveUnit(g, u)
    call SaveUnitHandle(Hash, GetHandleId(t), 0, u)
    call SaveGroupHandle(Hash, GetHandleId(t), 1, g)
    call TimerStart(t, 0.01, true, function Trig_as_T)
    set t=null
    set u=null
set g=null
endfunction

//===========================================================================
function InitTrig_as takes nothing returns nothing
    local trigger t=CreateTrigger()
    call TriggerRegisterAnyUnitEventBJ( t, EVENT_PLAYER_UNIT_SPELL_EFFECT )
    call TriggerAddCondition( t, Condition( function Trig_as_Conditions ) )
    call TriggerAddAction( t, function Trig_as_Actions )
    set t=null
endfunction

 call GroupRemoveUnit(g, eu)