hedgewars/uGearsRender.pas
changeset 6141 2c190f5c037a
parent 6140 863357503fb4
child 6142 ee0bcee5bf86
equal deleted inserted replaced
6140:863357503fb4 6141:2c190f5c037a
   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                   DrawRotatedTextureF(SpritesData[sprPlane].Texture, 1, 0, 0, x, y, 0, Gear^.Tag, SpritesData[sprPlane].Width, SpritesData[sprPlane].Height, DxDy2Angle(Gear^.dX, Gear^.dY) + 90);
   896                   if Gear^.Tag = -1 then
   897                   Tint($FF, $FF, $FF, $FF);
   897                       begin
   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)
   898                       DrawRotatedTextureF(SpritesData[sprPlane].Texture, 1, 0, 0, x, y, 0, -1, SpritesData[sprPlane].Width, SpritesData[sprPlane].Height, DxDy2Angle(Gear^.dX, Gear^.dY) + 90);
       
   899                       Tint($FF, $FF, $FF, $FF);
       
   900                       DrawRotatedTextureF(SpritesData[sprPlane].Texture, 1, 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, 1, 0, 0, x, y, 0, 0,  SpritesData[sprPlane].Width, SpritesData[sprPlane].Height, DxDy2Angle(Gear^.dX, Gear^.dY));
       
   905                       Tint($FF, $FF, $FF, $FF);
       
   906                       DrawRotatedTextureF(SpritesData[sprPlane].Texture, 1, 0, 0, x, y, 1, 0,  SpritesData[sprPlane].Width, SpritesData[sprPlane].Height, DxDy2Angle(Gear^.dX, Gear^.dY))
       
   907                       end
   899                   end;
   908                   end;
   900        gtBall: DrawRotatedf(sprBalls, x, y, Gear^.Tag,0, Gear^.DirAngle);
   909        gtBall: DrawRotatedf(sprBalls, x, y, Gear^.Tag,0, Gear^.DirAngle);
   901 
   910 
   902        gtPortal: if ((Gear^.Tag and 1) = 0) // still moving?
   911        gtPortal: if ((Gear^.Tag and 1) = 0) // still moving?
   903                  or (Gear^.IntersectGear = nil) or (Gear^.IntersectGear^.IntersectGear <> Gear) // not linked&backlinked?
   912                  or (Gear^.IntersectGear = nil) or (Gear^.IntersectGear^.IntersectGear <> Gear) // not linked&backlinked?