function Enemy_Cond_Attacking_Sys takes nothing returns boolean
    local timer t=GetExpiredTimer()
    local unit u=LoadUnitHandle(udg_h,GetHandleId(t),1)
    local unit tar=LoadUnitHandle(udg_h,GetHandleId(t),2)
    set t=null
    if IsUnitEnemy(u,GetOwningPlayer(tar))==true and GetUnitState(tar,UNIT_STATE_LIFE)>.405 then
        return true
    endif
    set u=null
    set tar=null
    return false
endfunction

function Trig_Ranged_Actions_Dmg takes nothing returns nothing
    local timer t=GetExpiredTimer()
    local unit u=LoadUnitHandle(udg_h,GetHandleId(t),1)
    local unit tar=LoadUnitHandle(udg_h,GetHandleId(t),2)
    if Enemy_Cond_Attacking_Sys then
        call UnitDT(u,tar,4,25.)
    endif
    call FlushChildHashtable(udg_h,GetHandleId(t))
    call DestroyTimer(t)
    set t=null
endfunction

function Trig_Ranged_Actions takes nothing returns nothing
    local timer t=CreateTimer()
    local unit u=GetAttacker()
    local unit tar=GetTriggerUnit()
    local real dx = GetUnitX(tar) - GetUnitX(u)
    local real dy = GetUnitY(tar) - GetUnitY(u)
    local real dur=SquareRoot(dx * dx + dy * dy)
    local real duration=dur+.5/750.
    call SaveUnitHandle(udg_h,GetHandleId(t),1,u)
    call SaveUnitHandle(udg_h,GetHandleId(t),2,tar)
    if Enemy_Cond_Attacking_Sys then
        call TimerStart(t,duration,false,function Trig_Ranged_Actions_Dmg)
    endif
    set t=null
    set u=null
    set tar=null
endfunction