hedgewars/uGearsHandlersMess.pas
changeset 14560 45c6c12c12e2
parent 14557 3be619402d6b
child 14565 833ab5b359e5
--- a/hedgewars/uGearsHandlersMess.pas	Sat Jan 12 06:38:20 2019 +0100
+++ b/hedgewars/uGearsHandlersMess.pas	Sat Jan 12 23:26:33 2019 +0100
@@ -6377,7 +6377,11 @@
             Timer := iceWaitCollision;
             FlightTime := 0;
             end
-        else
+        // Extend ice beam, unless it is far outside he map boundaries
+        else if (not ((hwRound(X + dX) > max(LAND_WIDTH,4096)*2) or
+            (hwRound(X + dX) < -max(LAND_WIDTH,4096)*2) or
+            (hwRound(Y + dY) < -max(LAND_HEIGHT,4096)*2) or
+            (hwRound(Y + dY) > max(LAND_HEIGHT,4096)+512))) then
             begin
             X:= X + dX;
             Y:= Y + dY;
@@ -6582,16 +6586,6 @@
                     Y:= HHGear^.Y
                     end 
                 end;
-            if (gX > max(LAND_WIDTH,4096)*2) or
-                    (gX < -max(LAND_WIDTH,4096)) or
-                    (gY < -max(LAND_HEIGHT,4096)) or
-                    (gY > max(LAND_HEIGHT,4096)+512) then
-                begin
-                //X:= HHGear^.X;
-                //Y:= HHGear^.Y
-                Target.X:= gX;
-                Target.Y:= gY;
-                end
         end
     end;
 end;