hedgewars/uWorld.pas
changeset 2273 6b34f5fa6434
parent 2272 c59656d7b1de
child 2277 a9c0b37955fa
equal deleted inserted replaced
2272:c59656d7b1de 2273:6b34f5fa6434
   299 
   299 
   300 DrawGears;
   300 DrawGears;
   301 
   301 
   302 DrawVisualGears(1);
   302 DrawVisualGears(1);
   303 
   303 
   304 if not cReducedQuality then DrawWater(cWaterOpacity);
   304 DrawWater(cWaterOpacity);
   305 
   305 
   306 // Waves
   306 // Waves
   307 {$WARNINGS OFF}
   307 {$WARNINGS OFF}
   308 //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);
   309 //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);