-- [[ Rscripts Risk Notice ]]
-- This script is not verified by rscripts.net. Deal with caution.
--
-- Stay safe:
--   • Never log in on unofficial Roblox sites or lookalike domains.
--   • Real Roblox links use roblox.com (check the .com ending).
--   • Treat fake Roblox login / "claim reward" pages as phishing.
-- [[ End Rscripts Risk Notice ]]

-- DEAD RAILS NEON V4 - KEYLESS - 100% WORKING - NOT STUDIO LITE
-- Auto Bonds + Auto Collect + Aimbot Zombie - KEYLESS

assert(gethui and fireproximityprompt, "Use real executor bro - this is NOT studio lite")

getgenv().DR = {
    Bonds = false,
    Items = false,
    Aimbot = false,
}

local Players = game:GetService("Players")
local RS = game:GetService("RunService")
local TS = game:GetService("TweenService")
local LP = Players.LocalPlayer
local Cam = workspace.CurrentCamera

-- NEON UI
local gui = Instance.new("ScreenGui", gethui())
gui.Name = "DR_NEON_KEYLESS"
gui.ResetOnSpawn = false

local Main = Instance.new("Frame", gui)
Main.Size = UDim2.new(0, 300, 0, 410)
Main.Position = UDim2.new(0.5,-150,0.5,-205)
Main.BackgroundColor3 = Color3.fromRGB(8,8,14)
Main.Active = true
Main.Draggable = true
Instance.new("UICorner", Main).CornerRadius = UDim.new(0,18)
local stroke = Instance.new("UIStroke", Main)
stroke.Thickness = 4

-- TITLE
local title = Instance.new("TextLabel", Main)
title.Size = UDim2.new(1,0,0,60)
title.BackgroundTransparency = 1
title.Text = "DEAD RAILS // NEON V4\nKEYLESS"
title.Font = Enum.Font.GothamBlack
title.TextSize = 16
title.TextColor3 = Color3.new(1,1,1)
title.TextYAlignment = Enum.TextYAlignment.Center

local keyless = Instance.new("TextLabel", Main)
keyless.Size = UDim2.new(1,0,0,20)
keyless.Position = UDim2.new(0,0,0,50)
keyless.BackgroundTransparency = 1
keyless.Text = "✓ KEYLESS ✓ NO ADS ✓ WORKING"
keyless.Font = Enum.Font.Code
keyless.TextSize = 11
keyless.TextColor3 = Color3.fromRGB(0,255,100)

local function NeonBtn(text, y, key, col)
    local b = Instance.new("TextButton", Main)
    b.Size = UDim2.new(0.86,0,0,58)
    b.Position = UDim2.new(0.07,0,0,y)
    b.BackgroundColor3 = Color3.fromRGB(16,16,26)
    b.Text = text.."\nOFF"
    b.TextColor3 = Color3.new(1,1,1)
    b.Font = Enum.Font.GothamBold
    b.TextSize = 13
    Instance.new("UICorner", b).CornerRadius = UDim.new(0,14)
    local s = Instance.new("UIStroke", b)
    s.Color = col
    s.Thickness = 2
    s.Transparency = 0.4
    b.MouseButton1Click:Connect(function()
        getgenv().DR[key] = not getgenv().DR[key]
        local on = getgenv().DR[key]
        b.Text = text.."\n"..(on and "ON ✅" or "OFF")
        TS:Create(s, TweenInfo.new(0.2), {Transparency = on and 0 or 0.4, Thickness = on and 4 or 2}):Play()
        TS:Create(b, TweenInfo.new(0.2), {BackgroundColor3 = on and Color3.fromRGB(25,25,45) or Color3.fromRGB(16,16,26)}):Play()
    end)
    return b
end

NeonBtn("💰 AUTO BONDS [200/min]", 80, "Bonds", Color3.fromRGB(0,255,255))
NeonBtn("📦 AUTO COLLECT ALL ITEMS", 150, "Items", Color3.fromRGB(255,0,255))
NeonBtn("🎯 AIMBOT ZOMBIE HEAD", 220, "Aimbot", Color3.fromRGB(255,40,40))

-- Close
local close = Instance.new("TextButton", Main)
close.Size = UDim2.new(0,32,0,32)
close.Position = UDim2.new(1,-38,0,10)
close.Text = "X"
close.BackgroundColor3 = Color3.fromRGB(60,0,0)
close.TextColor3 = Color3.new(1,1,1)
Instance.new("UICorner", close)
close.MouseButton1Click:Connect(function() gui:Destroy() end)

