hedgewars/uGears.pas
changeset 1011 4fe2c4c57d10
parent 1010 583667e81d21
child 1012 36b5cc8264e8
--- a/hedgewars/uGears.pas	Wed Jun 18 18:46:11 2008 +0000
+++ b/hedgewars/uGears.pas	Wed Jun 18 18:57:34 2008 +0000
@@ -523,6 +523,16 @@
 	defaultPos:= false
 	end else
 
+if (Gear^.State and gstWinner) <> 0 then
+	begin
+	DrawHedgehog(hwRound(Gear^.X) + 1 + WorldDx, hwRound(Gear^.Y) - 3 + WorldDy,
+			hwSign(Gear^.dX),
+			2,
+			0,
+			0);
+	defaultPos:= false
+	end else
+
 if (Gear^.State and gstHHDriven) <> 0 then
 	begin
 	hx:= hwRound(Gear^.X) + 1 + 8 * hwSign(Gear^.dX) + WorldDx;
@@ -737,7 +747,7 @@
 
 with PHedgehog(Gear^.Hedgehog)^ do
 	begin
-	if ((Gear^.State{ and not gstAnimation}) = 0)
+	if ((Gear^.State and not gstWinner) = 0)
 		or (bShowFinger and ((Gear^.State and gstHHDriven) <> 0)) then
 	begin
 	t:= hwRound(Gear^.Y) - cHHRadius - 12 + WorldDy;