Team picker/teleport script now working?

So I hired a dev to help me with a script, but they still have not figured it out, sooo, I am coming here for help. Basically, the script is supposed to choose a team for each player, and then teleport them when the game starts and restart after a while. But the script is not working with no errors. It is in the ServerScriptService. Here is the code.

local NumPlayers = 0
local Players = {}
local Started = false
wait(2)
local function RemovePlayer(Name)
    for i,v in pairs(Players) do
        if v == Name then
            --print("Removed "..Players[i].." | "..Name)
            table.remove(Players,i)
        end

    NumPlayers = 0
    for i,v in pairs(Players) do
        NumPlayers = NumPlayers + 1
    end

    end
end

local function Teleport(Plr,Position)
    repeat wait(.1) until game.Players:FindFirstChild(tostring(Plr)).Character
    game.Players:FindFirstChild(tostring(Plr)).Character.HumanoidRootPart.CFrame = CFrame.new(Position)
end


script:WaitForChild("Restart").Event:connect(function()
    Started = true
    --Clean table
    for i,v in pairs(Players) do
        table.remove(Players,1)
    end

    --Add players to table
    for i,v in pairs(game.Players:GetChildren()) do
        table.insert(Players,tostring(v))
    end

    --Choose SCP
    local m = math.random(1,NumPlayers)
    game.Players:FindFirstChild(Players[m]).Team = game.Teams.SCP
    game.Players:FindFirstChild(Players[m]).Character.Humanoid.MaxHealth = 400
    game.Players:FindFirstChild(Players[m]).Character.Humanoid.Health = 400
    game.Players:FindFirstChild(Players[m]).Character.Humanoid.WalkSpeed = 10
    Teleport(game.Players:FindFirstChild(Players[m]),game.Workspace.SSpawn.Position)
    RemovePlayer(tostring(game.Players:FindFirstChild(Players[m])))
    --Choose Guards
    if NumPlayers >= 4 then
        for i = 1,2 do
            local m = math.random(1,NumPlayers)
            game.Players:FindFirstChild(Players[m]).Team = game.Teams.Guards
            Teleport(game.Players:FindFirstChild(Players[m]),game.Workspace.RSpawn.Position)
            RemovePlayer(tostring(game.Players:FindFirstChild(Players[m])))
        end
    else
    local m = math.random(1,NumPlayers)
    game.Players:FindFirstChild(Players[m]).Team = game.Teams.Guards
    Teleport(game.Players:FindFirstChild(Players[m]),game.Workspace.RSpawn.Position)
    RemovePlayer(tostring(game.Players:FindFirstChild(Players[m])))
    end

    --Choose Scientist Or Class-D Or GRU-P
    local c = 2
    for i = 1, NumPlayers do
        if c == 2 then c = 3 elseif c == 3 then c = 1 elseif c == 1 then c = 2 end

        if c == 1 then
        local m = math.random(1,NumPlayers)
        game.Players:FindFirstChild(Players[m]).Team = game.Teams["Class-D"]
        Teleport(game.Players:FindFirstChild(Players[m]),game.Workspace.DSpawn.Position)
            RemovePlayer(tostring(game.Players:FindFirstChild(Players[m])))
            elseif c == 2 then
        local m = math.random(1,NumPlayers)
        game.Players:FindFirstChild(Players[m]).Team = game.Teams.Scientists
        Teleport(game.Players:FindFirstChild(Players[m]),game.Workspace.RSpawn.Position)
        RemovePlayer(tostring(game.Players:FindFirstChild(Players[m])))

        elseif c == 3 then
        local m = math.random(1,NumPlayers)
        game.Players:FindFirstChild(Players[m]).Team = game.Teams["GRU-P"]
        Teleport(game.Players:FindFirstChild(Players[m]),game.Workspace.GPFSpawn.Position)
        RemovePlayer(tostring(game.Players:FindFirstChild(Players[m])))
        end
        wait(5)
        --Game over
        for i,v in pairs(game.Players:GetChildren()) do
        v.Character:BreakJoints()
        end
        wait(5) --Time before a new round starts
        CheckPlayerCount()
        wait(.1)
    script.Restart:Fire()
    end

end)


local function CheckPlayerCount()
    NumPlayers = 0
    for i,v in pairs(game.Players:GetChildren()) do
        NumPlayers = NumPlayers + 1
    end
end

game.Players.PlayerAdded:Connect(function()
    CheckPlayerCount()
    wait(.1)
    if NumPlayers >= 4 and not Started then--4
        script.Restart:Fire()
    end
end)