hedgewars/uGears.pas
changeset 14883 4e3d81af71bf
parent 14866 acb0526bf458
child 14961 225839af5272
equal deleted inserted replaced
14882:421eed52a8e1 14883:4e3d81af71bf
   281                 if (curHandledGear^.Kind in [gtMine, gtSMine, gtAirMine]) then
   281                 if (curHandledGear^.Kind in [gtMine, gtSMine, gtAirMine]) then
   282                     begin
   282                     begin
   283                     if curHandledGear^.Tex = nil then
   283                     if curHandledGear^.Tex = nil then
   284                         if (curHandledGear^.Karma = 1) and (not (GameType in [gmtDemo, gmtRecord])) then
   284                         if (curHandledGear^.Karma = 1) and (not (GameType in [gmtDemo, gmtRecord])) then
   285                             // Secret mine timer
   285                             // Secret mine timer
   286                             curHandledGear^.Tex:= RenderStringTex(ansistring(trmsg[sidUnknownGearValue]), $ff808080, fntSmall)
   286                             curHandledGear^.Tex:= RenderStringTex(trmsg[sidUnknownGearValue], $ff808080, fntSmall)
   287                         else
   287                         else
   288                             begin
   288                             begin
   289                             // Display mine timer with up to 1 decimal point of precision (rounded down)
   289                             // Display mine timer with up to 1 decimal point of precision (rounded down)
   290                             i:= curHandledGear^.Timer div 1000;
   290                             i:= curHandledGear^.Timer div 1000;
   291                             j:= (curHandledGear^.Timer mod 1000) div 100;
   291                             j:= (curHandledGear^.Timer mod 1000) div 100;