local Library = loadstring(game:HttpGet("https://raw.githubusercontent.com/ImInsane-1337/neverlose-ui/refs/heads/main/source/library.lua"))()

local Accent = Color3.fromRGB(168, 200, 150)
local Gradient = Color3.fromRGB(120, 155, 105)

Library.Theme.Accent = Accent
Library.Theme.AccentGradient = Gradient
Library:ChangeTheme("Accent", Accent)
Library:ChangeTheme("AccentGradient", Gradient)

local Window = Library:Window({
    Name = "Dandy's World [ALPHA]",
    SubName = "",
    Logo = "6419106159",
    MenuKeybind = Enum.KeyCode.End
})

local KeybindList = Library:KeybindList("Keybinds")

Library:Watermark({
    "--->",
    "by Moonscripts <3",
    120959262762131
})

task.spawn(function()
    while true do
        local FPS = math.floor(1 / game:GetService("RunService").RenderStepped:Wait())
        Library:Watermark({
            "--->",
            "by Moonscripts <3",
            120959262762131,
            "FPS: " .. FPS
        })
        task.wait(0.5)
    end
end)

local Main = Window:Page({Name = "Main", Icon = "85757263778683"})

local VisualSection = Main:Section({Name = "Visuals", Side = 1})

-- TWISTEDS ESP
local ESP_ENABLED = false
VisualSection:Toggle({
    Name = "Twisted(s)",
    Flag = "ESPTwisteds",
    Default = false,
    Callback = function(v)
        ESP_ENABLED = v
        if not v then
            for _, desc in pairs(workspace:GetDescendants()) do
                if desc:IsA("Highlight") and desc.FillColor == Color3.fromRGB(168, 200, 150) then
                    desc:Destroy()
                end
            end
        end
    end
})

game:GetService("RunService").Heartbeat:Connect(function()
    if not ESP_ENABLED then return end
    local room = workspace:FindFirstChild("CurrentRoom")
    if not room then return end
    for _, item in pairs(room:GetChildren()) do
        local monsters = item:FindFirstChild("Monsters") or item:FindFirstChild("Mobs")
        if not monsters then continue end
        for _, m in pairs(monsters:GetChildren()) do
            if m:IsA("Model") and not m:FindFirstChildOfClass("Highlight") then
                local h = Instance.new("Highlight", m)
                h.FillColor = Color3.fromRGB(168, 200, 150)
                h.OutlineColor = Color3.fromRGB(120, 155, 105)
                h.FillTransparency = 0.35
                h.OutlineTransparency = 0
                h.DepthMode = Enum.HighlightDepthMode.AlwaysOnTop
            end
        end
    end
end)

-- ITEMS ESP
local ITEM_ESP_ENABLED = false
VisualSection:Toggle({
    Name = "Item(s)",
    Flag = "ESPItems",
    Default = false,
    Callback = function(v)
        ITEM_ESP_ENABLED = v
        if not v then
            for _, desc in pairs(workspace:GetDescendants()) do
                if desc:IsA("Highlight") and desc.FillColor == Color3.new(0, 0, 1) then
                    desc:Destroy()
                end
            end
        end
    end
})

game:GetService("RunService").Heartbeat:Connect(function()
    if not ITEM_ESP_ENABLED then return end
    local room = workspace:FindFirstChild("CurrentRoom")
    if not room then return end
    for _, part in pairs(room:GetChildren()) do
        local items = part:FindFirstChild("Items")
        if not items then continue end
        for _, it in pairs(items:GetChildren()) do
            if it:IsA("Model") and not it:FindFirstChildOfClass("Highlight") then
                local h = Instance.new("Highlight", it)
                h.FillColor = Color3.new(0, 0, 1)
                h.OutlineColor = Color3.new(1, 1, 1)
                h.FillTransparency = 0.5
                h.OutlineTransparency = 0
                h.DepthMode = Enum.HighlightDepthMode.AlwaysOnTop
            end
        end
    end
end)

