function Trig_Efir_Shield_Conditions takes nothing returns boolean
   return ( GetSpellAbilityId() == 'A001' ) and ( GetUnitTypeId(GetTriggerUnit()) == 'H001' )
endfunction

function ES_taction takes nothing returns nothing
   local timer t = GetExpiredTimer()
   local trigger tt = LoadTriggerSCV(t, "trigger")
   call DestroyEffect(LoadEffectSCV(t, "effect"))
   call FlushObjectSCV(tt)
   call DestroyTrigger(tt)
   set tt = null
   call FlushObjectSCV(t)
   call DestroyTimer(t)
   set t = null
endfunction

function Evasion2 takes nothing returns nothing
    local trigger t = GetTriggeringTrigger()
    call SetHeroStr(GetTriggerUnit(), R2I(LoadRealSCV(t, "oldstr")), true)
    call SetUnitState(GetTriggerUnit(), UNIT_STATE_LIFE, LoadRealSCV(t, "life"))
    set t = null
    call DestroyTrigger(GetTriggeringTrigger())
endfunction

function Evasion1 takes nothing returns nothing
    local real max = GetUnitState(GetTriggerUnit(), UNIT_STATE_MAX_LIFE)
    local real life = GetUnitState(GetTriggerUnit(), UNIT_STATE_LIFE)
    local real newlife = GetEventDamage() + life
    local real damage = GetEventDamage()
    local real shieldlife = LoadRealSCV(GetTriggeringTrigger(), "shieldlife")
    local integer oldstr
    local integer needstr 
    local trigger t = null
    local trigger tt = GetTriggeringTrigger()
    local timer tm = null

    if shieldlife <= 0 then
       set tm = LoadTimerSCV(tt, "timer")
       call DestroyEffect(LoadEffectSCV(tm, "effect"))
       call FlushObjectSCV(tm)
       call DestroyTimer(tm)
       set tm = null
       set tt = null
       call DestroyTrigger(GetTriggeringTrigger())
    endif

    if newlife > max then
       set oldstr = GetHeroStr(GetTriggerUnit(), false)
       set needstr = R2I(newlife - max / 25.00) + 1
       call SetHeroStr(GetTriggerUnit(), oldstr + needstr, true)
       set t = CreateTrigger()
       call TriggerRegisterUnitLifeEvent(t, GetTriggerUnit(), LESS_THAN, newlife - 0.01 )
       call TriggerAddAction(t, function Evasion2 )
       call StoreRealSCV(t, "oldstr", oldstr)
       call StoreRealSCV(t, "life", life)
       set t = null
    endif
    call SetUnitState(GetTriggerUnit(), UNIT_STATE_LIFE, newlife)
    call StoreRealSCV(tt, "shieldlife", shieldlife - damage )
    set tt = null
endfunction

function Trig_Efir_Shield_Actions takes nothing returns nothing
   local unit caster = GetTriggerUnit()
   local effect e = AddSpecialEffectTarget("Abilities\\Spells\\Undead\\FrostArmor\\FrostArmorTarget.mdl", caster, "chest")
   local trigger t = CreateTrigger()
   local timer tt = CreateTimer()
   call TriggerRegisterUnitEvent( t, caster, EVENT_UNIT_DAMAGED )
   call TriggerAddAction( t, function Evasion1 )
   call StoreRealSCV(t, "shieldlife", (GetUnitAbilityLevelSwapped('A001', caster) - 1)* 150 + 200)
   call StoreObjectSCV(tt, "trigger", t)
   call StoreObjectSCV(tt, "effect", e)
   call StoreObjectSCV(t, "timer", tt)
   call TimerStart(tt, 45, false, function ES_taction)
   call PlaySoundOnUnitBJ( gg_snd_EtherShield, 100, caster )
   set e = null
   set t = null
   set tt = null
   set caster = null
endfunction

//===========================================================================
function InitTrig_Ether_Shield takes nothing returns nothing
    set gg_trg_Ether_Shield = CreateTrigger(  )
    call TriggerRegisterAnyUnitEventBJ( gg_trg_Ether_Shield, EVENT_PLAYER_UNIT_SPELL_EFFECT )
    call TriggerAddCondition( gg_trg_Ether_Shield, Condition( function Trig_Efir_Shield_Conditions ) )
    call TriggerAddAction( gg_trg_Ether_Shield, function Trig_Efir_Shield_Actions )
endfunction