--- a/hedgewars/uGears.pas	Mon Feb 22 00:47:50 2010 +0000
+++ b/hedgewars/uGears.pas	Mon Feb 22 00:53:04 2010 +0000
@@ -457,7 +457,8 @@
 			begin
 			t:= max(Gear^.Damage, Gear^.Health);
 			Gear^.Damage:= t;
-			AddGear(hwRound(Gear^.X), min(hwRound(Gear^.Y),cWaterLine+cVisibleWater+32), gtHealthTag, t, _0, _0, 0)^.Hedgehog:= Gear^.Hedgehog;
+            if cWaterOpacity < $FF then
+			    AddGear(hwRound(Gear^.X), min(hwRound(Gear^.Y),cWaterLine+cVisibleWater+32), gtHealthTag, t, _0, _0, 0)^.Hedgehog:= Gear^.Hedgehog;
 			uStats.HedgehogDamaged(Gear)
 			end;