hedgewars/uGears.pas
changeset 1103 1ff3db3c12af
parent 1089 24e9e1ca0394
child 1106 f868b7307003
--- a/hedgewars/uGears.pas	Fri Jul 25 21:13:35 2008 +0000
+++ b/hedgewars/uGears.pas	Fri Jul 25 22:28:22 2008 +0000
@@ -315,7 +315,7 @@
                 end;
         gtCake: begin
                 Result^.Health:= 3072;
-                Result^.Radius:= 5;
+                Result^.Radius:= 7;
                 if hwSign(dX) > 0 then Result^.Angle:= 1 else Result^.Angle:= 3
                 end;
      end;
@@ -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: DrawSprite(sprTarget, hwRound(Gear^.X) - 16 + WorldDx, hwRound(Gear^.Y) - 16 + WorldDy, 0);
+          gtCake: DrawRotatedf(sprCakeWalk, hwRound(Gear^.X) + WorldDx, hwRound(Gear^.Y) + WorldDy, 0, hwSign(Gear^.dX), Gear^.DirAngle + hwSign(Gear^.dX) * 90);
               end;
       Gear:= Gear^.NextGear
       end;