-- Sleek Mobile Admin Panel V4 (Delta Executor)

local player = game.Players.LocalPlayer
local character = player.Character or player.CharacterAdded:Wait()
local humanoid = character:WaitForChild("Humanoid")
local hrp = character:WaitForChild("HumanoidRootPart")
local flySpeed = 50

-- Default values for walk speed & jump power
local defaultWalkSpeed = 16
local defaultJumpPower = 50

-- Services
local Players = game:GetService("Players")
local RunService = game:GetService("RunService")
local UserInputService = game:GetService("UserInputService")

-- ScreenGui
local ScreenGui = Instance.new("ScreenGui")
ScreenGui.Parent = player:WaitForChild("PlayerGui")
ScreenGui.ResetOnSpawn = false

-- Main Frame
local MainFrame = Instance.new("Frame")
MainFrame.Size = UDim2.new(0, 180, 0, 200)
MainFrame.Position = UDim2.new(0.5, -90, 0.55, 0)
MainFrame.BackgroundColor3 = Color3.fromRGB(0, 0, 0)
MainFrame.BackgroundTransparency = 0.4
MainFrame.BorderSizePixel = 1
MainFrame.Parent = ScreenGui

-- Title
local Title = Instance.new("TextLabel")
Title.Text = "Admin Panel"
Title.Size = UDim2.new(1, 0, 0, 25)
Title.BackgroundTransparency = 1
Title.TextColor3 = Color3.fromRGB(0, 255, 0)
Title.TextScaled = true
Title.Parent = MainFrame

-- Drag Function
local dragging, dragInput, dragStart, startPos
local function update(input)
    local delta = input.Position - dragStart
    MainFrame.Position = UDim2.new(startPos.X.Scale, startPos.X.Offset + delta.X,
                                   startPos.Y.Scale, startPos.Y.Offset + delta.Y)
end

Title.InputBegan:Connect(function(input)
    if input.UserInputType == Enum.UserInputType.Touch then
        dragging = true
        dragStart = input.Position
        startPos = MainFrame.Position
        input.Changed:Connect(function()
            if input.UserInputState == Enum.UserInputState.End then
                dragging = false
            end
        end)
    end
end)

Title.InputChanged:Connect(function(input)
    if input.UserInputType == Enum.UserInputType.Touch then
        dragInput = input
    end
end)

UserInputService.InputChanged:Connect(function(input)
    if input == dragInput and dragging then
        update(input)
    end
end)

-- Function to create toggle labels
local function createToggle(name, yPos)
    local label = Instance.new("TextLabel")
    label.Name = name
    label.Text = name .. ": OFF"
    label.Size = UDim2.new(1, -10, 0, 20)
    label.Position = UDim2.new(0, 5, 0, yPos)
    label.BackgroundColor3 = Color3.fromRGB(30, 30, 30)
    label.BackgroundTransparency = 0.2
    label.TextColor3 = Color3.fromRGB(0, 255, 0)
    label.TextScaled = true
    label.Parent = MainFrame
    return label
end

-- Toggle labels
local FlyLabel = createToggle("Fly", 30)
local NoclipLabel = createToggle("Noclip", 55)
local JumpLabel = createToggle("Infinite Jump", 80)
local ESPLabel = createToggle("ESP", 105)
local WalkspeedLabel = createToggle("Set Walkspeed", 130)
local JumppowerLabel = createToggle("Set Jumppower", 155)
local XRayLabel = createToggle("X-Ray", 180)

-- Feature states
local flyActive, noclipActive, jumpActive, espActive, walkActive, jumpActiveSet, xrayActive = false,false,false,false,false,false,false

