hedgewars/uWorld.pas
changeset 146 458f4f58c1b6
parent 110 330a2dbacd67
child 154 5667e6f38704
--- a/hedgewars/uWorld.pas	Thu Sep 14 17:20:50 2006 +0000
+++ b/hedgewars/uWorld.pas	Fri Sep 15 13:47:01 2006 +0000
@@ -241,13 +241,13 @@
       r.h:= team.NameTag.h;
       SDL_UpperBlit(team.NameTag, nil, Surface, @r);
       r:= team.HealthRect;
-      r.w:= 2 + team.TeamHealth;
+      r.w:= 2 + team.TeamHealthBarWidth;
       DrawFromStoreRect(cScreenWidth div 2,
                         Team.DrawHealthY,
                         @r, Surface);
       inc(r.x, cTeamHealthWidth + 2);
       r.w:= 3;
-      DrawFromStoreRect(cScreenWidth div 2 + team.TeamHealth + 2,
+      DrawFromStoreRect(cScreenWidth div 2 + team.TeamHealthBarWidth + 2,
                         Team.DrawHealthY,
                         @r, Surface);
       team:= team.Next