hedgewars/uGearsRender.pas
changeset 5871 09daa06191d7
parent 5787 f2caf41f2984
child 5873 4f2d8ce3732b
--- a/hedgewars/uGearsRender.pas	Mon Sep 12 00:47:49 2011 +0200
+++ b/hedgewars/uGearsRender.pas	Sun Sep 11 21:30:42 2011 -0400
@@ -886,7 +886,10 @@
           gtGrenade: DrawRotated(sprBomb, x, y, 0, Gear^.DirAngle);
       gtSnowball: DrawRotated(sprSnowball, x, y, 0, Gear^.DirAngle);
        gtGasBomb: DrawRotated(sprCheese, x, y, 0, Gear^.DirAngle);
-       gtMolotov: DrawRotated(sprMolotov, x, y, 0, Gear^.DirAngle);
+                  
+       gtMolotov: if (Gear^.State and gstDrowning) = 0 then
+                       DrawRotatedF(sprMolotov, x, y, (RealTicks div 125) mod 8, hwSign(Gear^.dX), Gear^.DirAngle)
+                  else DrawSprite(sprMolotov, x, y, 8);
 
        gtRCPlane: begin
                   if (Gear^.Tag = -1) then