| changeset 803 | 3f73901a350a |
| parent 793 | c4a790225799 |
| child 841 | 0700e3d3474d |
| 802:ed5450a89b96 | 803:3f73901a350a |
|---|---|
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, GL, uAmmos; |
41 uses uStore, uMisc, uTeams, uIO, uConsole, uKeys, uLocale, uSound, GL, |
42 uAmmos, uVisualGears; |
|
42 const FPS: Longword = 0; |
43 const FPS: Longword = 0; |
43 CountTicks: Longword = 0; |
44 CountTicks: Longword = 0; |
44 SoundTimerTicks: Longword = 0; |
45 SoundTimerTicks: Longword = 0; |
45 prevPoint: TPoint = (X: 0; Y: 0); |
46 prevPoint: TPoint = (X: 0; Y: 0); |
46 |
47 |
181 |
182 |
182 // background |
183 // background |
183 DrawRepeated(sprSky, WorldDx * 3 div 8); |
184 DrawRepeated(sprSky, WorldDx * 3 div 8); |
184 DrawRepeated(sprHorizont, WorldDx * 3 div 5); |
185 DrawRepeated(sprHorizont, WorldDx * 3 div 5); |
185 |
186 |
187 DrawVisualGears; |
|
188 |
|
186 // Waves |
189 // Waves |
187 {$WARNINGS OFF} |
190 {$WARNINGS OFF} |
188 for i:= -1 to cWaterSprCount do DrawSprite(sprWater, i * 256 + ((WorldDx + (RealTicks shr 6) ) and $FF), cWaterLine + WorldDy - 64, 0, Surface); |
191 for i:= -1 to cWaterSprCount do DrawSprite(sprWater, i * 256 + ((WorldDx + (RealTicks shr 6) ) and $FF), cWaterLine + WorldDy - 64, 0, Surface); |
189 for i:= -1 to cWaterSprCount do DrawSprite(sprWater, i * 256 + ((WorldDx - (RealTicks shr 6) + 192) and $FF), cWaterLine + WorldDy - 48, 0, Surface); |
192 for i:= -1 to cWaterSprCount do DrawSprite(sprWater, i * 256 + ((WorldDx - (RealTicks shr 6) + 192) and $FF), cWaterLine + WorldDy - 48, 0, Surface); |
190 {$WARNINGS ON} |
193 {$WARNINGS ON} |