((код jass

function Trig_Revenants_Coil_Conditions takes nothing returns boolean
return GetUnitAbilityLevel( GetEnteringUnit(), 'Arcl' ) > 0 and IsUnitInGroup(GetEnteringUnit(), GetUnitsOfPlayerMatching(Player(8), null)) == true
endfunction

function Coiled takes nothing returns nothing
local timer t = GetExpiredTimer()
local integer id = GetHandleId(t)
local unit u = LoadUnitHandle( udg_hash, id, StringHash("Coiled") )
call UnitRemoveAbility( u, 'A00E' )
call FlushChildHashtable( udg_hash, id )
call DestroyTimer(t)
set t = null
set u = null
endfunction

function Revenants_Coil_Filter takes nothing returns boolean
return GetUnitState( GetFilterUnit(), UNIT_STATE_LIFE ) > 0.0 and GetUnitAbilityLevel( GetFilterUnit(), 'A00E' ) <= 0 and GetUnitState(GetFilterUnit(), UNIT_STATE_LIFE ) < GetUnitState(GetFilterUnit(), UNIT_STATE_MAX_LIFE )
endfunction

function Check_For_Revenants_Coil takes nothing returns nothing
local timer t = GetExpiredTimer()
local timer c
local integer id = GetHandleId(t)
local integer cid
local group g = LoadGroupHandle( udg_hash, id, StringHash("UnitWithRevenantCoilSpellGroup") )
local unit r = LoadUnitHandle( udg_hash, id, StringHash("UnitWithRevenantCoilSpell") )
local unit f
local real x = GetUnitX(r)
local real y = GetUnitY(r)
if GetUnitState( r, UNIT_STATE_LIFE ) <= 0.0 then
call DestroyGroup(g)
call FlushChildHashtable( udg_hash, id )
call DestroyTimer(t)
endif
call GroupEnumUnitsInRange( g, x, y, 800.00, function Revenants_Coil_Filter )
if GetUnitState( r, UNIT_STATE_MANA ) >= 75.0 then
loop
set f = FirstOfGroup(g)
exitwhen f == null
if IsUnitAlly( f, GetOwningPlayer(r) ) == true and IsUnitIdType(GetUnitTypeId(f), UNIT_TYPE_UNDEAD) == true and GetUnitStatePercent(f, UNIT_STATE_LIFE, UNIT_STATE_MAX_LIFE ) < 50.0 then
call DisplayTextToForce( GetPlayersAll(), GetUnitName(r) + I2S(GetHandleId(r)) + " койлит " + GetUnitName(f) + I2S(GetHandleId(f)) )
call IssueTargetOrder( r, "deathcoil", f )
call UnitAddAbility( f, 'A00E' )
set c = CreateTimer()
set cid = GetHandleId(c)
call SaveUnitHandle( udg_hash, cid, StringHash("Coiled"), f )
call TimerStart( c, 1.0, false, function Coiled )
call GroupClear(g)
else
if IsUnitEnemy( f, GetOwningPlayer(r) ) == true and GetUnitState( f, UNIT_STATE_LIFE ) <= 250.0 and GetUnitState( f, UNIT_STATE_LIFE ) > 50.0 and IsUnitIdType(GetUnitTypeId(f), UNIT_TYPE_UNDEAD) == false then
call DisplayTextToForce( GetPlayersAll(), GetUnitName(r) + I2S(GetHandleId(r)) + " койлит " + GetUnitName(f) + I2S(GetHandleId(f)) )
call IssueTargetOrder( r, "deathcoil", f )
call UnitAddAbility( f, 'A00E' )
set c = CreateTimer()
set cid = GetHandleId(c)
call SaveUnitHandle( udg_hash, cid, StringHash("Coiled"), f )
call TimerStart( c, 1.0, false, function Coiled )
call GroupClear(g)
endif
endif
call GroupRemoveUnit( g, f )
endloop
endif
set t = null
set r = null
set f = null
set g = null
set c = null
endfunction

function Trig_Revenants_Coil_Actions takes nothing returns nothing
local timer t = CreateTimer()
local integer id = GetHandleId(t)
local unit u = GetEnteringUnit()
local group g = CreateGroup()
call SaveUnitHandle( udg_hash, id, StringHash("UnitWithRevenantCoilSpell"), u )
call SaveGroupHandle( udg_hash, id, StringHash("UnitWithRevenantCoilSpellGroup"), g )
call TimerStart( t, 3.0, true, function Check_For_Revenants_Coil )
set t = null
set u = null
set g = null
endfunction

===========================================================================
function InitTrig_Revenants_Coil takes nothing returns nothing
set gg_trg_Revenants_Coil = CreateTrigger( )
call TriggerRegisterEnterRectSimple( gg_trg_Revenants_Coil, GetPlayableMapRect() )
call TriggerAddCondition( gg_trg_Revenants_Coil, Condition( function Trig_Revenants_Coil_Conditions ) )
call TriggerAddAction( gg_trg_Revenants_Coil, function Trig_Revenants_Coil_Actions )
endfunction

))