--=== MENU DRAG + INF AMMO/DAMAGE + INTA WIN + AUTO GOLD ===--

local Players = game:GetService("Players")
local player = Players.LocalPlayer
local keepInf = false
local autoGold = false

-- Crear GUI
local gui = Instance.new("ScreenGui", player:WaitForChild("PlayerGui"))
gui.Name = "FullMenu"

-- Botón Toggle (Abrir/Cerrar)
local toggleBtn = Instance.new("TextButton", gui)
toggleBtn.Size = UDim2.new(0, 120, 0, 40)
toggleBtn.Position = UDim2.new(0, 10, 0, 10)
toggleBtn.BackgroundColor3 = Color3.fromRGB(255, 100, 100)
toggleBtn.Text = "CERRAR MENU"
toggleBtn.TextColor3 = Color3.new(1, 1, 1)
toggleBtn.Font = Enum.Font.GothamBold
toggleBtn.TextSize = 14
toggleBtn.Active = true
toggleBtn.Draggable = true

-- Frame principal
local frame = Instance.new("Frame", gui)
frame.Size = UDim2.new(0, 260, 0, 260)
frame.Position = UDim2.new(0.45, 0, 0.25, 0)
frame.BackgroundColor3 = Color3.fromRGB(25, 25, 25)
frame.Active = true
frame.Draggable = true
frame.Visible = true

local title = Instance.new("TextLabel", frame)
title.Size = UDim2.new(1, 0, 0, 30)
title.BackgroundColor3 = Color3.fromRGB(50, 50, 50)
title.Text = "CREADO POR DARWIN"
title.TextColor3 = Color3.new(1, 1, 1)
title.Font = Enum.Font.GothamBold
title.TextSize = 15

---------------------------------------------------------------------
-- FUNCIÓN TOGGLE
---------------------------------------------------------------------
toggleBtn.MouseButton1Click:Connect(function()
    frame.Visible = not frame.Visible
    if frame.Visible then
        toggleBtn.Text = "CERRAR MENU"
        toggleBtn.BackgroundColor3 = Color3.fromRGB(255, 100, 100)
    else
        toggleBtn.Text = "ABRIR MENU"
        toggleBtn.BackgroundColor3 = Color3.fromRGB(100, 255, 100)
    end
end)

---------------------------------------------------------------------
-- BOTÓN: INF AMMO/DAMAGE
---------------------------------------------------------------------
local btnInf = Instance.new("TextButton", frame)
btnInf.Size = UDim2.new(1, -20, 0, 40)
btnInf.Position = UDim2.new(0, 10, 0, 40)
btnInf.BackgroundColor3 = Color3.fromRGB(60, 60, 60)
btnInf.Text = "OP GUN"
btnInf.TextColor3 = Color3.new(1, 1, 1)
btnInf.Font = Enum.Font.Gotham
btnInf.TextSize = 14

btnInf.MouseButton1Click:Connect(function()
    keepInf = not keepInf
    btnInf.Text = keepInf and "Inf Ammo/Damage ✓" or "Inf Ammo/Damage"
end)

---------------------------------------------------------------------
-- BOTÓN: INTA WIN (TP)
---------------------------------------------------------------------
local btnWin = Instance.new("TextButton", frame)
btnWin.Size = UDim2.new(1, -20, 0, 40)
btnWin.Position = UDim2.new(0, 10, 0, 90)
btnWin.BackgroundColor3 = Color3.fromRGB(70, 70, 70)
btnWin.Text = "INTA WIN (TP)"
btnWin.TextColor3 = Color3.new(1, 1, 1)
btnWin.Font = Enum.Font.GothamBold
btnWin.TextSize = 14

btnWin.MouseButton1Click:Connect(function()
    local char = player.Character
    if not char then return end

    local hrp = char:FindFirstChild("HumanoidRootPart")
    local goal = workspace.EndArea.Main.Cessna["Meshes/Plane_Body"]

    if hrp and goal then
        hrp.CFrame = goal.CFrame + Vector3.new(0, 4, 0)
        btnWin.Text = "WIN ✓"
    else
        btnWin.Text = "No encontrado"
    end
end)

---------------------------------------------------------------------
-- BOTÓN: AUTO GOLD
---------------------------------------------------------------------
local btnGold = Instance.new("TextButton", frame)
btnGold.Size = UDim2.new(1, -20, 0, 40)
btnGold.Position = UDim2.new(0, 10, 0, 140)
btnGold.BackgroundColor3 = Color3.fromRGB(90, 90, 90)
btnGold.Text = "Auto Gold"
btnGold.TextColor3 = Color3.new(1, 1, 1)
btnGold.Font = Enum.Font.GothamBold
btnGold.TextSize = 14

btnGold.MouseButton1Click:Connect(function()
    autoGold = not autoGold
    btnGold.Text = autoGold and "Auto Gold ✓" or "Auto Gold"
end)

---------------------------------------------------------------------
-- LOOP INF AMMO/DAMAGE
---------------------------------------------------------------------
task.spawn(function()
    while true do
        task.wait(0.1)

        if keepInf then
            local char = player.Character
            if not char then continue end

            local tool = char:FindFirstChildOfClass("Tool")
            if not tool then continue end

            if tool:GetAttribute("ammo") ~= nil then
                tool:SetAttribute("ammo", math.huge)
            end

            if tool:GetAttribute("damage") ~= nil then
                tool:SetAttribute("damage", math.huge)
            end
        end
    end
end)

---------------------------------------------------------------------
-- AUTO GOLD FARMER
---------------------------------------------------------------------
task.spawn(function()
    while true do
        task.wait(0.1)

        if autoGold then
            local char = player.Character
            if not char then continue end

            local hrp = char:FindFirstChild("HumanoidRootPart")
            if not hrp then continue end

            local goldFolder = workspace:FindFirstChild("GoldBars")
            if not goldFolder then continue end

            for _, bar in ipairs(goldFolder:GetChildren()) do
                if not autoGold then break end

                local prompt = bar:FindFirstChild("PickupGoldPrompt", true)
                if prompt then
                    hrp.CFrame = bar:GetModelCFrame() + Vector3.new(0, 3, 0)
                    task.wait(0.15)
                    fireproximityprompt(prompt, 5)
                end
            end
        end
    end
end)

--=== SPEED CHANGE LEGAL ===--

local char = player.Character or player.CharacterAdded:Wait()
local hum = char:WaitForChild("Humanoid")

local box = Instance.new("TextBox", gui)
box.Size = UDim2.new(0, 200, 0, 45)
box.Position = UDim2.new(0.5, -100, 0.8, 0)
box.BackgroundColor3 = Color3.fromRGB(25, 25, 25)
box.TextColor3 = Color3.new(1, 1, 1)
box.Text = "Velocidad: 16"
box.Font = Enum.Font.GothamBold
box.TextSize = 18

box.FocusLost:Connect(function()
    local num = tonumber(box.Text:match("%d+"))
    if num then
        hum.WalkSpeed = num
        box.Text = "Velocidad: " .. num
    else
        box.Text = "Número inválido"
    end
end)