-- MACHINES ESP
local MACHINES_ESP_ENABLED = false
VisualSection:Toggle({
    Name = "Machine(s)",
    Flag = "ESPMachines",
    Default = false,
    Callback = function(v)
        MACHINES_ESP_ENABLED = v
        if not v then
            for _, desc in pairs(workspace:GetDescendants()) do
                if desc:IsA("Highlight") and desc.FillColor == Color3.new(0, 1, 0) then
                    desc:Destroy()
                end
            end
        end
    end
})

game:GetService("RunService").Heartbeat:Connect(function()
    if not MACHINES_ESP_ENABLED then return end
    local room = workspace:FindFirstChild("CurrentRoom")
    if not room then return end
    for _, part in pairs(room:GetChildren()) do
        local gens = part:FindFirstChild("Generators")
        if not gens then continue end
        for _, gen in pairs(gens:GetChildren()) do
            if gen:IsA("Model") and not gen:FindFirstChildOfClass("Highlight") then
                local h = Instance.new("Highlight", gen)
                h.FillColor = Color3.new(0, 1, 0)
                h.OutlineColor = Color3.fromRGB(255, 255, 255)
                h.FillTransparency = 0.5
                h.OutlineTransparency = 0
                h.DepthMode = Enum.HighlightDepthMode.AlwaysOnTop
            end
        end
    end
end)

-- PLAYERS ESP
local PLAYERS_ESP_ENABLED = false
VisualSection:Toggle({
    Name = "Player(s)",
    Flag = "ESPPlayers",
    Default = false,
    Callback = function(v)
        PLAYERS_ESP_ENABLED = v
        if not v then
            for _, p in pairs(game.Players:GetPlayers()) do
                if p.Character then
                    local hl = p.Character:FindFirstChildOfClass("Highlight")
                    if hl and hl.FillColor == Color3.fromRGB(0, 0, 255) then
                        hl:Destroy()
                    end
                end
            end
        end
    end
})

game:GetService("RunService").Heartbeat:Connect(function()
    if not PLAYERS_ESP_ENABLED then return end
    for _, p in pairs(game.Players:GetPlayers()) do
        local char = p.Character
        if char and not char:FindFirstChildOfClass("Highlight") then
            local h = Instance.new("Highlight", char)
            h.FillColor = Color3.fromRGB(0, 0, 255)
            h.OutlineColor = Color3.fromRGB(255, 255, 255)
            h.FillTransparency = 0.5
            h.OutlineTransparency = 0
            h.DepthMode = Enum.HighlightDepthMode.AlwaysOnTop
        end
    end
end)

-- BUTTONS (Visuals)
VisualSection:Button({
    Name = "Client-Sided Dandy",
    Callback = function()
        loadstring(game:HttpGet("https://pastebin.com/raw/LrGDCr7Z"))()
    end
})

VisualSection:Button({
    Name = "Remove Skill-Check (Permanent)",
    Callback = function()
        local player = game:GetService("Players").LocalPlayer
        local playerGui = player:WaitForChild("PlayerGui")
        for _, gui in pairs(playerGui:GetDescendants()) do
            if gui.Name:lower():find("skillcheck") or gui.Name:find("SkillCheck") or gui.Name:find("MiniGame") or gui.Name:find("Calibration") then
                gui:Destroy()
            end
        end
        playerGui.ChildAdded:Connect(function(child)
            task.spawn(function()
                wait(0.03)
                if child.Name:lower():match("skill") or child.Name:match("check") or child.Name:match("minigame") then
                    child:Destroy()
                end
            end)
        end)
    end
})

VisualSection:Button({
    Name = "Remove Dev Door (Lobby)",
    Callback = function()
        if workspace:FindFirstChild("DevDoor") then workspace.DevDoor:Destroy() end
        if workspace:FindFirstChild("DevDoor2") then workspace.DevDoor2:Destroy() end
    end
})

VisualSection:Button({
    Name = "Funny Twisted(s)",
    Callback = function()
        loadstring(game:HttpGet("https://pastebin.com/raw/JhdK4Z3k"))()
    end
})

VisualSection:Button({
    Name = "Lobotomy",
    Callback = function()
        loadstring(game:HttpGet("https://raw.githubusercontent.com/Slendyvn/Dandy-script/refs/heads/main/E"))()
    end
})

