hedgewars/uWorld.pas
changeset 690 e9d35e319328
parent 689 f4ec46c48ed2
child 753 40fc0deb388f
--- a/hedgewars/uWorld.pas	Sun Dec 30 16:19:41 2007 +0000
+++ b/hedgewars/uWorld.pas	Sun Dec 30 16:40:12 2007 +0000
@@ -278,16 +278,22 @@
       r.w:= NameTag^.w;
       r.h:= NameTag^.h;
       SDL_UpperBlit(NameTag, nil, Surface, @r);
-      r:= HealthRect;
+
+      r.x:= 0;
+      r.y:= 0;
       r.w:= 2 + TeamHealthBarWidth;
-      DrawFromStoreRect(cScreenWidth div 2,
+      r.h:= HealthSurf^.h;
+
+      DrawFromRect(cScreenWidth div 2,
                         DrawHealthY,
-                        @r, Surface);
+                        @r, HealthSurf, Surface);
+
       inc(r.x, cTeamHealthWidth + 2);
       r.w:= 3;
-      DrawFromStoreRect(cScreenWidth div 2 + TeamHealthBarWidth + 2,
+
+      DrawFromRect(cScreenWidth div 2 + TeamHealthBarWidth + 2,
                         DrawHealthY,
-                        @r, Surface);
+                        @r, HealthSurf, Surface);
       end;
 
 // Lag alert