hedgewars/uCollisions.pas
changeset 5919 f737843dd331
parent 5896 9ce1cf4e5a32
child 6081 537bbd5c1a62
--- a/hedgewars/uCollisions.pas	Thu Sep 15 23:08:17 2011 +0200
+++ b/hedgewars/uCollisions.pas	Fri Sep 16 00:18:21 2011 +0200
@@ -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)