hedgewars/uGame.pas
changeset 1610 d52f62c9fc09
parent 1560 e140bc57ff68
child 1611 fe6dd0bd1886
equal deleted inserted replaced
1609:eff63adf62a3 1610:d52f62c9fc09
    33 procedure DoGameTick(Lag: LongInt);
    33 procedure DoGameTick(Lag: LongInt);
    34 const SendEmptyPacketTicks: LongWord = 0;
    34 const SendEmptyPacketTicks: LongWord = 0;
    35 var i: LongInt;
    35 var i: LongInt;
    36 begin
    36 begin
    37 if isPaused then exit;
    37 if isPaused then exit;
    38 if not CurrentTeam^.ExtDriven then
    38 if (not CurrentTeam^.ExtDriven)
       
    39 	and not ((GameType = gmtSave) or (fastUntilLag and (GameType = gmtNet))) then
    39    begin
    40    begin
    40    NetGetNextCmd; // its for the case of receiving "/say" message
    41    NetGetNextCmd; // its for the case of receiving "/say" message
    41    isInLag:= false;
    42    isInLag:= false;
    42    inc(SendEmptyPacketTicks, Lag);
    43    inc(SendEmptyPacketTicks, Lag);
    43    if SendEmptyPacketTicks >= cSendEmptyPacketTime then
    44    if SendEmptyPacketTicks >= cSendEmptyPacketTime then