local ITEMS = {
    ["Mysterious Arrow"] = Color3.fromRGB(255,215,0), ["Rokakaka"] = Color3.fromRGB(220,20,60),
    ["Gold Coin"] = Color3.fromRGB(218,215,32), ["Diamond"] = Color3.fromRGB(0,191,255),
    ["Stone Mask"] = Color3.fromRGB(128,128,128), ["Quinton's Glove"] = Color3.fromRGB(139,69,19),
    ["Steel Ball"] = Color3.fromRGB(192,192,192), ["DIO's Diary"] = Color3.fromRGB(148,0,211),
    ["Pure Rokakaka"] = Color3.fromRGB(255,255,255), ["Lucky Arrow"] = Color3.fromRGB(0,255,127),
    ["Rib Cage of The Saint's Corpse"] = Color3.fromRGB(255,69,0), ["Ancient Scroll"] = Color3.fromRGB(74, 25, 234),
    ["Caesar's Headband"] = Color3.fromRGB(0,17,255), ["Clackers"] = Color3.fromRGB(15, 233, 128)
}
local Plrs, PPS, RunService, UIS = game:GetService("Players"), game:GetService("ProximityPromptService"), game:GetService("RunService"), game:GetService("UserInputService")
local lp, trackers, enabled, selected = Plrs.LocalPlayer, {}, false, {["Mysterious Arrow"] = true}

local FAST_SPEED = 320 -- Hyper-drive travel rate
local DEAD_ZONE = Vector3.new(-0.12, 1.44, 0.00)

-- Strict Synchronized Noclip Logic: Hard-linked directly to "enabled"
RunService.Stepped:Connect(function()
    if enabled and lp.Character then
        for _, p in ipairs(lp.Character:GetDescendants()) do
            if p:IsA("BasePart") then 
                p.CanCollide = false 
            end
        end
    end
end)

local function getPart(obj)
    if not obj or not obj.Parent then return nil end
    if obj.Parent:IsA("BasePart") then return obj.Parent end
    return obj.Parent:FindFirstChildWhichIsA("BasePart", true) or (obj.Parent.Parent and obj.Parent.Parent:FindFirstChildWhichIsA("BasePart", true))
end

local function eval(obj)
    if not obj or trackers[obj] then return end
    local name, part = nil, nil
    if obj:IsA("ProximityPrompt") and ITEMS[obj.ObjectText or ""] then
        name, part = obj.ObjectText, getPart(obj)
    elseif obj:IsA("BasePart") and ITEMS[obj.Name] then
        name, part = obj.Name, obj
    end
    if not name or not part or (part.Position - DEAD_ZONE).Magnitude <= 5 then return end
    
    local color = ITEMS[name]
    local hl = Instance.new("Highlight", part)
    hl.FillColor, hl.FillTransparency, hl.DepthMode = color, 0.5, Enum.HighlightDepthMode.AlwaysOnTop
    local bb = Instance.new("BillboardGui", part)
    bb.Size, bb.AlwaysOnTop, bb.MaxDistance, bb.ExtentsOffset = UDim2.new(0,150,0,40), true, 4000, Vector3.new(0,2,0)
    local lbl = Instance.new("TextLabel", bb)
    lbl.Size, lbl.BackgroundTransparency, lbl.TextColor3, lbl.TextSize, lbl.Font, lbl.Text = UDim2.new(1,0,1,0), 1, color, 12, Enum.Font.SourceSansBold, name
    trackers[obj] = {Part = part, Bb = bb, Hl = hl, Lbl = lbl, Name = name, Prompt = obj:IsA("ProximityPrompt") and obj or nil}
end

task.spawn(function()
    while true do
        task.wait(0.01)
        local char = lp.Character
        local root = char and char:FindFirstChild("HumanoidRootPart")
        local myPos = root and root.Position
        local bestPart, bestData, minDist = nil, nil, math.huge

        -- Clean up stale items & clear deadzone replication noise
        for obj, data in pairs(trackers) do
            if not obj or not obj:IsDescendantOf(game) or not data.Part or not data.Part:IsDescendantOf(game) or (data.Part.Position - DEAD_ZONE).Magnitude <= 5 then
                if data.Bb then data.Bb:Destroy() end 
                if data.Hl then data.Hl:Destroy() end 
                trackers[obj] = nil 
                continue
            end
            if myPos then
                local d = (data.Part.Position - myPos).Magnitude
                data.Lbl.Text = string.format("%s\n[%d Studs]", data.Name, math.floor(d))
                if selected[data.Name] and d < minDist then minDist, bestPart, bestData = d, data.Part, data end
            end
        end

        if enabled and root and bestPart then
            -- Claim Network Ownership dynamically to allow client CFrame adjustments to bypass server lag
            pcall(function() settings().Physics.AllowSleep = false end)
            
            local targetPos = bestPart.Position + Vector3.new(0, 1.2, 0)
            local diff = targetPos - root.Position
            root.Velocity = Vector3.zero
            
            if diff.Magnitude < 4.5 then
                if bestData.Prompt then
                    local p = bestData.Prompt
                    p.RequiresLineOfSight = false
                    
                    -- Absolute Verification Lock: Freezes player until the server explicitly deletes the data node
                    local timeout = 0
                    while p and p:IsDescendantOf(workspace) and enabled and timeout < 30 do
                        if fireproximityprompt then 
                            fireproximityprompt(p)
                        else
                            p:InputHoldBegin()
                            task.wait(p.HoldDuration + 0.05)
                            p:InputHoldEnd()
                        end
                        task.wait(0.05)
                        timeout = timeout + 1
                    end
                    
                    -- Clean graphical artifacts
                    if bestData.Bb then bestData.Bb:Destroy() end
                    if bestData.Hl then bestData.Hl:Destroy() end
                    trackers[bestData.Prompt] = nil
                    task.wait(0.1)
                end
            else
                -- High-efficiency CFrame Look-Ahead interpolation engine (Fixed: Replaces broken BodyVelocity dependencies)
                root.CFrame = CFrame.new(root.Position + (diff.Unit * math.min(diff.Magnitude, FAST_SPEED * 0.01)), Vector3.new(targetPos.X, root.Position.Y, targetPos.Z))
            end
        end
    end
end)

