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

function Spell_A000_Filter takes nothing returns boolean
local unit f=GetFilterUnit()
if IsPlayerEnemy(GetOwningPlayer(GetSpellAbilityUnit()),GetOwningPlayer(f)) and GetWidgetLife(f)>=0.405 and IsUnitType(f,UNIT_TYPE_STRUCTURE)==false and IsUnitType(f,UNIT_TYPE_MAGIC_IMMUNE)==false then
    set f=null
    return true
else
    set f=null
    return false
endif
endfunction

function Group_Action takes nothing returns nothing
local unit p=GetEnumUnit()
local unit u=GetSpellAbilityUnit()
call UnitDamageTarget(u,p,GetUnitAbilityLevel(u,'A000')*50.,true,false,ATTACK_TYPE_CHAOS,DAMAGE_TYPE_NORM​AL,null)
set p=null
set u=null
endfunction

function move takes nothing returns nothing
local timer t=GetExpiredTimer()
local unit u=LoadUnitHandle(udg_H,GetHandleId(t),1)
local integer i=LoadInteger(udg_H,GetHandleId(t),2)
local real q=GetRandomReal(0.9,1.1)
local real w=GetRandomReal(0.9,1.1)
local real e=q*GetUnitX(u)
local real r=w*GetUnitY(u)
local group g
local boolexpr b
if(r<3000 and r>-3500 and e<3200 and e>-3200 )then
    set g=CreateGroup()
    set b=Condition(function Spell_A000_Filter)
    call GroupEnumUnitsInRange(g,e,r,100.,b)
    call ForGroup(g,function Group_Action)
    call AddSpecialEffect("Abilities\\Spells\\Items\\AIil\\AIilTarget.mdl",GetUnitX(u),GetUnitY(u))​
    call SetUnitX(u,e)
    call SetUnitY(u,r)
    call AddSpecialEffect("Abilities\\Spells\\Human\\Slow\\SlowCaster.mdl",GetUnitX(u),GetUnitY(u))​
    set i=i+1
endif
if(i==10)then
    call PauseTimer(t)
    call FlushChildHashtable(udg_H,GetHandleId(t))
    call DestroyTimer(t)
    call DestroyBoolExpr(b)
    call DestroyGroup(g)
else
    call SaveInteger(udg_H,GetHandleId(t),2,i)
endif
set g=null
set b=null
set t=null
set u=null
endfunction

function Trig_shit_Actions takes nothing returns nothing
local timer t=CreateTimer()
call SaveUnitHandle(udg_H,GetHandleId(t),1,GetSpellAbilityUnit())
call SaveInteger(udg_H,GetHandleId(t),2,0)
call TimerStart(t,0.3,true,function move)
set t=null
endfunction

function InitTrig_shit takes nothing returns nothing
local trigger trg=CreateTrigger()
set udg_H=InitHashtable()
call TriggerRegisterAnyUnitEventBJ(trg,EVENT_PLAYER_UNIT_SPELL_EFFECT)
call TriggerAddCondition(trg,Condition(function Trig_shit_Conditions))
call TriggerAddAction(trg,function Trig_shit_Actions)
set trg=null
endfunction

if IsPlayerEnemy(GetOwningPlayer(GetSpellAbilityUnit()),GetOwningPlayer(f)) and GetWidgetLife(f)>=0.405 and IsUnitType(f,UNIT_TYPE_STRUCTURE)==false and IsUnitType(f,UNIT_TYPE_MAGIC_IMMUNE)==false then

