hedgewars/uGearsList.pas
changeset 14755 ab7bf5036314
parent 14754 533ac9774279
child 14757 56098968df90
--- a/hedgewars/uGearsList.pas	Sun Apr 07 18:21:14 2019 +0200
+++ b/hedgewars/uGearsList.pas	Sun Apr 07 19:26:16 2019 +0200
@@ -433,7 +433,8 @@
                         gear^.Timer:= getrandom(51)*100
                     else
                         gear^.Timer:= cMinesTime
-                    end
+                    end;
+                gear^.RenderTimer:= true;
                 end;
      gtAirMine: begin
                 gear^.AdvBounce:= 1;
@@ -449,6 +450,7 @@
                 gear^.Power:= cMaxWindSpeed.QWordValue div 2; // hwFloat converted. 1/2 g default. defines the "seek" speed when a gear is in range.
                 gear^.Pos:= cMaxWindSpeed.QWordValue * 3 div 2; // air friction. slows it down when not hitting stuff
                 gear^.Tag:= 0;
+                gear^.RenderTimer:= true;
                 if gear^.Timer = 0 then
                     begin
                     if cMinesTime < 0 then
@@ -468,6 +470,7 @@
                 gear^.AdvBounce:= 1;
                 gear^.Sticky:= true;
                 if gear^.Timer = 0 then gear^.Timer:= 500;
+                gear^.RenderTimer:= true;
                 end;
        gtKnife: begin
                 gear^.ImpactSound:= sndKnifeImpact;