--- a/hedgewars/uWorld.pas
+++ b/hedgewars/uWorld.pas
@@ -1168,8 +1168,8 @@ procedure RenderAttackBar();
 procedure ShiftWorld(Dir: LongInt); inline;
 begin
     preShiftWorldDx:= WorldDx;
-    WorldDx:= WorldDx + LongInt(Dir * LongInt(playWidth));
-
+    Dir := Dir * LongInt(playWidth);
+    WorldDx:= WorldDx + Dir;
 end;
 
 procedure UnshiftWorld(); inline;