
Keyless

local a=game:GetService("Players")
local b=game:GetService("RunService")
local function z(t)local r=""for i=1,#t do r=r..string.char(t[i])end return r end
local H=z({72,105,103,104,108,105,103,104,116})
local lp=a.LocalPlayer
local N="Tests"
local G=Color3.fromRGB(0,255,0)
local R=Color3.fromRGB(255,0,0)
local function f(x) local ok,p=pcall(function()return x:FindFirstChild(N)end) if ok then return p end end
local function rm(x)local h=f(x) if h then pcall(function()h:Destroy()end) end end
local function mk(parent,color)
local h=f(parent)
if h then h.FillColor=color return end
local o=Instance.new(H)
o.Name=N
o.FillColor=color
o.OutlineColor=color
o.Parent=parent
end
local function lists()
local outS={}
local outK={}
local s=workspace:FindFirstChild("survivors")
local k=workspace:FindFirstChild("killers")
if s then for _,v in pairs(s:GetChildren()) do if v:IsA("Model") then table.insert(outS,v) end end end
if k then for _,v in pairs(k:GetChildren()) do if v:IsA("Model") then table.insert(outK,v) end end end
return outS,outK
end
local function clean()
for _,v in pairs(workspace:GetDescendants()) do
if v:IsA(H) and v.Name==N then pcall(function()v:Destroy()end) end
end
end
local T=0
local lim=0.15
b.Heartbeat:Connect(function(dt)
T=T+dt
if T<lim then return end
T=0
local S,K=lists()
if #S==0 and #K==0 then clean() return end
local keep=setmetatable({},{__mode="k"})
for _,m in pairs(S) do if m~=lp.Character then keep[m]=true mk(m,G) end end
for _,m in pairs(K) do if m~=lp.Character then keep[m]=true mk(m,R) end end
for _,h in pairs(workspace:GetDescendants()) do
if h:IsA(H) and h.Name==N then
local p=h.Parent
if not p or not keep[p] or p==lp.Character then pcall(function()h:Destroy()end) end
end
end
end)
I just pasted the script here, if have error, say the eror