hedgewars/uRender.pas
changeset 12190 4d818abdc00f
parent 12189 31184d9b9bfc
child 12281 6bf23d89dc43
equal deleted inserted replaced
12189:31184d9b9bfc 12190:4d818abdc00f
  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 shr (16 - waterSpeed)) * Dir + dX) mod spriteWidth) / (spriteWidth - 1);
  1876 TextureBuffer[3].X:= shift + ((LongInt((RealTicks * waterSpeed) 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:= SpritesData[sprite].Texture^.ry / waterFrames + frame * realHeight;
  1881 TextureBuffer[4].Y:= SpritesData[sprite].Texture^.ry / waterFrames + frame * realHeight;