function FadingText_Timer takes nothing returns nothing
     local timer t = GetExpiredTimer()
     call DestroyTextTag( LoadTextTagHandle( udg_hash, GetHandleId( t ), 0 ) )
     call FlushChildHashtable( udg_hash, GetHandleId( t ) )
     call DestroyTimer( t )
     set t = null
endfunction
function FadingText takes string s, unit u, real size, integer r, integer g, integer b, integer transparent, real speed, real deg, real fade, real life, integer pl returns nothing
     local texttag t = CreateTextTag()
     local timer k = CreateTimer()
     call SetTextTagText( t, s, size * 0.0023 )
     call SetTextTagPosUnit( t, u, -100. )
     if GetLocalPlayer() == Player( pl ) then
         call SetTextTagVisibility( t, true )
     endif
     call SetTextTagVelocity( t, speed * 0.071 / 128. * Cos( deg * bj_DEGTORAD ), speed * 0.071 / 128. * Sin( deg * bj_DEGTORAD ) )
     call SetTextTagSuspended( t, false )
     call SetTextTagPermanent( t, false )
     call SetTextTagFadepoint( t, fade )
     call SetTextTagColor( t, r, g, b, transparent )
     call SetTextTagLifespan( t, life )
     call SaveTextTagHandle( udg_hash, GetHandleId( k ), 0, t )
     call TimerStart( k, life*2., false, function FadingText_Timer )
     set t = null
     set k = null
endfunction
//------------------------------------------------
function Trig__Timer takes nothing returns nothing
     local timer t = GetExpiredTimer()
     local integer i = GetHandleId(t)
     local unit u = LoadUnitHandle( HASH, i, 0 )
     local integer l = GetUnitTypeId(u)
     local player p = GetOwningPlayer( u )
     if GetUnitState( u, UNIT_STATE_LIFE ) > 0. then
         call FadingText("+"+I2S(udg_falk),u,10.,255,204,0,255,64.,90.,3.,5.,GetPlayerId(p))
     else
         call PauseTimer(t)
         call DestroyTimer(t)
         call FlushChildHashtable( HASH, i )
     endif
     set t = null
endfunction
function Trig_Trees_of_Life_Actions takes nothing returns nothing
     local timer t = CreateTimer()
     call SaveUnitHandle( HASH, GetHandleId(t), 0, GetConstructedStructure() )
     call TimerStart( t, 1., true, function Trig__Timer )
     set t = null
endfunction