-- UI Presentation Screen Assembly
local gui = Instance.new("ScreenGui", game:GetService("CoreGui"):FindFirstChild("RobloxGui") or lp:WaitForChild("PlayerGui"))
local mf = Instance.new("Frame", gui)
mf.Size, mf.Position, mf.BackgroundColor3, mf.BorderSizePixel, mf.Active, mf.Draggable = UDim2.new(0,190,0,105), UDim2.new(1,-210,1,-140), Color3.fromRGB(25,25,28), 0, true, true
Instance.new("UICorner", mf).CornerRadius = UDim.new(0,6)

local drop = Instance.new("TextButton", mf)
drop.Size, drop.Position, drop.BackgroundColor3, drop.Text, drop.TextColor3, drop.Font, drop.TextSize = UDim2.new(0,170,0,30), UDim2.new(0,10,0,12), Color3.fromRGB(40,40,45), "Filter Multi-Items", Color3.fromRGB(255,215,0), Enum.Font.SourceSansBold, 12
Instance.new("UICorner", drop).CornerRadius = UDim.new(0,4)

local act = Instance.new("TextButton", mf)
act.Size, act.Position, act.BackgroundColor3, act.Text, act.TextColor3, act.Font, act.TextSize = UDim2.new(0,170,0,32), UDim2.new(0,10,0,52), Color3.fromRGB(160,35,35), "AUTO TWEEN: OFF", Color3.fromRGB(255,255,255), Enum.Font.SourceSansBold, 12
Instance.new("UICorner", act).CornerRadius = UDim.new(0,5)

local list, idx = {}, 1
for k,_ in pairs(ITEMS) do table.insert(list, k) end
table.sort(list)

local sf = Instance.new("ScrollingFrame", mf)
sf.Size, sf.Position, sf.BackgroundColor3, sf.Visible, sf.CanvasSize, sf.ZIndex = UDim2.new(0,170,0,140), UDim2.new(0,10,0,45), Color3.fromRGB(20,20,24), false, UDim2.new(0,0,0,#list*24), 15
Instance.new("UICorner", sf).CornerRadius = UDim.new(0,4)

for _, name in ipairs(list) do
    local b = Instance.new("TextButton", sf)
    b.Size, b.Position, b.Text, b.TextColor3, b.ZIndex, b.BackgroundColor3 = UDim2.new(1,-5,0,20), UDim2.new(0,2,0,(idx-1)*24), name, Color3.fromRGB(230,230,230), 16, selected[name] and Color3.fromRGB(35,140,80) or Color3.fromRGB(40,40,45)
    Instance.new("UICorner", b).CornerRadius = UDim.new(0,3)
    b.MouseButton1Click:Connect(function()
        selected[name] = not selected[name]
        b.BackgroundColor3 = selected[name] and Color3.fromRGB(35,140,80) or Color3.fromRGB(40,40,45)
    end)
    idx = idx + 1
end

drop.MouseButton1Click:Connect(function() sf.Visible = not sf.Visible end)
act.MouseButton1Click:Connect(function()
    sf.Visible, enabled = false, not enabled
    act.Text = enabled and "AUTO TWEEN: ON" or "AUTO TWEEN: OFF"
    act.BackgroundColor3 = enabled and Color3.fromRGB(35,140,80) or Color3.fromRGB(160,35,35)
    if not enabled and lp.Character and lp.Character:FindFirstChild("HumanoidRootPart") then
        lp.Character.HumanoidRootPart.Velocity = Vector3.new(0,0,0)
    end
end)

-- Execution Observers
for _, d in ipairs(workspace:GetDescendants()) do eval(d) end
workspace.DescendantAdded:Connect(function(d) task.wait(0.01) eval(d) end)
PPS.PromptShown:Connect(eval)