# HG changeset patch
# User Wuzzy <almikes@aol.com>
# Date 1491827672 -7200
# Node ID 00bcaa0e0ef644c4e9474634330122282918eaa6
# Parent  442bab755bb4b52f5955dd3544449e1a1178bb97
Fix dynamite sparks appearing underwater

diff -r 442bab755bb4 -r 00bcaa0e0ef6 hedgewars/uGearsRender.pas
--- a/hedgewars/uGearsRender.pas	Mon Apr 10 14:15:00 2017 +0200
+++ b/hedgewars/uGearsRender.pas	Mon Apr 10 14:34:32 2017 +0200
@@ -1327,7 +1327,7 @@
                     end;
         gtDynamite: begin
                     DrawSprite(sprDynamite, x - 16, y - 25, Gear^.Tag and 1, Gear^.Tag shr 1);
-                    if (random(3) = 0) then
+                    if (random(3) = 0) and ((Gear^.State and gstDrowning) = 0) then
                         begin
                         vg:= AddVisualGear(hwRound(Gear^.X)+12-(Gear^.Tag shr 1), hwRound(Gear^.Y)-16, vgtStraightShot);
                         if vg <> nil then