//Custom Code
function H2I takes handle h returns integer
 return h
 return 0
endfunction

function I2U takes integer i returns unit
 return i
 return null
endfunction

//Triggers

//=================================================
function InitTrig_InitCache takes nothing returns nothing
 call FlushGameCache(InitGameCache("AbilityCache.w3v"))
 set udg_AbilityCache=InitGameCache("AbilityCache.w3v")
endfunction

//==================================================

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

function move takes nothing returns nothing
 local gamecache gc=udg_AbilityCache
 local timer ti=GetExpiredTimer()
 local string s=I2S(H2I(ti))
 local unit c=I2U(GetStoredInteger(gc,s,"caster"))
 local real tx=GetStoredReal(gc,s,"targx")
 local real ty=GetStoredReal(gc,s,"targy")
 local real cx=GetUnitX(c)
 local real cy=GetUnitY(c)

//...
endfunction

function Trig_SpiritForm_Actions takes nothing returns nothing
 local unit c=GetTriggerUnit()
 local gamecache gc=udg_AbilityCache
 local timer ti=CreateTimer()
 local string s=I2S(H2I(ti))
 local real cx=GetUnitX(c)
 local real cy=GetUnitY(c)
 local real tx=GetLocationX(GetSpellTargetLoc())
 local real ty=GetLocationY(GetSpellTargetLoc())

 call StoreInteger(gc,s,"caster",H2I(c))
 call StoreReal(gc,s,"targx",tx)
 call StoreReal(gc,s,"targy",ty)

 call TimerStart(ti,0.04,true,function move)

 set c=null
 set gc=null
 set ti=null
 set s=""
 set cx=0.00
 set cy=0.00
 set tx=0.00
 set ty=0.00
endfunction

function InitTrig_SpiritForm takes nothing returns nothing
    set gg_trg_SpiritForm = CreateTrigger(  )
    call TriggerRegisterAnyUnitEventBJ( gg_trg_SpiritForm, EVENT_PLAYER_UNIT_SPELL_EFFECT )
    call TriggerAddCondition( gg_trg_SpiritForm, Condition( function Trig_SpiritForm_Conditions ) )
    call TriggerAddAction( gg_trg_SpiritForm, function Trig_SpiritForm_Actions )
endfunction

globals
    group GG = CreateGroup()
    integer TempForGroup = 0
endglobals

library SpiritForm initializer Init

globals    
    private constant real g_Period = 0.04
    private timer g_Tm = CreateTimer()  
    private filterfunc g_ff
    private code g_functimer
    
    private SpiritForm array g_AllSpiritForm
    private integer g_CountSpiritForm = 0
endglobals

struct SpiritForm
    private integer Index
                  
    private unit Caster
    private real X
    private real Y
    private real SX
    private real SY
    private integer CountMove
    private real Range
    private real Damag

    static method FilterUnit takes nothing returns boolean
        local SpiritForm this = TempForGroup
        local unit f = GetFilterUnit()
        if (f != .Caster) then
            call UnitDamageTarget(.Caster, f, .Damag, true, false, ATTACK_TYPE_NORMAL, DAMAGE_TYPE_NORMAL, WEAPON_TYPE_WHOKNOWS)
        endif
        return false
    endmethod
    
    method Period takes nothing returns nothing
        set .X = .X + .SX                   
        set .Y = .Y + .SY
        set .CountMove = .CountMove - 1
        if (.CountMove > 0) then
            call SetUnitX(.Caster, .X) 
            call SetUnitY(.Caster, .Y)
            set TempForGroup = this
            call GroupEnumUnitsInRange(GG, .X, .Y, .Range, g_ff)
        else
            call .Delete()
            call .destroy()
        endif
    endmethod
    
    private method Add takes nothing returns nothing
        if (g_CountSpiritForm == 0) then
            call TimerStart(g_Tm, g_Period, true, g_functimer)
        endif
        set g_AllSpiritForm[g_CountSpiritForm] = this
        set .Index = g_CountSpiritForm
        set g_CountSpiritForm = g_CountSpiritForm + 1
    endmethod
    
    private method Delete takes nothing returns nothing
        set g_CountSpiritForm = g_CountSpiritForm - 1
        set g_AllSpiritForm[.Index] = g_AllSpiritForm[g_CountSpiritForm]
        set g_AllSpiritForm[.Index].Index = .Index
        if (g_CountSpiritForm == 0) then
            call PauseTimer(g_Tm)
        endif
    endmethod

    static method Cast takes unit Caster, location Target, real Speed, real Range, real Damag returns nothing
        local SpiritForm this = SpiritForm.create()
        local timer tm = CreateTimer()
        local real tx = GetLocationX(Target)
        local real ty = GetLocationY(Target)
        local real len
        set .Range = Range
        set .Damag = Damag*g_Period
        set .Caster = Caster
        set .X = GetUnitX(Caster)
        set .Y = GetUnitY(Caster)
        set .SX = tx-.X  
        set .SY = ty-.Y
        set len = SquareRoot(.SX*.SX+.SY*.SY)/Speed
        set .SX = .SX/len
        set .SY = .SY/len
        set .CountMove = R2I(len)
        call .Add()
    endmethod

endstruct
    
private function FunctionTimer takes nothing returns nothing
    local integer i = g_CountSpiritForm - 1
    loop
        call g_AllSpiritForm[i].Period()
        exitwhen i == 0
        set i = i - 1
    endloop
endfunction

private function Init takes nothing returns nothing
    set g_functimer = function FunctionTimer
    set g_ff = Filter(function SpiritForm.FilterUnit)
endfunction

endlibrary

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

function Trig_SpiritForm_Actions takes nothing returns nothing
    local unit c = GetTriggerUnit()
    local location t = GetSpellTargetLoc()
    // 10 - скорость
    // 256 - расстояние в котором будет наносится урон
    // 100 - урон в секунду
    call SpiritForm.Cast(c, t, 10.0, 256.0, 100.0)
    call RemoveLocation(t)
    set c = null 
    set t = null
endfunction

function InitTrig_SpiritForm takes nothing returns nothing
    set gg_trg_SpiritForm = CreateTrigger()
    call TriggerRegisterAnyUnitEventBJ(gg_trg_SpiritForm, EVENT_PLAYER_UNIT_SPELL_EFFECT)
    call TriggerAddCondition(gg_trg_SpiritForm, Condition(function Trig_SpiritForm_Conditions))
    call TriggerAddAction(gg_trg_SpiritForm, function Trig_SpiritForm_Actions)
endfunction