function ModifyHeroIntTimed_Timer takes nothing returns nothing
      local timer t = GetExpiredTimer()
      local integer i = 0
      loop
          exitwhen t == udg_MHIT_Timer[i]
          set i = i + 1
      endloop
      call SetHeroInt(udg_MHIT_Hero[i], GetHeroInt(udg_MHIT_Hero[i], true) - udg_MHIT_Int[i], true)
      set udg_MHIT_Cur = udg_MHIT_Cur - 1
      set udg_MHIT_Hero[i] = udg_MHIT_Hero[udg_MHIT_Cur]
      set udg_MHIT_Int[i] = udg_MHIT_Int[udg_MHIT_Cur]
      set udg_MHIT_Timer[i] = udg_MHIT_Timer[udg_MHIT_Cur]
      set udg_MHIT_Timer[udg_MHIT_Cur] = t
      set t = null
endfunction

function ModifyHeroIntTimed takes unit hero, integer int, real time returns nothing
      if udg_MHIT_Cur > udg_MHIT_Max then
          set udg_MHIT_Timer[udg_MHIT_Cur] = CreateTimer()
          set udg_MHIT_Max = udg_MHIT_Max + 1
      endif
      call SetHeroInt(hero, GetHeroInt(hero, true) + int, true)
      set udg_MHIT_Hero[udg_MHIT_Cur] = hero
      set udg_MHIT_Int[udg_MHIT_Cur] = int
      call TimerStart(udg_MHIT_Timer[udg_MHIT_Cur], time, false, function ModifyHeroIntTimed_Timer)
      set udg_MHIT_Cur = udg_MHIT_Cur + 1
endfunction