hedgewars/uWorld.pas
changeset 2495 b6b9523e06bf
parent 2447 08d623a494e6
child 2553 7d8d62a5566e
--- a/hedgewars/uWorld.pas	Fri Oct 16 16:42:51 2009 +0000
+++ b/hedgewars/uWorld.pas	Fri Oct 16 16:45:47 2009 +0000
@@ -247,7 +247,7 @@
 VertexBuffer[3].Y:= VertexBuffer[2].Y;
 
 shift:= - lw / cWaveWidth;
-TextureBuffer[0].X:= shift + (( - WorldDx + (RealTicks shr 6) * Dir + dX) mod cWaveWidth) / (cWaveWidth - 1);
+TextureBuffer[0].X:= shift + (( - WorldDx + LongInt(RealTicks shr 6) * Dir + dX) mod cWaveWidth) / (cWaveWidth - 1);
 TextureBuffer[0].Y:= 0;
 TextureBuffer[1].X:= TextureBuffer[0].X + waves;
 TextureBuffer[1].Y:= TextureBuffer[0].Y;