function TR takes nothing returns nothing
  local timer t=GetExpiredTimer()
  local unit u=LoadUnitHandle(udg_HASHTABLE, GetHandleId(t), 0)
  local real tr=LoadReal(udg_HASHTABLE, GetHandleId(t), 1)
  set tr=tr - 10.00

if tr > 0.00 then
  call SetUnitVertexColor( u, 100, 100, 100, tr)
  call SaveReal(udg_HASHTABLE, GetHandleId(t), 1, tr)
else
  call PauseTimer(t)
  call FlushChildHashtable(udg_HASHTABLE, GetHandleId(t))
  call DestroyTimer(t)
endif
  set u=null
  set t=null
endfunction
//==========================================================================
function Trig_neutral_T_Actions takes nothing returns nothing
  local timer t=CreateTimer()
  local unit u=GetEnteringUnit()
  local real tr=100.00
  call SetUnitVertexColor( u, 100, 100, 100, tr)

  call SaveUnitHandle(udg_HASHTABLE, GetHandleId(t), 0, u)
  call SaveReal(udg_HASHTABLE, GetHandleId(t), 1, tr)

  call TimerStart(t, 0.1, true, function TR)
  set  t=null
  set  u=null
endfunction

call SaveReal(udg_HASHTABLE, GetHandleId(t), 1, tr)

call SetUnitVertexColor( u, 100, 100, 100, tr)

call SetUnitVertexColor( u, 100, 100, 100, R2I(tr))