SUPER BLOX 64 Script Keyless

local Players = game:GetService("Players")
local Workspace = game:GetService("Workspace")
local ReplicatedStorage = game:GetService("ReplicatedStorage")
local plr = Players.LocalPlayer
local pgui = plr:WaitForChild("PlayerGui")

for _, v in ipairs({"PPClaimGUI", "MiniPPClaim", "RandomPlayerPoint", "FluentPPClaimer", "PPUtilityGUI"}) do
	local g = pgui:FindFirstChild(v)
	if g then pcall(function() g:Destroy() end) end
end

local gui = Instance.new("ScreenGui")
gui.Name = "PPUtilityGUI"
gui.ResetOnSpawn = false
gui.Parent = pgui

local frame = Instance.new("Frame")
frame.Size = UDim2.new(0, 290, 0, 275)
frame.Position = UDim2.new(0.02, 0, 0.7, 0)
frame.BackgroundColor3 = Color3.fromRGB(20, 20, 20)
frame.BackgroundTransparency = 0.25
frame.Active = true
frame.Draggable = true
frame.Parent = gui

local corner = Instance.new("UICorner")
corner.CornerRadius = UDim.new(0, 6)
corner.Parent = frame

local stroke = Instance.new("UIStroke")
stroke.Color = Color3.fromRGB(90, 90, 90)
stroke.Thickness = 1
stroke.Parent = frame

local title = Instance.new("TextLabel")
title.Size = UDim2.new(1, -10, 0, 20)
title.Position = UDim2.new(0, 5, 0, 5)
title.BackgroundTransparency = 1
title.Font = Enum.Font.GothamBold
title.TextScaled = true
title.TextColor3 = Color3.fromRGB(255, 255, 255)
title.Text = "PP Claimer + Utility"
title.Parent = frame

local function makeBtn(text, y)
	local btn = Instance.new("TextButton")
	btn.Size = UDim2.new(1, -10, 0, 35)
	btn.Position = UDim2.new(0, 5, 0, y)
	btn.BackgroundColor3 = Color3.fromRGB(35, 35, 35)
	btn.AutoButtonColor = true
	btn.Font = Enum.Font.GothamBold
	btn.TextScaled = true
	btn.TextColor3 = Color3.fromRGB(255, 255, 255)
	btn.Text = text
	btn.Parent = frame
	local bc = Instance.new("UICorner")
	bc.CornerRadius = UDim.new(0, 4)
	bc.Parent = btn
	return btn
end

local btnAll = makeBtn("Claim All In CurrentArea (5s)", 30)
local btnMini = makeBtn("Instant Minis In CurrentArea", 70)
local btnHeal = makeBtn("Heal", 150)
local btnGod = makeBtn("Godmode: OFF", 190)

local status = Instance.new("TextLabel")
status.Size = UDim2.new(1, -10, 0, 16)
status.Position = UDim2.new(0, 5, 0, 110)
status.BackgroundTransparency = 1
status.Font = Enum.Font.Gotham
status.TextScaled = true
status.TextColor3 = Color3.fromRGB(200, 200, 200)
status.Text = "Status: Idle"
status.Parent = frame

local function findTouchModule()
	local char = plr.Character
	if not char then return nil end
	local ec = char:FindFirstChild("EngineCharacter")
	if ec then
		local touch = ec:FindFirstChild("Touch")
		if touch then
			local points = touch:FindFirstChild("Points")
			if points then
				for _, v in ipairs(points:GetChildren()) do
					if v:IsA("ModuleScript") and string.find(string.lower(v.Name), "playerpoint") and not string.find(string.lower(v.Name), "lock") and not string.find(string.lower(v.Name), "mini") then
						return v
					end
				end
			end
		end
	end
	local wsChar = Workspace:FindFirstChild(plr.Name)
	if wsChar then
		local ec2 = wsChar:FindFirstChild("EngineCharacter")
		if ec2 then
			local touch = ec2:FindFirstChild("Touch")
			if touch then
				local points = touch:FindFirstChild("Points")
				if points then
					for _, v in ipairs(points:GetChildren()) do
						if v:IsA("ModuleScript") and string.find(string.lower(v.Name), "playerpoint") and not string.find(string.lower(v.Name), "lock") and not string.find(string.lower(v.Name), "mini") then
							return v
						end
					end
				end
			end
		end
	end
	return nil
end

local function getTouchFunc()
	local mod = findTouchModule()
	if not mod then return nil end
	local ok, modTable = pcall(require, mod)
	if ok and type(modTable) == "table" and type(modTable.Touch) == "function" then
		return modTable.Touch, modTable
	end
	return nil
end

local function getRootPart(v)
	if v:IsA("BasePart") then return v end
	for _, child in ipairs(v:GetDescendants()) do
		if child:IsA("BasePart") then return child end
	end
	return nil
