library Missiles

 globals
  
  unit array Miss
  integer NumM = 0
  integer NumR = 0
  trigger MoveCycle = CreateTrigger()
  
 endglobals
 
 //============
 //=StepMoving=
 //============
 
 function TimerStep takes nothing returns nothing
  local integer num = 0
  loop
   call SetUnitX(Miss[num], GetUnitX(Miss[num]) + Cos(0.0174*GetUnitFacing(Miss[num])))
   call SetUnitY(Miss[num], GetUnitY(Miss[num]) + Sin(0.0174*GetUnitFacing(Miss[num])))
   set num=num+1
   exitwhen Miss[num]==null
  endloop
 endfunction 
 
 //========
 //=Launch=
 //========
 
 private function Push takes nothing returns nothing
 
 set NumM=0
  
  //=Check Dead Missiles=
  
  loop
   if IsUnitDeadBJ(Miss[NumM]) == true then
    set NumR=NumM
     loop
      set Miss[NumR]=Miss[NumR+1]
      set NumR=NumR+1 
      exitwhen Miss[NumR]==null
     endloop 
    else
     set NumM=NumM+1
   endif
   exitwhen Miss[NumM]==null
  endloop 
  
  //=Create Missile=
  
  set Miss[NumM]=CreateUnit(GetOwningPlayer(GetSpellAbilityUnit()), 'h002', GetUnitX(GetSpellAbilityUnit()), GetUnitY(GetSpellAbilityUnit()), GetUnitFacing(GetSpellAbilityUnit()))
 endfunction
 
 function InitTrig_Taihou takes nothing returns nothing
  local trigger Taihou = CreateTrigger()
  call TriggerRegisterAnyUnitEventBJ(Taihou, EVENT_PLAYER_UNIT_SPELL_CHANNEL)
  call TriggerAddAction(Taihou, function Push)
  call TriggerRegisterTimerEventPeriodic(MoveCycle, 0.04)
  call TriggerAddAction(MoveCycle, function TimerStep)
  
 endfunction
 
endlibrary