hedgewars/uGame.pas
changeset 626 a30171dbcd19
parent 602 f7628ebfccde
child 741 8bf8c0ac8d94
equal deleted inserted replaced
625:373353eaa742 626:a30171dbcd19
    44       SendEmptyPacketTicks:= 0
    44       SendEmptyPacketTicks:= 0
    45       end
    45       end
    46    end;
    46    end;
    47 if Lag > 100 then Lag:= 100
    47 if Lag > 100 then Lag:= 100
    48 else if GameType = gmtSave then Lag:= 2500;
    48 else if GameType = gmtSave then Lag:= 2500;
       
    49 if (GameType = gmtDemo) and isSpeed then Lag:= Lag * 10;
    49 
    50 
    50 i:= 1;
    51 i:= 1;
    51 while (GameState <> gsExit) and (i <= Lag) do
    52 while (GameState <> gsExit) and (i <= Lag) do
    52     begin
    53     begin
    53     if not CurrentTeam^.ExtDriven then
    54     if not CurrentTeam^.ExtDriven then