equal
deleted
inserted
replaced
32 procedure DoGameTick(Lag: LongInt); |
32 procedure DoGameTick(Lag: LongInt); |
33 var i: LongInt; |
33 var i: LongInt; |
34 begin |
34 begin |
35 if isPaused then exit; |
35 if isPaused then exit; |
36 if (not CurrentTeam^.ExtDriven) then |
36 if (not CurrentTeam^.ExtDriven) then |
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 Lag:= 100 |
42 if Lag > 100 then Lag:= 100 |
43 else if (GameType = gmtSave) or (fastUntilLag and (GameType = gmtNet)) then Lag:= 2500; |
43 else if (GameType = gmtSave) or (fastUntilLag and (GameType = gmtNet)) then Lag:= 2500; |
44 if (GameType = gmtDemo) and isSpeed then Lag:= Lag * 10; |
44 if (GameType = gmtDemo) and isSpeed then Lag:= Lag * 10; |
45 |
45 |
46 i:= 1; |
46 i:= 1; |