--- a/hedgewars/uGearsHandlersMess.pas Tue Jun 22 22:13:55 2021 +0200
+++ b/hedgewars/uGearsHandlersMess.pas Wed Jun 23 15:32:48 2021 -0400
@@ -396,10 +396,10 @@
end;
// clip velocity at 2 - over 1 per pixel, but really shouldn't cause many actual problems.
- if Gear^.dX.Round > 1 then
- Gear^.dX.QWordValue:= 8589934592;
- if Gear^.dY.Round > 1 then
- Gear^.dY.QWordValue:= 8589934592;
+ if Gear^.dX.QWordValue > 8160437862 then
+ Gear^.dX.QWordValue:= 8160437862;
+ if Gear^.dY.QWordValue > 8160437862 then
+ Gear^.dY.QWordValue:= 8160437862;
if (Gear^.State and gstSubmersible <> 0) and CheckCoordInWater(gX, gY) then
begin