hedgewars/uGears.pas
changeset 14754 533ac9774279
parent 14738 c760a2939b9c
child 14755 ab7bf5036314
--- a/hedgewars/uGears.pas	Wed Apr 03 13:00:05 2019 +0200
+++ b/hedgewars/uGears.pas	Sun Apr 07 18:21:14 2019 +0200
@@ -686,6 +686,7 @@
     begin
     x:= hwRound(Gear^.X) + WorldDx;
     y:= hwRound(Gear^.Y) + WorldDy;
+    RenderGearHealth(Gear, x, y);
     RenderGearTimer(Gear, x, y);
     if Gear^.Kind = gtHedgehog then
         RenderHHGuiExtras(Gear, x, y);
@@ -1079,6 +1080,7 @@
         HealthCrate:
             begin
             gear^.Pos := posCaseHealth;
+            gear^.RenderHealth:= true;
             // health crate is smaller than the other crates
             gear^.Radius := cCaseHealthRadius;
             gear^.Health := content;
@@ -1125,6 +1127,7 @@
         HealthCrate:
             begin
             gear^.Pos := gear^.Pos + posCaseHealth;
+            gear^.RenderHealth:= true;
             // health crate is smaller than the other crates
             gear^.Radius := cCaseHealthRadius;
             if(FinishedTurnsTotal > -1) then