-- PLAYER SECTION
local PlayerSection = Main:Section({Name = "Player", Side = 2})

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

-- TP Walk Slider
local currentWalkSpeed = 16
RunService.Heartbeat:Connect(function(dt)
    local player = Players.LocalPlayer
    local char = player.Character
    if not char then return end
    local hrp = char:FindFirstChild("HumanoidRootPart")
    local hum = char:FindFirstChild("Humanoid")
    if not hrp or not hum then return end
    hum.WalkSpeed = 16
    if currentWalkSpeed <= 16 then return end
    local moveDir = hum.MoveDirection
    if moveDir.Magnitude > 0 then
        local distance = currentWalkSpeed * dt
        local newPos = hrp.Position + moveDir * distance
        hrp.CFrame = CFrame.new(newPos, newPos + moveDir)
    end
end)

PlayerSection:Slider({
    Name = "TP Walk",
    Flag = "TPWALK_Slider",
    Min = 16,
    Max = 200,
    Default = 16,
    Decimals = 1,
    Suffix = " stud/s",
    Callback = function(Value)
        currentWalkSpeed = Value
    end
})

-- Walkspeed Slider
PlayerSection:Slider({
    Name = "Walkspeed",
    Flag = "WS_Slider",
    Min = 16,
    Max = 200,
    Default = 16,
    Decimals = 1,
    Suffix = " studs",
    Callback = function(Value)
        local char = Players.LocalPlayer.Character
        local hum = char and char:FindFirstChildOfClass("Humanoid")
        if hum then
            hum.WalkSpeed = Value
        end
    end
})

-- Infinite Stamina Dropdown
local staminaLevel = 1
PlayerSection:Dropdown({
    Name = "Infinite Stamina",
    Flag = "InfiniteStamina",
    Items = {"⭐", "⭐⭐", "⭐⭐⭐", "⭐⭐⭐⭐", "⭐⭐⭐⭐⭐"},
    Default = "⭐",
    Multi = false,
    Callback = function(Value)
        staminaLevel = #Value
    end
})

RunService.Heartbeat:Connect(function()
    if staminaLevel < 1 then return end
    local player = Players.LocalPlayer
    local character = player.Character
    if not character then return end
    local humanoid = character:FindFirstChildOfClass("Humanoid")
    if not humanoid then return end
    local stamina = 
        player.PlayerGui:FindFirstChild("Stamina", true) or
        character:FindFirstChild("Stamina") or
        player:FindFirstChild("StaminaValue") or
        humanoid:FindFirstChild("Stamina")
    if not stamina or not (stamina:IsA("NumberValue") or stamina:IsA("IntValue")) then return end
    local maxStamina = 100
    if staminaLevel == 1 then
        stamina.Value = maxStamina
    elseif staminaLevel == 2 then
        stamina.Value = math.min(stamina.Value + 2, maxStamina)
    elseif staminaLevel == 3 then
        stamina.Value = math.min(stamina.Value + 5, maxStamina * 1.2)
    elseif staminaLevel == 4 then
        stamina.Value = math.min(stamina.Value + 12, maxStamina * 1.5)
    elseif staminaLevel == 5 then
        stamina.Value = maxStamina * 10
    end
end)

-- Jump Enabler Toggle
local jumpEnabled = false
PlayerSection:Toggle({
    Name = "Enable Jump",
    Flag = "JumpEnabler",
    Default = false,
    Callback = function(v)
        jumpEnabled = v
        local hum = Players.LocalPlayer.Character and Players.LocalPlayer.Character:FindFirstChildOfClass("Humanoid")
        if hum then hum.JumpPower = v and 75 or 50 end
    end
})

game:GetService("UserInputService").JumpRequest:Connect(function()
    if jumpEnabled then
        local hum = Players.LocalPlayer.Character and Players.LocalPlayer.Character:FindFirstChildOfClass("Humanoid")
        if hum then hum:ChangeState("Jumping") end
    end
end)

