changeset 6415 | af2047bb4f70 |
parent 6341 | ccc0a58e123d |
child 6580 | 6155187bf599 |
6414:8474b7fa84d6 | 6415:af2047bb4f70 |
---|---|
24 procedure DoGameTick(Lag: LongInt); |
24 procedure DoGameTick(Lag: LongInt); |
25 |
25 |
26 //////////////////// |
26 //////////////////// |
27 implementation |
27 implementation |
28 //////////////////// |
28 //////////////////// |
29 uses uKeys, uTeams, uIO, uAI, uGears, uSound, uMobile, uVisualGears, uTypes, uVariables; |
29 uses uKeys, uTeams, uIO, uAI, uGears, uSound, uMobile, uVisualGears, uTypes, uVariables{$IFDEF SDL13}, uTouch{$ENDIF}; |
30 |
30 |
31 procedure DoGameTick(Lag: LongInt); |
31 procedure DoGameTick(Lag: LongInt); |
32 var i: LongInt; |
32 var i: LongInt; |
33 begin |
33 begin |
34 if isPaused then exit; |
34 if isPaused then exit; |
50 while (GameState <> gsExit) and (i <= Lag) do |
50 while (GameState <> gsExit) and (i <= Lag) do |
51 begin |
51 begin |
52 if not CurrentTeam^.ExtDriven then |
52 if not CurrentTeam^.ExtDriven then |
53 begin |
53 begin |
54 if CurrentHedgehog^.BotLevel <> 0 then ProcessBot; |
54 if CurrentHedgehog^.BotLevel <> 0 then ProcessBot; |
55 ProcessGears |
55 ProcessGears; |
56 {$IFDEF SDL13}ProcessTouch;{$ENDIF} |
|
56 end else |
57 end else |
57 begin |
58 begin |
58 NetGetNextCmd; |
59 NetGetNextCmd; |
59 if isInLag then |
60 if isInLag then |
60 case GameType of |
61 case GameType of |