hedgewars/uTeams.pas
changeset 49 3afe33c1cf06
parent 47 8daf1ee0b9a3
child 57 e1a77ae57065
--- a/hedgewars/uTeams.pas	Thu Jan 12 22:07:36 2006 +0000
+++ b/hedgewars/uTeams.pas	Sun Jan 15 14:14:12 2006 +0000
@@ -65,6 +65,7 @@
              GraveName: string;
              FortName: string;
              TeamHealth: integer;
+             DrawHealthY: integer;
              AttackBar: LongWord;
              end;
 
@@ -307,7 +308,8 @@
         MaxTeamHealth:= TeamHealth;
         RecountAllTeamsHealth;
         end else TeamHealth:= (TeamHealth * cTeamHealthWidth) div MaxTeamHealth
-     end
+     end;
+AddGear(0, 0, gtTeamHealthSorter, 0)
 end;
 
 initialization