globals
unit vinecaster
unit vinetarget
unit vine
trigger act
endglobals

function Trig_Killing_Vine_Conditions takes nothing returns boolean
    if ( not ( GetSpellAbilityId() == 'A01Q' ) ) then
        return false
    endif
    return true
endfunction

function main takes nothing returns nothing
local unit u = vine
local unit u2 = vinetarget
local unit u3 = vinecaster
local location p = GetUnitLoc(u)
local location p2 = GetUnitLoc(u2)
local real a
local effect e = null
if DistanceBetweenPoints(p, p2) > 100 then

   set a = AngleBetweenPoints(p, p2)

   call MoveLocation(p, GetLocationX(p) + 50 * CosBJ(a), GetLocationY(p) + 50 * SinBJ(a))
   call SetUnitPositionLoc( u, p )
else

call CreateUnitAtLoc(GetOwningPlayer(u3),'h001',GetUnitLoc(u2),bj_UNIT_FACING)
call UnitApplyTimedLifeBJ( 1, 'BTLF', GetLastCreatedUnit() )
call UnitAddAbility(GetLastCreatedUnit(),'A01R')
call SetUnitAbilityLevel(GetLastCreatedUnit(),'A01R',GetUnitAbilityLevel(u3,'A01Q'))
call IssueTargetOrderBJ( GetLastCreatedUnit(), "entanglingroots", u2 )

    call RemoveUnit( u )
    call DestroyTrigger(act)

endif

 set u = null
 set u2 = null
call RemoveLocation(p)
call RemoveLocation(p2)
 set p = null
 set p2 = null
 set a = 0
endfunction



function Trig_Killing_Vine_Actions takes nothing returns nothing
set vinecaster=GetSpellAbilityUnit()
set vinetarget=GetSpellTargetUnit()
set vine=CreateUnitAtLoc(GetOwningPlayer(vinecaster),'u000',GetUnitLoc(vinecaster),b  j_UNIT_FACING)
set act=CreateTrigger()
call TriggerRegisterTimerEvent(act,0.05,true)
call TriggerAddAction(act,function main)
endfunction

//===========================================================================
function InitTrig_Killing_Vine takes nothing returns nothing
    set gg_trg_Killing_Vine = CreateTrigger(  )
    call TriggerRegisterAnyUnitEventBJ( gg_trg_Killing_Vine, EVENT_PLAYER_UNIT_SPELL_EFFECT )
    call TriggerAddCondition( gg_trg_Killing_Vine, Condition( function Trig_Killing_Vine_Conditions ) )
    call TriggerAddAction( gg_trg_Killing_Vine, function Trig_Killing_Vine_Actions )
endfunction

globals
    unit vinecaster
    unit vinetarget
    unit vine
endglobals

function Trig_Killing_Vine_Conditions takes nothing returns boolean
    return GetSpellAbilityId() == 'A01Q'
endfunction

function DistanceBetweenCord takes real AX, real AY, real BX, real BY returns real
    local real dx = BX - AX
    local real dy = BY - AY
    return SquareRoot(dx * dx + dy * dy)
endfunction 

function main takes nothing returns nothing
    local real X = GetUnitX(vine)
    local real Y = GetUnitY(vine)
    local real len = DistanceBetweenCord(X, Y, GetUnitX(vinetarget), GetUnitY(vinetarget))
    local real a
    local unit u
    if len > 100 then
        set a = Atan2(GetUnitY(vinetarget) - Y, GetUnitX(vinetarget) - X)
        call SetUnitX(vine, X + 50 * Cos(a))
        call SetUnitY(vine, Y + 50 * Sin(a))
    else
        set u = CreateUnit(GetOwningPlayer(vinecaster), 'h001', GetUnitX(vinetarget), GetUnitY(vinetarget), bj_UNIT_FACING)
        call UnitApplyTimedLife( u, 'BTLF', 1 )
        call UnitAddAbility(u, 'A01R')
        call SetUnitAbilityLevel(u, 'A01R', GetUnitAbilityLevel(vinecaster, 'A01Q'))
        call IssueTargetOrder(u, "entanglingroots", vinetarget)
        call RemoveUnit(vine)
        call DestroyTimer(GetExpiredTimer())
        set u = null
    endif
endfunction

function Trig_Killing_Vine_Actions takes nothing returns nothing
    local timer t = CreateTimer()  
    call TimerStart(t, 0.05, true, function main)
    set vinecaster = GetSpellAbilityUnit()
    set vinetarget = GetSpellTargetUnit()
    set vine = CreateUnit(GetOwningPlayer(vinecaster), 'u000', GetUnitX(vinecaster), GetUnitY(vinecaster), bj_UNIT_FACING)
    set t = null
endfunction

function InitTrig_Killing_Vine takes nothing returns nothing
    set gg_trg_Killing_Vine = CreateTrigger()
    call TriggerRegisterAnyUnitEventBJ(gg_trg_Killing_Vine, EVENT_PLAYER_UNIT_SPELL_EFFECT                  )
    call TriggerAddCondition          (gg_trg_Killing_Vine, Condition(function Trig_Killing_Vine_Conditions))
    call TriggerAddAction             (gg_trg_Killing_Vine,           function Trig_Killing_Vine_Actions    )
endfunction