hedgewars/uGame.pas
changeset 74 42257fee61ae
parent 72 aeb2ac1878dc
child 79 29b477319854
equal deleted inserted replaced
73:fe1c62875a19 74:42257fee61ae
    62       end;
    62       end;
    63    inc(SendEmptyPacketTicks, Lag)
    63    inc(SendEmptyPacketTicks, Lag)
    64    end;
    64    end;
    65 
    65 
    66 if Lag > 100 then Lag:= 100
    66 if Lag > 100 then Lag:= 100
    67 else if GameType = gmtSave then Lag:= 1000;
    67 else if GameType = gmtSave then Lag:= 2500;
    68 
    68 
    69 for i:= 1 to Lag do
    69 for i:= 1 to Lag do
    70     if not CurrentTeam.ExtDriven then
    70     if not CurrentTeam.ExtDriven then
    71        begin
    71        begin
    72        with CurrentTeam^ do
    72        with CurrentTeam^ do
    77        NetGetNextCmd;
    77        NetGetNextCmd;
    78        if isInLag then
    78        if isInLag then
    79           case GameType of
    79           case GameType of
    80                gmtNet: break;
    80                gmtNet: break;
    81                gmtDemo: begin
    81                gmtDemo: begin
    82                         ParseCommand('/quit');
       
    83                         GameState:= gsExit;
    82                         GameState:= gsExit;
    84                         exit
    83                         exit
    85                         end;
    84                         end;
    86                gmtSave: begin
    85                gmtSave: begin
    87                         RestoreTeamsFromSave;
    86                         RestoreTeamsFromSave;