hedgewars/uGears.pas
changeset 14755 ab7bf5036314
parent 14754 533ac9774279
child 14757 56098968df90
--- a/hedgewars/uGears.pas	Sun Apr 07 18:21:14 2019 +0200
+++ b/hedgewars/uGears.pas	Sun Apr 07 19:26:16 2019 +0200
@@ -274,10 +274,25 @@
             end;
         if curHandledGear^.Active then
             begin
-            if curHandledGear^.RenderTimer and (curHandledGear^.Timer > 500) and ((curHandledGear^.Timer mod 1000) = 0) then
+            if curHandledGear^.RenderTimer then
                 begin
-                FreeAndNilTexture(curHandledGear^.Tex);
-                curHandledGear^.Tex:= RenderStringTex(ansistring(inttostr(curHandledGear^.Timer div 1000)), cWhiteColor, fntSmall);
+                if (curHandledGear^.Kind in [gtMine, gtSMine, gtAirMine]) then
+                    begin
+                    if curHandledGear^.Tex = nil then
+                        begin
+                        i:= curHandledGear^.Timer;
+                        if (i > 0) and (i < 1000)  then
+                            i:= 1
+                        else
+                            i:= curHandledGear^.Timer div 1000;
+                        curHandledGear^.Tex:= RenderStringTex(ansistring(inttostr(i)), $ff808080, fntSmall);
+                        end;
+                    end
+                else if ((curHandledGear^.Timer > 500) and ((curHandledGear^.Timer mod 1000) = 0)) then
+                    begin
+                    FreeAndNilTexture(curHandledGear^.Tex);
+                    curHandledGear^.Tex:= RenderStringTex(ansistring(inttostr(curHandledGear^.Timer div 1000)), cWhiteColor, fntSmall);
+                    end;
                 end;
             curHandledGear^.doStep(curHandledGear);
             end