hedgewars/uWorld.pas
changeset 11912 d3a852554aa7
parent 11895 19cb0de79287
child 11913 232b57a70aca
--- a/hedgewars/uWorld.pas	Sat Nov 19 06:43:44 2016 +0100
+++ b/hedgewars/uWorld.pas	Sat Apr 30 20:35:55 2016 +0200
@@ -1025,7 +1025,7 @@
 
 
 procedure RenderTeamsHealth;
-var t, i, h, smallScreenOffset, TeamHealthBarWidth : LongInt;
+var t, i,  h, smallScreenOffset, TeamHealthBarWidth : LongInt;
     r: TSDL_Rect;
     highlight: boolean;
     htex: PTexture;
@@ -1159,6 +1159,7 @@
 
 procedure DrawWorldStereo(Lag: LongInt; RM: TRenderMode);
 var i, t: LongInt;
+    spr: TSprite;
     r: TSDL_Rect;
     tdx, tdy: Double;
     s: shortstring;
@@ -1441,7 +1442,11 @@
         while i > 0 do
             begin
             dec(t, 32);
-            DrawSprite(sprBigDigit, -(cScreenWidth shr 1) + t + offsetY, cScreenHeight - offsetX, i mod 10);
+            if (ReadyTimeLeft <> 0) then
+                spr := sprBigDigitGreen
+            else
+                spr := sprBigDigit;
+            DrawSprite(spr, -(cScreenWidth shr 1) + t + offsetY, cScreenHeight - offsetX, i mod 10);
             i:= i div 10
             end;
         DrawSprite(sprFrame, -(cScreenWidth shr 1) + t - 4 + offsetY, cScreenHeight - offsetX, 0);