changeset 2905 | f3c79f7193a9 |
parent 2825 | db7c35a0e9c1 |
child 2947 | 803b277e4894 |
2904:209a0c573917 | 2905:f3c79f7193a9 |
---|---|
87 {$ENDIF} |
87 {$ENDIF} |
88 |
88 |
89 //////////////////////////////// |
89 //////////////////////////////// |
90 procedure DoTimer(Lag: LongInt); |
90 procedure DoTimer(Lag: LongInt); |
91 {$IFNDEF IPHONEOS} |
91 {$IFNDEF IPHONEOS} |
92 var s: string; |
92 var s: shortstring; |
93 {$ENDIF} |
93 {$ENDIF} |
94 begin |
94 begin |
95 inc(RealTicks, Lag); |
95 inc(RealTicks, Lag); |
96 |
96 |
97 case GameState of |
97 case GameState of |