hedgewars/uGearsRender.pas
changeset 5873 4f2d8ce3732b
parent 5871 09daa06191d7
child 5932 5164d17b6374
child 5935 c89d5065d956
equal deleted inserted replaced
5872:454f246fe4c5 5873:4f2d8ce3732b
   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                   
   889                   
   890        gtMolotov: if (Gear^.State and gstDrowning) = 0 then
   890        gtMolotov: if (Gear^.State and gstDrowning) = 0 then
   891                        DrawRotatedF(sprMolotov, x, y, (RealTicks div 125) mod 8, hwSign(Gear^.dX), Gear^.DirAngle)
   891                        DrawRotatedF(sprMolotov, x, y, (RealTicks div 125) mod 8, hwSign(Gear^.dX), Gear^.DirAngle * hwSign(Gear^.dX))
   892                   else DrawSprite(sprMolotov, x, y, 8);
   892                   else DrawSprite(sprMolotov, x, y, 8);
   893 
   893 
   894        gtRCPlane: begin
   894        gtRCPlane: begin
   895                   if (Gear^.Tag = -1) then
   895                   if (Gear^.Tag = -1) then
   896                      DrawRotated(sprPlane, x, y, -1,  DxDy2Angle(Gear^.dX, Gear^.dY) + 90)
   896                      DrawRotated(sprPlane, x, y, -1,  DxDy2Angle(Gear^.dX, Gear^.dY) + 90)