--- 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