equal
deleted
inserted
replaced
177 if AMxShift = 0 then DrawSprite(sprArrow, CursorPoint.X, cScreenHeight - CursorPoint.Y, (RealTicks shr 6) mod 8) |
177 if AMxShift = 0 then DrawSprite(sprArrow, CursorPoint.X, cScreenHeight - CursorPoint.Y, (RealTicks shr 6) mod 8) |
178 end; |
178 end; |
179 |
179 |
180 procedure MoveCamera; forward; |
180 procedure MoveCamera; forward; |
181 |
181 |
182 procedure DrawWater; |
182 procedure DrawWater(Alpha: byte); |
183 var VertexBuffer: array [0..3] of TVertex2f; |
183 var VertexBuffer: array [0..3] of TVertex2f; |
184 r: TSDL_Rect; |
184 r: TSDL_Rect; |
185 lw, lh: GLfloat; |
185 lw, lh: GLfloat; |
186 begin |
186 begin |
|
187 WaterColorArray[0].a := Alpha; |
|
188 WaterColorArray[1].a := Alpha; |
|
189 WaterColorArray[2].a := Alpha; |
|
190 WaterColorArray[3].a := Alpha; |
|
191 |
187 lw:= cScreenWidth / cScaleFactor; |
192 lw:= cScreenWidth / cScaleFactor; |
188 lh:= cScreenHeight * 2 / cScaleFactor; |
193 lh:= cScreenHeight * 2 / cScaleFactor; |
189 // Water |
194 // Water |
190 r.y:= WorldDy + cWaterLine + 32; |
195 r.y:= WorldDy + cWaterLine + 32; |
191 if r.y < cScreenHeight * 2 / cScaleFactor then |
196 if r.y < cScreenHeight * 2 / cScaleFactor then |
266 end; |
271 end; |
267 |
272 |
268 |
273 |
269 DrawLand(WorldDx, WorldDy); |
274 DrawLand(WorldDx, WorldDy); |
270 |
275 |
271 DrawWater; |
276 DrawWater(255); |
272 |
277 |
273 // Attack bar |
278 // Attack bar |
274 if CurrentTeam <> nil then |
279 if CurrentTeam <> nil then |
275 case AttackBar of |
280 case AttackBar of |
276 (* 1: begin |
281 (* 1: begin |
293 end; |
298 end; |
294 |
299 |
295 DrawGears; |
300 DrawGears; |
296 |
301 |
297 DrawVisualGears(1); |
302 DrawVisualGears(1); |
|
303 |
|
304 if not cReducedQuality then DrawWater(128); |
298 |
305 |
299 // Waves |
306 // Waves |
300 {$WARNINGS OFF} |
307 {$WARNINGS OFF} |
301 //for i:= -1 to cWaterSprCount do DrawSprite(sprWater, i * cWaveWidth + ((WorldDx + (RealTicks shr 6) + 25) mod cWaveWidth), cWaterLine + WorldDy - cWaveHeight, 0); |
308 //for i:= -1 to cWaterSprCount do DrawSprite(sprWater, i * cWaveWidth + ((WorldDx + (RealTicks shr 6) + 25) mod cWaveWidth), cWaterLine + WorldDy - cWaveHeight, 0); |
302 //for i:= -1 to cWaterSprCount do DrawSprite(sprWater, i * cWaveWidth + ((WorldDx - (RealTicks shr 6) + 50) mod cWaveWidth), cWaterLine + WorldDy - (cWaveHeight div 2), 0); |
309 //for i:= -1 to cWaterSprCount do DrawSprite(sprWater, i * cWaveWidth + ((WorldDx - (RealTicks shr 6) + 50) mod cWaveWidth), cWaterLine + WorldDy - (cWaveHeight div 2), 0); |