244 end;

   244 end;

   245 

   245 

   246 function RateShove(Me: PGear; x, y, r, power: LongInt): LongInt;

   246 function RateShove(Me: PGear; x, y, r, power: LongInt): LongInt;

   247 var i, dmg, rate: LongInt;

   247 var i, dmg, rate: LongInt;

   248 begin

   248 begin

   249 rate:= 0;

   250 rate:= 0;

   250 for i:= 0 to Pred(Targets.Count) do

   251 for i:= 0 to Pred(Targets.Count) do

   251     with Targets.ar[i] do

   252     with Targets.ar[i] do

   252          begin

   253          begin

   253          dmg:= r - hwRound(DistanceI(Point.x - x, Point.y - y));

   254          dmg:= r - hwRound(DistanceI(Point.x - x, Point.y - y));