hedgewars/uWorld.pas
branchios-revival
changeset 11090 874e477700d5
parent 11000 b1c8027cc8f7
child 11151 5c40c65b619d
--- a/hedgewars/uWorld.pas	Sat Aug 08 21:58:28 2015 +0200
+++ b/hedgewars/uWorld.pas	Sat Aug 08 22:02:31 2015 +0200
@@ -1148,7 +1148,7 @@
 procedure ShiftWorld(Dir: LongInt); inline;
 begin
     preShiftWorldDx:= WorldDx;
-    WorldDx:= WorldDx + Dir * LongInt(playWidth);
+    WorldDx:= WorldDx + LongInt(Dir * LongInt(playWidth));
 
 end;