| changeset 756 | 2b307457fd68 |
| parent 755 | edf26e9554ac |
| child 757 | ddbff94153e8 |
| 755:edf26e9554ac | 756:2b307457fd68 |
|---|---|
36 bSelected: boolean = false; |
36 bSelected: boolean = false; |
37 bShowFinger: boolean = false; |
37 bShowFinger: boolean = false; |
38 Frames: Longword = 0; |
38 Frames: Longword = 0; |
39 |
39 |
40 implementation |
40 implementation |
41 uses uStore, uMisc, uTeams, uIO, uConsole, uKeys, uLocale, uSound; |
41 uses uStore, uMisc, uTeams, uIO, uConsole, uKeys, uLocale, uSound, GL; |
42 const FPS: Longword = 0; |
42 const FPS: Longword = 0; |
43 CountTicks: Longword = 0; |
43 CountTicks: Longword = 0; |
44 SoundTimerTicks: Longword = 0; |
44 SoundTimerTicks: Longword = 0; |
45 prevPoint: TPoint = (X: 0; Y: 0); |
45 prevPoint: TPoint = (X: 0; Y: 0); |
46 |
46 |
167 inc(i, w) |
167 inc(i, w) |
168 until i > cScreenWidth |
168 until i > cScreenWidth |
169 end; |
169 end; |
170 |
170 |
171 begin |
171 begin |
172 glClear(GL_COLOR_BUFFER_BIT); |
|
173 glEnable(GL_BLEND); |
|
174 |
|
172 if not isPaused then MoveCamera; |
175 if not isPaused then MoveCamera; |
173 |
176 |
174 // Sky |
177 // Sky |
175 if WorldDy > 0 then |
178 if WorldDy > 0 then |
176 begin |
179 begin |
373 if cVolumeDelta <> 0 then |
376 if cVolumeDelta <> 0 then |
374 begin |
377 begin |
375 str(ChangeVolume(cVolumeDelta), s); |
378 str(ChangeVolume(cVolumeDelta), s); |
376 AddCaption(Format(trmsg[sidVolume], s), $FFFFFF, capgrpVolume) |
379 AddCaption(Format(trmsg[sidVolume], s), $FFFFFF, capgrpVolume) |
377 end |
380 end |
378 end |
381 end; |
382 |
|
383 glDisable(GL_BLEND) |
|
379 end; |
384 end; |
380 |
385 |
381 procedure AddCaption(s: string; Color: Longword; Group: TCapGroup); |
386 procedure AddCaption(s: string; Color: Longword; Group: TCapGroup); |
382 begin |
387 begin |
383 if Group in [capgrpGameState, capgrpNetSay] then WriteLnToConsole(s); |
388 if Group in [capgrpGameState, capgrpNetSay] then WriteLnToConsole(s); |