function GetUnitDefense_Get takes nothing returns nothing
local real Damage = GetEventDamage()
local real i = (10 - Damage) / 10
local real c
if Damage < 10 then
set udg_DefReal = i / ( 0.06 - i*0.06 )
elseif Damage > 10 then
set c = 1
set i = i + 1
loop
exitwhen Pow(0.94,c) <= i
set c = c + 1
endloop
set udg_DefReal = -c
else
set udg_DefReal = 0
endif
endfunction

function GetUnitDefense takes unit u returns real
local trigger t = CreateTrigger()
local integer id = 'A00C' //абила дающая хп
local real life 
local triggeraction TrA = TriggerAddAction(t,function GetUnitDefense_Get)
call TriggerRegisterUnitEvent(t,u,EVENT_UNIT_DAMAGED)
call UnitAddAbility(u,id)
set udg_DefReal = 0.001
set life = GetUnitState(u,UNIT_STATE_LIFE)
call UnitDamageTarget(u,u,10.,true,false,ATTACK_TYPE_CHAOS,DAMAGE_TYPE_NORMAL,WEAPON_TYPE_WHOKNOWS)
call SetUnitState(u,UNIT_STATE_LIFE,life)
call UnitRemoveAbility(u,id)
call TriggerRemoveAction(t,TrA)
call DestroyTrigger(t)
set t = null
set TrA = null
return udg_DefReal
endfunction