Mercurial Mercurial > hedgewars / diff
summary | shortlog | changelog | graph | tags | bookmarks | branches | files | changeset | file | latest | revisions | annotate | diff | comparison | raw | help
Find changesets by keywords (author, files, the commit message), revision number or hash, or revset expression.
hedgewars/uGearsHandlersMess.pas
changeset 15803 b06b33cf0a89
parent 15753 72f735c03fec
child 15819 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
hedgewars