hedgewars/uGears.pas
changeset 1033 622c5de38d72
parent 1020 2cbffbc0dc70
child 1034 05f003ad3caa
--- a/hedgewars/uGears.pas	Wed Jun 25 15:10:12 2008 +0000
+++ b/hedgewars/uGears.pas	Thu Jun 26 19:39:26 2008 +0000
@@ -654,6 +654,17 @@
 		end
 	else
 
+	if ((Gear^.State and gstAnimation) <> 0) then
+		begin
+		DrawRotatedF(TSprite(Gear^.Tag),
+				hwRound(Gear^.X) + 1 + WorldDx,
+				hwRound(Gear^.Y) - 3 + WorldDy,
+				Gear^.Pos,
+				hwSign(Gear^.dX),
+				0.0);
+		defaultPos:= false
+		end
+	else
 	if ((Gear^.State and gstAttacked) = 0) then
 	begin
 		amt:= CurrentHedgehog^.Ammo^[CurrentHedgehog^.CurSlot, CurrentHedgehog^.CurAmmo].AmmoType;
@@ -790,7 +801,7 @@
 			if (Gear^.State and gstHHThinking) <> 0 then
 				DrawSprite(sprQuestion, hwRound(Gear^.X) - 10 + WorldDx, hwRound(Gear^.Y) - cHHRadius - 34 + WorldDy, 0)
 				else
-				if ShowCrosshair and ((Gear^.State and gstAttacked) = 0) then
+				if ShowCrosshair and ((Gear^.State and (gstAttacked or gstAnimation)) = 0) then
 					begin
 					if ((Gear^.State and gstHHHJump) <> 0) then m:= -1 else m:= 1;
 					DrawRotatedTex(Team^.CrosshairTex,