hedgewars/uGears.pas
changeset 1110 3660bbfc1cba
parent 1109 87c44c14fdd4
child 1113 d63a3567a6fe
--- a/hedgewars/uGears.pas	Sun Jul 27 13:44:04 2008 +0000
+++ b/hedgewars/uGears.pas	Sun Jul 27 14:05:17 2008 +0000
@@ -1102,7 +1102,7 @@
                              DeleteCI(Gear);
                              Gear^.dX:= Gear^.dX + SignAs(_0_005 * dmg + cHHKick, Gear^.X - int2hwFloat(X));
                              Gear^.dY:= Gear^.dY + SignAs(_0_005 * dmg + cHHKick, Gear^.Y - int2hwFloat(Y));
-                             Gear^.State:= Gear^.State or gstMoving;
+                             Gear^.State:= (Gear^.State or gstMoving) and (not gstWinner);
                              Gear^.Active:= true;
                              FollowGear:= Gear
                              end;