hedgewars/uGears.pas
changeset 777 86177328b094
parent 776 8fc7e59d9cb4
child 783 4f59db6f147d
equal deleted inserted replaced
776:8fc7e59d9cb4 777:86177328b094
   493         if (Gear^.State and (gstMoving or gstDrowning)) = 0 then
   493         if (Gear^.State and (gstMoving or gstDrowning)) = 0 then
   494            if (Gear^.State and gstHHThinking) <> 0 then
   494            if (Gear^.State and gstHHThinking) <> 0 then
   495               DrawSprite(sprQuestion, hwRound(Gear^.X) - 10 + WorldDx, hwRound(Gear^.Y) - cHHRadius - 34 + WorldDy, 0, Surface)
   495               DrawSprite(sprQuestion, hwRound(Gear^.X) - 10 + WorldDx, hwRound(Gear^.Y) - cHHRadius - 34 + WorldDy, 0, Surface)
   496               else
   496               else
   497               if ShowCrosshair and ((Gear^.State and gstAttacked) = 0) then
   497               if ShowCrosshair and ((Gear^.State and gstAttacked) = 0) then
   498                  DrawSurfSprite(Round(hwRound(Gear^.X) + hwSign(Gear^.dX) * Sin(Gear^.Angle*pi/cMaxAngle)*60) + WorldDx - 11,
   498                  DrawRotatedTex(Team^.CrosshairTex,
   499                            Round(hwRound(Gear^.Y) - Cos(Gear^.Angle*pi/cMaxAngle)*60) + WorldDy - 12,
   499                                 12, 12,
   500                            24, (18 + hwSign(Gear^.dX) * LongInt(((Gear^.Angle * 72 div cMaxAngle) + 1) div 2) mod 18) mod 18,
   500                                 Round(hwRound(Gear^.X) +
   501                            Team^.CrosshairTex, Surface);
   501                                 hwSign(Gear^.dX) * Sin(Gear^.Angle*pi/cMaxAngle)*60) + WorldDx,
       
   502                                 Round(hwRound(Gear^.Y) -
       
   503                                 Cos(Gear^.Angle*pi/cMaxAngle)*60) + WorldDy,
       
   504                                 hwSign(Gear^.dX) * Gear^.Angle * 180 / cMaxAngle)
   502         end;
   505         end;
   503 end;
   506 end;
   504 
   507 
   505 procedure DrawGears(Surface: PSDL_Surface);
   508 procedure DrawGears(Surface: PSDL_Surface);
   506 var Gear: PGear;
   509 var Gear: PGear;