hedgewars/uGearsRender.pas
changeset 4808 7c3e5b52344a
parent 4790 4cb3f7890fbd
child 4810 76315fdfb7a5
equal deleted inserted replaced
4807:180dbfb13903 4808:7c3e5b52344a
   853        gtRCPlane: begin
   853        gtRCPlane: begin
   854                   if (Gear^.Tag = -1) then
   854                   if (Gear^.Tag = -1) then
   855                      DrawRotated(sprPlane, x, y, -1,  DxDy2Angle(Gear^.dX, Gear^.dY) + 90)
   855                      DrawRotated(sprPlane, x, y, -1,  DxDy2Angle(Gear^.dX, Gear^.dY) + 90)
   856                   else
   856                   else
   857                      DrawRotated(sprPlane, x, y,0,DxDy2Angle(Gear^.dY, Gear^.dX));
   857                      DrawRotated(sprPlane, x, y,0,DxDy2Angle(Gear^.dY, Gear^.dX));
   858                   if ((TrainingFlags and tfRCPlane) <> 0) and (TrainingTargetGear <> nil) and ((Gear^.State and gstDrowning) = 0) then
       
   859                      DrawRotatedf(sprFinger, x, y, GameTicks div 32 mod 16, 0, DxDy2Angle(Gear^.X - TrainingTargetGear^.X, TrainingTargetGear^.Y - Gear^.Y));
       
   860                   end;
   858                   end;
   861        gtBall: DrawRotatedf(sprBalls, x, y, Gear^.Tag,0, Gear^.DirAngle);
   859        gtBall: DrawRotatedf(sprBalls, x, y, Gear^.Tag,0, Gear^.DirAngle);
   862 
   860 
   863        gtPortal: if ((Gear^.Tag and 1) = 0) // still moving?
   861        gtPortal: if ((Gear^.Tag and 1) = 0) // still moving?
   864                  or (Gear^.IntersectGear = nil) or (Gear^.IntersectGear^.IntersectGear <> Gear) // not linked&backlinked?
   862                  or (Gear^.IntersectGear = nil) or (Gear^.IntersectGear^.IntersectGear <> Gear) // not linked&backlinked?