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.destroy()
         }
         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,step)=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)
     }
}