function Spell_A000_Filter takes nothing returns boolean
   return IsPlayerEnemy(GetOwningPlayer(GetSpellAbilityUnit()),GetOwningPlayer(GetFilterUnit())) and GetWidgetLife(GetFilterUnit())>=0.405 and not IsUnitType(GetFilterUnit(),UNIT_TYPE_STRUCTURE) and not IsUnitType(GetFilterUnit(),UNIT_TYPE_MAGIC_IMMUNE)
 endfunction

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

 function move takes nothing returns nothing
 local timer t=GetExpiredTimer()
 local unit u=LoadUnitHandle(udg_H,GetHandleId(t),1)
 local integer i=LoadInteger(udg_H,GetHandleId(t),2)
 local real q=GetRandomReal(0.9,1.1)
 local real w=GetRandomReal(0.9,1.1)
 local real e=q*GetUnitX(u)
 local real r=w*GetUnitY(u)
 local group g
 local unit f
 if(r<3000 and r>-3500 and e<3200 and e>-3200 )then
 set g=CreateGroup()
 call GroupEnumUnitsInRange(g,e,r,100.,null)
loop
set f=FirstOfGroup(g)
exitwhen f=null
if  IsPlayerEnemy(GetOwningPlayer(u),GetOwningPlayer(f)) and GetWidgetLife(f)>=0.405 and not IsUnitType(f,UNIT_TYPE_STRUCTURE) and not IsUnitType(f,UNIT_TYPE_MAGIC_IMMUNE) then
 call UnitDamageTarget(u,f,GetUnitAbilityLevel(u,'A000')*50.,true,false,ATTACK_TYPE_CH AOS,DAMAGE_TYPE_NORMAL,null)
call GroupRemoveUnit(g,f)
else 
call GroupRemoveUnit(g,f)
endif
 call AddSpecialEffect("Abilities\\Spells\\Items\\AIil\\AIilTarget.mdl",GetUnitX(u),GetUnitY(u))​
 call SetUnitX(u,e)
 call SetUnitY(u,r)
 call AddSpecialEffect("Abilities\\Spells\\Human\\Slow\\SlowCaster.mdl",GetUnitX(u),GetUnitY(u))​
 set i=i+1
 endif
 if(i==10)then
 call PauseTimer(t)
 call FlushChildHashtable(udg_H,GetHandleId(t))
 call DestroyTimer(t)
 call DestroyGroup(g)
 else
 call SaveInteger(udg_H,GetHandleId(t),2,i)
 endif
 call DestroyGroup(g)
 set g=null
 set t=null
 set f=null
 set u=null
 endfunction

 function Trig_shit_Actions takes nothing returns nothing
 local timer t=CreateTimer()
 call SaveUnitHandle(udg_H,GetHandleId(t),1,GetSpellAbilityUnit())
 call SaveInteger(udg_H,GetHandleId(t),2,0)
 call TimerStart(t,0.3,true,function move)
 set t=null
 endfunction

 function InitTrig_shit takes nothing returns nothing
 local trigger trg=CreateTrigger()
 set udg_H=InitHashtable()
 call TriggerRegisterAnyUnitEventBJ(trg,EVENT_PLAYER_UNIT_SPELL_EFFECT)
 call TriggerAddCondition(trg,Condition(function Trig_shit_Conditions))
 call TriggerAddAction(trg,function Trig_shit_Actions)
 call Preload("Abilities\\Spells\\Items\\AIil\\AIilTarget.mdl")
 call Preload("Abilities\\Spells\\Human\\Slow\\SlowCaster.mdl")
 set trg=null
 endfunction

if not IsTerrainPathable(x,y,PATHING_TYPE_FLYABILITY) then
//двигаешь и делаешь действия с группой
else
// делаешь действия для прекращения портования
endif

loop
set f=FirstOfGroup(g)
exitwhen f=null
if  IsPlayerEnemy(GetOwningPlayer(u),GetOwningPlayer(f)) and GetWidgetLife(f)>=0.405 and not IsUnitType(f,UNIT_TYPE_STRUCTURE) and not IsUnitType(f,UNIT_TYPE_MAGIC_IMMUNE) then
 call UnitDamageTarget(u,f,GetUnitAbilityLevel(u,'A000')*50.,true,false,ATTACK_TYPE_CH AOS,DAMAGE_TYPE_NORMAL,null)
call GroupRemoveUnit(g,f)
else 
call GroupRemoveUnit(g,f)
endif
endloop 

 set f=FirstOfGroup(g)
 exitwhen f=null