end

local function tpTo(v)
	local char = plr.Character
	if not char then return end
	local hrp = char:FindFirstChild("HumanoidRootPart")
	if not hrp then return end
	local root = getRootPart(v)
	if root then
		hrp.CFrame = root.CFrame + Vector3.new(0, 5, 0)
	end
end

btnAll.Activated:Connect(function()
	if btnAll.AutoButtonColor == false then return end
	btnAll.AutoButtonColor = false
	local touchFunc, touchMod = getTouchFunc()
	if not touchFunc then status.Text = "Status: No Touch Module"; task.wait(2); status.Text = "Status: Idle"; btnAll.AutoButtonColor = true; return end
	local area = Workspace:FindFirstChild("CurrentArea")
	if not area then status.Text = "Status: No CurrentArea"; task.wait(2); status.Text = "Status: Idle"; btnAll.AutoButtonColor = true; return end
	local ppFolder = area:FindFirstChild("PlayerPoints")
	if not ppFolder then status.Text = "Status: No PlayerPoints Folder"; task.wait(2); status.Text = "Status: Idle"; btnAll.AutoButtonColor = true; return end
	local list = {}
	for _, v in ipairs(ppFolder:GetChildren()) do
		if v:GetAttribute("Collected") ~= true then table.insert(list, v) end
	end
	if #list == 0 then status.Text = "Status: None Uncollected"; task.wait(2); status.Text = "Status: Idle"; btnAll.AutoButtonColor = true; return end
	task.spawn(function()
		for i, pp in ipairs(list) do
			status.Text = "Status: ["..i.."/"..#list.."] "..pp.Name
			tpTo(pp)
			task.wait(0.8)
			pcall(function()
				if touchMod then touchMod:Touch(pp) else touchFunc(pp) end
			end)
			if i < #list then task.wait(5) end
		end
		status.Text = "Status: Idle"
		btnAll.AutoButtonColor = true
	end)
end)

btnMini.Activated:Connect(function()
	if btnMini.AutoButtonColor == false then return end
	btnMini.AutoButtonColor = false
	local touchFunc, touchMod = getTouchFunc()
	if not touchFunc then status.Text = "Status: No Touch Module"; task.wait(2); status.Text = "Status: Idle"; btnMini.AutoButtonColor = true; return end
	local area = Workspace:FindFirstChild("CurrentArea")
	if not area then status.Text = "Status: No CurrentArea"; task.wait(2); status.Text = "Status: Idle"; btnMini.AutoButtonColor = true; return end
	local miniFolder = area:FindFirstChild("MiniPlayerPoints")
	if not miniFolder then status.Text = "Status: No MiniPlayerPoints Folder"; task.wait(2); status.Text = "Status: Idle"; btnMini.AutoButtonColor = true; return end
	local list = {}
	for _, v in ipairs(miniFolder:GetChildren()) do
		if v:GetAttribute("Collected") ~= true then table.insert(list, v) end
	end
	if #list == 0 then status.Text = "Status: None Uncollected"; task.wait(2); status.Text = "Status: Idle"; btnMini.AutoButtonColor = true; return end
	task.spawn(function()
		for i, mp in ipairs(list) do
			status.Text = "Status: [MINI "..i.."/"..#list.."] "..mp.Name
			tpTo(mp)
			task.wait(0.4)
			pcall(function()
				if touchMod then touchMod:Touch(mp) else touchFunc(mp) end
			end)
			task.wait(0.25)
		end
		status.Text = "Status: Idle"
		btnMini.AutoButtonColor = true
	end)
end)

btnHeal.Activated:Connect(function()
	pcall(function()
		local ev = ReplicatedStorage:FindFirstChild("Remotes"):FindFirstChild("Server"):FindFirstChild("Heal")
		if ev then ev:FireServer() end
	end)
	btnHeal.Text = "Healed!"
	task.wait(1)
	btnHeal.Text = "Heal"
end)

local godmode = false
local oldNamecall
btnGod.Activated:Connect(function()
	if not godmode then
		local mt = getrawmetatable(game)
		oldNamecall = mt.__namecall
		setreadonly(mt, false)
		mt.__namecall = newcclosure(function(self, ...)
			local method = getnamecallmethod()
			if method == "FireServer" and typeof(self) == "Instance" and self.Name == "TakeDamage" then
				local p = self.Parent
				if p and p.Name == "Server" then
					return
				end
			end
			return oldNamecall(self, ...)
		end)
		setreadonly(mt, true)
		godmode = true
		btnGod.Text = "Godmode: ON"
	else
		if oldNamecall then
			local mt = getrawmetatable(game)
			setreadonly(mt, false)
			mt.__namecall = oldNamecall
			setreadonly(mt, true)
		end
		godmode = false
		btnGod.Text = "Godmode: OFF"
	end
end)