function AoFCon takes nothing returns boolean
return GetSpellAbilityId() == 'A0I8'
endfunction

function GetLocZ takes real x, real y returns real
call MoveLocation(udg_L,x,y)
return GetLocationZ(udg_L)
endfunction

function GetUnitZ takes unit u returns real
call MoveLocation(udg_L,GetUnitX(u),GetUnitY(u))
return GetLocationZ(udg_L)
endfunction

function SQ takes real xa, real ya, real xb, real yb returns real
return SquareRoot((xa-xb)*(xa-xb)+(ya-yb)*(ya-yb))
endfunction

function IsUnitDeadBX takes unit u returns boolean
return GetUnitTypeId(u) == 0 or IsUnitType(u, UNIT_TYPE_DEAD)
endfunction

function IsAllyTarget takes unit u,unit d returns boolean
return IsUnitDeadBX(u) == false and not IsUnitType(u, UNIT_TYPE_STRUCTURE) and IsUnitAlly(u,GetOwningPlayer(d)) and GetUnitTypeId(u)!= 'h00S' and GetOwningPlayer(u) != Player(PLAYER_NEUTRAL_PASSIVE)
endfunction

function IsTarget takes unit u,unit d returns boolean
return not IsUnitType(u,UNIT_TYPE_ANCIENT) and GetUnitTypeId(u)!= 'h00S' and not IsUnitDeadBX(u)  and not IsUnitType(u, UNIT_TYPE_STRUCTURE) and not IsUnitType(u, UNIT_TYPE_MAGIC_IMMUNE) and IsUnitEnemy(u, GetOwningPlayer(d)) and GetUnitAbilityLevel(u,'A0I1') == 0
endfunction

function RPX takes lightning l,unit u,unit d returns nothing
call SetLightningColor(l,GetLightningColorR(l),GetLightningColorG(l),GetLightningColorB(l),GetLightningCo​lorA(l))
if IsUnitInvisible(u,GetLocalPlayer()) and IsUnitInvisible(d,GetLocalPlayer()) and GetPlayerState(GetLocalPlayer(),PLAYER_STATE_OBSERVER) == 0 then
call SetLightningColor(l,.0,.0,.0,.0)
endif
endfunction


function AoFBuffEffect takes nothing returns nothing
local timer t = GetExpiredTimer()
local integer id = GetHandleId(t)
local unit u = LoadUnitHandle(udg_AssassinHash,id,0)
local unit c = LoadUnitHandle(udg_AssassinHash,id,1)
local integer i = LoadInteger(udg_AssassinHash,id,1)+1
local unit d
call SaveInteger(udg_AssassinHash,id,1,i)
if i >= 10 or IsTarget(u,c) then
call UnitShareVision(u,GetOwningPlayer(c),true)
set d = CreateUnit(GetOwningPlayer(c),'u003',GetUnitX(u),GetUnitY(u),0)
call SetUnitAbilityLevel(d,'A06P',5)
call UnitApplyTimedLife(d,'BHwe',1.)
call IssueTargetOrder(d,"faeriefire",u)
call UnitShareVision(u,GetOwningPlayer(c),false)
call DestroyTimer(t)
call FlushChildHashtable(udg_AssassinHash,id)
endif
set t = null
set u = null
set d = null
set c = null
endfunction

function AoFBuff takes unit c,unit u returns nothing
local unit d
local timer t
if IsTarget(u,c) then
call UnitShareVision(u,GetOwningPlayer(c),true)
set d = CreateUnit(GetOwningPlayer(c),'u003',GetUnitX(u),GetUnitY(u),0)
call SetUnitAbilityLevel(d,'A06P',5)
call UnitApplyTimedLife(d,'BHwe',1.)
call IssueTargetOrder(d,"faeriefire",u)
call UnitShareVision(u,GetOwningPlayer(c),false)
else
set t = CreateTimer()
call SaveUnitHandle(udg_AssassinHash,GetHandleId(t),0,u)
call SaveUnitHandle(udg_AssassinHash,GetHandleId(t),1,c)
call TimerStart(t,.2,true,function AoFBuffEffect) 
set t = null
endif
set d = null
endfunction

