globals
    constant real Const = 0.06 // Константа, "прирост порчи брони при уроне"
    trigger Def = null
    real  GetUnitDef  = 0// - Бронь юнита
endglobals

function Action_def takes nothing returns nothing
    local real Damage = GetEventDamage()
    if( Damage <= 10)then
    set GetUnitDef =((10 -Damage)/10)/((1-((10-Damage)/10))*Const)
    else
    set GetUnitDef = 0
    endif
endfunction
function InitTrigDef takes unit u returns nothing
    set Def = CreateTrigger(  )
    call TriggerRegisterUnitEvent(Def,u,EVENT_UNIT_DAMAGED)
    call TriggerAddAction(Def, function Action_def )
endfunction

//Функция...
function GetUnitDet takes unit u returns real
    call InitTrigDef(u)
    call UnitAddAbility(u , 'A000' )
    call UnitDamageTarget(u, u,10, true, false, ATTACK_TYPE_CHAOS, DAMAGE_TYPE_NORMAL, WEAPON_TYPE_WHOKNOWS)
    call DestroyTrigger(Def)
    call UnitRemoveAbility(u,'A000' )
    return GetUnitDef
endfunction

function GetUnitDefence takes unit u returns real
    local real hp = GetUnitState(u, UNIT_STATE_LIFE)
    local real damage
    call UnitDamageTarget( u, u, 10.0, true, false, ATTACK_TYPE_CHAOS, DAMAGE_TYPE_NORMAL, null)
    set damage = hp - GetUnitState(u, UNIT_STATE_LIFE)
    call SetUnitState(u, UNIT_STATE_LIFE, hp)
    if damage > 10.0 then
        set damage = 20.0 - damage
        return (damage-10.0)/(damage*0.06)
    endif
    return (10.0-damage)/(damage*0.06)
endfunction

function GetUnitDefence takes unit u returns real
local real hp = GetUnitState(u, UNIT_STATE_LIFE)
local real damage
call UnitAddAbility(u , 'A000' )
call UnitDamageTarget( u, u, 10.0, true, false, ATTACK_TYPE_CHAOS, DAMAGE_TYPE_NORMAL, null)
set damage = hp - GetUnitState(u, UNIT_STATE_LIFE)
call UnitRemoveAbility(u,'A000' )
call SetUnitState(u, UNIT_STATE_LIFE, hp)
if damage > 10.0 then
set damage = 20.0 - damage
return (damage-10.0)/(damage*0.06)
endif
return (10.0-damage)/(damage*0.06)
endfunction