function Trig_Granade_Jass_Conditions takes nothing returns boolean
    if ( not ( GetUnitTypeId(GetEnteringUnit()) == 'h00N' ) ) then
        return false
    endif
    return true
endfunction

function damage takes nothing return nothing
local timer t=GetExpiredTimer()
local integer i = LoadIntegerHandle(udg_Hash,GetHandleId(t) , 1)
local texttag g = LoadTextTagHandle(udg_Hash,GetHandleId(t),2)
local unit u = LoadUnitHandle(udg_Hash,GetHandleId(t),0)
  call SetTextTagTextBJ( g, ( "|cffFF0000" + ( I2S(i) + "|r" ) ), 9.00 )
set i = i-1
if i<1 then

call DestroyTimer(t)
call FlushChildHashtableBJ( GetHandleIdBJ(u), udg_Hash )
call Kill(u)
else
call SaveIntegerHandle(udg_Hash,GetHandleBJ(t) , 1, i)
endif
set u = null
set t = null
endfunction

function Trig_Granade_Jass_Actions takes nothing returns nothing
local unit u=GetEnteringUnit()
local timer t=CreateTimer()
local integer i = 100
local texttag g = call CreateTextTagUnitBJ( "", u, 0, 9.00, 100, 100, 100, 0 )
call DestroyEffect(AddSpecialEffect("Objects\\Spawnmodels\\Undead\\ImpaleTargetDust\\ImpaleTargetDus​t.mdl",GetUnitX(u),GetUnitY(u)))
call SaveTextTagHandle(udg_Hash,GetHandleId(t) , 2, g)
call SaveUnitHandle(udg_Hash,GetHandleId(t),0,u)
call SaveIntegerHandle(udg_Hash,GetHandleId(t) , 1, i)
call TimerStart(t,0.01,true,function damage)
set t=null
set u=null
endfunction

//===========================================================================
function InitTrig_Granade_Jass takes nothing returns nothing
    set gg_trg_Granade_Jass = CreateTrigger(  )
    call TriggerRegisterEnterRectSimple( gg_trg_Granade_Jass, GetPlayableMapRect() )
    call TriggerAddCondition( gg_trg_Granade_Jass, Condition( function Trig_Granade_Jass_Conditions ) )
    call TriggerAddAction( gg_trg_Granade_Jass, function Trig_Granade_Jass_Actions )
endfunction

function Trig_Granade_Jass_Conditions takes nothing returns boolean
    if ( not ( GetUnitTypeId(GetEnteringUnit()) == 'h00N' ) ) then
        return false
    endif
    return true
endfunction

globals
hashtable udg_Hash = InitHashtable()
endglobals

function damage takes nothing returns nothing
local timer t=GetExpiredTimer()
local integer i = LoadInteger(udg_Hash,GetHandleId(t) , 1)
local texttag g = LoadTextTagHandle(udg_Hash,GetHandleId(t),2)
local unit u = LoadUnitHandle(udg_Hash,GetHandleId(t),0)
  call SetTextTagTextBJ( g, ( "|cffFF0000" + ( I2S(i) + "|r" ) ), 9.00 )
set i = i-1
if i<1 then
call DestroyTimer(t)
call FlushChildHashtable(udg_Hash, GetHandleId(t) )
call KillUnit(u)
// else
// call SaveInteger(udg_Hash,GetHandleId(t) , 1, i) //Это еще зачем? О_О Число уже сохранилось.
endif
set u = null
set t = null
endfunction

function Trig_Granade_Jass_Actions takes nothing returns nothing
local unit u=GetEnteringUnit()
local timer t=CreateTimer()
local integer i = 100
local texttag g = CreateTextTagUnitBJ( "", u, 0, 9.00, 100, 100, 100, 0 )
if (GetUnitTypeId(u) == 'h00N') then
call DestroyEffect(AddSpecialEffect("Objects\\Spawnmodels\\Undead\\ImpaleTargetDust\\ImpaleTargetDus​?t.mdl",GetUnitX(u),GetUnitY(u)))
call SaveTextTagHandle(udg_Hash,GetHandleId(t) , 2, g)
call SaveUnitHandle(udg_Hash,GetHandleId(t),0,u)
call SaveInteger(udg_Hash,GetHandleId(t) , 1, i)
call TimerStart(t,0.01,true,function damage)
endif
set t=null
set u=null
endfunction

//===========================================================================
function InitTrig_Granade_Jass takes nothing returns nothing
    set gg_trg_Granade_Jass = CreateTrigger(  )
    call TriggerRegisterEnterRectSimple( gg_trg_Granade_Jass, GetPlayableMapRect() )
    call TriggerAddAction( gg_trg_Granade_Jass, function Trig_Granade_Jass_Actions )
endfunction