equal
deleted
inserted
replaced
64 procedure OnDestroy; forward; |
64 procedure OnDestroy; forward; |
65 |
65 |
66 //////////////////////////////// |
66 //////////////////////////////// |
67 procedure DoTimer(Lag: LongInt); |
67 procedure DoTimer(Lag: LongInt); |
68 const MusicTimerTicks: Longword = 0; |
68 const MusicTimerTicks: Longword = 0; |
69 var s: string; |
69 //var s: string; |
70 begin |
70 begin |
71 inc(RealTicks, Lag); |
71 inc(RealTicks, Lag); |
72 |
72 |
73 inc(MusicTimerTicks, Lag); |
73 inc(MusicTimerTicks, Lag); |
74 if (MusicTimerTicks > 3000) and (GameState > gsStart) then |
74 if (MusicTimerTicks > 3000) and (GameState > gsStart) then |