hedgewars/uWorld.pas
changeset 2495 b6b9523e06bf
parent 2447 08d623a494e6
child 2553 7d8d62a5566e
equal deleted inserted replaced
2494:1e10a47cabea 2495:b6b9523e06bf
   245 VertexBuffer[2].Y:= VertexBuffer[0].Y + SpritesData[sprWater].Height;
   245 VertexBuffer[2].Y:= VertexBuffer[0].Y + SpritesData[sprWater].Height;
   246 VertexBuffer[3].X:= -lw;
   246 VertexBuffer[3].X:= -lw;
   247 VertexBuffer[3].Y:= VertexBuffer[2].Y;
   247 VertexBuffer[3].Y:= VertexBuffer[2].Y;
   248 
   248 
   249 shift:= - lw / cWaveWidth;
   249 shift:= - lw / cWaveWidth;
   250 TextureBuffer[0].X:= shift + (( - WorldDx + (RealTicks shr 6) * Dir + dX) mod cWaveWidth) / (cWaveWidth - 1);
   250 TextureBuffer[0].X:= shift + (( - WorldDx + LongInt(RealTicks shr 6) * Dir + dX) mod cWaveWidth) / (cWaveWidth - 1);
   251 TextureBuffer[0].Y:= 0;
   251 TextureBuffer[0].Y:= 0;
   252 TextureBuffer[1].X:= TextureBuffer[0].X + waves;
   252 TextureBuffer[1].X:= TextureBuffer[0].X + waves;
   253 TextureBuffer[1].Y:= TextureBuffer[0].Y;
   253 TextureBuffer[1].Y:= TextureBuffer[0].Y;
   254 TextureBuffer[2].X:= TextureBuffer[1].X;
   254 TextureBuffer[2].X:= TextureBuffer[1].X;
   255 TextureBuffer[2].Y:= 1;
   255 TextureBuffer[2].Y:= 1;