hedgewars/HHHandlers.inc
changeset 5977 0b1bfdd95310
parent 5972 add1cae1add6
child 5991 c3b7064d9226
--- a/hedgewars/HHHandlers.inc	Wed Sep 21 02:05:42 2011 +0200
+++ b/hedgewars/HHHandlers.inc	Tue Sep 20 20:52:04 2011 -0400
@@ -1047,7 +1047,6 @@
             end else 
                 begin
                 Gear^.State:= (Gear^.State or gstHHDeath) and not gstAnimation;
-                Gear^.Timer:= 0;
                 Gear^.doStep:= @doStepHedgehogDead;
                 // Death message
                 AddCaption(Format(GetEventString(eidDied), Gear^.Hedgehog^.Name), cWhiteColor, capgrpMessage);
@@ -1055,7 +1054,7 @@
             end
         else
             begin
-            Gear^.State:= Gear^.State or gstHHGone;
+            Gear^.State:= (Gear^.State or gstHHGone) and not gstAnimation;
             Gear^.doStep:= @doStepHedgehogGone;
 
             with Gear^.Hedgehog^.Team^ do
@@ -1086,7 +1085,7 @@
     begin
     if Gear^.Timer = 0 then
         begin
-        Gear^.State:= Gear^.State and not gstWait;
+        Gear^.State:= Gear^.State and not (gstWait or gstLoser or gstWinner);
         Gear^.Active:= false;
         AddGearCI(Gear);
         exit