hedgewars/uWorld.pas
changeset 2047 805f7b62cff6
parent 2002 37c71f5983c9
child 2119 d07828a0748e
equal deleted inserted replaced
2046:57fb5673ff17 2047:805f7b62cff6
   285 				end
   285 				end
   286 		end;
   286 		end;
   287 
   287 
   288 DrawGears;
   288 DrawGears;
   289 
   289 
   290 if not cReducedQuality then DrawVisualGears(1);
   290 DrawVisualGears(1);
   291 
   291 
   292 // Waves
   292 // Waves
   293 {$WARNINGS OFF}
   293 {$WARNINGS OFF}
   294 for i:= -1 to cWaterSprCount do DrawSprite(sprWater,  i * cWaveWidth  + ((WorldDx + (RealTicks shr 6) +  25) mod cWaveWidth), cWaterLine + WorldDy - cWaveHeight, 0);
   294 for i:= -1 to cWaterSprCount do DrawSprite(sprWater,  i * cWaveWidth  + ((WorldDx + (RealTicks shr 6) +  25) mod cWaveWidth), cWaterLine + WorldDy - cWaveHeight, 0);
   295 for i:= -1 to cWaterSprCount do DrawSprite(sprWater,  i * cWaveWidth  + ((WorldDx - (RealTicks shr 6) +  50) mod cWaveWidth), cWaterLine + WorldDy - (cWaveHeight div 2), 0);
   295 for i:= -1 to cWaterSprCount do DrawSprite(sprWater,  i * cWaveWidth  + ((WorldDx - (RealTicks shr 6) +  50) mod cWaveWidth), cWaterLine + WorldDy - (cWaveHeight div 2), 0);