-- Delta Executor: No more purple dinosaur (Absolute Stability Fix)
local SG = Instance.new("ScreenGui", game:GetService("CoreGui"))

-- ==========================================
-- UNIVERSAL DRAG LOGIC
-- ==========================================
local function makeDraggable(frame)
    local UIS = game:GetService("UserInputService")
    local dragging, dragInput, dragStart, startPos
    
    frame.InputBegan:Connect(function(input)
        if input.UserInputType == Enum.UserInputType.MouseButton1 or input.UserInputType == Enum.UserInputType.Touch then
            dragging = true
            dragStart = input.Position
            startPos = frame.Position
            input.Changed:Connect(function()
                if input.UserInputState == Enum.UserInputState.End then dragging = false end
            end)
        end
    end)
    frame.InputChanged:Connect(function(input)
        if input.UserInputType == Enum.UserInputType.MouseMovement or input.UserInputType == Enum.UserInputType.Touch then
            dragInput = input
        end
    end)
    UIS.InputChanged:Connect(function(input)
        if input == dragInput and dragging then
            local delta = input.Position - dragStart
            frame.Position = UDim2.new(startPos.X.Scale, startPos.X.Offset + delta.X, startPos.Y.Scale, startPos.Y.Offset + delta.Y)
        end
    end)
end

-- ==========================================
-- MAIN FRAME SETUP
-- ==========================================
local MF = Instance.new("Frame", SG)
MF.BackgroundColor3 = Color3.fromRGB(20, 20, 22)
MF.BorderSizePixel = 2
MF.BorderColor3 = Color3.fromRGB(200, 0, 0)
MF.Position = UDim2.new(0.05, 0, 0.2, 0)
MF.Size = UDim2.new(0, 190, 0, 230)
MF.Active = true
makeDraggable(MF)

local MainLayout = Instance.new("UIListLayout", MF)
MainLayout.SortOrder = Enum.SortOrder.LayoutOrder
MainLayout.Padding = UDim.new(0, 6)
MainLayout.HorizontalAlignment = Enum.HorizontalAlignment.Center

local function createLabel(text, parent, color)
    local l = Instance.new("TextLabel", parent)
    l.Size = UDim2.new(0.9, 0, 0, 25)
    l.Text = text
    l.TextColor3 = color or Color3.fromRGB(255, 255, 255)
    l.BackgroundTransparency = 1
    l.TextSize = 13
    l.Font = Enum.Font.SourceSansBold
    return l
end

createLabel("No more purple dinosaur", MF, Color3.fromRGB(255, 50, 50))

-- 1. Full Bright / Night Vision
local FB = Instance.new("TextButton", MF)
FB.Size = UDim2.new(0.9, 0, 0, 30)
FB.BackgroundColor3 = Color3.fromRGB(40, 40, 45)
FB.TextColor3 = Color3.fromRGB(255, 255, 255)
FB.Text = "Night Vision: OFF"
local fbOn = false
FB.MouseButton1Click:Connect(function()
    fbOn = not fbOn
    FB.Text = fbOn and "Night Vision: ON" or "Night Vision: OFF"
    FB.BackgroundColor3 = fbOn and Color3.fromRGB(0, 120, 0) or Color3.fromRGB(40, 40, 45)
    game:GetService("Lighting").Brightness = fbOn and 4 or 1
    game:GetService("Lighting").Ambient = fbOn and Color3.fromRGB(255, 255, 255) or Color3.fromRGB(0, 0, 0)
end)

-- 2. Target GEF ESP
local ESP = Instance.new("TextButton", MF)
ESP.Size = UDim2.new(0.9, 0, 0, 30)
ESP.BackgroundColor3 = Color3.fromRGB(40, 40, 45)
ESP.TextColor3 = Color3.fromRGB(255, 255, 255)
ESP.Text = "GEF ESP: OFF"
local espOn = false
ESP.MouseButton1Click:Connect(function()
    espOn = not espOn
    ESP.Text = espOn and "GEF ESP: ON" or "GEF ESP: OFF"
    ESP.BackgroundColor3 = espOn and Color3.fromRGB(0, 120, 0) or Color3.fromRGB(40, 40, 45)
    task.spawn(function()
        while espOn do
            for _, o in pairs(workspace:GetDescendants()) do
                if o:IsA("Model") and (o.Name:lower():find("gef") or o:FindFirstChild("Humanoid")) and o.Name ~= game.Players.LocalPlayer.Name then
                    if not o:FindFirstChild("GEF_Esp") then
                        local h = Instance.new("Highlight", o)
                        h.Name = "GEF_Esp"
                        h.FillColor = Color3.fromRGB(255, 0, 0)
                        h.OutlineColor = Color3.fromRGB(255, 255, 255)
                        h.FillTransparency = 0.4
                    end
                end
            end
            task.wait(1.5)
        end
        for _, o in pairs(workspace:GetDescendants()) do
            if o:IsA("Highlight") and o.Name == "GEF_Esp" then o:Destroy() end
        end
    end)
end)

