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)
Comments
Since I don't know how to make a loadstring if you guys can make one for this, please let me know.