hedgewars/uGearsUtils.pas
changeset 14555 c38dd843763f
parent 14535 5ac181cb2396
child 14584 ca9c632db2cf
--- a/hedgewars/uGearsUtils.pas	Wed Jan 09 22:19:46 2019 +0100
+++ b/hedgewars/uGearsUtils.pas	Thu Jan 10 00:33:05 2019 +0100
@@ -757,7 +757,7 @@
                 end
             else // submersible
                 begin
-                // drown submersible grears if far below map
+                // drown submersible gears if far below map
                 if (Y > cWaterLine + cVisibleWater*4) then
                     begin
                     DrownGear(Gear);
@@ -796,7 +796,8 @@
 
         // splash sound animation and droplets
         if isImpact or isSkip then
-            addSplashForGear(Gear, isSkip);
+            if (not (((dist2Water + Gear^.Radius div 2) < 0) or (abs(dist2Water + Gear^.Radius) >= Gear^.Radius))) then
+                addSplashForGear(Gear, isSkip);
 
         if isSkip then
             ScriptCall('onGearWaterSkip', Gear^.uid);