local rs=game:GetService("RunService")
local tcs=game:GetService("TextChatService")
local sg=game:GetService("StarterGui")
local lp=game.Players.LocalPlayer

local function say(m)
if tcs.ChatVersion==Enum.ChatVersion.TextChatService then
local ok=pcall(function()local ch=tcs.TextChannels.RBXGeneral if ch then ch:SendAsync(m)end end)
if not ok then pcall(function()sg:SetCore("ChatSendMessage",m)end)end
else pcall(function()sg:SetCore("ChatSendMessage",m)end)end
end

say("Anti crash loaded credits to me_meymeyme")

local rc={}
rs.Heartbeat:Connect(function()
table.clear(rc)
for _,pl in pairs(game.Players:GetPlayers())do
if pl.Character then rc[pl.Character]=true end
end
end)

workspace.DescendantAdded:Connect(function(o)
if o:IsA("Model")then
task.defer(function()
if o.Parent and o:FindFirstChildOfClass("Humanoid")and not rc[o]and o~=lp.Character then
o:Destroy()
end
end)
end
end)

rs.PreRender:Connect(function()
local mychar=lp.Character
for _,o in pairs(workspace:GetDescendants())do
if o:IsA("Model")and o:FindFirstChildOfClass("Humanoid")and not rc[o]and o~=mychar then o:Destroy()end
end
local d=0
for _,pt in pairs(workspace:GetDescendants())do
if d>=200 then break end
if pt:IsA("BasePart")and pt.Name~="Baseplate"and pt.Parent and (not mychar or not pt:IsDescendantOf(mychar))and (not rc[pt.Parent])then
local ok,hs=pcall(function()return workspace:GetPartsInPart(pt)end)
if ok and hs then
local c=0
for _,h in pairs(hs)do if h~=pt and (not mychar or not h:IsDescendantOf(mychar))and not rc[h.Parent]then c=c+1 end end
if c>=3 then pt:Destroy()d=d+1 end
end
end
end
end)