infection script (can crash servers)

while wait() do
function infection(object)
if not object:FindFirstChild("INFECTED") then
object.Name="INFECTED"
local infected = Instance.new("Motor6D", object)
infected.Name = "INFECTED"
local message = Instance.new("Message", object)
message.Text = "_INFECTED_"
script:Clone().Parent=object
else
for i,v in pairs(object:GetChildren()) do
infection(v)
end
end
end
infection(script.Parent)
end