hedgewars/uGame.pas
changeset 1727 bddbb2400c30
parent 1723 430064bafa18
child 2382 bfd378dfc4e7
equal deleted inserted replaced
1725:38a074db049c 1727:bddbb2400c30
    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