hedgewars/uWorld.pas
changeset 11156 efea685933ae
parent 11151 5c40c65b619d
child 11210 22f2e072d31e
equal deleted inserted replaced
11155:a10143c3d87d 11156:efea685933ae
  1735             else // usual camera movement routine
  1735             else // usual camera movement routine
  1736                 begin
  1736                 begin
  1737                     CursorPoint.X:= (prevPoint.X * 7 + dstX) div 8;
  1737                     CursorPoint.X:= (prevPoint.X * 7 + dstX) div 8;
  1738                 end;
  1738                 end;
  1739 
  1739 
  1740         if isPhone() or (cScreenHeight < 600) or ((FollowGear^.dY * z).Round < 10) then
  1740         if isPhone() or (cScreenHeight < 600) or (hwFloat(FollowGear^.dY * z).Round < 10) then
  1741             CursorPoint.Y:= (prevPoint.Y * 7 + cScreenHeight - (hwRound(FollowGear^.Y) + WorldDy)) div 8
  1741             CursorPoint.Y:= (prevPoint.Y * 7 + cScreenHeight - (hwRound(FollowGear^.Y) + WorldDy)) div 8
  1742         else
  1742         else
  1743             CursorPoint.Y:= (prevPoint.Y * 7 + cScreenHeight - (hwRound(FollowGear^.Y) + hwSign(FollowGear^.dY) * z + WorldDy)) div 8;
  1743             CursorPoint.Y:= (prevPoint.Y * 7 + cScreenHeight - (hwRound(FollowGear^.Y) + hwSign(FollowGear^.dY) * z + WorldDy)) div 8;
  1744         end;
  1744         end;
  1745 
  1745