hedgewars/uWorld.pas
changeset 5848 103e3a80daa6
parent 5800 3a04c30e5ac7
child 5851 e6151aca2d7c
--- a/hedgewars/uWorld.pas	Sat Sep 10 22:55:31 2011 -0400
+++ b/hedgewars/uWorld.pas	Sun Sep 11 08:54:21 2011 -0400
@@ -1196,7 +1196,7 @@
     else
     begin
         CursorPoint.X:= (prevPoint.X * 7 + hwRound(FollowGear^.X) + hwSign(FollowGear^.dX) * 100 + WorldDx) div 8;
-        CursorPoint.Y:= (prevPoint.Y * 7 + cScreenHeight - (hwRound(FollowGear^.Y) + WorldDy)) div 8;
+        CursorPoint.Y:= (prevPoint.Y * 7 + cScreenHeight - (hwRound(FollowGear^.Y)+ hwSign(FollowGear^.dX) * 100 + WorldDy)) div 8;
     end;
 
 wdy:= trunc(cScreenHeight / cScaleFactor) + cScreenHeight div 2 - cWaterLine - cVisibleWater;