library F
hashtable H = InitHashtable()
function DBT takes real x1, real y1, real x2, real y2 returns real
return SquareRoot((x1-x2)*(x1-x2)+(y1-y2)*(y1-y2))
endfunction
endlibrary

library Firaga takes F
private integer FD = 'h000' //Дамми
private real DMG = 100 //Урон
private integer Firaga = 'A002' //Способность
private real speed = 20 //Скорость
private string se = "Abilities\\Spells\\Other\\Doom\\DoomDeath.mdl" //Взрыв
function FCond takes nothing returns boolean
return GetSpellAbilityId() == Firaga
endfunction


function Handler takes nothing returns nothing
timer t = GetExpiredTimer()
int id = GetHandleId(H)
unit u = LoadUnitHandle(H, id, 0)
unit ue = LoadUnitHandle(H, id, 1)
unit d = LoadUnitHandle(H, id, 2)
real xd = GetUnitX(d)
real yd = GetUnitY(d)
real x1 = GetUnitX(ue)
real y1 = GetUnitY(ue)
real a = Atan2(y1-yd, x1-xd)
BJDebugMsg("3")
if (DBT(xd, yd, x1, y1)>40.) then
SetUnitX(d, xd+speed*Cos(a))
SetUnitY(d, yd+speed*Sin(a))
BJDebugMsg("4")
else
DestroyEffect(AddSpecialEffect(se, x1, y1))
UnitDamageTarget(u,ue,DMG,false,false,null,null,null)
BJDebugMsg("5")
RemoveUnit(d)
FlushChildHashtable(H,id)
PauseTimer(t)
DestroyTimer(t)
endif
d = null
ue = null
u = null
t = null
endfunction

function TrigFiraga takes nothing returns nothing
timer t = CreateTimer()
int id = GetHandleId(H)
unit u = GetSpellAbilityUnit()
unit ue = GetSpellTargetUnit()
real x = GetUnitX(u)
real y = GetUnitY(u)
real f = GetUnitFacing(u)
BJDebugMsg("1")
SaveUnitHandle(H, id, 0, u)
SaveUnitHandle(H, id, 1, ue)
SaveUnitHandle(H, id, 2, CreateUnit(GetOwningPlayer(u),FD, x+50.*Cos(f*bj_DEGTORAD), y+50.*Sin(f*bj_DEGTORAD), f))
TimerStart(t, 0.025, true, function Handler)
BJDebugMsg("2")
u = null
ue = null
t = null
endfunction
function InitTrig_Firaga takes nothing returns nothing
set gg_trg_Firaga = CreateTrigger( )
TriggerRegisterAnyUnitEventBJ(gg_trg_Firaga, EVENT_PLAYER_UNIT_SPELL_EFFECT)
TriggerAddCondition(gg_trg_Firaga, Condition(function FCond))
call TriggerAddAction( gg_trg_Firaga, function TrigFiraga )
endfunction
endlibrary