library BG initializer Init

private function Trig_Ball_Conditions takes nothing returns boolean
return GetSpellAbilityId()==0x41303030
endfunction

private function Trig_Ball_Actions takes nothing returns nothing
local unit Caster=GetSpellAbilityUnit()
call UnitAddAbility(Caster,0x416D7266)
call UnitRemoveAbility(Caster,0x416D7266)
call SetUnitFlyHeight(Caster,200.,300.)
call TriggerSleepAction(.5)
call SetUnitFlyHeight(Caster,0.,500.)
call TriggerSleepAction(.3)
 if TriggerEvaluate(gg_trg_Knockback) then
    call TriggerExecute(gg_trg_Knockback)
 endif
set Caster = null
endfunction

private function Init takes nothing returns nothing
local integer i=0x00
local trigger t=CreateTrigger()
loop
exitwhen i>0x0f
call TriggerRegisterPlayerUnitEvent(t,Player(i),EVENT_PLAYER_UNIT_SPELL_CAST,null)
set i=i+1
endloop
call TriggerAddCondition(t,Condition(function Trig_Ball_Conditions))
call TriggerAddAction(t,function Trig_Ball_Actions)
set t=null
endfunction

endlibrary

library KnockbackSystem initializer Init

private struct Struct
 unit u
 real a
 real r
 real s
 string e1
 string e2
 real c1
 real c2
 boolean w
 boolean dt
 real dtr
endstruct

private function True takes nothing returns boolean
 return true
endfunction

globals
 private integer Total = 0
 private real Period = 0.05
 private timer Timer = CreateTimer()
 private Struct array StructA
 private filterfunc link = null
endglobals

private function DestroyTree takes nothing returns nothing
 call KillDestructable(GetFilterDestructable())
endfunction

private function CoordsInMapArea takes real x, real y returns boolean
 return (GetRectMinX(bj_mapInitialPlayableArea)<=x)and(x<=GetRectMaxX(bj_mapInitialPlayableArea))and(G​etRectMinY(bj_mapInitialPlayableArea)<=y)and(y<=GetRectMaxY(bj_mapInitialPlayableArea))
endfunction

private function Motion takes nothing returns nothing
 local Struct data
 local integer i = 0
 local real ux=0.
 local real uy=0.
 local real tx=0.
 local real ty=0.
 local real cx=0.
 local real cy=0.
 local rect r

 loop
 exitwhen i>=Total
 set data=StructA[i]

 set ux=GetUnitX(data.u)
 set uy=GetUnitY(data.u)
 if CoordsInMapArea(ux,uy) and data.s>0 then

 set data.s=data.s-data.r
 if data.w == true then 
 call SetUnitX(data.u,GetUnitX(data.u)+data.s*Cos(data.a*bj_DEGTORAD))
 call SetUnitY(data.u,GetUnitY(data.u)+data.s*Sin(data.a*bj_DEGTORAD))
 else
 call SetUnitPosition(data.u,GetUnitX(data.u)+data.s*Cos(data.a*bj_DEGTORAD),GetUnitY(data.u)+data.s*Sin(d​ata.a*bj_DEGTORAD))
 endif

 if data.e1 != "" and GetRandomReal(0.,100.)<=data.c1 then
 call DestroyEffect(AddSpecialEffect(data.e1,GetUnitX(data.u),GetUnitY(data.u))) 
 endif
 if data.e2 != "" and GetRandomReal(0.,100.)<=data.c2 then
 call DestroyEffect(AddSpecialEffect(data.e2,GetUnitX(data.u),GetUnitY(data.u))) 
 endif
 
 if data.dt == true and data.dtr > 0. then
  set cx=GetUnitX(data.u)
  set cy=GetUnitY(data.u)
  set r=Rect(cx-data.dtr,cy-data.dtr,cx+data.dtr,cy+data.dtr)
  call EnumDestructablesInRect(r,link,function DestroyTree)
  call RemoveRect(r)
  set r=null
 endif
 
 else
 call data.destroy()
 set Total=Total-1
 set StructA[i]=StructA[Total]
 set i=i-1
 endif
 set i=i+1
 endloop

 if Total==0 then
 call PauseTimer(Timer)
 endif
endfunction

function KnockbackUnit takes unit u, real a, real ks, real rs, string e1, string e2, real c1, real c2, boolean w, boolean dt, real dtr returns nothing
 local Struct data = Struct.create()
 set data.u = u
 set data.a = a
 set data.r = rs
 set data.s = ks
 set data.e1 = e1
 set data.e2 = e2
 set data.c1 = c1
 set data.c2 = c2
 set data.w = w
 set data.dt = dt
 set data.dtr = dtr

 if Total==0 then
 call TimerStart(Timer,Period,true,function Motion)
 endif

 set StructA[Total]=data
 set Total=Total+1
endfunction

private function Init takes nothing returns nothing
 set link=Filter(function True)
endfunction
endlibrary
//===========================================================================
function InitTrig_Knockback_system takes nothing returns nothing
endfunction

globals
group g = CreateGroup()
string eff = "Abilities\\Spells\\Undead\\DarkRitual\\DarkRitualTarget.mdl"
real damage = 150.
endglobals

function Damage takes nothing returns nothing
    location loc1 = GetUnitLoc(GetTriggerUnit())
    location loc2 = GetUnitLoc(GetEnumUnit())
    call KnockbackUnit(GetEnumUnit(), 57.295827 * Atan2(GetLocationY(loc2) - GetLocationY(loc1), GetLocationX(loc2) - GetLocationX(loc1)),30.,.8,"",eff,0.,100.,true,true,120.)
    call UnitDamageTarget(GetTriggerUnit(), GetEnumUnit(), damage, true, false, ATTACK_TYPE_NORMAL, DAMAGE_TYPE_NORMAL, WEAPON_TYPE_WHOKNOWS)
    call RemoveLocation(loc1)
    set loc1 = null
    call RemoveLocation(loc2)
    set loc2 = null
endfunction

function Trig_Knockback_Actions takes nothing returns nothing
    location loc = GetUnitLoc(GetTriggerUnit())
    effect e
    set g = GetUnitsInRangeOfLocAll(450.,loc)
    call GroupRemoveUnit(g,GetSpellAbilityUnit())
    call ForGroup(g, function Damage )
    set e = AddSpecialEffectLoc( "Abilities\\Spells\\Human\\ThunderClap\\ThunderClapCaster.mdl",loc )
    call DestroyEffect( e )
    call RemoveLocation(loc)
    set e = null
    set loc = null
endfunction

//===========================================================================
function InitTrig_Knockback takes nothing returns nothing
    set gg_trg_Knockback = CreateTrigger(  )
    call TriggerAddAction( gg_trg_Knockback, function Trig_Knockback_Actions )
endfunction