--- a/hedgewars/uWorld.pas	Wed Jan 11 20:01:36 2006 +0000
+++ b/hedgewars/uWorld.pas	Thu Jan 12 16:33:26 2006 +0000
@@ -1,6 +1,6 @@
 (*
  * Hedgewars, a worms-like game
- * Copyright (c) 2004, 2005 Andrey Korotaev <unC0Rr@gmail.com>
+ * Copyright (c) 2004, 2005, 2006 Andrey Korotaev <unC0Rr@gmail.com>
  *
  * Distributed under the terms of the BSD-modified licence:
  *
@@ -199,6 +199,25 @@
     Captions[Pred(cMaxCaptions)].EndTime:= 0
     end;
 
+// Teams Healths
+team:= TeamsList;
+i:= cSCreenHeight - 32;
+while team <> nil do
+      begin
+      DrawFromStoreRect(cScreenWidth div 2 - team.NameRect.w - 3, i,
+                        @team.NameRect, Surface);
+      r:= team.HealthRect;
+      r.w:= 3 + team.TeamHealth;
+      DrawFromStoreRect(cScreenWidth div 2, i,
+                        @r, Surface);
+      inc(r.x, cTeamHealthWidth + 3);
+      r.w:= 2;
+      DrawFromStoreRect(cScreenWidth div 2 + team.TeamHealth + 3, i,
+                        @r, Surface);
+      dec(i, team.HealthRect.h + 2);
+      team:= team.Next
+      end;
+
 // Lag alert
 if isInLag then DrawSprite(sprLag, 32, 32  + cConsoleYAdd, (RealTicks shr 7) mod 7, Surface);