function ALDSAct takes nothing returns nothing
local unit d
local unit c
local unit t = GetTriggerUnit()
local unit s = GetEventDamageSource()
local unit dc
local integer i
local integer id
local boolean b
local boolean cl
local boolean rl
local real r1
local real r2
local real r3
local real Dm = GetEventDamage()
local integer q
local integer w
local item IT



if GetUnitAbilityLevel(t,'B03H') > 0 and IsUnitType(s,UNIT_TYPE_HERO) and (Dm == 1. or GetUnitTypeId(t) == 'o00L') then
//call echo("start range attack hero "+R2S(Dm))
call SetUnitState(t,UNIT_STATE_LIFE,GetUnitState(t,UNIT_STATE_LIFE)+1.)



if GetUnitAbilityLevel(s,'A08V') > 0 and LoadInteger(udg_AssassinHash,GetHandleId(s),StringHash("BEAC")) == 0 and (GetRandomInt(1,100) <= 20 or GetUnitAbilityLevel(t,EMT()) > 0) then
call BestEye(s)
endif

if Dm > 0. and IsTarget(t,s) and GetUnitAbilityLevel(s,'A0NK') > 0 then
call MagicShot(s,GetUnitX(t),GetUnitY(t))
endif


if LoadBoolean(udg_AssassinHash,GetHandleId(s),StringHash("LSBB")) then

if LoadInteger(udg_AssassinHash,GetHandleId(s),StringHash("LSBD")) > 0 then
call LongSwordCheck(s)
else
call SaveInteger(udg_AssassinHash,GetHandleId(s),StringHash("LSBI"),LoadInteger(udg_AssassinHash,GetHandleId(s),StringHash("LSBI"))+1)
if LoadInteger(udg_AssassinHash,GetHandleId(s),StringHash("LSBI")) >= 4 then
call LongSwordAdd(s)
call SaveInteger(udg_AssassinHash,GetHandleId(s),StringHash("LSBI"),0)
endif
endif
endif

call HMCreate(s,t)
call UnitRemoveAbility(t,'B03H')
set Dm = 0.
endif

if Dm > 0. then
set i = 0
set id = 0
set b = false
set cl = false
set rl = false
set r1 = 0.
set r2 = 0.
set r3 = 0.
set q = GetPlayerId(GetOwningPlayer(s))
set w = GetPlayerId(GetOwningPlayer(t))
//set Dm = GetEventDamage()
set dc = RDC(s)

if GetUnitAbilityLevel(t,'B03I') > 0 then
call UnitAddAbility(t,'A086')
call UnitRemoveAbility(t,'B03I')
endif

if (GetUnitAbilityLevel(t,'B03H') > 0 or GetUnitAbilityLevel(s,'A0BI') > 0) and GetUnitTypeId(s) != 'e015' and not IsUnitType(s,UNIT_TYPE_HERO)  then
call UnitAddAbility(t,'A087')
call UnitRemoveAbility(t,'B03H')
//call echo("range attack creep")
endif

if GetUnitTypeId(s) == 'e015' then
call UnitAddAbility(t,'A087')

set s = dc
//call echo("range attack hero "+R2S(Dm))
endif



//all block effect
if LoadBoolean(udg_AssassinHash,GetHandleId(t),StringHash("URB1")) and LoadBoolean(udg_AssassinHash,GetHandleId(t),StringHash("URB2")) == false and Dm > 0. then
call DDCUC(t,Dm,true)
call AssistanceSystem_Timer(Dm,t,s)
set Dm = 0.00
endif

//if GetUnitTypeId(s) != 'h02E' then 


if GetUnitAbilityLevel(dc,'A0AO') > 0 and Dm > 0.and GetUnitTypeId(s) != 'h036' and not (GetUnitTypeId(s) == 'h02T' and GetUnitState(s,UNIT_STATE_MANA) == 100.) then
call DDCUC(t,Dm,true)
set Dm = 0.00
endif

if GetUnitAbilityLevel(dc,'B030') > 0 and Dm > 0. then
call DDCUC(t,Dm,true)
set Dm = 0.00
endif

if GetUnitAbilityLevel(t,'A0EX') > 0 and Dm < GetUnitState(t,UNIT_STATE_MAX_LIFE) then
call DelayedDamageCheck(t,Dm*.2)
set Dm = Dm*.8
endif

if Dm > 0. and GetUnitTypeId(t) == 'n01N' then
if FDFD(dc,t) <= 500. then
call IssueImmediateOrder(t,"stomp")
else
call DDCUC(t,Dm*.8,true)
set Dm = Dm*.2
endif
endif