local NextUI = loadstring(game:HttpGet("https://diser.me/nextui/source.lua"))()

local Players = game:GetService("Players")
local RunService = game:GetService("RunService")
local Stats = game:GetService("Stats")

local LocalPlayer = Players.LocalPlayer
local F = NextUI.Flags

local conns = {}
local function bind(signal, fn)
    local c = signal:Connect(fn)
    table.insert(conns, c)
    return c
end

local function getHumanoid()
    local char = LocalPlayer.Character
    return char and char:FindFirstChildOfClass("Humanoid")
end

local function getRoot()
    local char = LocalPlayer.Character
    return char and char:FindFirstChild("HumanoidRootPart")
end

NextUI.ConfigFolder = "Next-Fling"

NextUI:AddTheme("Noir", {
    Window = Color3.fromRGB(8, 8, 8),
    Side = Color3.fromRGB(4, 4, 4),
    Panel = Color3.fromRGB(10, 10, 10),
    Card = Color3.fromRGB(14, 14, 14),
    Element = Color3.fromRGB(22, 22, 22),
    Hover = Color3.fromRGB(34, 34, 34),
    Border = Color3.fromRGB(42, 42, 42),
    Accent = Color3.fromRGB(228, 228, 228),
    Text = Color3.fromRGB(245, 245, 245),
    Sub = Color3.fromRGB(128, 128, 128),
    Off = Color3.fromRGB(52, 52, 52),
})

local Window = NextUI:CreateWindow({
    Title = "NextFling",
    SubTitle = "Next Development ~ by Len",
    Size = Vector2.new(780, 500),
    Theme = "Noir",
    ToggleKeys = { Enum.KeyCode.Insert, Enum.KeyCode.X },
})

Window:AddCategory("Main")
local Home = Window:AddTab("Home", "home")
local FlingTab = Window:AddTab("Fling", "target")
local Settings = Window:AddTab("Settings", "settings")

Home:AddImage({
    Image = "https://diser.me/nextui/nextui.png",
    Title = "Next Development",
    Description = "Click to copy diser.me/nextui/",
    Height = 120,
    Badge = "NEW",
    Callback = function()
        if setclipboard then
            setclipboard("https://diser.me/nextui/")
            NextUI:Success("Copied", "diser.me/nextui/")
        else
            NextUI:Warning("Not Supported", "Your executor has no setclipboard.")
        end
    end,
})

Home:AddParagraph({
    Title = "Welcome",
    Content = "Noir Fling made with NextUI. Press INSERT or X to hide and show the window.",
})

local Info = Home:AddSection({ Title = "Info", Icon = "activity" })
Info:AddLabel("Player: " .. LocalPlayer.DisplayName .. " (@" .. LocalPlayer.Name .. ")")
local ServerLabel = Info:AddLabel("")
local StatsLabel = Info:AddLabel("FPS: -   Ping: -")
local ServerBar = Info:AddProgress({
    Title = "Server fullness",
    Min = 0, Max = math.max(Players.MaxPlayers, 1), Default = #Players:GetPlayers(), Suffix = " players",
})
local HealthBar = Info:AddProgress({ Title = "Health", Default = 100, Color = Color3.fromRGB(96, 214, 140) })

