hedgewars/uGame.pas
changeset 1723 430064bafa18
parent 1612 111951f3512a
child 1727 bddbb2400c30
equal deleted inserted replaced
1722:18915d57b72f 1723:430064bafa18
    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) or (fastUntilLag and (GameType = gmtNet)) then Lag:= 2500;
    50 else if (GameType = gmtSave)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