hedgewars/uGame.pas
changeset 1560 e140bc57ff68
parent 1066 1f1b3686a2b0
child 1610 d52f62c9fc09
equal deleted inserted replaced
1559:71e1f67dcfe7 1560:e140bc57ff68
    45       SendIPC('+');
    45       SendIPC('+');
    46       SendEmptyPacketTicks:= 0
    46       SendEmptyPacketTicks:= 0
    47       end
    47       end
    48    end;
    48    end;
    49 if Lag > 100 then Lag:= 100
    49 if Lag > 100 then Lag:= 100
    50 else if GameType = gmtSave then Lag:= 2500;
    50 else if (GameType = gmtSave) or (fastUntilLag and (GameType = gmtNet)) then Lag:= 2500;
    51 if (GameType = gmtDemo) and isSpeed then Lag:= Lag * 10;
    51 if (GameType = gmtDemo) and isSpeed then Lag:= Lag * 10;
    52 
    52 
    53 i:= 1;
    53 i:= 1;
    54 while (GameState <> gsExit) and (i <= Lag) do
    54 while (GameState <> gsExit) and (i <= Lag) do
    55     begin
    55     begin