diff -r 037494752cc4 -r f868b7307003 hedgewars/uGears.pas
--- a/hedgewars/uGears.pas	Sun Jul 27 10:59:20 2008 +0000
+++ b/hedgewars/uGears.pas	Sun Jul 27 12:57:15 2008 +0000
@@ -1034,7 +1034,7 @@
         gtSwitcher: DrawSprite(sprSwitch, hwRound(Gear^.X) - 16 + WorldDx, hwRound(Gear^.Y) - 56 + WorldDy, (GameTicks shr 6) mod 12);
           gtTarget: DrawSprite(sprTarget, hwRound(Gear^.X) - 16 + WorldDx, hwRound(Gear^.Y) - 16 + WorldDy, 0);
           gtMortar: DrawRotated(sprMortar, hwRound(Gear^.X) + WorldDx, hwRound(Gear^.Y) + WorldDy, 0, DxDy2Angle(Gear^.dY, Gear^.dX));
-          gtCake: DrawRotatedf(sprCakeWalk, hwRound(Gear^.X) + WorldDx, hwRound(Gear^.Y) + WorldDy, 0, hwSign(Gear^.dX), Gear^.DirAngle + hwSign(Gear^.dX) * 90);
+          gtCake: DrawRotatedf(sprCakeWalk, hwRound(Gear^.X) + WorldDx, hwRound(Gear^.Y) + WorldDy, (GameTicks div 32) mod 6, hwSign(Gear^.dX), Gear^.DirAngle + hwSign(Gear^.dX) * 90);
               end;
       Gear:= Gear^.NextGear
       end;