function Trig_Impetus_Conditions takes nothing returns boolean
    return GetLearnedSkill() == 'A07P'
endfunction

function VC2 takes real x1,real y1,real x2,real y2 returns real
    return SquareRoot(((x1-x2)*(x1-x2))+((y1-y2)*(y1-y2)))
endfunction

function JRI takes string JSI,real GRI,unit JTI,real JPI,integer r,integer g,integer b,integer a returns nothing
    local texttag tt=CreateTextTag()
    call SetTextTagText(tt,JSI,JPI)
    call SetTextTagPosUnit(tt,JTI,64)
    call SetTextTagColor(tt,r,g,b,a)
    call SetTextTagVelocity(tt,0,0.0355)
    call SetTextTagFadepoint(tt,2)
    call SetTextTagPermanent(tt,false)
    call SetTextTagLifespan(tt,GRI)
    if IsUnitVisible(JTI,GetLocalPlayer())then
        call SetTextTagVisibility(tt,true)
    else
        call SetTextTagVisibility(tt,false)
    endif
    set tt=null
endfunction

function VE2 takes nothing returns boolean
    local real d
    local real VF2
    if GetUnitAbilityLevel(GetTriggerUnit(),'B01B')>0 and LoadUnitHandle(udg_Hash,GetHandleId(GetTriggeringTrigger()),2)==GetEventDamageSo  urce()then
        call UnitRemoveAbility(GetTriggerUnit(),'B01B')
        set VF2=RMinBJ(VC2(GetUnitX(GetTriggerUnit()),GetUnitY(GetTriggerUnit()),GetUnitX(Ge  tEventDamageSource()),GetUnitY(GetEventDamageSource())),2500)
        set d=(0.10+0.05*I2R(GetUnitAbilityLevel(GetEventDamageSource(),'A07P')))*VF2
        call JRI("+"+I2S(R2I(d)),1,GetTriggerUnit(),0.023,3,216,216,216)
        call UnitDamageTarget(GetEventDamageSource(),GetTriggerUnit(),d,true,true,ATTACK_TYPE  _HERO,DAMAGE_TYPE_MAGIC,WEAPON_TYPE_WHOKNOWS)
        call TriggerRemoveCondition(GetTriggeringTrigger(),LoadTriggerConditionHandle(udg_Has  h,GetHandleId(GetTriggeringTrigger()),3))
        call FlushChildHashtable(udg_Hash,GetHandleId(GetTriggeringTrigger()))
        call DisableTrigger(GetTriggeringTrigger())
        call DestroyTrigger(GetTriggeringTrigger())
   endif
   return false
endfunction

function VG2 takes nothing returns nothing
    local unit XWI
    local unit XVI
    local triggercondition TC
    if GetTriggerEventId()==EVENT_UNIT_SPELL_EFFECT then
        set XWI=GetSpellTargetUnit()
        set XVI=GetTriggerUnit()
    elseif GetTriggerEventId()==EVENT_PLAYER_UNIT_ATTACKED then
        set XWI=GetTriggerUnit()
        set XVI=GetAttacker()
    endif
    if IsUnitIllusion(XVI)==false then
        set udg_trigger = CreateTrigger( )
        call GroupAddUnit(LoadGroupHandle(udg_Hash,GetHandleId(GetTriggeringTrigger()),2), XWI)
        call TriggerRegisterUnitEvent(udg_trigger,XWI,EVENT_UNIT_DAMAGED)
        set TC = TriggerAddCondition(udg_trigger,Condition(function VE2))
        call SaveUnitHandle(udg_Hash,GetHandleId(udg_trigger),2,XVI)
        call SaveTriggerConditionHandle(udg_Hash,GetHandleId(udg_trigger),3,TC)  
    endif
    set TC = null
    set XWI=null
    set XVI=null
endfunction

function VH2 takes nothing returns boolean
    if GetTriggerEventId()==EVENT_PLAYER_UNIT_ATTACKED and GetAttacker() == LoadUnitHandle(udg_Hash,GetHandleId(GetTriggeringTrigger()),1) then
        if GetUnitAbilityLevel(GetAttacker(), 'A07P') > 0 and LoadBoolean(udg_Hash,GetHandleId(GetTriggeringTrigger()),2) == true and IsUnitType(GetTriggerUnit(),UNIT_TYPE_STRUCTURE)==false and GetAttacker()== LoadUnitHandle(udg_Hash,GetHandleId(GetTriggeringTrigger()),1)then
            call VG2()
        endif
    elseif GetTriggerEventId()==EVENT_UNIT_ISSUED_ORDER then
        if(GetIssuedOrderId()==OrderId("poisonarrows"))then
            call RemoveSavedBoolean(udg_Hash,GetHandleId(GetTriggeringTrigger()),2)
            call SaveBoolean(udg_Hash,GetHandleId(GetTriggeringTrigger()),2,true)
        elseif(GetIssuedOrderId()==OrderId("unpoisonarrows"))then
            call RemoveSavedBoolean(udg_Hash,GetHandleId(GetTriggeringTrigger()),2)
            call SaveBoolean(udg_Hash, GetHandleId(GetTriggeringTrigger()),2,false)
        endif
    elseif GetTriggerEventId()==EVENT_UNIT_SPELL_EFFECT and GetSpellAbilityId()=='A07P' then
        call VG2()
    endif
    return false
endfunction

function Trig_Impetus_Actions takes nothing returns nothing
    local trigger t=CreateTrigger()
    call TriggerRegisterAnyUnitEventBJ( t, EVENT_PLAYER_UNIT_ATTACKED) 
    call TriggerRegisterUnitEvent(t,GetLearningUnit(),EVENT_UNIT_SPELL_EFFECT)
    call TriggerRegisterUnitEvent(t,GetLearningUnit(),EVENT_UNIT_ISSUED_ORDER)
    call TriggerAddCondition( t, Condition( function VH2 ) )
    call SaveUnitHandle(udg_Hash,GetHandleId(t),1,GetLearningUnit())
    call DisableTrigger(GetTriggeringTrigger())
    call DestroyTrigger(GetTriggeringTrigger())
    set t = null
endfunction

//===========================================================================
function InitTrig_Impetus takes nothing returns nothing
    set gg_trg_Impetus = CreateTrigger(  )
    call TriggerRegisterAnyUnitEventBJ( gg_trg_Impetus, EVENT_PLAYER_HERO_SKILL )
    call TriggerAddCondition( gg_trg_Impetus, Condition( function Trig_Impetus_Conditions ) )
    call TriggerAddAction( gg_trg_Impetus, function Trig_Impetus_Actions )
endfunction