local location loc1
local location loc2
local unit u
set u = GetTriggerUnit()
set loc1 = GetUnitLoc (u)
set loc2 = GetUnitLoc(GetAttacker())
call PolledWait (DistanceBetweenPoints(loc1, loc2))
call SetUnitLifeBJ( u, ( GetUnitStateSwap(UNIT_STATE_LIFE, u) - 25.00 ) ) (for example)
call RemoveLocation(loc1)
call RemoveLocation(loc2)