hedgewars/uScript.pas
changeset 6763 8a06161ede49
parent 6752 11d898afe582
child 6764 e56ff0231540
--- a/hedgewars/uScript.pas	Sat Mar 10 16:10:38 2012 -0500
+++ b/hedgewars/uScript.pas	Sat Mar 10 16:32:46 2012 -0500
@@ -63,6 +63,7 @@
     uFloat,
     uWorld,
     uAmmos,
+    uTeams,
     uSound,
     uChat,
     uStats,
@@ -1057,7 +1058,8 @@
 
         if (gear^.Kind = gtHedgehog) and (gear^.Hedgehog <> nil) then
             begin  
-        RenderHealth(gear^.Hedgehog^);
+            RenderHealth(gear^.Hedgehog^);
+            RecountTeamHealth(gear^.Hedgehog^.Team)
             end;
 
             SetAllToActive;