hedgewars/hwengine.pas
changeset 10580 17560eb73b4c
parent 10445 dac3bfb3a2b1
child 10581 f0b4c14a3c62
--- a/hedgewars/hwengine.pas	Sat Nov 29 14:57:07 2014 -0500
+++ b/hedgewars/hwengine.pas	Sat Nov 29 15:30:33 2014 -0500
@@ -55,6 +55,7 @@
 ///////////////////////////////////////////////////////////////////////////////
 function DoTimer(Lag: LongInt): boolean;
 var s: shortstring;
+    t: LongWord;
 begin
     DoTimer:= false;
     inc(RealTicks, Lag);
@@ -90,6 +91,9 @@
             PlayMusic;
             InitZoom(zoom);
             ScriptCall('onGameStart');
+            for t:= 0 to Pred(TeamsCount) do
+                with TeamsArray[t]^ do
+                    MaxTeamHealth:= TeamHealth;
             GameState:= gsGame;
             end;
         gsConfirm, gsGame, gsChat: