hedgewars/uGearsRender.pas
changeset 6140 863357503fb4
parent 6139 a912b85e3ece
child 6141 2c190f5c037a
equal deleted inserted replaced
6139:a912b85e3ece 6140:863357503fb4
   891                        DrawRotatedF(sprMolotov, x, y, (RealTicks div 125) mod 8, hwSign(Gear^.dX), Gear^.DirAngle * hwSign(Gear^.dX))
   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                   Tint(Gear^.Hedgehog^.Team^.Clan^.Color shl 8 or $FF);
   895                   Tint(Gear^.Hedgehog^.Team^.Clan^.Color shl 8 or $FF);
   896                   if Gear^.Tag = -1 then
   896                   DrawRotatedTextureF(SpritesData[sprPlane].Texture, 1, 0, 0, x, y, 0, Gear^.Tag, SpritesData[sprPlane].Width, SpritesData[sprPlane].Height, DxDy2Angle(Gear^.dX, Gear^.dY) + 90);
   897                      begin
   897                   Tint($FF, $FF, $FF, $FF);
   898                      DrawRotatedTextureF(SpritesData[sprPlane].Texture, 0.5, 0, 0, x, y, 0, -1, SpritesData[sprPlane].Width, SpritesData[sprPlane].Height, DxDy2Angle(Gear^.dX, Gear^.dY) + 90);
   898                   DrawRotatedTextureF(SpritesData[sprPlane].Texture, 1, 0, 0, x, y, 1, Gear^.Tag, SpritesData[sprPlane].Width, SpritesData[sprPlane].Height, DxDy2Angle(Gear^.dX, Gear^.dY) + 90)
   899                      Tint($FF, $FF, $FF, $FF);
       
   900                      DrawRotatedTextureF(SpritesData[sprPlane].Texture, 0.5, 0, 0, x, y, 1, -1, SpritesData[sprPlane].Width, SpritesData[sprPlane].Height, DxDy2Angle(Gear^.dX, Gear^.dY) + 90);
       
   901                      end
       
   902                   else
       
   903                      begin
       
   904                      DrawRotatedTextureF(SpritesData[sprPlane].Texture, 0.5, 0, 0, x, y, 0, 0,  SpritesData[sprPlane].Width, SpritesData[sprPlane].Height, DxDy2Angle(Gear^.dX, Gear^.dY) + 90);
       
   905                      Tint($FF, $FF, $FF, $FF);
       
   906                      DrawRotatedTextureF(SpritesData[sprPlane].Texture, 0.5, 0, 0, x, y, 1, 0,  SpritesData[sprPlane].Width, SpritesData[sprPlane].Height, DxDy2Angle(Gear^.dX, Gear^.dY) + 90);
       
   907                      end
       
   908                   end;
   899                   end;
   909        gtBall: DrawRotatedf(sprBalls, x, y, Gear^.Tag,0, Gear^.DirAngle);
   900        gtBall: DrawRotatedf(sprBalls, x, y, Gear^.Tag,0, Gear^.DirAngle);
   910 
   901 
   911        gtPortal: if ((Gear^.Tag and 1) = 0) // still moving?
   902        gtPortal: if ((Gear^.Tag and 1) = 0) // still moving?
   912                  or (Gear^.IntersectGear = nil) or (Gear^.IntersectGear^.IntersectGear <> Gear) // not linked&backlinked?
   903                  or (Gear^.IntersectGear = nil) or (Gear^.IntersectGear^.IntersectGear <> Gear) // not linked&backlinked?