equal
deleted
inserted
replaced
24 procedure DoGameTick(Lag: LongInt); |
24 procedure DoGameTick(Lag: LongInt); |
25 |
25 |
26 //////////////////// |
26 //////////////////// |
27 implementation |
27 implementation |
28 //////////////////// |
28 //////////////////// |
29 uses uInputHandler, uTeams, uIO, uAI, uGears, uSound, |
29 uses uInputHandler, uTeams, uIO, uAI, uGears, uSound, uLocale, uCaptions, |
30 uLocale, uCaptions, |
30 uTypes, uVariables, uCommands, uConsts, uVisualGearsList |
31 uVisualGears, uTypes, uVariables, uCommands, uConsts |
31 {$IFDEF USE_TOUCH_INTERFACE}, uTouch{$ENDIF}; |
32 {$IFDEF USE_TOUCH_INTERFACE}, uTouch{$ENDIF}; |
|
33 |
32 |
34 procedure DoGameTick(Lag: LongInt); |
33 procedure DoGameTick(Lag: LongInt); |
35 var i,j : LongInt; |
34 var i,j : LongInt; |
36 s: shortstring; |
35 s: shortstring; |
37 begin |
36 begin |
89 if not CurrentTeam^.ExtDriven then |
88 if not CurrentTeam^.ExtDriven then |
90 begin |
89 begin |
91 if CurrentHedgehog^.BotLevel <> 0 then |
90 if CurrentHedgehog^.BotLevel <> 0 then |
92 ProcessBot; |
91 ProcessBot; |
93 ProcessGears; |
92 ProcessGears; |
94 {$IFDEF SDL13}ProcessTouch;{$ENDIF} |
93 {$IFDEF SDL2}ProcessTouch;{$ENDIF} |
95 end |
94 end |
96 else |
95 else |
97 begin |
96 begin |
98 NetGetNextCmd; |
97 NetGetNextCmd; |
99 if isInLag then |
98 if isInLag then |