library OTR {

define {
//Значения по умолчанию=====
private STEP=.34907   
private MAX=3.1415926536
//==========================
}
//Дальше ни чего не трогать. =)
private hashtable hash=InitHashtable()
private location LocZ=Location(0,0)
private player playercast

      private struct str {
          unit u
          real speed
          real angle
          real Z
          real maxspeed
          real step
          real max
          string efmd
          boolean flag
          boolean effecton
      }
        
      private boolean Cond() {
      return IsUnitEnemy(GetFilterUnit(),playercast) && GetWidgetLife(GetFilterUnit())>.0
      }
        
      public boolean XYpr(real x,real y) {
          local item t=CreateItem('texp',x,y)
          local real x1,y1
          SetItemPosition(t,x,y)
          x1=GetWidgetX(t);y1=GetWidgetY(t);RemoveItem(t);t=null
          return x==x1 && y==y1
      }

      public real ConvertReal(real r, real min, real max) {
          whilenot r<=max {
              r-=max
          }
          whilenot r>=min {
              r+=max
          }
          return r
      }

      public real Ricochet(real x, real y, real angle, real dist, real step, real max) {
          real r=step,a=angle,x1,x2,y1,y2
          do {
              x1=x+Cos(a)*dist ; y1=y+Sin(a)*dist
              exitwhen r>=max or OTR_XYpr(x1,y1)
              r=r+step
              a=ConvertReal(angle+r,.0,6.283185306)
          }
          if a==angle {
              return angle
          }
          r=step
          do {
              x2=x+Cos(a)*dist ; y2=y+Sin(a)*dist
              exitwhen r>= max or OTR_XYpr(x2, y2)
              a=ConvertReal(angle-r,.0,6.283185306) ; r=r+step
          }
          r=ConvertReal(3.1415926536+(Atan2(y1-y,x1-x)+Atan2(y2-y,x2-x))/2,.0,6.283185306)
          if r>=1.5707963265 and a>=3.1415926536 {
              return 2*(r+1.5707963265)-a
          }
          return 2*(r-1.5707963265)-a
      }

      private nothing GrAc3() {
          timer t=GetExpiredTimer()
          str h=LoadInteger(hash,GetHandleId(t),0)
          real x=GetWidgetX(h.u),y=GetWidgetY(h.u)
          real x1=x+h.speed*Cos(h.angle),y1=y+h.speed*Sin(h.angle)
          real angle,Z=h.Z
          MoveLocation(LocZ,x,y)
          h.Z=GetLocationZ(LocZ)
          if h.speed>.0 && GetWidgetLife(h.u) > .0 {
              angle=Ricochet(x1,y1,h.angle,15.,h.step,h.max)
                  if angle==h.angle {
                      SetUnitX(h.u,x1)
                      SetUnitY(h.u,y1)
                  else
                      h.angle = angle
                      h.speed=h.speed-3.
                  }
                  if h.flag==false {
                      h.flag=true
                  elseif h.Z>Z
                      h.speed=h.speed-(h.Z-Z)/10
                  else
                      h.speed=h.speed+(Z-h.Z)/10
                  }
                  if h.speed>h.maxspeed {
                      h.speed=h.maxspeed
                  }
                  if h.effecton {
                      DestroyEffect(AddSpecialEffect("Abilities\\Spells\\Human\\FlakCannons\\FlakTarget.mdl",x1,y1))
                  }
              h .speed=h.speed-.3
          else
              FlushChildHashtable(hash,GetHandleId(t))
              DestroyTimer(t)
              h.destro y()
          }
          t=null
}
      public nothing GrUnit(unit u,real x,real y,real maxdist,boolean e,real step,real max) {
          timer t=CreateTimer()
          real xu=GetUnitX(u),yu=GetUnitY(u)
          str h=str.create()
          h.angle=Atan2(yu-y,xu-x)
          h.speed=maxdist/100-SquareRoot((x-xu)*(x-xu)+(y-yu)*(y-yu))/100
          h.maxspeed=h.speed ;h.u=u ;h.effecton=e;h.flag=false;h.step=step;h.max=max
          SaveInteger(hash,GetHandleId(t),0,h)
          TimerStart(t,0.02,true,function GrAc3)
          t=null
      }
      public nothing Start(unit u,real radius,real maxdist,boolean effecton,real step,real max) {
          group g=CreateGroup()
          unit ugr
          real x=GetWidgetX(u),y=GetWidgetY(u)
          boolexpr b=Condition(function Cond)
          playercast=GetOwningPlayer(u)
          GroupEnumUnitsInRange(g,x,y,radius,b)
          do {
              ugr=FirstOfGroup(g)
              exitwhen ugr==null
              GrUnit(ugr,x,y,maxdist,effecton,step,max)
              GroupRemoveUnit(g,ugr)
          }
          DestroyBoolExpr (b);DestroyGroup(g)
          b=null;g=null
      }
      public nothing StartXY(player p,real x,real y,real radius,real maxdist,boolean effecton,real step,real max) {
          group g=CreateGroup();unit ugr
          boolexpr b=Condition(function Cond)
          playercast=p
          GroupEnumUnitsInRange(g,x,y,radius,b)
          do {
              ugr=FirstOfGroup(g)
              exitwhen ugr==null
              GrUnit(ugr,x,y,maxdist,effecton,step,max)
              GroupRemoveUnit(g,ugr)
          }
          DestroyBoolExpr (b);DestroyGroup(g)
          b=null;g=null
      }
      define {   
      OTR_Start(u,radius,maxdist,effecton)=OTR_##Start(u,radius,maxdist,effecton,STEP,MAX)
      OTR_Start(u,radius,maxdist,effecton,ste p)=OTR_##Start(u,radius,maxdist,effecton,step,MAX)
      OTR_Start(u,radius,maxdist,effecton,step,max)=OTR_##Start(u,radius,maxdist,effecton ,step,max)
      OTR_StartXY(p,x,y,radius,maxdist,e)=OTR_##StartXY(p,x,y,radius,maxdist,e,STEP,MAX)
      OTR_StartXY(p,x,y,radius,maxdist,e ,step)=OTR_##StartXY(p,x,y,radius,maxdist,e,step,MAX)
      OTR_StartXY(p,x,y,radius,maxdist,e,step,max)=OTR_##StartXY(p,x,y,radius,maxdist, e,step,max)
      OTR_GrUnit(u,x,y,maxdist,e)=OTR_Gr##Unit(u,x,y,maxdist,e,STEP,MAX)
      OTR_GrUnit(u,x,y,maxdist,e,step)=OTR_Gr##Unit(u,x ,y,maxdist,e,step,MAX)
      OTR_GrUnit(u,x,y,maxdist,e,step,max)=OTR_Gr##Unit(u,x,y,maxdist,e,step,max)
      OTR_Ricochet(x,y,angle,dist)= OTR_##Ricochet(x,y,angle,dist,STEP,MAX)
      OTR_Ricochet(x,y,angle,dist,step)=OTR_##Ricochet(x,y,angle,dist,step,MAX)
      OTR_Ricochet(x ,y,angle,dist,step,max)=OTR_##Ricochet(x,y,angle,dist,step,max)
      }
}