PlayerSection:Button({
    Name = "Auto Skill Check",
    Callback = function()
        loadstring(game:HttpGet("https://rawscripts.net/raw/Dandy's-World-ALPHA-Dandy-s-Auto-Skill-Check-21849"))()
    end
})

PlayerSection:Button({
    Name = "Auto GTE",
    Callback = function()
        loadstring(game:HttpGet("https://pastebin.com/raw/A8j6QYfT"))()
    end
})

-- OTHERS PAGE
local Other = Window:Page({Name = "Others", Icon = "8098703213"})

local MapSection = Other:Section({Name = "Map", Side = 1})

MapSection:Button({
    Name = "Remove Borders",
    Callback = function()
        local currentRoom = workspace:FindFirstChild("CurrentRoom")
        if currentRoom then
            local model = currentRoom:FindFirstChildOfClass("Model")
            if model then
                local freeArea = model:FindFirstChild("FreeArea")
                if freeArea then
                    for _, child in ipairs(freeArea:GetChildren()) do
                        if child:IsA("Part") and child.Name == "InvisBorder" then
                            child:Destroy()
                        end
                    end
                end
            end
        end
    end
})

MapSection:Button({
    Name = "Remove Fog",
    Callback = function()
        game.Lighting.FogEnd = math.huge
        game.Lighting.FogStart = math.huge
        game.Lighting.FogColor = Color3.new(1, 1, 1)
    end
})

MapSection:Button({
    Name = "FullBright",
    Callback = function()
        local lighting = game:GetService("Lighting")
        lighting.Brightness = 3
        lighting.Ambient = Color3.fromRGB(255, 255, 255)
        lighting.OutdoorAmbient = Color3.fromRGB(255, 255, 255)
        lighting.FogEnd = 500
        lighting.ClockTime = 12
    end
})

local TPSection = Other:Section({Name = "Places", Side = 2})

TPSection:Button({
    Name = "To: Mastery Room",
    Callback = function()
        local player = Players.LocalPlayer
        local character = player.Character or player.CharacterAdded:Wait()
        local bedModel = workspace:FindFirstChild("Bed")
        if bedModel and bedModel:IsA("Model") then
            local jackInTheBox = bedModel:FindFirstChild("JackInTheBox")
            if jackInTheBox and jackInTheBox:IsA("MeshPart") then
                character:SetPrimaryPartCFrame(jackInTheBox.CFrame)
            end
        end
    end
})

TPSection:Button({
    Name = "To: Skin Summons",
    Callback = function()
        local player = Players.LocalPlayer
        local character = player.Character or player.CharacterAdded:Wait()
        local folder = workspace:FindFirstChild("RevealRoom")
        if folder then
            local curtainMeshPart = folder:FindFirstChild("CurtainL")
            if curtainMeshPart and curtainMeshPart:IsA("MeshPart") then
                character:SetPrimaryPartCFrame(curtainMeshPart.CFrame)
            end
        end
    end
})

TPSection:Button({
    Name = "To: Spawn",
    Callback = function()
        local player = Players.LocalPlayer
        local character = player.Character or player.CharacterAdded:Wait()
        local rootPart = character:WaitForChild("HumanoidRootPart")
        local spawnLocation = workspace:FindFirstChild("SpawnLocation")
        if spawnLocation then
            rootPart.CFrame = spawnLocation.CFrame + Vector3.new(0, 3, 0)
        end
    end
})

local CharSection = Other:Section({Name = "Character", Side = 1})

-- Ability Spam Toggle
local abilitySpam = false
CharSection:Toggle({
    Name = "Ability Spam",
    Flag = "AbilitySpam",
    Default = false,
    Callback = function(v)
        abilitySpam = v
    end
})

spawn(function()
    while true do
        if abilitySpam then
            local args = {
                [1] = game:GetService("Players").LocalPlayer.Character,
                [2] = CFrame.new(-65.78115844726562, 145.7693634033203, 86.53424072265625) * CFrame.Angles(4.4136689858476075e-09, 2.9576958503043716e-16, 5.338084818617972e-08),
                [3] = false
            }
            game:GetService("ReplicatedStorage").Events.AbilityEvent:InvokeServer(unpack(args))
        end
        wait(0.3)
    end
end)

