Update team health
authornemo
Thu, 19 Jul 2012 17:14:02 -0400
changeset 7399 e7ce559d8c94
parent 7398 2b7b939014b5
child 7400 09427dbec1d8
Update team health
hedgewars/GSHandlers.inc
--- a/hedgewars/GSHandlers.inc	Wed Jul 18 23:02:14 2012 +0400
+++ b/hedgewars/GSHandlers.inc	Thu Jul 19 17:14:02 2012 -0400
@@ -5090,6 +5090,7 @@
         if (hh^.Gear^.Health = 0) and (hh^.Gear^.Damage = 0) then
             hh^.Gear^.Damage:= 1;
         RenderHealth(hh^);
+        RecountTeamHealth(hh^.Team);
         inc(graves.ar^[Gear^.Tag]^.Health);
         inc(Gear^.Tag)
 {-for i:= 0 to High(graves) do begin
@@ -5110,6 +5111,7 @@
                 resgear^.Health := graves.ar^[i]^.Health;
                 PHedgehog(graves.ar^[i]^.Hedgehog)^.Gear := resgear;
                 graves.ar^[i]^.Message:= graves.ar^[i]^.Message or gmDestroy;
+                graves.ar^[i]^.Active:= true;
                 RenderHealth(resgear^.Hedgehog^);
                 RecountTeamHealth(resgear^.Hedgehog^.Team);
                 resgear^.Hedgehog^.Effects[heResurrected]:= 1;