function Trig_Text_Damage_Conditions takes nothing returns boolean
    return GetEventDamage() >= 1.00 and GetUnitState(GetTriggerUnit(), UNIT_STATE_LIFE) > 0.5 and GetUnitTypeId(GetTriggerUnit()) != 'opeo'
endfunction

function Block_Damage_Actions takes nothing returns nothing
    local timer t = GetExpiredTimer()
    local integer id = GetHandleId(t)
    local unit u = LoadUnitHandle(udg_Hash, id, 0)
    call SetUnitInvulnerable(u, false)
    call DestroyTimer(t)
    call FlushChildHashtable(udg_Hash, id)
    set t = null
    set u = null
endfunction

function Trig_Text_Damage_Actions takes nothing returns nothing
    local unit u = GetTriggerUnit()
    local unit c = GetEventDamageSource()
    local real dmg = GetEventDamage()
    local player pu = GetOwningPlayer(u)
    local player pc = GetOwningPlayer(с)
    local texttag txt
    local timer t = CreateTimer()
    local integer id = GetHandleId(t)
    if GetRandomReal(0,100) == 100 and UnitHasItemOfTypeBJ(u, 'I005') then
        call SetUnitInvulnerable(u, true)
        call SaveUnitHandle(udg_Hash, id, 0, u)
        call TimerStart(t, 0, false, function Block_Damage_Actions)
        call AddLightningLoc("AFOD", GetUnitLoc(u), GetUnitLoc(c))
        call UnitDamageTarget( u, c, GetRandomReal(1, 100),false ,false , null, null, null )
        set dmg = 0
    endif
    if GetUnitAbilityLevel(u, 'Bbsk') > 0 then
        call SetUnitInvulnerable(u, true)
        call SaveUnitHandle(udg_Hash, id, 0, u)
        call TimerStart(t, 0, false, function Block_Damage_Actions)
        set dmg = 0
    endif
    if dmg > 0 then
        set txt = CreateTextTagUnitBJ( ( ( udg_Color[GetConvertedPlayerId(pc)] + "-" ) + ( I2S(R2I(dmg)) + "" ) ), u, 0, 10.50, 100, 100, 100, 0 )
        call SetTextTagVelocityBJ(txt, 200.00, GetRandomReal(70.00, 110.00) )
        call SetTextTagPermanentBJ(txt, false )
        call SetTextTagLifespanBJ(txt, 2.00 )
        call SetTextTagFadepointBJ(txt, 2.50 )
    endif
    set t = null
    set txt = null
    set u = null
    set c = null
    set pu = null
    set pc = null
endfunction