-- Auto Boost (Shelly Only)
local autoBoost = false
CharSection:Toggle({
    Name = "Auto Boost Yourself (Shelly Only)",
    Flag = "AutoBoostShelly",
    Default = false,
    Callback = function(v)
        autoBoost = v
    end
})

spawn(function()
    while true do
        if not autoBoost then
            wait(1)
            continue
        end
        local player = Players.LocalPlayer
        local playerModel = workspace:FindFirstChild("InGamePlayers") and workspace.InGamePlayers:FindFirstChild(player.Name)
        if not playerModel then
            wait(1)
            continue
        end
        local currentRoom = workspace:FindFirstChild("CurrentRoom")
        if not currentRoom then
            wait(1)
            continue
        end
        for _, model in ipairs(currentRoom:GetChildren()) do
            local generatorsFolder = model:FindFirstChild("Generators")
            if not generatorsFolder then continue end
            for _, generator in ipairs(generatorsFolder:GetChildren()) do
                local statsFolder = generator:FindFirstChild("Stats")
                if not statsFolder then continue end
                local activePlayer = statsFolder:FindFirstChild("ActivePlayer")
                if activePlayer and activePlayer.Value == playerModel then
                    local args = {
                        [1] = player.Character,
                        [2] = CFrame.new(-179.29843139648438, 146.2311248779297, -164.61495971679688) * CFrame.Angles(3.1415927410125732, 0.4017193913459778, -3.141592502593994),
                        [3] = player.Character
                    }
                    game:GetService("ReplicatedStorage").Events.AbilityEvent:InvokeServer(unpack(args))
                end
            end
        end
        wait(1)
    end
end)

-- Auto Heal (Sprout)
local autoHealSprout = false
CharSection:Toggle({
    Name = "Auto Heal Yourself (Sprout)",
    Flag = "AutoHealSprout",
    Default = false,
    Callback = function(v)
        autoHealSprout = v
    end
})

spawn(function()
    while true do
        if autoHealSprout then
            local args = {
                [1] = game:GetService("Players").LocalPlayer.Character,
                [2] = CFrame.new(-179.29843139648438, 146.2311248779297, -164.61495971679688) * CFrame.Angles(3.1415927410125732, 0.4017193913459778, -3.141592502593994),
                [3] = game:GetService("Players").LocalPlayer.Character
            }
            game:GetService("ReplicatedStorage").Events.AbilityEvent:InvokeServer(unpack(args))
        end
        wait(0.3)
    end
end)

CharSection:Button({
    Name = "Dandy Character Icon",
    Callback = function()
        local args = { [1] = "Dandy" }
        game:GetService("ReplicatedStorage"):WaitForChild("Events"):WaitForChild("Voted"):InvokeServer(unpack(args))
    end
})

-- MISC PAGE
local Misc = Window:Page({Name = "Misc", Icon = "88272656381081"})

local PerSection = Misc:Section({Name = "Performance Options", Side = 1})

PerSection:Button({
    Name = "Anti Lag",
    Callback = function()
        local player = Players.LocalPlayer
        local character = player.Character or player.CharacterAdded:Wait()
        for _, part in pairs(workspace:GetDescendants()) do
            if part:IsA("Decal") or part:IsA("Texture") or part:IsA("ParticleEmitter") then
                part:Destroy()
            elseif part:IsA("MeshPart") then
                part.TextureID = ""
                part.Material = Enum.Material.SmoothPlastic
                part.Reflectance = 0
            elseif part:IsA("BasePart") and part.Transparency < 1 then
                part.Material = Enum.Material.SmoothPlastic
                part.Reflectance = 0
            end
        end
        game.Lighting.GlobalShadows = false
        game.Lighting.Brightness = 1
        game.Lighting.OutdoorAmbient = Color3.new(1, 1, 1)
        for _, sound in pairs(workspace:GetDescendants()) do
            if sound:IsA("Sound") then
                sound:Stop()
            end
        end
    end
})

Library:CreateSettingsPage(Window)