library missile initializer Init
globals
private constant hashtable HT=InitHashtable()
private group G=CreateGroup()
private constant integer SpellID='A000'
private constant integer DummyID='e000'
endglobals

private function Actions3 takes nothing returns nothing
call GroupRemoveUnit(G,GetTriggerUnit())
endfunction

private function Actions2 takes nothing returns nothing
local unit u=GetEnumUnit()
local real x=GetUnitX(u)
local real y=GetUnitY(u)
local real a=GetUnitFacing(u)
set x=x+CosBJ(a)*15.00
set y=y+SinBJ(a)*15.00
if IsTerrainPathable(x,y,PATHING_TYPE_WALKABILITY)==false then
call SetUnitX(u,x)
call SetUnitY(u,y)
else
call KillUnit(u)
endif
set u=null
endfunction

private function Actions1 takes nothing returns nothing
call ForGroup(G,function Actions2)
endfunction

private function Conditions2 takes nothing returns boolean
local unit u=LoadUnitHandle(HT,GetHandleId(GetTriggeringTrigger()),1)
local real h=GetUnitFlyHeight(u)-GetUnitFlyHeight(GetTriggerUnit())
local player p=GetOwningPlayer(u)
if IsUnitEnemy(GetTriggerUnit(),p) and RAbsBJ(h)<100 then
call UnitDamageTarget(u,GetTriggerUnit(),100.00,true,false,ATTACK_TYPE_NORMAL,DAMAGE_TYPE_NORMAL,WEAPON_T​YPE_WHOKNOWS)
endif
set u=null
return false
endfunction

private function AngleBetweenCords takes real x1, real y1, real x2, real y2 returns real
local real a
set a = bj_RADTODEG * Atan2(y2-y1,x2-x1)
return a
endfunction

private function Conditions1 takes nothing returns boolean
local unit u
local player p
local real x
local real y
local real h
local real a
local trigger t
if GetSpellAbilityId()==SpellID then
set x=GetUnitX(GetTriggerUnit())
set y=GetUnitY(GetTriggerUnit())
set h=GetUnitFlyHeight(GetTriggerUnit())
set a=AngleBetweenCords(x,y,GetSpellTargetX(),GetSpellTargetY())
set p=GetOwningPlayer(GetTriggerUnit())
set t=CreateTrigger()
set u=CreateUnit(p,DummyID,x,y,a)
call UnitApplyTimedLife(u,'BTLF',2.00)
call FlushChildHashtableBJ(GetHandleId(u),HT)
call FlushChildHashtableBJ(GetHandleId(t),HT)
call SetUnitFlyHeight(u,h,0.00)
call GroupAddUnit(G,u)
call TriggerRegisterUnitInRange(t,u,100.00,null)
call TriggerAddCondition(t,Condition(function Conditions2))
call SaveUnitHandle(HT,GetHandleId(t),1,u)
set u=null
endif
return false
endfunction

private function Init takes nothing returns nothing
local integer i=0
local trigger t1=CreateTrigger()
local trigger t2=CreateTrigger()
local timer t=CreateTimer()
loop
 call TriggerRegisterPlayerUnitEvent(t1,Player(i),EVENT_PLAYER_UNIT_SPELL_EFFECT,null)
 call TriggerRegisterPlayerUnitEvent(t2,Player(i),EVENT_PLAYER_UNIT_DEATH, null)
 set i=i+1
 exitwhen i>11
endloop
call TriggerAddCondition(t1,Condition(function Conditions1))
call TimerStart(t,0.025,true,function Actions1)
call TriggerAddAction(t2,function Actions3)
set t1=null
set t2=null
set t=null
endfunction
endlibrary