reducing this value is sufficient to ensure crates drop just below top border or a girder
authornemo
Sat, 25 Aug 2012 18:35:59 -0400
changeset 7603 e9c3c67b5dfd
parent 7602 a620319d377e
child 7604 c143c942b5fe
reducing this value is sufficient to ensure crates drop just below top border or a girder
hedgewars/uGearsUtils.pas
--- a/hedgewars/uGearsUtils.pas	Sat Aug 25 18:22:15 2012 -0400
+++ b/hedgewars/uGearsUtils.pas	Sat Aug 25 18:35:59 2012 -0400
@@ -569,9 +569,7 @@
         repeat
             inc(x, Delta);
             cnt:= 0;
-            if hasBorder then
-                 y:= min(1024, topY+4)
-            else y:= min(1024, topY) - 2 * Gear^.Radius;
+            y:= min(1024, topY) - 2 * Gear^.Radius;
             while y < cWaterLine do
                 begin
                 repeat
@@ -607,7 +605,7 @@
                     inc(cnt)
                     end;
 
-                inc(y, 45)
+                inc(y, 10)
                 end;
 
             if cnt > 0 then