hedgewars/uGears.pas
changeset 14757 16168aff08c7
parent 14755 21abb4e4ca9f
child 14759 c6b7f4a4122c
equal deleted inserted replaced
14756:15bcd82ab86c 14757:16168aff08c7
   276             begin
   276             begin
   277             if curHandledGear^.RenderTimer then
   277             if curHandledGear^.RenderTimer then
   278                 begin
   278                 begin
   279                 // Mine timer
   279                 // Mine timer
   280                 if (curHandledGear^.Kind in [gtMine, gtSMine, gtAirMine]) then
   280                 if (curHandledGear^.Kind in [gtMine, gtSMine, gtAirMine]) then
       
   281                     begin
   281                     if curHandledGear^.Tex = nil then
   282                     if curHandledGear^.Tex = nil then
   282                         if (curHandledGear^.Karma = 1) and (not (GameType in [gmtDemo, gmtRecord])) then
   283                         if (curHandledGear^.Karma = 1) and (not (GameType in [gmtDemo, gmtRecord])) then
   283                             // Secret mine timer
   284                             // Secret mine timer
   284                             curHandledGear^.Tex:= RenderStringTex(ansistring(trmsg[sidUnknownGearValue]), $ff808080, fntSmall)
   285                             curHandledGear^.Tex:= RenderStringTex(ansistring(trmsg[sidUnknownGearValue]), $ff808080, fntSmall)
   285                         else
   286                         else
   290                             if j = 0 then
   291                             if j = 0 then
   291                                 curHandledGear^.Tex:= RenderStringTex(ansistring(inttostr(i)), $ff808080, fntSmall)
   292                                 curHandledGear^.Tex:= RenderStringTex(ansistring(inttostr(i)), $ff808080, fntSmall)
   292                             else
   293                             else
   293                                 curHandledGear^.Tex:= RenderStringTex(ansistring(inttostr(i) + FormatSettings.DecimalSeparator + inttostr(j)), $ff808080, fntSmall);
   294                                 curHandledGear^.Tex:= RenderStringTex(ansistring(inttostr(i) + FormatSettings.DecimalSeparator + inttostr(j)), $ff808080, fntSmall);
   294                             end
   295                             end
       
   296                     end
   295                 // Timer of other gears
   297                 // Timer of other gears
   296                 else if ((curHandledGear^.Timer > 500) and ((curHandledGear^.Timer mod 1000) = 0)) then
   298                 else if ((curHandledGear^.Timer > 500) and ((curHandledGear^.Timer mod 1000) = 0)) then
   297                     begin
   299                     begin
   298                     // Display time in seconds as whole number, rounded up
   300                     // Display time in seconds as whole number, rounded up
   299                     FreeAndNilTexture(curHandledGear^.Tex);
   301                     FreeAndNilTexture(curHandledGear^.Tex);