local unit u-GetTriggerUnit()
Установить Unit=Переключающийся юнит
set udg_Unit=u

function Trig_cast_Timer takes nothing returns nothing
local timer ta = GetExpiredTimer()  
local integer i = GetHandleId(ta)  
local unit t = LoadUnitHandle(udg_Hash, i, 1)
local unit u = LoadUnitHandle(udg_Hash, i, 0)   
call DestroyEffect(AddSpecialEffectTarget("Abilities\\Weapons\\Bolt\\BoltImpact.mdl", t, "chest"))
call UnitDamageTarget(u, t, 300., true, false, ATTACK_TYPE_NORMAL, DAMAGE_TYPE_NORMAL, WEAPON_TYPE_WHOKNOWS)
call SetUnitPosition(t,LoadReal(udg_Hash, i, 2),LoadReal(udg_Hash, i, 3))
call PauseTimer(ta)
call DestroyTimer(ta)  
call FlushChildHashtable(udg_Hash, i)
set t=null
set u=null
set ta=null
endfunction

function Trig_cast_Actions takes nothing returns nothing
local timer ta=CreateTimer()
local integer i=GetHandleId(ta)  
if GetSpellAbilityId() == 'A000' then
call SaveUnitHandle(udg_Hash, i, 0, GetTriggerUnit())  
call SaveUnitHandle(udg_Hash, i, 1, GetSpellTargetUnit())     
call SaveReal(udg_Hash, i, 2, GetWidgetX(GetSpellTargetUnit()))
call SaveReal(udg_Hash, i, 3, GetWidgetY(GetSpellTargetUnit()))
call TimerStart(ta, 5., false, function Trig_cast_Timer)
set ta = null
endif
endfunction

//===========================================================================
function InitTrig_cast takes nothing returns nothing
     local trigger trig=CreateTrigger(  )
     local integer index=0
     loop
         call TriggerRegisterPlayerUnitEvent(trig, Player(index), EVENT_PLAYER_UNIT_SPELL_EFFECT , null)
         set index = index + 1
         exitwhen index == bj_MAX_PLAYER_SLOTS
     endloop
     call TriggerAddAction( trig, function Trig_cast_Actions )
     set trig=null
endfunction