//Constants
scope Boomerang
  globals
     private constant integer SpellId='A00W'
     private constant integer DummyId='e001'
     private constant string MissileEffectMdl="Abilities\\Weapons\\ShadowHunterMissile\\ShadowHunterMissile.mdl"
     private constant string DamageEffectMdl="Abilities\\Spells\\Other\\Stampede\\StampedeMissileDeath.mdl"
     private constant string DamageAttachPoint="chest"
     private constant string MissileAttachPoint="chest"
     private constant real MissileSpeed=15.00
     private constant real PeriodicEvent=0.03
     private constant real Range=90.00
     private constant string Code="Bo_Group"
     private constant string RFunction="Bo_React"
  endglobals

  private constant function Bo_Damage takes integer lvl returns integer
   return (30*lvl)+30    //damage the victim units gets
  endfunction

  private constant function Bo_TurnSpeed takes real ctmp returns real
   return (1.1*ctmp)+2  //Turn Speed of the missiles
  endfunction

  //Conditions

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

  //Actions

  private function Bo_EnumDamage takes nothing returns nothing
   local unit c  =I2U(GetStoredInteger(GC(),Code,"c"))
   local unit a  =GetEnumUnit()
   local unit u  =I2U(GetStoredInteger(GC(),Code,"u"))
   local group g =I2G(GetStoredInteger(GC(),Code,"g"))
   if IsUnitNotImmun(u,a) and not IsUnitInGroup(a,g) then
      call GroupAddUnit(g,a)
      call UnitDamageTarget(c,a,I2R(Bo_Damage(GetUnitAbilityLevel(c,SpellId))),true,false,A  TTACK_TYPE_NORMAL,DAMAGE_TYPE_NORMAL,WEAPON_TYPE_WHOKNOWS)
      call DestroyEffect(AddSpecialEffectTarget(DamageEffectMdl,a,DamageAttachPoint))
   endif
   set c=null
   set a=null
   set u=null
   set g=null
  endfunction

  function Bo_React takes nothing returns nothing
     call StoreBoolean(GC(),HS(tm),"back",true)
  endfunction

  private struct BoomerangDatas
    real dx
    real dy
    real distance
    real angle
    unit caster
    real ctmp
    real dtmp
    unit missile1
    unit missile2
    group rdyg1
    group rdyg2
    effect gfx1
    effect gfx2
  endstruct

  private function BoomerangMotion takes nothing returns nothing
    local timer t             =GetExpiredTimer()
    local BoomerangDatas datas=GetStoredInteger(GC(),HS(t),"datas")
    local real x              =0
    local real y              =0
    local group g

    local boolean back         =GetStoredBoolean(GC(),HS(datas.missile1),"back")

      set g=GetUnitsInRange(Range,GetUnitX(datas.missile1),GetUnitY(datas.missile1),null,t  rue)
      call StoreInteger(GC(),Code,"c",H2I(datas.caster))
      call StoreInteger(GC(),Code,"u",H2I(datas.missile1))
      call StoreInteger(GC(),Code,"g",H2I(datas.rdyg1))
      call ForGroup(g,function Bo_EnumDamage)
      call AB_DestroyGroup(g)
      call FlushStoredMission(GC(),Code)

      set g=GetUnitsInRange(Range,GetUnitX(datas.missile2),GetUnitY(datas.missile2),null,t  rue)
      call StoreInteger(GC(),Code,"c",H2I(datas.caster))
      call StoreInteger(GC(),Code,"u",H2I(datas.missile2))
      call StoreInteger(GC(),Code,"g",H2I(datas.rdyg2))
      call ForGroup(g,function Bo_EnumDamage)
      call AB_DestroyGroup(g)
      call FlushStoredMission(GC(),Code)

    if datas.dtmp<=datas.distance and datas.ctmp<=180 then

      call VUnitPolarXY(datas.missile1,MissileSpeed,datas.angle+25)

      call VUnitPolarXY(datas.missile2,MissileSpeed,datas.angle-25)
      set datas.dtmp=datas.dtmp+MissileSpeed
    elseif datas.ctmp<=180 then
      set datas.ctmp=Bo_TurnSpeed(datas.ctmp)
      call VUnitPolarXY(datas.missile1,MissileSpeed,datas.angle-datas.ctmp)
      call VUnitPolarXY(datas.missile2,MissileSpeed,datas.angle+datas.ctmp)
    elseif datas.ctmp>180 and datas.dtmp>datas.distance then
      call LaunchNormalChaseMissileAtPointEx(datas.caster,datas.missile1,GetUnitX(datas.mis  sile1),GetUnitY(datas.missile1),0,datas.caster,MissileSpeed,0,RFunction)
      call LaunchNormalChaseMissileAtPointEx(datas.caster,datas.missile2,GetUnitX(datas.mis  sile2),GetUnitY(datas.missile2),0,datas.caster,MissileSpeed,0,RFunction)
      set datas.dtmp=0
    endif

    if not back then
    call TimerStart(t,PeriodicEvent,false,function BoomerangMotion)

    elseif back then
      call DestroyEffect(datas.gfx1)
      call DestroyEffect(datas.gfx2)
      call AB_DestroyGroup(datas.rdyg1)
      call AB_DestroyGroup(datas.rdyg2)
      call FlushStoredMission(GC(),HS(datas.missile1))
      call FlushStoredMission(GC(),HS(datas.missile2))
      call RemoveUnit(datas.missile1)
      call RemoveUnit(datas.missile2)
      call FlushStoredMission(GC(),HS(t))
      call BoomerangDatas.destroy(datas)
      call AB_DestroyTimer(t)
    endif 
  endfunction

  private function Trig_Boomerang_Actions takes nothing returns nothing
    local location loc        =GetSpellTargetLoc()
    local timer t             =CreateTimer()
    local BoomerangDatas datas=BoomerangDatas.create()
    local unit u              =GetTriggerUnit()
    local real x              =GetUnitX(u)
    local real y              =GetUnitY(u)
    local real angle          =A2PXY(x,y,GetLocationX(loc),GetLocationY(loc))
    local real distance       =D2PXY(x,y,GetLocationX(loc),GetLocationY(loc))
    local real dx
    local real dy

    local unit missile1       =CreateUnit(GetOwningPlayer(u),DummyId,x,y,angle+15)
    local unit missile2       =CreateUnit(GetOwningPlayer(u),DummyId,x,y,angle-15)

    local effect gfx1         =AddSpecialEffectTarget(MissileEffectMdl,missile1,MissileAttachPoint)
    local effect gfx2         =AddSpecialEffectTarget(MissileEffectMdl,missile2,MissileAttachPoint)
    
    set distance=(distance*75)/100
    set dx=x+distance*Cos(angle*3.14159/180)
    set dy=y+distance*Sin(angle*3.14159/180)

    call SetUnitX(missile1,x)
    call SetUnitY(missile1,y)
    call SetUnitX(missile2,x)
    call SetUnitY(missile2,y)

    call TimerStart(t,0,false,function BoomerangMotion)
    set datas.dx=dx
    set datas.dy=dy
    set datas.distance=distance
    set datas.angle=angle
    set datas.caster=u
    set datas.missile1=missile1
    set datas.missile2=missile2
    set datas.rdyg1=CreateGroup()
    set datas.rdyg2=CreateGroup()
    set datas.gfx1=gfx1
    set datas.gfx2=gfx2
    set datas.ctmp=0
    set datas.dtmp=0
    call StoreInteger(GC(),HS(t),"datas",datas)

    call RemoveLocation(loc)
    set t=null
  endfunction

//===========================================================================
function InitTrig_Boomerang takes nothing returns nothing
    set gg_trg_Boomerang = CreateTrigger(  )
    call TriggerRegisterAnyUnitEventBJ( gg_trg_Boomerang, EVENT_PLAYER_UNIT_SPELL_EFFECT )
    call TriggerAddCondition( gg_trg_Boomerang, Condition( function Trig_Boomerang_Conditions ) )
    call TriggerAddAction( gg_trg_Boomerang, function Trig_Boomerang_Actions )
endfunction
endscope