hedgewars/uGearsUtils.pas
changeset 9477 0463f747e839
parent 9473 a51a69094c24
child 9479 167dea42d7d7
--- a/hedgewars/uGearsUtils.pas	Mon Sep 30 00:21:28 2013 +0400
+++ b/hedgewars/uGearsUtils.pas	Sun Sep 29 19:03:15 2013 -0400
@@ -594,6 +594,11 @@
 ignoreNearObjects:= false; // try not skipping proximity at first
 ignoreOverlap:= false; // this not only skips proximity, but allows overlapping objects (barrels, mines, hogs, crates).  Saving it for a 3rd pass.  With this active, winning AI Survival goes back to virtual impossibility
 tryAgain:= true;
+if WorldEdge <> weNone then 
+    begin
+    Left:= max(Left,leftX+Gear^.Radius);
+    Right:= min(Right,rightX-Gear^.Radius)
+    end;
 while tryAgain do
     begin
     delta:= LAND_WIDTH div 16;