hedgewars/uGearsRender.pas
branchhedgeroid
changeset 5932 5164d17b6374
parent 5824 2e5835130d9a
parent 5873 4f2d8ce3732b
child 6023 a28be05b20bc
equal deleted inserted replaced
5828:667fb58d7f18 5932:5164d17b6374
   886 
   886 
   887     case Gear^.Kind of
   887     case Gear^.Kind of
   888           gtGrenade: DrawRotated(sprBomb, x, y, 0, Gear^.DirAngle);
   888           gtGrenade: DrawRotated(sprBomb, x, y, 0, Gear^.DirAngle);
   889       gtSnowball: DrawRotated(sprSnowball, x, y, 0, Gear^.DirAngle);
   889       gtSnowball: DrawRotated(sprSnowball, x, y, 0, Gear^.DirAngle);
   890        gtGasBomb: DrawRotated(sprCheese, x, y, 0, Gear^.DirAngle);
   890        gtGasBomb: DrawRotated(sprCheese, x, y, 0, Gear^.DirAngle);
   891        gtMolotov: DrawRotated(sprMolotov, x, y, 0, Gear^.DirAngle);
   891                   
       
   892        gtMolotov: if (Gear^.State and gstDrowning) = 0 then
       
   893                        DrawRotatedF(sprMolotov, x, y, (RealTicks div 125) mod 8, hwSign(Gear^.dX), Gear^.DirAngle * hwSign(Gear^.dX))
       
   894                   else DrawSprite(sprMolotov, x, y, 8);
   892 
   895 
   893        gtRCPlane: begin
   896        gtRCPlane: begin
   894                   if (Gear^.Tag = -1) then
   897                   if (Gear^.Tag = -1) then
   895                      DrawRotated(sprPlane, x, y, -1,  DxDy2Angle(Gear^.dX, Gear^.dY) + 90)
   898                      DrawRotated(sprPlane, x, y, -1,  DxDy2Angle(Gear^.dX, Gear^.dY) + 90)
   896                   else
   899                   else