hedgewars/uGame.pas
changeset 7180 53ffc8853008
parent 7061 4e0fc59ab1ce
child 7386 e82a076df09b
equal deleted inserted replaced
7176:fb4b0c6dfdbd 7180:53ffc8853008
    37     begin
    37     begin
    38     NetGetNextCmd; // its for the case of receiving "/say" message
    38     NetGetNextCmd; // its for the case of receiving "/say" message
    39     isInLag:= false;
    39     isInLag:= false;
    40     SendKeepAliveMessage(Lag)
    40     SendKeepAliveMessage(Lag)
    41     end;
    41     end;
    42 if Lag > 100 then
    42 if GameType <> gmtRecord then
    43     Lag:= 100
    43     begin
    44 else if (GameType = gmtSave) or (fastUntilLag and (GameType = gmtNet)) then
    44     if Lag > 100 then
    45     Lag:= 2500;
    45         Lag:= 100
       
    46     else if (GameType = gmtSave) or (fastUntilLag and (GameType = gmtNet)) then
       
    47         Lag:= 2500;
    46 
    48 
    47 if (GameType = gmtDemo) then 
    49     if (GameType = gmtDemo) then 
    48     if isSpeed then
    50         if isSpeed then
    49         Lag:= Lag * 10
    51             Lag:= Lag * 10
    50     else
    52         else
    51         if cOnlyStats then
    53             if cOnlyStats then
    52             Lag:= High(LongInt);
    54                 Lag:= High(LongInt);
       
    55     end;
    53 PlayNextVoice;
    56 PlayNextVoice;
    54 i:= 1;
    57 i:= 1;
    55 while (GameState <> gsExit) and (i <= Lag) do
    58 while (GameState <> gsExit) and (i <= Lag) do
    56     begin
    59     begin
    57     if not CurrentTeam^.ExtDriven then
    60     if not CurrentTeam^.ExtDriven then