hedgewars/uGame.pas
changeset 5130 3602ede67ec5
parent 4976 088d40d8aba2
child 5167 7b515d0945b1
equal deleted inserted replaced
5128:3c65326bb713 5130:3602ede67ec5
    38     isInLag:= false;
    38     isInLag:= false;
    39     SendKeepAliveMessage(Lag)
    39     SendKeepAliveMessage(Lag)
    40     end;
    40     end;
    41 if Lag > 100 then Lag:= 100
    41 if Lag > 100 then Lag:= 100
    42 else if (GameType = gmtSave) or (fastUntilLag and (GameType = gmtNet)) then Lag:= 2500;
    42 else if (GameType = gmtSave) or (fastUntilLag and (GameType = gmtNet)) then Lag:= 2500;
    43 if (GameType = gmtDemo) and isSpeed then Lag:= Lag * 10;
    43 
       
    44 if (GameType = gmtDemo) then 
       
    45     if isSpeed then Lag:= Lag * 10
       
    46     else
       
    47         if cOnlyStats then Lag:= High(LongInt);
    44 
    48 
    45 i:= 1;
    49 i:= 1;
    46 while (GameState <> gsExit) and (i <= Lag) do
    50 while (GameState <> gsExit) and (i <= Lag) do
    47     begin
    51     begin
    48     if not CurrentTeam^.ExtDriven then
    52     if not CurrentTeam^.ExtDriven then