| changeset 7670 | 9485b88f6a44 |
| parent 7447 | 01111960a48d |
| child 7837 | 3e031b3b33e6 |
| 7669:a85e1c167b69 | 7670:9485b88f6a44 |
|---|---|
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, uMobile, uVisualGears, uTypes, uVariables{$IFDEF SDL13}, uTouch{$ENDIF}; |
29 uses uInputHandler, uTeams, uIO, uAI, uGears, uSound, uMobile, |
30 uVisualGears, uTypes, uVariables, uCommands, uConsts |
|
31 {$IFDEF SDL13}, uTouch{$ENDIF}; |
|
30 |
32 |
31 procedure DoGameTick(Lag: LongInt); |
33 procedure DoGameTick(Lag: LongInt); |
32 var i: LongInt; |
34 var i: LongInt; |
33 begin |
35 begin |
34 if isPaused then |
36 if isPaused then |
86 exit |
88 exit |
87 end; |
89 end; |
88 gmtSave: begin |
90 gmtSave: begin |
89 RestoreTeamsFromSave; |
91 RestoreTeamsFromSave; |
90 SetBinds(CurrentTeam^.Binds); |
92 SetBinds(CurrentTeam^.Binds); |
91 //CurrentHedgehog^.Gear^.Message:= 0; <- produces bugs with further save restoring and demos |
93 StopMessages(gmLeft or gmRight or gmUp or gmDown); |
92 ResetSound; // restore previous sound state |
94 ResetSound; // restore previous sound state |
93 PlayMusic; |
95 PlayMusic; |
94 GameType:= gmtLocal; |
96 GameType:= gmtLocal; |
95 AddVisualGear(0, 0, vgtTeamHealthSorter); |
97 AddVisualGear(0, 0, vgtTeamHealthSorter); |
96 AddVisualGear(0, 0, vgtSmoothWindBar); |
98 AddVisualGear(0, 0, vgtSmoothWindBar); |