function AoFEffect takes nothing returns nothing
local timer t= GetExpiredTimer()
local integer id = GetHandleId(t)
local unit c = LoadUnitHandle(udg_AssassinHash,id,0)
local real X = LoadReal(udg_AssassinHash,id,StringHash("X"))
local real Y = LoadReal(udg_AssassinHash,id,StringHash("Y"))
local unit d
local integer k = LoadInteger(udg_AssassinHash,id,StringHash("Count"))
local integer N = LoadInteger(udg_AssassinHash,id,8)
local real a = 0.
local lightning l
local unit u
local boolean b = false
local real dmg = 0.
local integer i = 0
if k < 133 then
call SaveInteger(udg_AssassinHash,id,StringHash("Count"),k+1)
loop
set i = i + 1
if LoadBoolean(udg_AssassinHash,id,StringHash("AoFB"+I2S(i))) == false then
set u = LoadUnitHandle(udg_AssassinHash,id,StringHash("AoFU"+I2S(i)))
set l = LoadLightningHandle(udg_AssassinHash,id,StringHash("AoFL"+I2S(i)))
call MoveLightningEx(l,false,X,Y,GetLocZ(X,Y)+50,GetUnitX(u),GetUnitY(u),50+GetUnitZ(u))
call SetLightningColor(l,1.,1.,1.,1)
call RPX(l,u,u)
if SQ(X,Y,GetUnitX(u),GetUnitY(u)) > 400. and u != null then
call AoFBuff(c,u)
set b = true
call DestroyLightning(l)
call SaveBoolean(udg_AssassinHash,id,StringHash("AoFB"+I2S(i)),true)
endif
if IsUnitDeadBX(u) then
call DestroyLightning(l)
call SaveBoolean(udg_AssassinHash,id,StringHash("AoFB"+I2S(i)),true)
endif
endif
exitwhen i == N or b
endloop
set i = 0
if b then
set dmg = 120.*GetUnitAbilityLevel(c,'A0I8')
loop
set i = i + 1
if LoadBoolean(udg_AssassinHash,id,StringHash("AoFB"+I2S(i))) == false then
set u = LoadUnitHandle(udg_AssassinHash,id,StringHash("AoFU"+I2S(i)))
set l = LoadLightningHandle(udg_AssassinHash,id,StringHash("AoFL"+I2S(i)))
call DestroyLightning(l)
set a = GetRandomReal(0.,6.283185)
call SetUnitX(u,X+55.*Cos(a))
call SetUnitY(u,Y+55.*Sin(a))
if IsTarget(u,c) then
set d = CreateUnit(GetOwningPlayer(u),'h02K',GetUnitX(u),GetUnitY(u),0)
call UnitApplyTimedLife(d,'BHwe',1.)
call SetUnitAbilityLevel(d,'A09I',3)
call IssueTargetOrder(d,"thunderbolt",u)
set d = null
call UnitDamageTarget(c,u,dmg,true,true,ATTACK_TYPE_NORMAL,DAMAGE_TYPE_MAGIC,null)
endif
call DestroyEffect(AddSpecialEffectTarget("Abilities\\Spells\\Other\\Incinerate\\FireLordDeathExplod​e.mdl",u,"origin"))
endif
exitwhen i == N
endloop
call DestroyEffect(LoadEffectHandle(udg_AssassinHash,id,StringHash("ED")))
call UnitApplyTimedLife(LoadUnitHandle(udg_AssassinHash,id,1),'BTLF',1.)
call FlushChildHashtable(udg_AssassinHash,id)
call DestroyTimer(t)
endif
else
set i = 0
loop
set i = i + 1
if LoadBoolean(udg_AssassinHash,id,StringHash("AoFB"+I2S(i))) == false then
set u = LoadUnitHandle(udg_AssassinHash,id,StringHash("AoFU"+I2S(i)))
set l = LoadLightningHandle(udg_AssassinHash,id,StringHash("AoFL"+I2S(i)))
call DestroyLightning(l)
endif
exitwhen i == N
endloop
call DestroyEffect(LoadEffectHandle(udg_AssassinHash,id,StringHash("ED")))
call UnitApplyTimedLife(LoadUnitHandle(udg_AssassinHash,id,1),'BTLF',1.)
call FlushChildHashtable(udg_AssassinHash,id)
call DestroyTimer(t)
endif
set t = null
set d = null
set u = null
set c = null
endfunction

