hedgewars/uGearsRender.pas
changeset 5871 09daa06191d7
parent 5787 f2caf41f2984
child 5873 4f2d8ce3732b
equal deleted inserted replaced
5870:b9b9fb00c9dd 5871:09daa06191d7
   884 
   884 
   885     case Gear^.Kind of
   885     case Gear^.Kind of
   886           gtGrenade: DrawRotated(sprBomb, x, y, 0, Gear^.DirAngle);
   886           gtGrenade: DrawRotated(sprBomb, x, y, 0, Gear^.DirAngle);
   887       gtSnowball: DrawRotated(sprSnowball, x, y, 0, Gear^.DirAngle);
   887       gtSnowball: DrawRotated(sprSnowball, x, y, 0, Gear^.DirAngle);
   888        gtGasBomb: DrawRotated(sprCheese, x, y, 0, Gear^.DirAngle);
   888        gtGasBomb: DrawRotated(sprCheese, x, y, 0, Gear^.DirAngle);
   889        gtMolotov: DrawRotated(sprMolotov, x, y, 0, Gear^.DirAngle);
   889                   
       
   890        gtMolotov: if (Gear^.State and gstDrowning) = 0 then
       
   891                        DrawRotatedF(sprMolotov, x, y, (RealTicks div 125) mod 8, hwSign(Gear^.dX), Gear^.DirAngle)
       
   892                   else DrawSprite(sprMolotov, x, y, 8);
   890 
   893 
   891        gtRCPlane: begin
   894        gtRCPlane: begin
   892                   if (Gear^.Tag = -1) then
   895                   if (Gear^.Tag = -1) then
   893                      DrawRotated(sprPlane, x, y, -1,  DxDy2Angle(Gear^.dX, Gear^.dY) + 90)
   896                      DrawRotated(sprPlane, x, y, -1,  DxDy2Angle(Gear^.dX, Gear^.dY) + 90)
   894                   else
   897                   else