-- 3. Speed Control Box
local SpeedContainer = Instance.new("Frame", MF)
SpeedContainer.Size = UDim2.new(0.9, 0, 0, 30)
SpeedContainer.BackgroundTransparency = 1

local SL = createLabel("Set Speed:", SpeedContainer)
SL.Size = UDim2.new(0.4, 0, 1, 0)
SL.Position = UDim2.new(0, 0, 0, 0)

local TB = Instance.new("TextBox", SpeedContainer)
TB.Size = UDim2.new(0.55, 0, 0.9, 0)
TB.Position = UDim2.new(0.45, 0, 0.05, 0)
TB.BackgroundColor3 = Color3.fromRGB(10, 10, 12)
TB.TextColor3 = Color3.fromRGB(255, 255, 255)
TB.Text = "16"
local targetSpeed = 16
TB.FocusLost:Connect(function()
    local n = tonumber(TB.Text)
    if n and n >= 0 and n <= 250 then targetSpeed = n else TB.Text = tostring(targetSpeed) end
end)
game:GetService("RunService").RenderStepped:Connect(function()
    pcall(function()
        local c = game.Players.LocalPlayer.Character
        local h = c and c:FindFirstChildOfClass("Humanoid")
        if h and h.WalkSpeed ~= targetSpeed then h.WalkSpeed = targetSpeed end
    end)
end)

-- 4. Supply Menu Trigger
local ITM = Instance.new("TextButton", MF)
ITM.Size = UDim2.new(0.9, 0, 0, 30)
ITM.BackgroundColor3 = Color3.fromRGB(80, 20, 20)
ITM.TextColor3 = Color3.fromRGB(255, 255, 255)
ITM.Text = "Supply Menu"

-- ==========================================
-- SUB-GUI SETUP (DRAGGABLE)
-- ==========================================
local SUB = Instance.new("Frame", SG)
SUB.BackgroundColor3 = Color3.fromRGB(15, 15, 18)
SUB.BorderSizePixel = 1
SUB.BorderColor3 = Color3.fromRGB(200, 0, 0)
SUB.Size = UDim2.new(0, 190, 0, 230)
SUB.Position = UDim2.new(0.05, 200, 0, 0.2)
SUB.Visible = false
SUB.Active = true
makeDraggable(SUB)

local SubLayout = Instance.new("UIListLayout", SUB)
SubLayout.SortOrder = Enum.SortOrder.LayoutOrder
SubLayout.HorizontalAlignment = Enum.HorizontalAlignment.Center
SubLayout.Padding = UDim.new(0, 4)

createLabel("SPAWNED ITEMS", SUB, Color3.fromRGB(255, 200, 50))

local SF = Instance.new("ScrollingFrame", SUB)
SF.Size = UDim2.new(0.94, 0, 0.8, 0)
SF.BackgroundTransparency = 1
SF.ScrollBarThickness = 4

local LL = Instance.new("UIListLayout", SF)
LL.Padding = UDim.new(0, 3)

local cats = {
    ["Medkit"]="Health", ["Bandage"]="Health", ["Food"]="Food", ["Soda"]="Food", 
    ["Pizza"]="Food", ["Energy Drink"]="Energy", ["Battery"]="Energy", ["Bat"]="Weapons", 
    ["Shotgun"]="Weapons", ["Rocket Launcher"]="Weapons", ["Crowbar"]="Weapons", ["Handgun"]="Weapons"
}

ITM.MouseButton1Click:Connect(function()
    SUB.Visible = not SUB.Visible
    if not SUB.Visible then return end
    for _, c in pairs(SF:GetChildren()) do if c:IsA("TextButton") then c:Destroy() end end
    
    task.spawn(function()
        local count = 0
        for _, v in pairs(workspace:GetDescendants()) do
            count = count + 1 if count % 100 == 0 then task.wait() end
            if cats[v.Name] then
                local b = Instance.new("TextButton", SF)
                b.Size = UDim2.new(1, 0, 0, 24)
                b.BackgroundColor3 = Color3.fromRGB(30, 30, 35)
                b.TextColor3 = Color3.fromRGB(255, 255, 255)
                b.TextSize = 10
                b.Text = "[" .. cats[v.Name]:upper() .. "] " .. v.Name
                
                b.MouseButton1Click:Connect(function()
                    pcall(function()
                        local playerChar = game.Players.LocalPlayer.Character
                        local rootPart = playerChar and playerChar:FindFirstChild("HumanoidRootPart")
                        if rootPart then
                            local targetPos = v:IsA("Model") and (v.PrimaryPart and v.PrimaryPart.Position or v:FindFirstChildWhichIsA("BasePart").Position) or v.Position
                            rootPart.CFrame = CFrame.new(targetPos + Vector3.new(0, 2, 0))
                        end
                    end)
                end)
            end
        end
        SF.CanvasSize = UDim2.new(0, 0, 0, LL.AbsoluteContentSize.Y)
    end)
end)