"Шанс 15% произвести серию из 3 атак."

globals
unit AphoticShield_Caster
endglobals

function Aphotic_Spell takes nothing returns boolean
return GetSpellAbilityId()=='A005'
endfunction

function Aphotic_Filter takes nothing returns boolean
if(IsUnitAlly(GetFilterUnit(),GetOwningPlayer(AphoticShield_Caster)))then
return false
endif
if(IsUnitType(GetFilterUnit(),UNIT_TYPE_MAGIC_IMMUNE)) then
return false
endif
if(IsUnitType(GetFilterUnit(),UNIT_TYPE_STRUCTURE))then
return false
endif
return true
endfunction

function Aphotic_Lightning takes nothing returns nothing
call UnitDamageTargetBJ(AphoticShield_Caster,GetEnumUnit(),(75 + (50*I2R(GetUnitAbilityLevel(AphoticShield_Caster,'A005')))),ATTACK_TYPE_HERO,DAMAGE_TYPE_MAGIC)
call DestroyEffect(AddSpecialEffectTarget("Abilities\\Spells\\Undead\\DeathCoil\\DeathCoilSpecialArt.mdl",GetEnumUnit(),"chest") )
endfunction

function Aphotic_ForkedLightning takes nothing returns nothing
local timer t = GetExpiredTimer()
local unit ux = GetHandleUnit(t,"AphoticTarget")
local location l = GetUnitLoc(ux)
local group g1 = GetUnitsInRangeOfLocMatching(600,l,Condition(function Aphotic_Filter))
call ForGroup(g1, function Aphotic_Lightning)
call DestroyGroup(g1)
call RemoveLocation(l)
call PauseTimer(t)
call DestroyTimer(t)
set ux = null
set t = null
set l = null
endfunction

function Aphotic_Heal takes nothing returns nothing
local trigger tr = GetTriggeringTrigger()
local real r = GetHandleReal(tr,"AphoticLife")
local unit ux = GetTriggerUnit()
local timer t = CreateTimer()
if(r<GetEventDamage())then
call DelayedDamageCheck(GetTriggerUnit(),r)
call DestroyEffect(GetHandleFX(tr,"AphoticFX"))
call DisableTrigger(tr)
call SetHandleBoolean(tr,"AphoticDone",true)
set AphoticShield_Caster = GetHandleUnit(tr,"AphoticOwner")
call SetHandleHandle(t,"AphoticTarget",ux)
call TimerStart(t,0,true,function Aphotic_ForkedLightning)
elseif(GetEventDamage()>0)then
call DelayedDamageCheck(GetTriggerUnit(),GetEventDamage())
call SetHandleReal(tr,"AphoticLife",r-GetEventDamage())
endif
endfunction

function Aphotic_Setting takes nothing returns nothing
local trigger tr = CreateTrigger()
local triggeraction ta = TriggerAddAction(tr,function Aphotic_Heal)
local effect fx = AddSpecialEffectTarget("Defensive Barrier big.mdx",GetSpellTargetUnit(),"chest")
call TriggerRegisterUnitEvent(tr,GetSpellTargetUnit(),EVENT_UNIT_DAMAGED)
call UnitRemoveBuffsBJ(1,GetSpellTargetUnit())
call SetHandleReal(tr,"AphoticLife",75 + I2R(50*GetUnitAbilityLevel(GetTriggerUnit(),'A005') ) )
call SetHandleHandle(tr,"AphoticFX",fx)
call SetHandleHandle(tr,"AphoticCaster",GetTriggerUnit())
call SetHandleBoolean(tr,"AphoticDone",false)
call PolledWait(20)
if(GetHandleBoolean(tr,"AphoticDone")==true)then
call DestroyEffect(fx)
endif
call DestroyEffect(fx)
call FlushHandleLocals(tr)
call TriggerRemoveAction(tr,ta)
call DestroyTrigger(tr)
endfunction

function InitTrig_Aphotic_Shield_Jass takes nothing returns nothing
set gg_trg_Aphotic_Shield_Jass=CreateTrigger()
call TriggerRegisterAnyUnitEventBJ(gg_trg_Aphotic_Shield_Jass,EVENT_PLAYER_UNIT_SPELL_EFFECT)
call TriggerAddCondition(gg_trg_Aphotic_Shield_Jass,Condition(function Aphotic_Spell))
call TriggerAddAction(gg_trg_Aphotic_Shield_Jass,function Aphotic_Setting)
endfunction