| changeset 3904 | 22e4d74240e5 |
| parent 3902 | 3aac7ca07b0e |
| child 3928 | 2560731c860d |
| 3903:db01c37494af | 3904:22e4d74240e5 |
|---|---|
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; |
29 uses uMisc, uConsts, uKeys, uTeams, uIO, uAI, uGears, uScript, uSound, SDLh; |
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} |
|
72 replayFinished(); |
|
73 {$ENDIF} |
|
71 end; |
74 end; |
72 end |
75 end |
73 else ProcessGears |
76 else ProcessGears |
74 end; |
77 end; |
75 inc(i) |
78 inc(i) |