equal
deleted
inserted
replaced
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) |
38 if (not CurrentTeam^.ExtDriven) then |
39 and not ((GameType = gmtSave) or (fastUntilLag and (GameType = gmtNet))) then |
|
40 begin |
39 begin |
41 NetGetNextCmd; // its for the case of receiving "/say" message |
40 NetGetNextCmd; // its for the case of receiving "/say" message |
42 isInLag:= false; |
41 isInLag:= false; |
43 inc(SendEmptyPacketTicks, Lag); |
42 inc(SendEmptyPacketTicks, Lag); |
44 if SendEmptyPacketTicks >= cSendEmptyPacketTime then |
43 if (SendEmptyPacketTicks >= cSendEmptyPacketTime) and not ((GameType = gmtSave) or (fastUntilLag and (GameType = gmtNet))) then |
45 begin |
44 begin |
46 SendIPC('+'); |
45 SendIPC('+'); |
47 SendEmptyPacketTicks:= 0 |
46 SendEmptyPacketTicks:= 0 |
48 end |
47 end |
49 end; |
48 end; |