| changeset 371 | 731ad6d27bd1 |
| parent 358 | 236bbd12d4d9 |
| child 393 | db01cc79f278 |
| 370:c75410fe3133 | 371:731ad6d27bd1 |
|---|---|
19 unit uGame; |
19 unit uGame; |
20 interface |
20 interface |
21 uses uFloat; |
21 uses uFloat; |
22 {$INCLUDE options.inc} |
22 {$INCLUDE options.inc} |
23 |
23 |
24 procedure DoGameTick(Lag: integer); |
24 procedure DoGameTick(Lag: LongInt); |
25 |
25 |
26 //////////////////// |
26 //////////////////// |
27 implementation |
27 implementation |
28 //////////////////// |
28 //////////////////// |
29 uses uMisc, uConsts, uWorld, uKeys, uTeams, uIO, uAI, uGears, uConsole; |
29 uses uMisc, uConsts, uWorld, uKeys, uTeams, uIO, uAI, uGears, uConsole; |
30 |
30 |
31 procedure DoGameTick(Lag: integer); |
31 procedure DoGameTick(Lag: LongInt); |
32 const SendEmptyPacketTicks: LongWord = 0; |
32 const SendEmptyPacketTicks: LongWord = 0; |
33 var i: integer; |
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 |