--- a/hedgewars/uTeams.pas	Mon Jan 08 18:21:40 2007 +0000
+++ b/hedgewars/uTeams.pas	Mon Jan 08 20:51:22 2007 +0000
@@ -54,6 +54,7 @@
              TeamHealthBarWidth: integer;
              DrawHealthY: integer;
              AttackBar: LongWord;
+             HedgehogsNumber: byte;
              end;
 
 var CurrentTeam: PTeam = nil;
@@ -215,10 +216,7 @@
       th:= 0;
       for i:= 0 to cMaxHHIndex do
           if p.Hedgehogs[i].Gear <> nil then
-             begin
-             p.Hedgehogs[i].Gear.Health:= 100;
-             inc(th, 100);
-             end;
+             inc(th, p.Hedgehogs[i].Gear.Health);
       if th > MaxTeamHealth then MaxTeamHealth:= th;
       p:= p.Next
       end;