hedgewars/uRender.pas
changeset 12282 c0ace4bf45fa
parent 12281 6bf23d89dc43
child 12621 d972b31f8881
equal deleted inserted replaced
12281:6bf23d89dc43 12282:c0ace4bf45fa
  1871 if waterFrames > 1 then
  1871 if waterFrames > 1 then
  1872 	frame:= RealTicks div waterFrameTicks mod waterFrames
  1872 	frame:= RealTicks div waterFrameTicks mod waterFrames
  1873 else
  1873 else
  1874 	frame:= 0;
  1874 	frame:= 0;
  1875 
  1875 
  1876 TextureBuffer[3].X:= shift + ((LongInt((RealTicks * waterSpeed) shr 6) * Dir + dX) mod spriteWidth) / (spriteWidth - 1);
  1876 TextureBuffer[3].X:= shift + ((LongInt((RealTicks * waterSpeed div 100) shr 6) * Dir + dX) mod spriteWidth) / (spriteWidth - 1);
  1877 TextureBuffer[3].Y:= frame * realHeight;
  1877 TextureBuffer[3].Y:= frame * realHeight;
  1878 TextureBuffer[5].X:= TextureBuffer[3].X + nWaves;
  1878 TextureBuffer[5].X:= TextureBuffer[3].X + nWaves;
  1879 TextureBuffer[5].Y:= frame * realHeight;
  1879 TextureBuffer[5].Y:= frame * realHeight;
  1880 TextureBuffer[4].X:= TextureBuffer[5].X;
  1880 TextureBuffer[4].X:= TextureBuffer[5].X;
  1881 TextureBuffer[4].Y:= (frame+1) * realHeight;
  1881 TextureBuffer[4].Y:= (frame+1) * realHeight;