function chargeCheck takes nothing returns boolean
return GetSpellAbilityId() == 'A065'
endfunction

function ChargeFilter takes nothing returns boolean
local integer lTable=GetHandleId(GetExpiredTimer())
return GetFilterUnit() == LoadUnitHandle(udg_h,(lTable),(6))
endfunction

function charge_damage takes nothing returns nothing
local integer lTable=GetHandleId(GetExpiredTimer())
call DestroyEffect(AddSpecialEffectTarget("Abilities\\Spells\\Other\\Stampede
call UnitDT(LoadUnitHandle(udg_h,(lTable),(5)),GetEnumUnit(),3,5.0*(GetHeroLevel(Load  UnitHandle(udg_h,(lTable),(5)))+GetHeroStr(LoadUnitHandle(udg_h,(lTable),(5)),tr  ue))) //функция наносящая урон
endfunction

function chargeTimer takes nothing returns nothing
local timer lMove=GetExpiredTimer()
local integer lTable=GetHandleId(lMove)
local unit u=LoadUnitHandle(udg_h,(lTable),(5))
local real ux=LoadReal(udg_h,(lTable),(0))
local real uy=LoadReal(udg_h,(lTable),(1))
local effect e=LoadEffectHandle(udg_h,(lTable),(7))
local real lAngle=LoadReal(udg_h,(lTable),(4))
local real lXX=GetUnitX(u)
local real lYY=GetUnitY(u)
local real lXN=GetUnitX(u)+30*Cos(lAngle)
local real lYN=GetUnitY(u)+30*Sin(lAngle)
local real dmg=LoadReal(udg_h,(lTable),(8))
local unit t1=LoadUnitHandle(udg_h,(lTable),(6))
local unit t
local boolexpr lCheck=Condition(function ChargeFilter)
local group lEnumGroup=CreateGroup()
call SetUnitAnimation(u, "walk")
call SetUnitX(u,lXN)
call SetUnitY(u,lYN)
call GroupEnumUnitsInRange(lEnumGroup,lXN,lYN,150,lCheck)
set t=FirstOfGroup(lEnumGroup)
call DestroyGroup(lEnumGroup)
call DestroyBoolExpr(lCheck)
if t!=null and t==t1 then
set lEnumGroup=CreateGroup()
call GroupEnumUnitsInRange(lEnumGroup,GetUnitX(u),GetUnitY(u),200,Condition(function ZQI))
call ForGroup(lEnumGroup,function charge_damage)
call DestroyEffect(e)
call SetUnitPathing(u,true)
call SetUnitAnimation(u,"stand")
call SetUnitTimeScale(u,1.0)
call DestroyTimer(lMove)
call IssueTargetOrder( u, "attack", t )
call FlushChildHashtable(udg_h,(lTable))
endif
set e=null
set lMove=null
set u=null
set lCheck=null
set lEnumGroup=null
set t=null
endfunction

function ChargeAction takes nothing returns nothing
local unit u=GetTriggerUnit()
local real ux=GetUnitX(u)
local real uy=GetUnitY(u)
local unit t=GetSpellTargetUnit()
local real tx=GetUnitX(t)
local real ty=GetUnitY(t)
local real lAngle=Atan2(ty-uy,tx-ux)
local timer lMove=CreateTimer()
local integer lTable=GetHandleId(lMove)
local effect e=AddSpecialEffectTarget("Abilities\\Spells\\Other\\Tornado\\Tornado_Target.mdl",u,"chest") 
local real dmg=5.0*I2R(GetUnitLevel(u)*GetHeroStr(u,true))
call SetUnitFacing(u,lAngle*bj_RADTODEG)
call SetUnitPathing(u,false)
call SetUnitTimeScalePercent(u, 300.00 )
call SaveEffectHandle(udg_h,(lTable),(7),e)
call SaveReal(udg_h,(lTable),(0),ux)
call SaveReal(udg_h,(lTable),(1),uy)
call SaveReal(udg_h,(lTable),(2),tx)
call SaveReal(udg_h,(lTable),(3),ty)
call SaveReal(udg_h,(lTable),(4),lAngle)
call SaveUnitHandle(udg_h,(lTable),(5),(u))
call SaveUnitHandle(udg_h,(lTable),(6),(t))
call SaveReal(udg_h,(lTable),(8),dmg)
call TimerStart(lMove,.025,true,function chargeTimer)
set u=null
set t=null
set lMove=null
set e=null
endfunction

function InitTrig_Charge takes nothing returns nothing
local trigger ltt=CreateTrigger()
call TriggerRegisterAnyUnitEvent(ltt,EVENT_PLAYER_UNIT_SPELL_EFFECT)
call TriggerAddCondition(ltt,Condition(function chargeCheck))
call TriggerAddAction(ltt,function ChargeAction)
set ltt=null
endfunction