hedgewars/uGearsHandlersMess.pas
changeset 15825 b06b33cf0a89
parent 15775 72f735c03fec
child 15841 c5198f55ee1c
--- 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