function SoulHarvestCon takes nothing returns boolean
    return GetSpellAbilityId() == 'A0JI'
endfunction

function SoulHarvestMove takes nothing returns nothing
    local timer t = GetExpiredTimer()
    local integer id = GetHandleId(t)
    local unit c = LoadUnitHandle(udg_AssassinHash, id, 0)
    local unit u = LoadUnitHandle(udg_AssassinHash, id, 1)
    local unit d = LoadUnitHandle(udg_AssassinHash, id, 2)
    local real r = 0.
    local real dist = LoadReal(udg_AssassinHash, id, 3)
    local real dist1 = 0.
    local integer i = LoadInteger(udg_AssassinHash, id, 5)
    local boolean b = LoadBoolean(udg_AssassinHash, id, 4)
    local boolean v = LoadBoolean(udg_AssassinHash, id, 6)
    local real dmg = 75. * GetUnitAbilityLevel(c, 'A0JI')
    if b == false and i == 0 then
        set dist1 = FDFD(d, c)
        if dist1 > 35. then
            set r = ABU(c, d)
            if dist1 > dist then
                call SaveReal(udg_AssassinHash, id, 3, dist1)
            endif
            call SetUnitX(d, GetUnitX(d) + 30. * Cos(r))
            call SetUnitY(d, GetUnitY(d) + 30. * Sin(r))
            call SetUnitFlyHeight(d, ParabolaZ(400., dist, dist1) - 20., 0)
        else
            call SaveBoolean(udg_AssassinHash, id, 4, true)
        endif
    endif
    if b then
        if i < 70 and v == false then
            set r = LoadReal(udg_AssassinHash, id, 6) + .174
            if r == 6.28 then
                set r = 0.
            endif
            call SaveReal(udg_AssassinHash, id, 6, r)
            call SetUnitFacing(d, r * bj_RADTODEG)
            call SetUnitX(d, SafeX(GetUnitX(c) + 95. * Cos(r)))
            call SetUnitY(d, SafeY(GetUnitY(c) + 95. * Sin(r)))
            if IsUnitInvisible(c, udg_EmenyPlayer[GetPlayerId(GetOwningPlayer(c)) + 1]) then
                call UnitAddAbility(d, 'A0ES')
            else
                call UnitRemoveAbility(d, 'A0ES')
            endif
            call SaveInteger(udg_AssassinHash, id, 5, i + 1)
            if FDFD(c, u) < 185. then
                call SaveBoolean(udg_AssassinHash, id, 6, true)
            endif
        endif
        if v then
            set r = ABU(u, d)
            if FDFD(d, u) < 35. then
                call UnitRemoveAbility(u, 'A0JG')
                call DestroyEffect(LoadEffectHandle(udg_AssassinHash, id, StringHash("ED")))
                call DestroyEffect(LoadEffectHandle(udg_AssassinHash, id, StringHash("ED2")))
                call DestroyEffect(LoadEffectHandle(udg_AssassinHash, id, StringHash("ED3")))
                call UnitApplyTimedLife(d, 'BTLF', 1)
                call DestroyTimer(t)
                call FlushChildHashtable(udg_AssassinHash, id)
            else
                call SetUnitX(d, SafeX(GetUnitX(d) + 30. * Cos(r)))
                call SetUnitY(d, SafeY(GetUnitY(d) + 30. * Sin(r)))
                call UnitRemoveAbility(d, 'A0ES')
            endif
        endif
        if i > 68 and v == false then
            set r = ABU(u, d)
            if FDFD(d, u) < 35. then
                call DestroyEffect(LoadEffectHandle(udg_AssassinHash, id, StringHash("ED")))
                call DestroyEffect(LoadEffectHandle(udg_AssassinHash, id, StringHash("ED2")))
                call DestroyEffect(LoadEffectHandle(udg_AssassinHash, id, StringHash("ED3")))
                call UnitApplyTimedLife(d, 'BTLF', 1)
                call UnitRemoveAbility(u, 'A0JG')
                if IsUnitDeadBX(u) == false then
                    call UnitDamageTarget(c, u, dmg, true, false, ATTACK_TYPE_CHAOS, DAMAGE_TYPE_UNKNOWN, WEAPON_TYPE_WHOKNOWS)
                    if LoadReal(udg_AssassinHash, id, StringHash("SHM")) - dmg < 0. then
                        call SetUnitState(u, UNIT_STATE_MANA, 0.)
                    else
                        call SetUnitState(u, UNIT_STATE_MANA, LoadReal(udg_AssassinHash, id, StringHash("SHM")) - dmg)
                    endif
                    set d = CreateUnit(GetOwningPlayer(u), 'h02G', GetUnitX(u), GetUnitY(u), 0)
                    call UnitApplyTimedLife(d, 'BTLF', 1.)
                    call SetUnitAbilityLevel(d, 'A0H7', 5)
                    call IssueTargetOrder(d, "soulburn", u)
                    set d = null
                endif
                call DestroyTimer(t)
                call FlushChildHashtable(udg_AssassinHash, id)
            else
                call SetUnitX(d, SafeX(GetUnitX(d) + 30. * Cos(r)))
                call SetUnitY(d, SafeY(GetUnitY(d) + 30. * Sin(r)))
                call UnitRemoveAbility(d, 'A0ES')
            endif
        endif
    endif
    set t = null
    set u = null
    set c = null
    set d = null
endfunction

function SoulHarvest takes nothing returns nothing
    local unit c = GetSpellAbilityUnit()
    local unit u = GetSpellTargetUnit()
    local timer t
    local integer id
    local unit d
    if GetUnitAbilityLevel(u, 'A0JG') == 0 then
        set t = CreateTimer()
        set id = GetHandleId(t)
        set d = CreateUnit(GetOwningPlayer(c), 'e00O', GetUnitX(u), GetUnitY(u), ABU(c, u) * bj_RADTODEG)
        call SaveUnitHandle(udg_AssassinHash, id, 0, c)
        call SaveUnitHandle(udg_AssassinHash, id, 1, u)
        call SaveUnitHandle(udg_AssassinHash, id, 2, d)
        call SaveEffectHandle(udg_AssassinHash, id, StringHash("ED"), AddSpecialEffectTarget("Abilities\\Weapons\\IllidanMissile\\IllidanMissile.mdl", d, "origin"))
        call SaveEffectHandle(udg_AssassinHash, id, StringHash("ED2"), AddSpecialEffectTarget("Abilities\\Weapons\\AvengerMissile\\AvengerMissile.mdl", d, "origin"))
        call SaveEffectHandle(udg_AssassinHash, id, StringHash("ED3"), AddSpecialEffectTarget("Abilities\\Weapons\\WitchDoctorMissile\\WitchDoctorMissile.mdl", d, "origin"))
        call SetUnitFlyHeight(d, 50, 0)
        call SetUnitScale(d, 1.55, 1.55, 1.55)
        call SaveReal(udg_AssassinHash, id, 3, FDFD(c, u))
        call SaveReal(udg_AssassinHash, id, StringHash("SHM"), GetUnitState(u, UNIT_STATE_MANA))
        call UnitAddAbility(u, 'A0JG')
        call TimerStart(t, .03, true, function SoulHarvestMove)
    else
        call SimError(GetOwningPlayer(c), "У этого юнита уже нет души.")
        call IssueImmediateOrder(c, "stop")
        call DelayedManaCheck(c, 145.)
    endif
    set t = null
    set u = null
    set c = null
    set d = null
endfunction