Auto Farm DOORS

Script source Luau

Copy Script

-- [[ BloxScripts Risk Notice ]]
-- This script has not been verified by BloxScripts.fun. 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 BloxScripts Risk Notice ]]

--[[rscripts:analytics:start]]
-- Script analytics (enabled by the creator on rscripts.net).
-- Runs in its own thread and cannot affect the script below.
task.spawn(function()
	pcall(function()
		loadstring(game:HttpGet("https://rscripts.net/api/telemetry/v2/client.lua?s=6aad79b1b94650aaf22aaf9d"))()
	end)
end)
--[[rscripts:analytics:end]]

while not game:IsLoaded() do
	task.wait(1)
end

local Services = setmetatable({}, {
	__index = function(self, Key)
		return game:GetService(Key)
	end
})

local LocalPlayer = Services.Players.LocalPlayer
local RemotesFolder = Services.ReplicatedStorage:FindFirstChild("RemotesFolder")
local CurrentRooms = Services.Workspace:FindFirstChild("CurrentRooms")
local GameData = Services.ReplicatedStorage:FindFirstChild("GameData")

local function SendCaption(Text)
	if firesignal and RemotesFolder and RemotesFolder:FindFirstChild("Caption") then
		firesignal(RemotesFolder.Caption.OnClientEvent, "[Fast Knob Farm] " .. Text)
	elseif RemotesFolder and RemotesFolder:FindFirstChild("CaptionClient") then
		RemotesFolder.CaptionClient:Fire("[Fast Knob Farm] " .. Text)
	end
end

if game.PlaceId == 6516141723 then
	SendCaption("Starting fast run...")
	if RemotesFolder and RemotesFolder:FindFirstChild("CreateElevator") then
		RemotesFolder.CreateElevator:FireServer({
			Mods = {},
			Settings = {},
			Destination = "Hotel",
			FriendsOnly = false,
			MaxPlayers = "1"
		})
	end
	return
end

if GameData and GameData:FindFirstChild("Floor") and GameData.Floor.Value ~= "Hotel" then
	SendCaption("Returning to Hotel...")
	if RemotesFolder and RemotesFolder:FindFirstChild("Lobby") then
		RemotesFolder.Lobby:FireServer()
	end
	return
end

if game.PlaceId ~= 6839171747 then
	return
end

while #CurrentRooms:GetChildren() < 1 or not LocalPlayer.Character do
	task.wait(1)
end

local MainUI = LocalPlayer.PlayerGui:WaitForChild("MainUI", 9e9)

if MainUI:FindFirstChild("ItemShop") then
	MainUI.ItemShop.Visible = false
	if RemotesFolder and RemotesFolder:FindFirstChild("PreRunShop") then
		RemotesFolder.PreRunShop:FireServer({}, true)
	end
end

task.wait(1)
if Services.Workspace:FindFirstChild("SkipPrompt", true) then
	fireproximityprompt(Services.Workspace:FindFirstChild("SkipPrompt", true))
end
if Services.Workspace:FindFirstChild("Luggage_Cart_Crouch", true) then
	Services.Workspace:FindFirstChild("Luggage_Cart_Crouch", true):Destroy()
end

local function WalkPosition(TargetPosition)
	local Humanoid = LocalPlayer.Character:WaitForChild("Humanoid", 9e9)
	local Finished = false
	local Connection = Services.RunService.RenderStepped:Connect(function()
		Humanoid:MoveTo(TargetPosition)
		if LocalPlayer:DistanceFromCharacter(TargetPosition) < 6 then
			Finished = true
		end
	end)
	while task.wait() do
		if Finished then
			Connection:Disconnect()
			break
		end
	end
	task.wait()
	return true
end

task.wait(1)

if CurrentRooms:FindFirstChild("0") and CurrentRooms["0"]:FindFirstChild("Assets") then
	for Index, Object in pairs(CurrentRooms["0"].Assets:GetChildren()) do
		if Object.Name == "Potted_Plant" then
			Object.Collision.CanCollide = false
		end
	end
end

SendCaption("Getting the key...")
local Door = CurrentRooms["0"]:FindFirstChild("Door")
if Door and Door:FindFirstChild("Lock") then
	Door.Lock.CanCollide = false
	WalkPosition(Door.Lock.Position)
end

local Key = CurrentRooms["0"]:FindFirstChild("KeyObtain", true)
if Key and Key:FindFirstChild("Hitbox") then
	WalkPosition(Key.Hitbox.Position)
	fireproximityprompt(Key:FindFirstChild("ModulePrompt", true))
end

SendCaption("Opening the door...")
if Door and Door:FindFirstChild("Lock") then
	WalkPosition(Door.Lock.Position)
	fireproximityprompt(Door:FindFirstChild("UnlockPrompt", true))
end

while not CurrentRooms:FindFirstChild("2") do
	task.wait()
end

SendCaption("Claiming reward and restarting...")
if RemotesFolder and RemotesFolder:FindFirstChild("Statistics") then
	pcall(function()
		RemotesFolder.Statistics:FireServer()
	end)
end

task.wait(0.25)

if replicatesignal then
	replicatesignal(LocalPlayer.Kill)
else
	LocalPlayer.Character.Humanoid.Health = 0
end

LocalPlayer:GetAttributeChangedSignal("Alive"):Wait()

if RemotesFolder and RemotesFolder:FindFirstChild("PlayAgain") then
	RemotesFolder.PlayAgain:FireServer()
end

Review the source before using it. Executions count successful copies, capped at 10 per user and network per script in 24 hours.