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

function FilterForTarget takes nothing returns boolean
return IsUnitEnemy(GetFilterUnit(),GetOwningPlayer(get_object_uparam(GetExpiredTimer(),  "caster")))and GetUnitAbilityLevel(GetFilterUnit(),'A04R')==0 and GetUnitState(GetFilterUnit(),UNIT_STATE_LIFE)>1 and IsUnitType(GetFilterUnit(),UNIT_TYPE_STRUCTURE)==false
endfunction

function ACFT takes nothing returns nothing
    local timer t=GetExpiredTimer()
    local unit u=get_object_uparam(t,"caster")
    local unit sn=get_object_uparam(t,"snar")
    local unit first
    local location ul=GetUnitLoc(u)
    local location sl=GetUnitLoc(sn)
    local texttag tt
    local real ugl=get_object_rparam(t,"Ugl")
    local real ras=DistanceBetweenPoints(ul,sl)
    local location kn=PolarProjectionBJ(sl,15,ugl)
    local boolexpr cfg=Condition(function FilterForTarget)
    local group g=CreateGroup()
    call SetUnitPositionLoc(sn,kn)
    call GroupEnumUnitsInRange(g,GetUnitX(sn),GetUnitY(sn),150,cfg)
set first=FirstOfGroup(g)
call DestroyBoolExpr(cfg)
call DestroyGroup(g)
call RemoveLocation(ul)
call RemoveLocation(kn)
call RemoveLocation(sl)
if first!=null then
        call UnitDamageTargetBJ(u,first,(ras*0.30)+250,ATTACK_TYPE_NORMAL,DAMAGE_TYPE_NORMAL)  
        set tt=CreateTextTagUnitBJ("+"+I2S(R2I((ras*0.30)+250)),first,50,15,100,50,50,0)
        call KillUnit(sn)
        call PauseTimer(t)
        call flush_object(t)
        call PolledWait(1)
        call DestroyTextTagBJ(tt)
        call DestroyTimer(t)
elseif ras>5000 then
call KillUnit(sn)
        call PauseTimer(t)
        call flush_object(t)
        call DestroyTimer(t)
endif
endfunction

function Trig_Strela_Actions takes nothing returns nothing
    local unit u=GetTriggerUnit()
    local location ul=GetUnitLoc(u)
    local location stl=GetSpellTargetLoc()
    local real ugl=AngleBetweenPoints(ul,stl)
    local timer t=CreateTimer()
    local location gnc=PolarProjectionBJ(ul,10,ugl)
    local unit sn=CreateUnitAtLoc(GetOwningPlayer(u),'hfoo',ul,270)
    call SetUnitPathing(sn,false)
    call set_object_rparam(t,"Ugl",ugl)
    call set_object_iparam(t,"snar",H2I(sn))
    call set_object_iparam(t,"caster",H2I(u))
    call TimerStart(t,0.025,true,function ACFT)
    call RemoveLocation(ul)
    call RemoveLocation(stl)
    call RemoveLocation(gnc)
endfunction

//===========================================================================
function InitTrig_Strela takes nothing returns nothing
    local trigger gg_trg_Strela = CreateTrigger(  )
    call TriggerRegisterAnyUnitEventBJ( gg_trg_Strela, EVENT_PLAYER_UNIT_SPELL_EFFECT )
    call TriggerAddCondition( gg_trg_Strela, Condition( function Trig_Strela_Conditions ) )
    call TriggerAddAction( gg_trg_Strela, function Trig_Strela_Actions )
endfunction

function Trig_lims_Conditions takes nothing returns boolean
    if ( not ( GetLearnedSkillBJ() == 'AEah' ) ) then
        return false
    endif
    return true
endfunction

function TrigAction takes nothing returns nothing
    local damagetype dt=ConvertDamageType(R2I(GetEventDamage()))
    if dt==DAMAGE_TYPE_MAGIC then
    call KillUnit(GetTriggerUnit())
    endif
endfunction

function Trig_lims_Actions takes nothing returns nothing
    local unit u=GetTriggerUnit()
    local trigger trg
    if GetUnitAbilityLevel(u,'AEah')==1 then
    set trg=CreateTrigger()
    call TriggerRegisterUnitEvent(trg,u,EVENT_UNIT_DAMAGED)
    call TriggerAddAction(trg,function TrigAction)
    endif   
endfunction

//===========================================================================
function InitTrig_lims takes nothing returns nothing
    local trigger gg_trg_lims = CreateTrigger(  )
    call TriggerRegisterAnyUnitEventBJ( gg_trg_lims, EVENT_PLAYER_HERO_SKILL )
    call TriggerAddCondition( gg_trg_lims, Condition( function Trig_lims_Conditions ) )
    call TriggerAddAction( gg_trg_lims, function Trig_lims_Actions )
endfunction