local function updateServerLabel()
    ServerLabel:Set(("Players: %d / %d"):format(#Players:GetPlayers(), Players.MaxPlayers))
    ServerBar:Set(#Players:GetPlayers())
end
updateServerLabel()

local frames, acc = 0, 0
bind(RunService.Heartbeat, function(dt)
    frames += 1
    acc += dt
    if acc >= 0.5 then
        local fps = math.floor(frames / acc + 0.5)
        local ping = 0
        pcall(function() ping = math.floor(Stats.Network.ServerStatsItem["Data Ping"]:GetValue()) end)
        StatsLabel:Set(("FPS: %d   Ping: %d ms"):format(fps, ping))
        local h = getHumanoid()
        if h then HealthBar:Set(h.Health / math.max(h.MaxHealth, 1) * 100) end
        frames, acc = 0, 0
    end
end)

local friendCache = {}
local function isFriend(p)
    if friendCache[p.UserId] == nil then
        local ok, result = pcall(function() return LocalPlayer:IsFriendsWith(p.UserId) end)
        friendCache[p.UserId] = ok and result or false
    end
    return friendCache[p.UserId]
end

local saved, prepared = {}, false
local walkActive = false

local function prepareSelf()
    if prepared then return end
    local char = LocalPlayer.Character
    if not char then return end
    prepared = true
    saved = {}
    for _, d in ipairs(char:GetDescendants()) do
        if d:IsA("BasePart") then
            saved[d] = { cpp = d.CustomPhysicalProperties, cc = d.CanCollide, ml = d.Massless }
            pcall(function() d.CustomPhysicalProperties = PhysicalProperties.new(100, 0.3, 0.5) end)
        end
    end
    local hrp = char:FindFirstChild("HumanoidRootPart")
    if hrp then
        local ok = pcall(function() hrp.CustomPhysicalProperties = PhysicalProperties.new(math.huge, 0.3, 0.5) end)
        if not ok then
            pcall(function() hrp.CustomPhysicalProperties = PhysicalProperties.new(100, 0.3, 0.5) end)
        end
        hrp.Massless = false
        hrp.CanCollide = true
    end
end

local function releaseSelf()
    if not prepared then return end
    prepared = false
    for part, s in pairs(saved) do
        if part.Parent then
            pcall(function()
                part.CustomPhysicalProperties = s.cpp
                part.CanCollide = s.cc
                part.Massless = s.ml
            end)
        end
    end
    saved = {}
end

bind(RunService.Stepped, function()
    if not (prepared and F.walkfling) then return end
    for part in pairs(saved) do
        if part.Parent and part.Name ~= "HumanoidRootPart" then
            part.CanCollide = false
        end
    end
    if F.fling_skipfriends then
        for _, p in ipairs(Players:GetPlayers()) do
            if p ~= LocalPlayer and p.Character and isFriend(p) then
                for _, d in ipairs(p.Character:GetDescendants()) do
                    if d:IsA("BasePart") then d.CanCollide = false end
                end
            end
        end
    end
end)

local function startWalkFling()
    if walkActive then return end
    walkActive = true
    task.spawn(function()
        while F.walkfling do
            local hrp = getRoot()
            if hrp then
                if not prepared then prepareSelf() end
                RunService.Heartbeat:Wait()
                if hrp.Parent then
                    local vel = hrp.AssemblyLinearVelocity
                    hrp.AssemblyLinearVelocity = vel * 10000 + Vector3.new(0, F.walk_power or 10000, 0)
                    RunService.RenderStepped:Wait()
                    if hrp.Parent then hrp.AssemblyLinearVelocity = vel end
                    RunService.Stepped:Wait()
                    if hrp.Parent then hrp.AssemblyLinearVelocity = vel + Vector3.new(0, 0.1, 0) end
                end
            else
                task.wait(0.1)
            end
        end
        walkActive = false
        releaseSelf()
    end)
end

local Actions = FlingTab:AddSection({ Title = "Walk Fling", Icon = "zap" })

Actions:AddToggle({
    Title = "Walk fling",
    Description = "Fling anyone you walk into",
    Flag = "walkfling",
    Keybind = Enum.KeyCode.G,
    Callback = function(state)
        if state then startWalkFling() end
    end,
})

Actions:AddSlider({
    Title = "Walk fling power",
    Flag = "walk_power",
    Min = 1000, Max = 100000, Default = 10000, Increment = 1000,
})

Actions:AddToggle({
    Title = "Skip friends",
    Description = "Friends pass through you",
    Flag = "fling_skipfriends",
    Default = true,
})

bind(Players.PlayerAdded, function()
    task.defer(updateServerLabel)
end)

bind(Players.PlayerRemoving, function()
    task.defer(updateServerLabel)
end)

bind(LocalPlayer.CharacterAdded, function()
    prepared = false
    saved = {}
    task.wait(0.5)
    if F.walkfling then prepareSelf() end
end)

local Look = Settings:AddSection({ Title = "Appearance", Icon = "palette" })

Look:AddDropdown({
    Title = "Theme",
    Flag = "theme",
    Values = NextUI.ThemeOrder,
    Default = "Noir",
    Callback = function(name) NextUI:SetTheme(name) end,
})

Look:AddKeybind({
    Title = "Menu key",
    Description = "Shows and hides the window",
    Flag = "menu_key",
    Default = Enum.KeyCode.X,
    MenuKey = true,
})

local Configs = Settings:AddSection({ Title = "Configs", Icon = "folder" })
Configs:AddConfigManager()

local Danger = Settings:AddSection({ Title = "Unload", Icon = "power" })

Danger:AddButton({
    Title = "Unload Noir",
    Description = "Removes the window and stops everything",
    Callback = function()
        Window:Dialog({
            Title = "Unload?",
            Content = "The window closes and all features stop.",
            Buttons = {
                { Title = "Unload", Primary = true, Callback = function() NextUI:Destroy() end },
                { Title = "Cancel" },
            },
        })
    end,
})

local baseDestroy = NextUI.Destroy
function NextUI:Destroy()
    if NextUI.Options.walkfling then pcall(function() NextUI.Options.walkfling:Set(false) end) end
    for _, c in ipairs(conns) do
        pcall(function() c:Disconnect() end)
    end
    releaseSelf()
    baseDestroy(self)
end

NextUI:Info("NextFling", "Loaded. Insert or X toggles the menu.")