//TESH.scrollpos=1
//TESH.alwaysfold=0
library Chronosphere initializer Chronosphere_Int

globals
integer SpellId = 'A000' // РавКод Абилки
integer DummyId = 'u000' // РавКод dummy
endglobals

private function Chronosphere_Conditions takes nothing returns boolean
return GetSpellAbilityId() == SpellId
endfunction

private function Chronosphere_Group takes nothing returns boolean
return ( GetFilterUnit() != GetTriggerUnit() )
endfunction

private function Chronosphere_Actions takes nothing returns nothing
local integer i=GetUnitAbilityLevel(GetTriggerUnit(),SpellId)
local unit u
local unit v
local real r=1.5+(i*1.5)
local timer t=CreateTimer()
local location l=GetSpellTargetLoc()
local group g = CreateGroup()
set u = CreateUnit(GetOwningPlayer(GetTriggerUnit()),DummyId,GetLocationX(l),GetLocationY(l),bj_UNIT_FACING)
call TriggerSleepAction (0.3)
call UnitApplyTimedLife(u,'BTLF',r)
call SetUnitTimeScale(u,0.00 * 0.01)
call TimerStart(t, r, false, null)
call GroupEnumUnitsInRangeOfLoc(g, l, 425.00, Condition(function Chronosphere_Group))
call DestroyBoolExpr(Condition(function Chronosphere_Group))
loop
exitwhen TimerGetRemaining(t)<=0.0
loop
set v = FirstOfGroup(g)
exitwhen v == null
call GroupRemoveUnit(g,v)
call PauseUnit(v,true)
call SetUnitTimeScale(v,0.00 * 0.01)
endloop
if (TimerGetRemaining(t)<0.8) then
call TriggerSleepAction(0.1)
else
call TriggerSleepAction(0.3)
endif
call DestroyGroup(g)
set g = GetUnitsInRangeOfLocMatching(425.00, l, Condition(function Chronosphere_Group))
endloop
loop
set v = FirstOfGroup(g)
exitwhen v == null
call GroupRemoveUnit(g,v)
call PauseUnit(v,false)
call SetUnitTimeScale(v,100.00 * 0.01)
endloop
call DestroyTimer(t)
set u = null
call RemoveLocation(l)
set l = null
call DestroyGroup(g)
set g = null
endfunction

private function Chronosphere_Int takes nothing returns nothing
local trigger t=CreateTrigger()
call TriggerAddCondition(t, Condition(function Chronosphere_Conditions))
call TriggerAddAction(t, function Chronosphere_Actions)
call TriggerRegisterAnyUnitEventBJ(t, EVENT_PLAYER_UNIT_SPELL_EFFECT)
endfunction

endlibrary