| changeset 3928 | 2560731c860d |
| parent 3904 | 22e4d74240e5 |
| child 3935 | 5ca27a0e9a63 |
| 3926:668b71f31e51 | 3928:2560731c860d |
|---|---|
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, SDLh; |
29 uses uMisc, uConsts, uKeys, uTeams, uIO, uAI, uGears, uScript, uSound, uMobile; |
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; |
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 InitIPC; |
70 InitIPC; |
71 {$IFDEF IPHONEOS} |
71 doSomethingWhen_SaveFinishedSynching(); |
72 replayFinished(); |
|
73 {$ENDIF} |
|
74 end; |
72 end; |
75 end |
73 end |
76 else ProcessGears |
74 else ProcessGears |
77 end; |
75 end; |
78 inc(i) |
76 inc(i) |