hedgewars/uGears.pas
changeset 701 8841f71b5e79
parent 700 be4847674071
child 708 6ee55ba9c8fe
--- a/hedgewars/uGears.pas	Fri Jan 11 23:11:53 2008 +0000
+++ b/hedgewars/uGears.pas	Fri Jan 11 23:37:23 2008 +0000
@@ -939,11 +939,9 @@
         Result: LongInt;
     begin
     Result:= 0;
-AddFileLog('x, y, test = ' + inttostr(x) + ', ' + inttostr(y) + ' ,' + inttostr(y and $FFFFFC00));
-    if (y and $FFFFFC00) <> 0 then exit;
-    for i:= max(x - r, 0) to min(x + r, 2043) do
+    if (y and $FFFFFC00) = 0 then
+      for i:= max(x - r, 0) to min(x + r, 2043) do
         if Land[y, i] <> 0 then inc(Result);
-AddFileLog('CountNonZeroz = ' + inttostr(Result));
     CountNonZeroz:= Result
     end;
 
@@ -965,7 +963,7 @@
      while y < 1023 do
         begin
         repeat
-          inc(y, 2);
+         inc(y, 2);
         until (y > 1023) or (CountNonZeroz(x, y, Gear^.Radius - 1) = 0);
         sy:= y;
         repeat