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)