-- Save and execute this long-range script with Dragging and Faster Float (20.0 Speed)
local Players = game:GetService("Players")
local RunService = game:GetService("RunService")
local UserInputService = game:GetService("UserInputService")
local TweenService = game:GetService("TweenService")

local player = Players.LocalPlayer

-- 1. Create the Main Frame
local screenGui = Instance.new("ScreenGui")
screenGui.Name = "InfiniteFloatGui"
screenGui.ResetOnSpawn = false

if getgenv and type(getgenv) == "function" then
    screenGui.Parent = game:GetService("CoreGui")
else
    screenGui.Parent = player:WaitForChild("PlayerGui")
end

local mainFrame = Instance.new("Frame")
mainFrame.Size = UDim2.new(0, 220, 0, 110)
mainFrame.Position = UDim2.new(0.5, -110, 0.3, 0)
mainFrame.BackgroundColor3 = Color3.fromRGB(20, 25, 35)
mainFrame.BorderSizePixel = 2
mainFrame.BorderColor3 = Color3.fromRGB(0, 255, 255)
mainFrame.Active = true
mainFrame.Parent = screenGui

local titleLabel = Instance.new("TextLabel")
titleLabel.Size = UDim2.new(1, 0, 0, 30)
titleLabel.Position = UDim2.new(0, 0, 0, 5)
titleLabel.BackgroundTransparency = 1
titleLabel.Text = "=== DEBRIS LIFT ==="
titleLabel.TextColor3 = Color3.fromRGB(0, 255, 255)
titleLabel.TextSize = 14
titleLabel.Font = Enum.Font.Code
titleLabel.Parent = mainFrame

local toggleButton = Instance.new("TextButton")
toggleButton.Size = UDim2.new(0, 180, 0, 45)
toggleButton.Position = UDim2.new(0.5, -90, 0, 45)
toggleButton.BackgroundColor3 = Color3.fromRGB(150, 0, 0)
toggleButton.BorderSizePixel = 2
toggleButton.BorderColor3 = Color3.fromRGB(255, 0, 0)
toggleButton.TextColor3 = Color3.fromRGB(255, 255, 255)
toggleButton.TextSize = 18
toggleButton.Font = Enum.Font.Code
toggleButton.Text = "[ FLOAT: OFF ]"
toggleButton.Parent = mainFrame

-- GUI DRAGGING SYSTEM (Smooth Interpolation)
local dragging
local dragInput
local dragStart
local startPos

local function update(input)
	local delta = input.Position - dragStart
	local targetPos = UDim2.new(startPos.X.Scale, startPos.X.Offset + delta.X, startPos.Y.Scale, startPos.Y.Offset + delta.Y)
	
	local tweenInfo = TweenInfo.new(0.1, Enum.EasingStyle.Quad, Enum.EasingDirection.Out)
	TweenService:Create(mainFrame, tweenInfo, {Position = targetPos}):Play()
end

mainFrame.InputBegan:Connect(function(input)
	if input.UserInputType == Enum.UserInputType.MouseButton1 or input.UserInputType == Enum.UserInputType.Touch then
		dragging = true
		dragStart = input.Position
		startPos = mainFrame.Position
		
		input.Changed:Connect(function()
			if input.UserInputState == Enum.UserInputState.End then
				dragging = false
			end
		end)
	end
end)

mainFrame.InputChanged:Connect(function(input)
	if input.UserInputType == Enum.UserInputType.MouseMovement or input.UserInputType == Enum.UserInputType.Touch then
		dragInput = input
	end
end)

UserInputService.InputChanged:Connect(function(input)
	if input == dragInput and dragging then
		update(input)
	end
end)

-- 2. Long-Range Physics Logic
local isFloating = false

-- SPEED SETTINGS (Updated to 20.0)
local FLOAT_UP_SPEED = 20.0 -- Changed from 15.0 to 20.0 speed
local LIFT_POWER = 90000    -- Strong enough to lift map parts cleanly

local function startFloating()
	isFloating = true
	
	task.spawn(function()
		while isFloating do
			local character = player.Character
			
			pcall(function() 
				player.SimulationRadius = 999999
				player.MaxSimulationRadius = 999999
			end)
			
			for _, object in ipairs(workspace:GetDescendants()) do
				if isFloating and object:IsA("BasePart") and not object.Anchored and object.ClassName ~= "Terrain" then
					if not character or not object:IsDescendantOf(character) then
						if object.Name ~= "Baseplate" and object.Name ~= "Sea" and object.Name ~= "Island" then
							
							if object.AssemblyLinearVelocity.Magnitude < 0.1 then
								object.AssemblyLinearVelocity = Vector3.new(0, 0.1, 0)
							end
							
							local existingForce = object:FindFirstChild("InfiniteFloatForce")
							if not existingForce then
								local bv = Instance.new("BodyVelocity")
								bv.Name = "InfiniteFloatForce"
								bv.MaxForce = Vector3.new(0, LIFT_POWER, 0)
								bv.Velocity = Vector3.new(0, FLOAT_UP_SPEED, 0)
								bv.Parent = object
							end
							
						end
					end
				end
			end
			task.wait(2.0)
		end
	end)
end

local function stopFloating()
	isFloating = false
	for _, object in ipairs(workspace:GetDescendants()) do
		if object:IsA("BasePart") then
			local force = object:FindFirstChild("InfiniteFloatForce")
			if force then force:Destroy() end
		end
	end
end

-- Toggle Button
toggleButton.MouseButton1Click:Connect(function()
	if not isFloating then
		toggleButton.Text = "[ FLOAT: ACTIVE ]"
		toggleButton.BackgroundColor3 = Color3.fromRGB(0, 120, 0)
		toggleButton.BorderColor3 = Color3.fromRGB(0, 255, 0)
		toggleButton.TextColor3 = Color3.fromRGB(0, 255, 0)
		startFloating()
	else
		toggleButton.Text = "[ FLOAT: OFF ]"
		toggleButton.BackgroundColor3 = Color3.fromRGB(150, 0, 0)
		toggleButton.BorderColor3 = Color3.fromRGB(255, 0, 0)
		toggleButton.TextColor3 = Color3.fromRGB(255, 255, 255)
		stopFloating()
	end
end)