-- Delta Executor: Ultra-Speed Targeted Clicker
local ScreenGui = Instance.new("ScreenGui")
local Main = Instance.new("Frame")
local TitleBar = Instance.new("Frame")
local Toggle = Instance.new("TextButton")
local SetPos = Instance.new("TextButton")
local Marker = Instance.new("Frame")
local UICorner = Instance.new("UICorner")

-- UI Initialization
ScreenGui.Name = "Delta_UltraTarget"
ScreenGui.Parent = game.CoreGui
ScreenGui.ZIndexBehavior = Enum.ZIndexBehavior.Sibling

Main.Name = "MainFrame"
Main.Parent = ScreenGui
Main.BackgroundColor3 = Color3.fromRGB(30, 30, 30)
Main.BorderSizePixel = 0
Main.Position = UDim2.new(0.5, -75, 0.4, 0)
Main.Size = UDim2.new(0, 150, 0, 130)
Main.Active = true

-- Movable Header (TitleBar)
TitleBar.Name = "TitleBar"
TitleBar.Parent = Main
TitleBar.BackgroundColor3 = Color3.fromRGB(15, 15, 15)
TitleBar.BorderSizePixel = 0
TitleBar.Size = UDim2.new(1, 0, 0, 30)

-- Red Marker for Target Location
Marker.Name = "TargetMarker"
Marker.Parent = ScreenGui
Marker.BackgroundColor3 = Color3.fromRGB(255, 0, 0)
Marker.Size = UDim2.new(0, 10, 0, 10)
Marker.Visible = false
Instance.new("UICorner", Marker).CornerRadius = UDim.new(1, 0)

-- Custom Drag Logic (Mobile Optimized)
local UIS = game:GetService("UserInputService")
local dragging, dragStart, startPos
TitleBar.InputBegan:Connect(function(input)
    if input.UserInputType == Enum.UserInputType.Touch then
        dragging = true
        dragStart = input.Position
        startPos = Main.Position
    end
end)
UIS.InputChanged:Connect(function(input)
    if input.UserInputType == Enum.UserInputType.Touch and dragging then
        local delta = input.Position - dragStart
        Main.Position = UDim2.new(startPos.X.Scale, startPos.X.Offset + delta.X, startPos.Y.Scale, startPos.Y.Offset + delta.Y)
    end
end)
UIS.InputEnded:Connect(function(input) if input.UserInputType == Enum.UserInputType.Touch then dragging = false end end)

-- Pick Location Button
SetPos.Name = "SetPos"
SetPos.Parent = Main
SetPos.BackgroundColor3 = Color3.fromRGB(60, 60, 60)
SetPos.Position = UDim2.new(0.1, 0, 0.3, 0)
SetPos.Size = UDim2.new(0.8, 0, 0.25, 0)
SetPos.Text = "SET TARGET"
SetPos.TextColor3 = Color3.new(1, 1, 1)

-- Start/Stop Toggle
Toggle.Name = "Toggle"
Toggle.Parent = Main
Toggle.BackgroundColor3 = Color3.fromRGB(0, 140, 0)
Toggle.Position = UDim2.new(0.1, 0, 0.65, 0)
Toggle.Size = UDim2.new(0.8, 0, 0.25, 0)
Toggle.Text = "START"
Toggle.TextColor3 = Color3.new(1, 1, 1)

-- Script Logic
local VIM = game:GetService("VirtualInputManager")
local clicking = false
local picking = false
local targetPos = Vector2.new(0, 0)

SetPos.MouseButton1Click:Connect(function()
    picking = true
    SetPos.Text = "TAP SCREEN..."
    SetPos.BackgroundColor3 = Color3.fromRGB(100, 100, 0)
end)

UIS.InputBegan:Connect(function(input)
    if picking and input.UserInputType == Enum.UserInputType.Touch then
        targetPos = Vector2.new(input.Position.X, input.Position.Y)
        Marker.Position = UDim2.new(0, targetPos.X - 5, 0, targetPos.Y - 5)
        Marker.Visible = true
        picking = false
        SetPos.Text = "LOCKED"
        SetPos.BackgroundColor3 = Color3.fromRGB(60, 60, 60)
    end
end)

Toggle.MouseButton1Click:Connect(function()
    clicking = not clicking
    Toggle.Text = clicking and "STOP" or "START"
    Toggle.BackgroundColor3 = clicking and Color3.fromRGB(140, 0, 0) or Color3.fromRGB(0, 140, 0)
end)

-- The 0.00001 Speed Loop (Runs Every Frame)
game:GetService("RunService").RenderStepped:Connect(function()
    if clicking then
        -- Simulates a hardware-level touch down and touch up instantly
        VIM:SendMouseButtonEvent(targetPos.X, targetPos.Y, 0, true, game, 0)
        VIM:SendMouseButtonEvent(targetPos.X, targetPos.Y, 0, false, game, 0)
    end
end)