hedgewars/uGears.pas
changeset 3044 8466bd29280f
parent 3042 872e5b3de293
child 3045 41732f986b4f
equal deleted inserted replaced
3043:3acdb4dac6eb 3044:8466bd29280f
  1407             DrawSprite(sprFinger, hwRound(Gear^.X) - 16 + WorldDx, hwRound(Gear^.Y) - 64 + WorldDy,
  1407             DrawSprite(sprFinger, hwRound(Gear^.X) - 16 + WorldDx, hwRound(Gear^.Y) - 64 + WorldDy,
  1408                         GameTicks div 32 mod 16);
  1408                         GameTicks div 32 mod 16);
  1409 
  1409 
  1410         if (Gear^.State and gstDrowning) = 0 then
  1410         if (Gear^.State and gstDrowning) = 0 then
  1411             if (Gear^.State and gstHHThinking) <> 0 then
  1411             if (Gear^.State and gstHHThinking) <> 0 then
  1412                 DrawSprite(sprQuestion, hwRound(Gear^.X) - 10 + WorldDx, hwRound(Gear^.Y) - cHHRadius - 34 + WorldDy, 0)
  1412                 DrawSprite(sprQuestion, hwRound(Gear^.X) - 10 + WorldDx, hwRound(Gear^.Y) - cHHRadius - 34 + WorldDy, (RealTicks shr 9) mod 8)
  1413         end
  1413         end
  1414     end;
  1414     end;
  1415 
  1415 
  1416 if Gear^.Invulnerable then
  1416 if Gear^.Invulnerable then
  1417     begin
  1417     begin