-- Ensure old windows are cleared out
if game:GetService("CoreGui"):FindFirstChild("FlingSystemGui") then
    game:GetService("CoreGui").FlingSystemGui:Destroy()
end

-- UI Element Mapping
local ScreenGui = Instance.new("ScreenGui")
local MainFrame = Instance.new("Frame")
local UICorner = Instance.new("UICorner")
local TitleLabel = Instance.new("TextLabel")
local PlayerScroller = Instance.new("ScrollingFrame")
local UIListLayout = Instance.new("UIListLayout")

-- Component Configurations
ScreenGui.Name = "FlingSystemGui"
ScreenGui.Parent = game:GetService("CoreGui") or game:GetService("Players").LocalPlayer:WaitForChild("PlayerGui")
ScreenGui.ResetOnSpawn = false

MainFrame.Name = "MainFrame"
MainFrame.Parent = ScreenGui
MainFrame.BackgroundColor3 = Color3.fromRGB(24, 24, 26)
MainFrame.Position = UDim2.new(0.05, 0, 0.3, 0)
MainFrame.Size = UDim2.new(0, 220, 0, 280)
MainFrame.Active = true
MainFrame.Draggable = true

UICorner.CornerRadius = UDim.new(0, 10)
UICorner.Parent = MainFrame

TitleLabel.Name = "TitleLabel"
TitleLabel.Parent = MainFrame
TitleLabel.BackgroundTransparency = 1.000
TitleLabel.Size = UDim2.new(1, 0, 0, 40)
TitleLabel.Font = Enum.Font.SourceSansBold
TitleLabel.Text = "Fling"
TitleLabel.TextColor3 = Color3.fromRGB(255, 255, 255)
TitleLabel.TextSize = 20.000

PlayerScroller.Name = "PlayerScroller"
PlayerScroller.Parent = MainFrame
PlayerScroller.BackgroundTransparency = 1.000
PlayerScroller.Position = UDim2.new(0, 10, 0, 45)
PlayerScroller.Size = UDim2.new(1, -20, 1, -55)
PlayerScroller.CanvasSize = UDim2.new(0, 0, 0, 0)
PlayerScroller.ScrollBarThickness = 4

UIListLayout.Parent = PlayerScroller
UIListLayout.SortOrder = Enum.SortOrder.LayoutOrder
UIListLayout.Padding = UDim.new(0, 5)

-- The Original Fling Engine Logic (Target Restricted)
local function executeEngineFling(targetPlayer)
    local localPlayer = game:GetService("Players").LocalPlayer
    if not targetPlayer or targetPlayer == localPlayer then return end
    
    local myChar = localPlayer.Character
    local targetChar = targetPlayer.Character
    
    if myChar and targetChar then
        local myHRP = myChar:FindFirstChild("HumanoidRootPart")
        local targetHRP = targetChar:FindFirstChild("HumanoidRootPart")
        local myHum = myChar:FindFirstChildOfClass("Humanoid")
        
        if myHRP and targetHRP and myHum then
            -- Store location coordinates to return safely later
            local savedCFrame = myHRP.CFrame
            
            -- Replicate original engine spinning forces
            local bAV = Instance.new("BodyAngularVelocity")
            bAV.AngularVelocity = Vector3.new(0, 99999, 0) -- High-speed Y-axis spin
            bAV.MaxTorque = Vector3.new(0, math.huge, 0)
            bAV.Parent = myHRP
            
            local bV = Instance.new("BodyVelocity")
            bV.Velocity = Vector3.new(99999, 0, 99999) -- Extreme horizontal velocity push
            bV.MaxForce = Vector3.new(math.huge, 0, math.huge)
            bV.Parent = myHRP
            
            -- Temporarily ignore target collisions locally so you push into their boundaries rather than bouncing
            for _, part in ipairs(myChar:GetDescendants()) do
                if part:IsA("BasePart") then
                    part.CanCollide = false
                end
            end
            
            -- Execution runtime loop (locks onto target positions)
            local duration = tick()
            while tick() - duration < 2.0 do
                if targetHRP and myHRP then
                    -- Intersect your root physics precisely with the target root frame
                    myHRP.CFrame = targetHRP.CFrame * CFrame.Angles(math.rad(math.random(-360, 360)), math.rad(math.random(-360, 360)), 0)
                    myHRP.Velocity = Vector3.new(99999, 99999, 99999)
                else
                    break
                end
                task.wait()
            end
            
            -- Tear down forces to end the fling action
            bAV:Destroy()
            bV:Destroy()
            
            -- Reset physics states safely
            myHRP.Velocity = Vector3.new(0, 0, 0)
            myHRP.RotVelocity = Vector3.new(0, 0, 0)
            myHRP.CFrame = savedCFrame
        end
    end
end

-- List Construction & Refresh Cycles
local function populateList()
    for _, item in ipairs(PlayerScroller:GetChildren()) do
        if item:IsA("TextButton") then item:Destroy() end
    end
    
    for _, p in ipairs(game:GetService("Players"):GetPlayers()) do
        if p ~= game:GetService("Players").LocalPlayer then
            local pButton = Instance.new("TextButton")
            local pCorner = Instance.new("UICorner")
            
            pButton.Size = UDim2.new(1, 0, 0, 35)
            pButton.BackgroundColor3 = Color3.fromRGB(44, 44, 46)
            pButton.Text = p.DisplayName or p.Name
            pButton.TextColor3 = Color3.fromRGB(242, 242, 247)
            pButton.Font = Enum.Font.SourceSans
            pButton.TextSize = 14.000
            pButton.Parent = PlayerScroller
            
            pCorner.CornerRadius = UDim.new(0, 6)
            pCorner.Parent = pButton
            
            pButton.MouseButton1Click:Connect(function()
                pButton.BackgroundColor3 = Color3.fromRGB(255, 69, 58)
                pButton.Text = "Flinging Target..."
                task.spawn(function() executeEngineFling(p) end)
                task.wait(2)
                if pButton then
                    pButton.BackgroundColor3 = Color3.fromRGB(44, 44, 46)
                    pButton.Text = p.DisplayName or p.Name
                end
            end)
        end
    end
    PlayerScroller.CanvasSize = UDim2.new(0, 0, 0, UIListLayout.AbsoluteContentSize.Y)
end

-- Active Listener hooks
game:GetService("Players").PlayerAdded:Connect(populateList)
game:GetService("Players").PlayerRemoving:Connect(populateList)
populateList()

-- Constant Background Auto-Stabiliser & Infinite Health Engine
task.spawn(function()
    game:GetService("RunService").Heartbeat:Connect(function()
        local lp = game:GetService("Players").LocalPlayer
        if lp and lp.Character then
            local hum = lp.Character:FindFirstChildOfClass("Humanoid")
            if hum then
                -- Keep health maxed out instantly
                hum.MaxHealth = math.huge
                hum.Health = math.huge
                hum:SetStateEnabled(Enum.HumanoidStateType.Dead, false)
                
                -- Anti-Self-Fling safeguards: Block falling or ragdoll physics triggers
                hum:SetStateEnabled(Enum.HumanoidStateType.FallingDown, false)
                hum:SetStateEnabled(Enum.HumanoidStateType.Ragdoll, false)
            end
        end
    end)
end)