| changeset 4049 | fe799b5d601b |
| parent 4048 | f94d04498031 |
| child 4075 | f7412772f85d |
| 4048:f94d04498031 | 4049:fe799b5d601b |
|---|---|
24 procedure DoGameTick(Lag: LongInt); |
24 procedure DoGameTick(Lag: LongInt); |
25 |
25 |
26 //////////////////// |
26 //////////////////// |
27 implementation |
27 implementation |
28 //////////////////// |
28 //////////////////// |
29 uses uMisc, uConsts, uKeys, uTeams, uIO, uAI, uGears, uScript, uSound, uMobile; |
29 uses uMisc, uConsts, uKeys, uTeams, uIO, uAI, uGears, uScript, uSound, uMobile, uVisualGears; |
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; |
65 SetBinds(CurrentTeam^.Binds); |
65 SetBinds(CurrentTeam^.Binds); |
66 //CurrentHedgehog^.Gear^.Message:= 0; <- produces bugs with further save restoring and demos |
66 //CurrentHedgehog^.Gear^.Message:= 0; <- produces bugs with further save restoring and demos |
67 isSoundEnabled:= isSEBackup; |
67 isSoundEnabled:= isSEBackup; |
68 if isSoundEnabled then playMusic; |
68 if isSoundEnabled then playMusic; |
69 GameType:= gmtLocal; |
69 GameType:= gmtLocal; |
70 AddVisualGear(0, 0, vgtTeamHealthSorter); |
|
70 {$IFDEF IPHONEOS}InitIPC;{$ENDIF} |
71 {$IFDEF IPHONEOS}InitIPC;{$ENDIF} |
71 perfExt_SaveFinishedSynching(); |
72 perfExt_SaveFinishedSynching(); |
72 end; |
73 end; |
73 end |
74 end |
74 else ProcessGears |
75 else ProcessGears |