Code Finder

local Players = game:GetService("Players")
local UserInputService = game:GetService("UserInputService")
local CoreGui = game:GetService("CoreGui")

local LOCAL_PLAYER = Players.LocalPlayer
local GUI_NAME = "CodeFinderGui"
local RESCAN_DELAY = 3
local UNLOAD_KEY = Enum.KeyCode.M

getgenv().CodeFinderUnload = getgenv().CodeFinderUnload or nil

if getgenv().CodeFinderUnload then
	getgenv().CodeFinderUnload()
end

local connections = {}
local running = true

local function getGuiParent()
	local success = pcall(function()
		local test = Instance.new("Folder")
		test.Parent = CoreGui
		test:Destroy()
	end)

	if success then
		return CoreGui
	end

	return LOCAL_PLAYER:WaitForChild("PlayerGui")
end

local guiParent = getGuiParent()

local oldGui = guiParent:FindFirstChild(GUI_NAME)
if oldGui then
	oldGui:Destroy()
end

local screenGui = Instance.new("ScreenGui")
screenGui.Name = GUI_NAME
screenGui.ResetOnSpawn = false
screenGui.Parent = guiParent

local main = Instance.new("Frame")
main.Size = UDim2.new(0, 520, 0, 420)
main.Position = UDim2.new(0.5, -260, 0.5, -210)
main.BackgroundColor3 = Color3.fromRGB(25, 25, 25)
main.BorderSizePixel = 0
main.Active = true
main.Draggable = true
main.Parent = screenGui

local title = Instance.new("TextLabel")
title.Size = UDim2.new(1, 0, 0, 38)
title.BackgroundColor3 = Color3.fromRGB(35, 35, 35)
title.BorderSizePixel = 0
title.Text = "Workspace Code Finder"
title.TextColor3 = Color3.fromRGB(255, 255, 255)
title.TextSize = 18
title.Font = Enum.Font.SourceSansBold
title.Parent = main

local status = Instance.new("TextLabel")
status.Size = UDim2.new(1, -20, 0, 28)
status.Position = UDim2.new(0, 10, 0, 44)
status.BackgroundTransparency = 1
status.Text = "Scanning..."
status.TextColor3 = Color3.fromRGB(220, 220, 220)
status.TextSize = 15
status.Font = Enum.Font.SourceSans
status.TextXAlignment = Enum.TextXAlignment.Left
status.Parent = main

local scroll = Instance.new("ScrollingFrame")
scroll.Size = UDim2.new(1, -20, 1, -86)
scroll.Position = UDim2.new(0, 10, 0, 78)
scroll.BackgroundColor3 = Color3.fromRGB(18, 18, 18)
scroll.BorderSizePixel = 0
scroll.ScrollBarThickness = 8
scroll.CanvasSize = UDim2.new(0, 0, 0, 0)
scroll.Parent = main

local layout = Instance.new("UIListLayout")
layout.Padding = UDim.new(0, 6)
layout.SortOrder = Enum.SortOrder.LayoutOrder
layout.Parent = scroll

local padding = Instance.new("UIPadding")
padding.PaddingTop = UDim.new(0, 8)
padding.PaddingLeft = UDim.new(0, 8)
padding.PaddingRight = UDim.new(0, 8)
padding.PaddingBottom = UDim.new(0, 8)
padding.Parent = scroll

local function getPath(instance)
	local parts = {}

	while instance do
		table.insert(parts, 1, instance.Name)
		instance = instance.Parent
	end

	return table.concat(parts, ".")
end

local function getValueText(instance)
	local success, value = pcall(function()
		return instance.Value
	end)

	if success then
		if typeof(value) == "Instance" then
			return getPath(value)
		end

		return tostring(value)
	end

	return "No readable Value property"
end

local function clearResults()
	for _, child in ipairs(scroll:GetChildren()) do
		if child:IsA("TextLabel") then
			child:Destroy()
		end
	end
end

local function addResult(text)
	local label = Instance.new("TextLabel")
	label.Size = UDim2.new(1, -8, 0, 54)
	label.BackgroundColor3 = Color3.fromRGB(32, 32, 32)
	label.BorderSizePixel = 0
	label.TextColor3 = Color3.fromRGB(255, 255, 255)
	label.TextSize = 14
	label.Font = Enum.Font.SourceSans
	label.TextXAlignment = Enum.TextXAlignment.Left
	label.TextYAlignment = Enum.TextYAlignment.Top
	label.TextWrapped = true
	label.Text = text
	label.Parent = scroll
end

local function updateCanvas()
	scroll.CanvasSize = UDim2.new(0, 0, 0, layout.AbsoluteContentSize.Y + 20)
end

table.insert(connections, layout:GetPropertyChangedSignal("AbsoluteContentSize"):Connect(updateCanvas))

local function scan()
	clearResults()

	local found = {}

	for _, obj in ipairs(workspace:GetDescendants()) do
		if obj.Name == "Code" then
			local valueText = getValueText(obj)
			local path = getPath(obj)

			table.insert(found, {
				value = valueText,
				path = path
			})
		end
	end

	if #found == 0 then
		status.Text = "No Codes Found, retrying in " .. RESCAN_DELAY .. " seconds..."
	else
		status.Text = "Found " .. #found .. " Code value(s). Rescanning every " .. RESCAN_DELAY .. " seconds."
	end

	for i, item in ipairs(found) do
		addResult("Value: " .. item.value .. "\nPath: " .. item.path)
	end

	updateCanvas()
end

local function unload()
	if not running then
		return
	end

	running = false

	for _, connection in ipairs(connections) do
		pcall(function()
			connection:Disconnect()
		end)
	end

	if screenGui then
		screenGui:Destroy()
	end

	if getgenv().CodeFinderUnload == unload then
		getgenv().CodeFinderUnload = nil
	end
end

getgenv().CodeFinderUnload = unload

table.insert(connections, UserInputService.InputBegan:Connect(function(input, gameProcessed)
	if gameProcessed then
		return
	end

	if input.KeyCode == UNLOAD_KEY then
		unload()
	end
end))

task.spawn(function()
	while running do
		scan()

		for secondsLeft = RESCAN_DELAY, 1, -1 do
			if not running then
				break
			end

			if #scroll:GetChildren() <= 2 then
				status.Text = "No Codes Found, retrying in " .. secondsLeft .. " seconds..."
			end

			task.wait(1)
		end
	end
end)