hedgewars/uGears.pas
branchtransitional_engine
changeset 16004 2146cb7be36f
parent 15936 303cf91e5233
child 16049 9be943326d9c
equal deleted inserted replaced
15958:772a43d88e6b 16004:2146cb7be36f
   286                         if (curHandledGear^.Karma = 1) and (not (GameType in [gmtDemo, gmtRecord])) then
   286                         if (curHandledGear^.Karma = 1) and (not (GameType in [gmtDemo, gmtRecord])) then
   287                             // Secret mine timer
   287                             // Secret mine timer
   288                             curHandledGear^.Tex:= RenderStringTex(trmsg[sidUnknownGearValue], $ff808080, fntSmall)
   288                             curHandledGear^.Tex:= RenderStringTex(trmsg[sidUnknownGearValue], $ff808080, fntSmall)
   289                         else
   289                         else
   290                             begin
   290                             begin
       
   291                             FreeAndNilTexture(curHandledGear^.Tex);
   291                             // Display mine timer with up to 1 decimal point of precision (rounded down)
   292                             // Display mine timer with up to 1 decimal point of precision (rounded down)
   292                             i:= curHandledGear^.Timer div 1000;
   293                             i:= curHandledGear^.Timer div 1000;
   293                             j:= (curHandledGear^.Timer mod 1000) div 100;
   294                             j:= (curHandledGear^.Timer mod 1000) div 100;
   294                             if j = 0 then
   295                             if j = 0 then
   295                                 curHandledGear^.Tex:= RenderStringTex(ansistring(inttostr(i)), $ff808080, fntSmall)
   296                                 curHandledGear^.Tex:= RenderStringTex(ansistring(inttostr(i)), $ff808080, fntSmall)