local Players = game:GetService("Players")
local RunService = game:GetService("RunService")
local LocalPlayer = Players.LocalPlayer

local ScreenGui = Instance.new("ScreenGui")
ScreenGui.Name = "DarkFlingGUI"
ScreenGui.ResetOnSpawn = false
ScreenGui.Parent = gethui and gethui() or game:GetService("CoreGui")

local MainFrame = Instance.new("Frame")
MainFrame.Size = UDim2.new(0, 280, 0, 380)
MainFrame.Position = UDim2.new(0.5, -140, 0.5, -190)
MainFrame.BackgroundColor3 = Color3.fromRGB(25, 25, 25)
MainFrame.BorderSizePixel = 0
MainFrame.Active = true
MainFrame.Draggable = true
MainFrame.Parent = ScreenGui

local UICorner = Instance.new("UICorner")
UICorner.CornerRadius = UDim.new(0, 8)
UICorner.Parent = MainFrame

local Title = Instance.new("TextLabel")
Title.Size = UDim2.new(1, 0, 0, 40)
Title.BackgroundTransparency = 1
Title.Text = "Dark Fling Panel"
Title.TextColor3 = Color3.fromRGB(240, 240, 240)
Title.TextSize = 16
Title.Font = Enum.Font.GothamBold
Title.Parent = MainFrame

local SearchBox = Instance.new("TextBox")
SearchBox.Size = UDim2.new(0.9, 0, 0, 32)
SearchBox.Position = UDim2.new(0.05, 0, 0, 45)
SearchBox.BackgroundColor3 = Color3.fromRGB(40, 40, 40)
SearchBox.TextColor3 = Color3.fromRGB(240, 240, 240)
SearchBox.PlaceholderText = "Search or enter username..."
SearchBox.PlaceholderColor3 = Color3.fromRGB(120, 120, 120)
SearchBox.TextSize = 13
SearchBox.Font = Enum.Font.Gotham
SearchBox.Parent = MainFrame

local SearchCorner = Instance.new("UICorner")
SearchCorner.CornerRadius = UDim.new(0, 6)
SearchCorner.Parent = SearchBox

local ScrollingFrame = Instance.new("ScrollingFrame")
ScrollingFrame.Size = UDim2.new(0.9, 0, 0, 210)
ScrollingFrame.Position = UDim2.new(0.05, 0, 0, 85)
ScrollingFrame.BackgroundColor3 = Color3.fromRGB(35, 35, 35)
ScrollingFrame.BorderSizePixel = 0
ScrollingFrame.ScrollBarThickness = 4
ScrollingFrame.Parent = MainFrame

local SFCorner = Instance.new("UICorner")
SFCorner.CornerRadius = UDim.new(0, 6)
SFCorner.Parent = ScrollingFrame

local UIListLayout = Instance.new("UIListLayout")
UIListLayout.SortOrder = Enum.SortOrder.LayoutOrder
UIListLayout.Padding = UDim.new(0, 3)
UIListLayout.Parent = ScrollingFrame

local FlingButton = Instance.new("TextButton")
FlingButton.Size = UDim2.new(0.9, 0, 0, 35)
FlingButton.Position = UDim2.new(0.05, 0, 0, 310)
FlingButton.BackgroundColor3 = Color3.fromRGB(180, 40, 40)
FlingButton.TextColor3 = Color3.fromRGB(255, 255, 255)
FlingButton.Text = "Fling Selected"
FlingButton.TextSize = 14
FlingButton.Font = Enum.Font.GothamBold
FlingButton.Parent = MainFrame

local FBCorner = Instance.new("UICorner")
FBCorner.CornerRadius = UDim.new(0, 6)
FBCorner.Parent = FlingButton

local selectedTarget = nil

local function updateList()
	for _, child in ipairs(ScrollingFrame:GetChildren()) do
		if child:IsA("TextButton") then
			child:Destroy()
		end
	end
	
	for _, player in ipairs(Players:GetPlayers()) do
		if player ~= LocalPlayer then
			local btn = Instance.new("TextButton")
			btn.Size = UDim2.new(1, 0, 0, 28)
			btn.BackgroundColor3 = Color3.fromRGB(45, 45, 45)
			btn.TextColor3 = Color3.fromRGB(220, 220, 220)
			btn.Text = player.Name .. " (" .. player.DisplayName .. ")"
			btn.TextSize = 12
			btn.Font = Enum.Font.Gotham
			btn.Parent = ScrollingFrame
			
			local btnCorner = Instance.new("UICorner")
			btnCorner.CornerRadius = UDim.new(0, 4)
			btnCorner.Parent = btn
			
			btn.MouseButton1Click:Connect(function()
				SearchBox.Text = player.Name
				selectedTarget = player
			end)
		end
	end
	ScrollingFrame.CanvasSize = UDim2.new(0, 0, 0, UIListLayout.AbsoluteContentSize.Y)
end

Players.PlayerAdded:Connect(updateList)
Players.PlayerRemoving:Connect(updateList)
updateList()

SearchBox.FocusLost:Connect(function()
	local text = SearchBox.Text:lower()
	for _, player in ipairs(Players:GetPlayers()) do
		if player.Name:lower():sub(1, #text) == text or player.DisplayName:lower():sub(1, #text) == text then
			selectedTarget = player
			SearchBox.Text = player.Name
			break
		end
	end
end)

FlingButton.MouseButton1Click:Connect(function()
	local targetName = SearchBox.Text
	local target = Players:FindFirstChild(targetName)
	if not target then
		for _, p in ipairs(Players:GetPlayers()) do
			if p.Name:lower() == targetName:lower() or p.DisplayName:lower() == targetName:lower() then
				target = p
				break
			end
		end
	end
	
	if target and target.Character and target.Character:FindFirstChild("HumanoidRootPart") then
		local character = LocalPlayer.Character
		if character and character:FindFirstChild("HumanoidRootPart") then
			local hrp = character.HumanoidRootPart
			
			local bav = Instance.new("BodyAngularVelocity")
			bav.MaxTorque = Vector3.new(math.huge, math.huge, math.huge)
			bav.AngularVelocity = Vector3.new(0, 99999, 0)
			bav.Parent = hrp
			
			local connection
			connection = RunService.RenderStepped:Connect(function()
				if target.Character and target.Character:FindFirstChild("HumanoidRootPart") then
					hrp.CFrame = target.Character.HumanoidRootPart.CFrame
				else
					bav:Destroy()
					connection:Disconnect()
				end
			end)
			
			task.delay(1.5, function()
				if bav then bav:Destroy() end
				if connection then connection:Disconnect() end
			end)
		end
	end
end)