hedgewars/uGearsRender.pas
changeset 5519 c803fca71084
parent 5507 1040c0946ef8
child 5525 5fb06333314e
--- a/hedgewars/uGearsRender.pas	Sun Aug 07 18:49:49 2011 +0200
+++ b/hedgewars/uGearsRender.pas	Sun Aug 07 12:50:17 2011 -0400
@@ -1055,7 +1055,7 @@
                     Tint($FF, $FF, $FF, $FF);
                     end;
       gtNapalmBomb: DrawRotated(sprNapalmBomb, x, y, 0, DxDy2Angle(Gear^.dY, Gear^.dX));
-           gtFlake: if (Gear^.State and gstTmpFlag) <> 0 then
+           gtFlake: if Gear^.State and (gstDrowning or gstTmpFlag) <> 0  then
                         begin
                         Tint((cExplosionBorderColor shr RShift) and $FF, 
                              (cExplosionBorderColor shr GShift) and $FF,