hedgewars/uGears.pas
changeset 3044 8466bd29280f
parent 3042 872e5b3de293
child 3045 41732f986b4f
--- a/hedgewars/uGears.pas	Mon Mar 22 11:52:16 2010 +0000
+++ b/hedgewars/uGears.pas	Mon Mar 22 13:44:35 2010 +0000
@@ -1409,7 +1409,7 @@
 
         if (Gear^.State and gstDrowning) = 0 then
             if (Gear^.State and gstHHThinking) <> 0 then
-                DrawSprite(sprQuestion, hwRound(Gear^.X) - 10 + WorldDx, hwRound(Gear^.Y) - cHHRadius - 34 + WorldDy, 0)
+                DrawSprite(sprQuestion, hwRound(Gear^.X) - 10 + WorldDx, hwRound(Gear^.Y) - cHHRadius - 34 + WorldDy, (RealTicks shr 9) mod 8)
         end
     end;