hedgewars/uGearsHandlersMess.pas
changeset 15249 1dd99fc2a0e8
parent 15247 eb61cf77b365
child 15250 b96868956514
--- a/hedgewars/uGearsHandlersMess.pas	Thu Jul 11 04:42:50 2019 +0200
+++ b/hedgewars/uGearsHandlersMess.pas	Thu Jul 11 05:07:55 2019 +0200
@@ -3099,7 +3099,10 @@
         end;
 
     if (GameTicks and $3F) = 0 then
-        AddVisualGear(hwRound(Gear^.X), hwRound(Gear^.Y), vgtSmokeTrace);
+        if CheckCoordInWater(hwRound(Gear^.X), hwRound(Gear^.Y)) then
+            AddVisualGear(hwRound(Gear^.X), hwRound(Gear^.Y), vgtBubble)
+        else
+            AddVisualGear(hwRound(Gear^.X), hwRound(Gear^.Y), vgtSmokeTrace);
 
     if (hwRound(Gear^.X) > (max(LAND_WIDTH,4096)+2048)) or (hwRound(Gear^.X) < -2048) or ((Gear^.Message and gmDestroy) > 0) then
         begin