hedgewars/uGearsHandlersMess.pas
changeset 14750 ab7bf5036314
parent 14749 533ac9774279
child 14758 bc0e86b0347b
--- a/hedgewars/uGearsHandlersMess.pas	Sun Apr 07 18:21:14 2019 +0200
+++ b/hedgewars/uGearsHandlersMess.pas	Sun Apr 07 19:26:16 2019 +0200
@@ -1951,6 +1951,7 @@
     dmg: LongWord;
 begin
     if Gear^.Health = 0 then dxdy:= hwAbs(Gear^.dX)+hwAbs(Gear^.dY);
+    Gear^.RenderTimer:= ((Gear^.State and gstFrozen) = 0) and ((Gear^.State and gstAttacking) = 0) and (Gear^.Health <> 0);
     if (Gear^.State and gstMoving) <> 0 then
         begin
         DeleteCI(Gear);
@@ -2049,6 +2050,7 @@
     sparkle: PVisualGear;
 begin
     targ:= nil;
+    Gear^.RenderTimer:= ((Gear^.State and gstFrozen) = 0) and ((Gear^.State and gstAttacking) = 0);
     if (Gear^.State and gstFrozen) <> 0 then
         begin
         if Gear^.Damage > 0 then
@@ -2288,6 +2290,7 @@
         CalcRotationDirAngle(Gear);
         end;
 
+    Gear^.RenderTimer:= ((Gear^.State and gstFrozen) = 0) and ((Gear^.State and gstAttacking) = 0);
     if ((Gear^.State and gsttmpFlag) <> 0) and (Gear^.Health <> 0) then
         begin
         if ((Gear^.State and gstAttacking) = 0) and ((Gear^.State and gstFrozen) = 0) then