function AoF takes nothing returns nothing
local unit c =  GetSpellAbilityUnit()
local real x = GetSpellTargetX()
local real y = GetSpellTargetY()
local timer t = CreateTimer()
local integer id = GetHandleId(t)
local unit u
local lightning l
local unit d = CreateUnit(GetOwningPlayer(c),'e00O',x,y,0)
local real dmg = 10.*GetUnitAbilityLevel(c,'A0I9')+GetHeroInt(c,true)*.3
local integer i = 0
call DestroyEffect(AddSpecialEffect("FirePulse.mdx",x,y))
call GroupEnumUnitsInRange(udg_G,x,y,300,null)
loop
set u = FirstOfGroup(udg_G)
if IsTarget(u,c) then
set i = i + 1
set l = AddLightningEx("LEAS",false,x,y,GetLocZ(x,y)+50,GetUnitX(u),GetUnitY(u),50+GetUnitZ(u))
call RPX(l,u,u)
call SaveLightningHandle(udg_AssassinHash,id,StringHash("AoFL"+I2S(i)),l)
call SaveUnitHandle(udg_AssassinHash,id,StringHash("AoFU"+I2S(i)),u)
endif
call GroupRemoveUnit(udg_G,u)
exitwhen u == null
endloop
if i != 0 then
call SaveUnitHandle(udg_AssassinHash,id,0,c)
call SaveUnitHandle(udg_AssassinHash,id,1,d)
call SaveInteger(udg_AssassinHash,id,8,i)
call SaveReal(udg_AssassinHash,id,StringHash("X"),x)
call SaveReal(udg_AssassinHash,id,StringHash("Y"),y)
call SetUnitFlyHeight(d,45,0)
call SetUnitScalePercent(d,200,200,200)
call SaveEffectHandle(udg_AssassinHash,id,StringHash("ED"),AddSpecialEffectTarget("Abiliti​es\\Spells\\Other\\SoulBurn\\SoulBurnbuff.mdl",d,"origin"))
call TimerStart(t,0.03,true,function AoFEffect)
else
call UnitApplyTimedLife(d,'BTLF',1.)
call FlushChildHashtable(udg_AssassinHash,id)
call DestroyTimer(t)
endif
set t = null
set c = null
set l = null
set d = null
endfunction

x00003B2E3A	StringHash
x00003B2E3B	LoadUnitHandle
x00003B2E3C	udg_AssassinHash
x00003B2E3D	id
x00003B2E3E	i
x00003B2E3F	I2S
x00003B2E40	StringHash
x00003B2E41	LoadLightningHandle
x00003B2E42	l
x00003B2E43	X
x00003B2E44	Y
x00003B2E45	X
x00003B2E46	Y
x00003B2E47	GetLocZ
x00003B2E48	udg_L
x00003B2E49	x
x00003B2E4A	y
x00003B2E4B	MoveLocation
x00003B2E4C	udg_L
x00003B2E4D	GetLocationZ
x00003B2E4E	u
x00003B2E4F	GetUnitX
x00003B2E50	u
x00003B2E51	GetUnitY
x00003B2E52	u
x00003B2E53	GetUnitZ
x00003B2E54	udg_L
x00003B2E55	u
x00003B2E56	GetUnitX
x00003B2E57	u
x00003B2E58	GetUnitY
x00003B2E59	MoveLocation
x00003B2E5A	udg_L
x00003B2E5B	GetLocationZ
x00003B2E5C	MoveLightningEx