function run_unit_death takes nothing returns nothing
   local timer t  = GetExpiredTimer()
   local string s = get_object_sparam(t, "action")
   local unit target = I2U(get_object_iparam(t, "target"))
   if s == "kill" then
   call KillUnit (target)
   endif
   if s == "remove" then
   call RemoveUnit (target)
   call RemoveLocation ( GetUnitLoc (target) )
   endif
   if s == "explode" then
   call ExplodeUnitBJ (target)
   endif
   if s != "kill" or s != "remove" or s != "explode" then
   call DestroyTimer(t)
   call flush_object(t)
   return
   endif
   call DestroyTimer(t)
   call flush_object(t)
   endfunction

   function init_unit_death takes string action, unit target, real timeout returns nothing
   local timer t = CreateTimer()
   call TimerStart(t, timeout, false, function run_unit_death)
   call set_object_iparam(t, "target", H2I(target))
   call set_object_sparam(t, "action", action)
   endfunction