# HG changeset patch
# User Wuzzy <Wuzzy2@mail.ru>
# Date 1547076785 -3600
# Node ID c38dd843763fa1c0d410c02ddb8495e32e0634d4
# Parent  1b97bc7de9368ef97ac0f2b6741f69e128c04728
Fix double water splash if flying saucer drowns (bug 681)

diff -r 1b97bc7de936 -r c38dd843763f hedgewars/uGearsUtils.pas
--- 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);