hedgewars/uCollisions.pas
branch0.9.16
changeset 5949 7e12141c5e10
parent 5919 f737843dd331
child 6081 537bbd5c1a62
--- a/hedgewars/uCollisions.pas	Thu Sep 15 20:40:59 2011 +0400
+++ b/hedgewars/uCollisions.pas	Sat Sep 17 16:20:09 2011 +0400
@@ -373,6 +373,9 @@
     y2 := y;
 end;
 
+if (hasBorder and ((y1 < 0) or (x1 < 0) or (x2 > LAND_WIDTH))) then
+    exit(true);
+
 for y := y1 to y2 do
     for x := x1 to x2 do
         if ((y and LAND_HEIGHT_MASK) = 0) and ((x and LAND_WIDTH_MASK) = 0)