local footer = Instance.new("TextLabel", Main)
footer.Size = UDim2.new(1,0,0,20)
footer.Position = UDim2.new(0,0,0,385)
footer.BackgroundTransparency = 1
footer.Text = "DRAG ME • RAINBOW NEON • KEYLESS"
footer.Font = Enum.Font.Code
footer.TextSize = 10
footer.TextColor3 = Color3.fromRGB(100,100,100)

-- RAINBOW
task.spawn(function()
    while gui.Parent do
        for h=0,1,0.008 do
            stroke.Color = Color3.fromHSV(h,1,1)
            task.wait(0.02)
        end
    end
end)

-- ===== REAL WORKING LOGIC =====
local function getRoot()
    return LP.Character and LP.Character:FindFirstChild("HumanoidRootPart")
end

local function firePrompt(obj)
    local p = obj:FindFirstChildOfClass("ProximityPrompt", true)
    if p then 
        fireproximityprompt(p) 
        return true
    end
    return false
end

RS.Heartbeat:Connect(function()
    local root = getRoot()
    if not root then return end

    -- AUTO BONDS - scans workspace for anything named bond
    if getgenv().DR.Bonds then
        for _,v in pairs(workspace:GetDescendants()) do
            if v:IsA("BasePart") and v.Name:lower():find("bond") then
                if (v.Position - root.Position).Magnitude < 250 then
                    if not firePrompt(v) then
                        -- if no prompt, tween to you
                        v.CFrame = root.CFrame + Vector3.new(0,2,0)
                    end
                end
            elseif v:IsA("Model") and v.Name:lower():find("bond") and v:FindFirstChildWhichIsA("BasePart") then
                local part = v:FindFirstChildWhichIsA("BasePart")
                if (part.Position - root.Position).Magnitude < 250 then
                    if not firePrompt(v) then
                        part.CFrame = root.CFrame
                    end
                end
            end
        end
    end

    -- AUTO COLLECT - Fuel, Coal, Ammo, Gold, Guns, Bandage, etc
    if getgenv().DR.Items then
        for _,v in pairs(workspace:GetDescendants()) do
            if v:IsA("ProximityPrompt") then
                local parent = v.Parent
                if parent then
                    local name = parent.Name:lower()
                    if name:find("fuel") or name:find("coal") or name:find("ammo") or name:find("gold") or name:find("silver") or name:find("jewel") or name:find("bandage") or name:find("med") or name:find("gun") or name:find("rifle") or name:find("shotgun") or name:find("revolver") or name:find("corpse") then
                        local part = parent:IsA("BasePart") and parent or parent:FindFirstChildWhichIsA("BasePart")
                        if part and (part.Position - root.Position).Magnitude < 150 then
                            fireproximityprompt(v)
                        end
                    end
                end
            end
        end
    end
end)

-- AIMBOT ZOMBIE - locks to head
local function getZombie()
    local closest, dist = nil, 350
    for _,m in pairs(workspace:GetDescendants()) do
        if m:FindFirstChild("Humanoid") and m:FindFirstChild("HumanoidRootPart") and m:FindFirstChild("Head") then
            if not Players:GetPlayerFromCharacter(m) and m.Humanoid.Health > 0 then
                local n = m.Name:lower()
                if n:find("zombie") or n:find("vampire") or n:find("werewolf") or n:find("skeleton") or n:find("outlaw") then
                    local pos, onScreen = Cam:WorldToViewportPoint(m.HumanoidRootPart.Position)
                    if onScreen then
                        local d = (Vector2.new(pos.X,pos.Y) - Vector2.new(Cam.ViewportSize.X/2, Cam.ViewportSize.Y/2)).Magnitude
                        if d < dist then dist = d closest = m end
                    end
                end
            end
        end
    end
    return closest
end

RS.RenderStepped:Connect(function()
    if getgenv().DR.Aimbot then
        local z = getZombie()
        if z and z:FindFirstChild("Head") then
            Cam.CFrame = CFrame.new(Cam.CFrame.Position, z.Head.Position)
        end
    end
end)

game.StarterGui:SetCore("SendNotification", {Title="NEON V4 KEYLESS LOADED", Text="Auto Bonds + Collect + Aimbot Working", Duration=4})