hedgewars/uWorld.pas
changeset 6098 959219241c67
parent 6016 85410eef7ba4
child 6131 4e8816cf9459
--- a/hedgewars/uWorld.pas	Sat Oct 08 00:34:41 2011 -0400
+++ b/hedgewars/uWorld.pas	Sat Oct 08 01:27:43 2011 -0400
@@ -1197,7 +1197,7 @@
     else
     begin
         CursorPoint.X:= (prevPoint.X * 7 + hwRound(FollowGear^.X) + hwSign(FollowGear^.dX) * z + WorldDx) div 8;
-        if isPhone() then
+        if isPhone() or (cScreenHeight < 600) or ((hwSign(FollowGear^.dY) * z) < 10)  then
             CursorPoint.Y:= (prevPoint.Y * 7 + cScreenHeight - (hwRound(FollowGear^.Y) + WorldDy)) div 8
         else
             CursorPoint.Y:= (prevPoint.Y * 7 + cScreenHeight - (hwRound(FollowGear^.Y) + hwSign(FollowGear^.dY) * z + WorldDy)) div 8;