hedgewars/hwengine.pas
changeset 10580 17560eb73b4c
parent 10445 dac3bfb3a2b1
child 10581 f0b4c14a3c62
equal deleted inserted replaced
10579:2effda40c3b2 10580:17560eb73b4c
    53 {$ENDIF}
    53 {$ENDIF}
    54 
    54 
    55 ///////////////////////////////////////////////////////////////////////////////
    55 ///////////////////////////////////////////////////////////////////////////////
    56 function DoTimer(Lag: LongInt): boolean;
    56 function DoTimer(Lag: LongInt): boolean;
    57 var s: shortstring;
    57 var s: shortstring;
       
    58     t: LongWord;
    58 begin
    59 begin
    59     DoTimer:= false;
    60     DoTimer:= false;
    60     inc(RealTicks, Lag);
    61     inc(RealTicks, Lag);
    61 
    62 
    62     case GameState of
    63     case GameState of
    88                 SetSound(false);
    89                 SetSound(false);
    89             FinishProgress;
    90             FinishProgress;
    90             PlayMusic;
    91             PlayMusic;
    91             InitZoom(zoom);
    92             InitZoom(zoom);
    92             ScriptCall('onGameStart');
    93             ScriptCall('onGameStart');
       
    94             for t:= 0 to Pred(TeamsCount) do
       
    95                 with TeamsArray[t]^ do
       
    96                     MaxTeamHealth:= TeamHealth;
    93             GameState:= gsGame;
    97             GameState:= gsGame;
    94             end;
    98             end;
    95         gsConfirm, gsGame, gsChat:
    99         gsConfirm, gsGame, gsChat:
    96             begin
   100             begin
    97             if not cOnlyStats then
   101             if not cOnlyStats then