hedgewars/uGears.pas
changeset 542 ec26095f1bed
parent 540 b06c5aace2fa
child 543 465e2ec8f05f
equal deleted inserted replaced
541:bc7be7f6d3e8 542:ec26095f1bed
   472       if (Gear^.State and gstHHDriven) <> 0 then
   472       if (Gear^.State and gstHHDriven) <> 0 then
   473         begin
   473         begin
   474         if bShowFinger and ((Gear^.State and gstHHDriven) <> 0) then
   474         if bShowFinger and ((Gear^.State and gstHHDriven) <> 0) then
   475            DrawSprite(sprFinger, hwRound(Gear^.X) - 16 + WorldDx, hwRound(Gear^.Y) - 64 + WorldDy,
   475            DrawSprite(sprFinger, hwRound(Gear^.X) - 16 + WorldDx, hwRound(Gear^.Y) - 64 + WorldDy,
   476                       GameTicks div 32 mod 16, Surface);
   476                       GameTicks div 32 mod 16, Surface);
   477         if (Gear^.State and (gstMoving or gstDrowning or gstFalling)) = 0 then
   477         if (Gear^.State and (gstMoving or gstDrowning)) = 0 then
   478            if (Gear^.State and gstHHThinking) <> 0 then
   478            if (Gear^.State and gstHHThinking) <> 0 then
   479               DrawGear(sQuestion, hwRound(Gear^.X) - 10 + WorldDx, hwRound(Gear^.Y) - cHHRadius - 34 + WorldDy, Surface)
   479               DrawGear(sQuestion, hwRound(Gear^.X) - 10 + WorldDx, hwRound(Gear^.Y) - cHHRadius - 34 + WorldDy, Surface)
   480               else
   480               else
   481               if ShowCrosshair and ((Gear^.State and gstAttacked) = 0) then
   481               if ShowCrosshair and ((Gear^.State and gstAttacked) = 0) then
   482                  DrawSurfSprite(Round(hwRound(Gear^.X) + hwSign(Gear^.dX) * Sin(Gear^.Angle*pi/cMaxAngle)*60) + WorldDx - 11,
   482                  DrawSurfSprite(Round(hwRound(Gear^.X) + hwSign(Gear^.dX) * Sin(Gear^.Angle*pi/cMaxAngle)*60) + WorldDx - 11,