var t = Test.create()

library SystemOfMoving{
define{
private RangeOfCreation = 100 //Объект создаётся на расстоянии
private RangeOfCollision = 200//Дальность столкновения
private TimerPeriod = 0.02//Период таймера-обработчика
private maxArraySearch = true//Включение модуля поиска максимального размера массива
private speed = 40//Скорость движения снаряда
private ID = 'e00G'//ID снаряда
private maxPath=1000
}

private unit array uLaser[8191]
private unit array uCaster[8191]       
private float array uPath[8191]    
private float array uZ[8191]        
private float array uZd[8191]   
private float array uDmg[8191]    
      
private int maxArray = 0
private timer t = null
private trigger array tr[8191]
private triggeraction array tra[8191]
private location l = null   
      private real Abs(real r)  {   
          if r > 0. {return r}
          else {return -r}
      }   
        
      private real DistanceBLocs(real ax, real ay, real bx, real by)  {
          return SquareRoot((bx - ax) * (bx - ax) + (by - ay) * (by - ay))
      }
      private real DistanceBL3D(real ax, real ay, real az, real bx, real by, real bz)  {
          return SquareRoot((bx - ax) * (bx - ax) + (by - ay) * (by - ay) + (bz - az) * (bz - az))
      }
      private void DestroyTrig(int i){
      uPath[i]=0
      RemoveUnit(uLaser[i])
      uLaser[i]=null
      uCaster[i]=null
      DisableTrigger(tr[i])
      TriggerRemoveAction(tr[i],tra[i])
      DestroyTrigger(tr[i])
      tr[i]=null
      tra[i]=null
      }
      private void Do(){
      int i = 0
      int j = 0
          while(i<=maxArray){
              if(uLaser[i]!=null){
                  SetUnitX(uLaser[i],GetUnitX(uLaser[i])+Cos(bj_DEGTORAD*(GetUnitFacing(uLaser[i])+uRevers[i]))*speed)
                  SetUnitY(uLaser[i],GetUnitY(uLaser[i])+Sin(bj_DEGTORAD*(GetUnitFacing(uLaser[i])+uRevers[i]))*speed)
                  l=GetUnitLoc(uLaser[i])
                  SetUnitFlyHeight(uLaser[i],uZ[i]-GetLocationZ(l)+uZd[i],0)
                  RemoveLocation(l)
                  l=null
                    
                  uPath[i]+=1
                  j++
                      if GetUnitFlyHeight(uLaser[i])<1 or(uPath[i]>maxPath)or(GetUnitX(uLaser[i])<=GetRectMinX(bj_mapInitialPlayableArea))or(GetUnitX(uLaser[i])>=GetRectMaxX(bj_mapInitialPlayableArea))or(GetUnitY(uLaser[i])<=GetRectMinY(bj_mapInitialPlayableArea))or(GetUnitY(uLaser[i])>=GetRectMaxY(bj_mapInitialPlayableArea)){
                          effect e = AddSpecialEffect("Abilities\\Spells\\Other\\Incinerate\\IncinerateBuff.mdl",GetUnitX(uLaser[i]),GetUnitY(uLaser[i]))
                          DestroyEffect(e)
                          e=null
                         DestroyTrig(i)
                      }
             }
          i++
          }
          if (j==0){
          DestroyTimer(t)
          t=null
          }
       //  BJDebugMsg("Снарядов: "+I2S(j))
      }

      private void Collision(){
      int i = 0
          while (tr[i]!=GetTriggeringTrigger()){
              i++
          }

          
        if (Abs(GetUnitFlyHeight(GetEnteringUnit())-GetUnitFlyHeight(uLaser[i]))<300) and(GetEnteringUnit()!=uCaster[i])and(GetUnitTypeId(GetEnteringUnit()) != ID) and IsUnitEnemy(GetEnteringUnit(), GetOwningPlayer(uCaster[i])){
               UnitDamageTarget(uCaster[i],GetEnteringUnit(),uDmg[i],true,true,ATTACK_TYPE_MAGIC,DAMAGE_TYPE_LIGHTNING,WEAPON_TYPE_WHOKNOWS)

                  effect e = AddSpecialEffect("Abilities\\Spells\\Orc\\Purge\\PurgeBuffTarget.mdl",GetUnitX(GetEnteringUnit()),GetUnitY(GetEnteringUnit()))
                  DestroyEffect(e)
                  e=null
                DestroyTrig(i)
          }
            
            
      }
      void SystemMoveRun(unit u, float f, float dmg,float rangeofcol,int raw,unit u2){
      int i = 0
          while(uLaser[i]!=null){  //Находим индекс пустой ячейки для массива
              i++
          }
      uCaster[i]=u
        
      float a = GetUnitFacing(u)
      float x=GetUnitX(u)+(RangeOfCreation*Cos(a*bj_DEGTORAD))
      float y=GetUnitY(u)+(RangeOfCreation*Sin(a*bj_DEGTORAD))
      uLaser[i]=CreateUnit(Player(bj_PLAYER_NEUTRAL_EXTRA),raw,x,y,a)
       SetUnitPathing(uLaser[i],true)
       SetUnitX(uLaser[i],x)
       SetUnitY(uLaser[i],y)
      UnitAddAbility( uLaser[i],'Amrf')
     SetUnitFlyHeight( uLaser[i], GetUnitFlyHeight(u)+f, 0.00 )
      l = GetUnitLoc(uLaser[i])
      uZ[i]=GetLocationZ(l)+GetUnitFlyHeight(uLaser[i])
          if (u2!=null){
              float uz=GetLocationZ(l)
              RemoveLocation(l)
              l=null
              l = GetUnitLoc(u2)
              float u1z=GetLocationZ(l)
              uZd[i]=DistanceBL3D(GetUnitX(uLaser[i]),GetUnitY(uLaser[i]),uz,GetUnitX(u2),GetUnitY(u2),u1z)-DistanceBLocs(GetUnitX(uLaser[i]),GetUnitY(uLaser[i]),GetUnitX(u2),GetUnitY(u2))
                
          }else{uZd[i]=0}
      RemoveLocation(l)
      l=null
      uDmg[i]=dmg
    tr[i]=CreateTrigger()
    TriggerRegisterUnitInRange(tr[i],uLaser[i],rangeofcol,null)
    tra[i] = TriggerAddAction(tr[i], function Collision)

      PauseUnit(uLaser[i],true)
          if (t==null){
              t=CreateTimer()
              TimerStart(t,TimerPeriod,true,function Do)
          }
          if (i>maxArray){
              maxArray=i
          }
        
      i=0
       if (maxArraySearch==true){
          int j = 0
              while(i<8191){
                  if(uLaser[i]!=null)and(j<i){ //Находим максимальный индекс непустого элемента
                  j=i           
                  }
              i++
              }
          maxArray=j //Найдя максимальный индекс непустого элемента, мы будем использовать его
          }         //для нахождения максимального номера массива, который мы будем обрабатывать
      u=null     
       
      }

}