local UserInputService = game:GetService("UserInputService")

local function isAllowedDevice()
    return UserInputService.TouchEnabled or UserInputService.KeyboardEnabled
end

if not isAllowedDevice() then
    return
end

local screenGui = Instance.new("ScreenGui")
screenGui.Name = "DeltaExecutor"
screenGui.Parent = game.Players.LocalPlayer:WaitForChild("PlayerGui")

local frame = Instance.new("Frame")
frame.Name = "MainFrame"
frame.Parent = screenGui
frame.Size = UDim2.new(0.3, 0, 0.4, 0)
frame.Position = UDim2.new(0.35, 0, 0.3, 0)
frame.BackgroundColor3 = Color3.fromRGB(34, 34, 34)
frame.BorderSizePixel = 2
frame.BorderColor3 = Color3.fromRGB(85, 170, 255)
frame.Active = true

local textBox = Instance.new("TextBox")
textBox.Name = "ScriptBox"
textBox.Parent = frame
textBox.Size = UDim2.new(0.9, 0, 0.6, 0)
textBox.Position = UDim2.new(0.05, 0, 0.05, 0)
textBox.BackgroundColor3 = Color3.fromRGB(255, 255, 255)
textBox.Text = "Put Script Here"
textBox.Font = Enum.Font.SourceSans
textBox.TextSize = 18
textBox.TextColor3 = Color3.fromRGB(0, 0, 0)
textBox.ClearTextOnFocus = true

local executeButton = Instance.new("TextButton")
executeButton.Name = "ExecuteButton"
executeButton.Parent = frame
executeButton.Size = UDim2.new(0.4, 0, 0.2, 0)
executeButton.Position = UDim2.new(0.05, 0, 0.7, 0)
executeButton.BackgroundColor3 = Color3.fromRGB(85, 170, 255)
executeButton.Text = "Execute"
executeButton.Font = Enum.Font.SourceSans
executeButton.TextSize = 18
executeButton.TextColor3 = Color3.fromRGB(255, 255, 255)

local clearButton = Instance.new("TextButton")
clearButton.Name = "ClearButton"
clearButton.Parent = frame
clearButton.Size = UDim2.new(0.4, 0, 0.2, 0)
clearButton.Position = UDim2.new(0.55, 0, 0.7, 0)
clearButton.BackgroundColor3 = Color3.fromRGB(255, 85, 85)
clearButton.Text = "Clear"
clearButton.Font = Enum.Font.SourceSans
clearButton.TextSize = 18
clearButton.TextColor3 = Color3.fromRGB(255, 255, 255)

local dragging = false
local dragInput, dragStart, startPos

local function update(input)
    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

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)

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

executeButton.MouseButton1Click:Connect(function()
    local scriptCode = textBox.Text
    local func, err = loadstring(scriptCode)
    if func then
        func()
    else
        warn("Error in script: " .. err)
    end
end)

clearButton.MouseButton1Click:Connect(function()
    textBox.Text = ""
end)