hedgewars/uWorld.pas
changeset 6706 c4272519b128
parent 6700 e04da46ee43c
child 6710 42504695122d
--- a/hedgewars/uWorld.pas	Fri Feb 17 23:36:05 2012 +0100
+++ b/hedgewars/uWorld.pas	Fri Feb 17 20:42:22 2012 -0500
@@ -1226,10 +1226,11 @@
 
         // draw health bars right border
         inc(r.x, cTeamHealthWidth + 2);
+        if TeamHealth = 0 then inc(r.x);
         r.w:= 3;
         DrawFromRect(TeamHealthBarWidth + 16, cScreenHeight + DrawHealthY + smallScreenOffset, @r, HealthTex);
 
-        if not highlight and not hasGone then
+        if not highlight and not hasGone and (TeamHealth > 1) then
             for i:= 0 to cMaxHHIndex do
                 if Hedgehogs[i].Gear <> nil then
                     begin