-- Fly toggle
FlyLabel.InputBegan:Connect(function()
    flyActive = not flyActive
    FlyLabel.Text = "Fly: " .. (flyActive and "ON" or "OFF")
    if flyActive and not hrp:FindFirstChild("FlyVelocity") then
        local bv = Instance.new("BodyVelocity")
        bv.Name = "FlyVelocity"
        bv.MaxForce = Vector3.new(1e5,1e5,1e5)
        bv.Velocity = Vector3.new(0,0,0)
        bv.Parent = hrp
    elseif not flyActive then
        local bv = hrp:FindFirstChild("FlyVelocity")
        if bv then bv:Destroy() end
    end
end)

-- Noclip toggle
NoclipLabel.InputBegan:Connect(function()
    noclipActive = not noclipActive
    NoclipLabel.Text = "Noclip: " .. (noclipActive and "ON" or "OFF")
end)

-- Infinite Jump toggle
JumpLabel.InputBegan:Connect(function()
    jumpActive = not jumpActive
    JumpLabel.Text = "Infinite Jump: " .. (jumpActive and "ON" or "OFF")
end)

-- ESP toggle
ESPLabel.InputBegan:Connect(function()
    espActive = not espActive
    ESPLabel.Text = "ESP: " .. (espActive and "ON" or "OFF")
    if espActive then
        for _, plr in pairs(Players:GetPlayers()) do
            if plr ~= player and plr.Character then
                local plrHRP = plr.Character:FindFirstChild("HumanoidRootPart")
                if plrHRP and not plrHRP:FindFirstChild("ESP") then
                    local box = Instance.new("BoxHandleAdornment")
                    box.Name = "ESP"
                    box.Adornee = plrHRP
                    box.AlwaysOnTop = true
                    box.ZIndex = 10
                    box.Color3 = Color3.new(1,1,1)
                    box.Size = Vector3.new(2,3,1)
                    box.Transparency = 0.5
                    box.Parent = plrHRP
                end
            end
        end
    else
        for _, plr in pairs(Players:GetPlayers()) do
            if plr.Character then
                local plrHRP = plr.Character:FindFirstChild("HumanoidRootPart")
                if plrHRP and plrHRP:FindFirstChild("ESP") then
                    plrHRP.ESP:Destroy()
                end
            end
        end
    end
end)

-- Set Walkspeed toggle
WalkspeedLabel.InputBegan:Connect(function()
    walkActive = not walkActive
    WalkspeedLabel.Text = "Set Walkspeed: " .. (walkActive and "ON" or "OFF")
    humanoid.WalkSpeed = walkActive and 80 or defaultWalkSpeed
end)

-- Set Jumppower toggle
JumppowerLabel.InputBegan:Connect(function()
    jumpActiveSet = not jumpActiveSet
    JumppowerLabel.Text = "Set Jumppower: " .. (jumpActiveSet and "ON" or "OFF")
    humanoid.JumpPower = jumpActiveSet and 200 or defaultJumpPower
end)

-- X-Ray toggle
XRayLabel.InputBegan:Connect(function()
    xrayActive = not xrayActive
    XRayLabel.Text = "X-Ray: " .. (xrayActive and "ON" or "OFF")
    for _, part in pairs(workspace:GetDescendants()) do
        if part:IsA("BasePart") and part.Name ~= "HumanoidRootPart" then
            part.Transparency = xrayActive and 0.5 or 0
        end
    end
end)

-- Infinite Jump functionality
UserInputService.JumpRequest:Connect(function()
    if jumpActive then
        humanoid:ChangeState(Enum.HumanoidStateType.Jumping)
    end
end)

-- Noclip loop
RunService.Stepped:Connect(function()
    if noclipActive then
        for _, part in pairs(character:GetDescendants()) do
            if part:IsA("BasePart") then
                part.CanCollide = false
            end
        end
    end
end)

-- Fly movement
RunService.RenderStepped:Connect(function()
    if flyActive then
        hrp.FlyVelocity.Velocity = Vector3.new(0, flySpeed, 0)
    end
end)

print("Admin Panel V4 Loaded! X-Ray, Walkspeed, Jumppower included.")