hedgewars/uGears.pas
changeset 970 1bd9a4eafbc3
parent 966 664ae90b5b0c
child 976 368a8926632b
--- a/hedgewars/uGears.pas	Sun Jun 01 18:54:10 2008 +0000
+++ b/hedgewars/uGears.pas	Sun Jun 01 20:01:45 2008 +0000
@@ -663,12 +663,20 @@
 
 
 if defaultPos then
+	begin
 	DrawRotatedF(sprHHIdle,
 		hwRound(Gear^.X) + 1 + WorldDx,
 		hwRound(Gear^.Y) - 3 + WorldDy,
 		(RealTicks div 128 + Gear^.Pos) mod 19,
 		hwSign(Gear^.dX),
 		0);
+	DrawRotatedF(sprHat,
+		hwRound(Gear^.X) + 1 + WorldDx,
+		hwRound(Gear^.Y) - 8 + WorldDy,
+		(RealTicks div 128 + Gear^.Pos) mod 19,
+		hwSign(Gear^.dX),
+		0);
+	end;
 
 with PHedgehog(Gear^.Hedgehog)^ do
 	if (Gear^.State{ and not gstAnimation}) = 0 then