hedgewars/uGears.pas
changeset 14752 56098968df90
parent 14750 ab7bf5036314
child 14755 21abb4e4ca9f
--- a/hedgewars/uGears.pas	Sun Apr 07 19:31:58 2019 +0200
+++ b/hedgewars/uGears.pas	Sun Apr 07 20:01:02 2019 +0200
@@ -279,14 +279,17 @@
                 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
+                        if (curHandledGear^.Karma = 1) and (not (GameType in [gmtDemo, gmtRecord])) then
+                            curHandledGear^.Tex:= RenderStringTex(ansistring(trmsg[sidUnknownGearValue]), $ff808080, fntSmall)
                         else
-                            i:= curHandledGear^.Timer div 1000;
-                        curHandledGear^.Tex:= RenderStringTex(ansistring(inttostr(i)), $ff808080, fntSmall);
-                        end;
+                            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