function HeroDeath_con takes nothing returns boolean
    return GetUnitTypeId(GetDyingUnit()) == 'H004' or GetUnitTypeId(GetDyingUnit()) == 'H00D' or GetUnitTypeId(GetDyingUnit()) == 'H007'
endfunction

function ReviveHeros takes nothing returns nothing
    local timer t = GetExpiredTimer()
    local integer id = GetHandleId(t)
    local unit d = LoadUnitHandle(udg_hash, id, 0)
    local timerdialog ti = LoadTimerDialogHandle(udg_hash, id, 1)
    call DestroyTimerDialog(ti)
    call ReviveHero(d, GetRectCenterX(gg_rct_RevivHero), GetRectCenterY(gg_rct_RevivHero), true)
    if (GetLocalPlayer() == GetOwningPlayer(d)) then
        call PanCameraToTimed(GetRectCenterX(gg_rct_RevivHero), GetRectCenterY(gg_rct_RevivHero), 0.)
    endif
    call FlushChildHashtable(udg_hash, id)
    call DestroyTimer(t)
    set t = null
    set d = null
    set ti = null
endfunction

function HeroDeath_act takes nothing returns nothing
    local unit d = GetDyingUnit()
    local timer t = CreateTimer()
    local timerdialog ti = CreateTimerDialog(t)
    local integer id = GetHandleId(t)
    local real r = (I2R(GetHeroLevel(d)) * 10)
    if r > 120 then
        set r = 120
    endif
    ================================================== = 
    if GetOwningPlayer(d) == Player(0) then
        set udg_DeathTitel[1] = ( udg_DeathTitel[1] + 1 )
        call MultiboardSetItemValueBJ( udg_multytitle, 4, ( GetConvertedPlayerId(GetOwningPlayer(d)) + 1 ), I2S(udg_DeathTitel[1]))
    endif
    if GetOwningPlayer(d) == Player(1) then
        set udg_DeathTitel[2] = ( udg_DeathTitel[2] + 1 )
        call MultiboardSetItemValueBJ( udg_multytitle, 4, ( GetConvertedPlayerId(GetOwningPlayer(d)) + 1 ), I2S(udg_DeathTitel[2]))
    endif
    if GetOwningPlayer(d) == Player(2) then
        set udg_DeathTitel[3] = ( udg_DeathTitel[3] + 1 )
        call MultiboardSetItemValueBJ( udg_multytitle, 4, ( GetConvertedPlayerId(GetOwningPlayer(d)) + 1 ), I2S(udg_DeathTitel[3]))
    endif
    if GetOwningPlayer(d) == Player(3) then
        set udg_DeathTitel[4] = ( udg_DeathTitel[4] + 1 )
        call MultiboardSetItemValueBJ( udg_multytitle, 4, ( GetConvertedPlayerId(GetOwningPlayer(d)) + 1 ), I2S(udg_DeathTitel[4]))
    endif
    if GetOwningPlayer(d) == Player(4) then
        set udg_DeathTitel[5] = ( udg_DeathTitel[5] + 1 )
        call MultiboardSetItemValueBJ( udg_multytitle, 4, ( GetConvertedPlayerId(GetOwningPlayer(d)) + 1 ), I2S(udg_DeathTitel[5]))
    endif
    if GetOwningPlayer(d) == Player(5) then
        set udg_DeathTitel[6] = ( udg_DeathTitel[6] + 1 )
        call MultiboardSetItemValueBJ( udg_multytitle, 4, ( GetConvertedPlayerId(GetOwningPlayer(d)) + 1 ), I2S(udg_DeathTitel[6]))
    endif
    if GetOwningPlayer(d) == Player(6) then
        set udg_DeathTitel[7] = ( udg_DeathTitel[7] + 1 )
        call MultiboardSetItemValueBJ( udg_multytitle, 4, ( GetConvertedPlayerId(GetOwningPlayer(d)) + 1 ), I2S(udg_DeathTitel[7]))
    endif
    if GetOwningPlayer(d) == Player(7) then
        set udg_DeathTitel[8] = ( udg_DeathTitel[8] + 1 )
        call MultiboardSetItemValueBJ( udg_multytitle, 4, ( GetConvertedPlayerId(GetOwningPlayer(d)) + 1 ), I2S(udg_DeathTitel[8]))
    endif
    if GetOwningPlayer(d) == Player(8) then
        set udg_DeathTitel[9] = ( udg_DeathTitel[9] + 1 )
        call MultiboardSetItemValueBJ( udg_multytitle, 4, ( GetConvertedPlayerId(GetOwningPlayer(d)) + 1 ), I2S(udg_DeathTitel[9]))
    endif
    if GetOwningPlayer(d) == Player(9) then
        set udg_DeathTitel[10] = ( udg_DeathTitel[10] + 1 )
        call MultiboardSetItemValueBJ( udg_multytitle, 4, ( GetConvertedPlayerId(GetOwningPlayer(d)) + 1 ), I2S(udg_DeathTitel[10]))
    endif
    ================================================== = 
    if (GetLocalPlayer() == GetOwningPlayer(d)) then
        call TimerDialogDisplay(ti, true)
        call TimerDialogSetTitle(ti, "До воскрешения:")
        call SaveUnitHandle(udg_hash, id, 0, d)
        call SaveTimerDialogHandle(udg_hash, id, 1, ti)
        call TimerStart(t, r, false, function ReviveHeros)
    endif
    set t = null
    set d = null
    set ti = null
endfunction

function InitTrig_HeroRevive takes nothing returns nothing
    local trigger t = CreateTrigger()
    call TriggerRegisterAnyUnitEventBJ(t, EVENT_PLAYER_UNIT_DEATH)
    call TriggerAddCondition(t, Condition(function HeroDeath_con))
    call TriggerAddAction(t, function HeroDeath_act)
    set t = null
endfunction

local integer p=GetPlayerId(GetOwningPlayer(d))
set udg_DeathTitel[p] = udg_DeathTitel[p] + 1 
call MultiboardSetItemValueBJ( udg_multytitle, 4, GetPlayerId(GetOwningPlayer(d))+1,  I2S(udg_DeathTitel[p]))