Fix warning
authorunc0rr
Fri, 16 Oct 2009 16:45:47 +0000
changeset 2495 b6b9523e06bf
parent 2494 1e10a47cabea
child 2496 8ea93b0d49ee
Fix warning
hedgewars/uWorld.pas
--- 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;