hedgewars/uWorld.pas
changeset 71 5f56c6979496
parent 70 82d93eeecebe
child 74 42257fee61ae
--- a/hedgewars/uWorld.pas	Fri Jun 23 20:02:41 2006 +0000
+++ b/hedgewars/uWorld.pas	Wed Jun 28 18:27:42 2006 +0000
@@ -318,8 +318,8 @@
       exit
       end
       else begin
-      CursorPoint.x:= (CursorPoint.x * 3 + (round(FollowGear.X + Sign(FollowGear.dX) * 100) + WorldDx)) div 4;
-      CursorPoint.y:= (CursorPoint.y * 3 + (round(FollowGear.Y) + WorldDy)) div 4
+      CursorPoint.x:= (CursorPoint.x * 7 + (round(FollowGear.X + Sign(FollowGear.dX) * 100) + WorldDx)) div 8;
+      CursorPoint.y:= (CursorPoint.y * 7 + (round(FollowGear.Y) + WorldDy)) div 8
       end;
 
 if ((CursorPoint.X = prevPoint.X)and(CursorPoint.Y = prevpoint.Y)) then exit;