function Trig_Revive_Hero_Conditions takes nothing returns boolean
      if ( not ( IsUnitType(GetTriggerUnit(), UNIT_TYPE_HERO) == true ) ) then
          return false
      endif
      return true
endfunction

function Trig_Revive_Hero_Actions takes nothing returns nothing
      local timerdialog WINDOW
      local integer HEROWAIT
      local timer OURTIMER
      local unit OURHERO
      set OURHERO = GetDyingUnit()
      set HEROWAIT = ( GetHeroLevel(OURHERO) * 5 )
      set OURTIMER = CreateTimer()
      call StartTimerBJ( OURTIMER, false, ( I2R(HEROWAIT) ))
      call CreateTimerDialogBJ( OURTIMER, GetPlayerName(GetOwningPlayer(OURHERO)) )
      set WINDOW =  bj_lastCreatedTimerDialog
      call TimerDialogDisplayForPlayerBJ( true, WINDOW, GetOwningPlayer(OURHERO) )
      call PolledWait( HEROWAIT )
      call ReviveHeroLoc(OURHERO, GetPlayerStartLocationLoc(GetOwningPlayer(OURHERO)), true )
      call PanCameraToTimedLocForPlayer( GetOwningPlayer(OURHERO), GetUnitLoc(OURHERO), 0.60 )
      call DestroyTimerDialog(WINDOW)
endfunction

//===========================================================================
function InitTrig_Revive_Hero takes nothing returns nothing
      set gg_trg_Revive_Hero = CreateTrigger(  )
      local integer index=0
      loop
          call TriggerRegisterPlayerUnitEvent( gg_trg_Revive_Hero, Player(index), EVENT_PLAYER_UNIT_DEATH , null)

          set index = index + 1
          exitwhen index == bj_MAX_PLAYER_SLOTS
      endloop
      call TriggerAddCondition( gg_trg_Revive_Hero, Condition( function Trig_Revive_Hero_Conditions ) )
      call TriggerAddAction( gg_trg_Revive_Hero, function Trig_Revive_Hero_Actions )
endfunction

globals
       constant hashtable Hash = InitHashtable()
endglobals

function Trig_Revive_Hero_Timer takes nothing returns nothing
       local timer t = GetExpiredTimer()
       local integer ID = GetHandleId(t)
       local real x = LoadReal(Hash, ID, 1)
       local real y = LoadReal(Hash, ID, 2)
       call ReviveHero(LoadUnitHandle(Hash, ID, 0), x, y, true)
       if GetLocalPlayer() == LoadPlayerHandle(Hash, ID, 3) then
           call PanCameraToTimed(x, y, .6)
       endif
       call DestroyTimerDialog(LoadTimerDialogHandle(Hash, ID, 4))
       call FlushChildHashtable(Hash, ID)
       call DestroyTimer(t)
       set t = null
endfunction

function Trig_Revive_Hero_Actions takes nothing returns nothing
       local unit u = GetTriggerUnit()
       local timer t
       local timerdialog td
       local player p
       local integer ID
       if IsUnitType(u, UNIT_TYPE_HERO) then
           set p = GetOwningPlayer(u)
           set t = CreateTimer()
           set ID = GetHandleId(t)
           call TimerStart(t, I2R(GetHeroLevel(u) * 5), false, function Trig_Revive_Hero_Timer)
           set td = CreateTimerDialog(t)
           call TimerDialogSetTitle(td, GetPlayerName(p))
           if GetLocalPlayer() == p then
               call TimerDialogDisplay(td, true)
           endif
           call SaveUnitHandle(Hash, ID, 0, u)
           call SaveReal(Hash, ID, 1, GetStartLocationX(GetPlayerStartLocation(p)))
           call SaveReal(Hash, ID, 2, GetStartLocationY(GetPlayerStartLocation(p)))
           call SavePlayerHandle(Hash, ID, 3, p)
           call SaveTimerDialogHandle(Hash, ID, 4, td)
           set t = null
           set td = null
           set p = null
       endif
       set u = null
endfunction    

//===========================================================================    
function InitTrig_Revive_Hero takes nothing returns nothing
       local trigger trig = CreateTrigger()
       local integer index = 0
       loop
           call TriggerRegisterPlayerUnitEvent(trig, Player(index), EVENT_PLAYER_UNIT_DEATH , null)
           exitwhen index == 15
           set index = index + 1
       endloop
       call TriggerAddAction(trig, function Trig_Revive_Hero_Actions)
       set trig = null
endfunction