function Check_Actions takes nothing returns nothing
    local timer Timer = CreateTimer()
    local string S
    local integer i = 0
    if INT != GetHandleId(Timer) then
       set INT = GetHandleId(Timer)
       call DisplayTextToPlayer(Player(0),0,0,I2S(INT-1048500))
    endif
    call DestroyTimer(Timer)
    set Timer = null
endfunction

function Check_Actions takes nothing returns nothing
    local timer Timer = CreateTimer()
    local string s
    local integer i = 0
    if INT != GetHandleId(Timer) then
       set INT = GetHandleId(Timer)
       set s = I2S(INT-1048500)
       call DisplayTextToPlayer(Player(0),0,0,s)
       set s = null
    endif
    call DestroyTimer(Timer)
    set Timer = null
endfunction

function preinit takes nothing returns nothing
    local integer i=150
    local string z
    loop
        exitwhen i > 300
        set z = I2S(i)
        set i=i+1
    endloop
endfunction

function FrozenTears_Conditions takes nothing returns boolean
    return GetSpellAbilityId() == 'AHtc'
endfunction

function FrozenTearsFilter takes nothing returns boolean
   local timer t = GetExpiredTimer()
   local unit u = LoadUnitHandle(h,GetHandleId(t),1)
   local boolean b = IsUnitAlly(GetFilterUnit(),GetOwningPlayer(u)) == false and GetUnitState(GetFilterUnit(),UNIT_STATE_LIFE)>0
   set u = null
   set t = null
   return b
endfunction

function FrozenTearsDamage takes nothing returns nothing
   local timer t = GetExpiredTimer()
   local unit u = LoadUnitHandle(h,GetHandleId(t),1)
   call UnitDamageTarget(u,GetEnumUnit(),200,false,true,ATTACK_TYPE_MAGIC,DAMAGE_TYPE_MAGIC,WEAPON_TYPE_WHOK​NOWS)
   set t = null
   set u = null
endfunction

function FrozenTearsGroup takes nothing returns nothing
   local timer t = GetExpiredTimer()
   local unit u = LoadUnitHandle(h,GetHandleId(t),1)
   local group g = LoadGroupHandle(h,GetHandleId(t),2)
   call ForGroup(g,function FrozenTearsDamage)
   call FlushChildHashtable(h,GetHandleId(t))
   call DestroyTimer(t)
   call DestroyGroup(g)
   set g = null
   set t = null
   set u = null
endfunction

function FrozenTearsDammy takes nothing returns nothing
   local timer t = GetExpiredTimer()
   local unit u = LoadUnitHandle(h,GetHandleId(t),1)
   local real x = GetUnitX(GetEnumUnit())
   local real y = GetUnitY(GetEnumUnit())
   local unit d = CreateUnit(GetOwningPlayer(u),'d000',x,y,0)
   call UnitApplyTimedLife(d,'BTFL',1.00)
   call SetUnitFlyHeight(d,0,1000)
   call TimerStart(t,1.00,false,function FrozenTearsGroup)
   set d = null
   set t = null
   set u = null
endfunction

function FrozenTearsTimer takes nothing returns nothing
   local timer t = GetExpiredTimer()
   local unit u = LoadUnitHandle(h,GetHandleId(t),1)
   local real x = GetUnitX(u)
   local real y = GetUnitY(u)
   local boolexpr b = Condition(function FrozenTearsFilter)
   local group g = CreateGroup()
   call GroupEnumUnitsInRange(g,x,y,400,b)
   call ForGroup(g,function FrozenTearsDammy)
   call SaveGroupHandle(h,GetHandleId(t),2,g)
   //call DestroyGroup(g)
   //call DestroyTimer(t)
   call DestroyBoolExpr(b)
   set u = null
   set t = null
   set g = null
   set b = null
endfunction

function FrozenTears_Actions takes nothing returns nothing
   local timer t = CreateTimer()
   local unit u = GetTriggerUnit()
   call SaveUnitHandle(h,GetHandleId(t),1,u)
   call TimerStart(t,0.01,false,function FrozenTearsTimer)
   set u = null
   set t = null
endfunction

//===========================================================================
function InitTrig_FrozenTears takes nothing returns nothing
    local trigger  t = CreateTrigger()
    call EventUnit(t,EVENT_PLAYER_UNIT_SPELL_EFFECT )
    call TriggerAddCondition(t,Condition( function FrozenTears_Conditions ) )
    call TriggerAddAction(t,function FrozenTears_Actions )
    set t = null
endfunction