# HG changeset patch
# User unc0rr
# Date 1313256419 -14400
# Node ID 5b8ca39558349b73db752d772f2d5bdb9ccd9a4f
# Parent  38e3d934791024df1b4b0baec1b5e6464f6ea755
Some screwing around GearsNear code

diff -r 38e3d9347910 -r 5b8ca3955834 hedgewars/uGears.pas
--- a/hedgewars/uGears.pas	Sat Aug 13 20:44:42 2011 +0400
+++ b/hedgewars/uGears.pas	Sat Aug 13 21:26:59 2011 +0400
@@ -1511,19 +1511,20 @@
 function GearsNear(X, Y: hwFloat; Kind: TGearType; r: LongInt): TPGearArray;
 var
     t: PGear;
+    l: Longword;
 begin
     r:= r*r;
     GearsNear := nil;
     t := GearsList;
-    while t <> nil do begin
-        if (t^.Kind = Kind) then begin
-            if (X - t^.X)*(X - t^.X) + (Y - t^.Y)*(Y-t^.Y) <
-                int2hwFloat(r) then
+    while t <> nil do 
+        begin
+        if (t^.Kind = Kind) 
+            and ((X - t^.X)*(X - t^.X) + (Y - t^.Y)*(Y-t^.Y) < int2hwFloat(r)) then
             begin
-                SetLength(GearsNear, Length(GearsNear)+1);
-                GearsNear[High(GearsNear)] := t;
+            l:= Length(GearsNear);
+            SetLength(GearsNear, l + 1);
+            GearsNear[l] := t;
             end;
-        end;
         t := t^.NextGear;
     end;
 end;