My intermission system is broken and I don't know why?

This script used to work, then I tried adding a way to check if there is 2 or more players and the status never changed. I'll put comments everywhere to explain what the part of the script does, and tell me which part is broken. Thanks!

-- Variables are set up here
local IntermissionLength = 10
local RoundLength = 10

local InRound = game.ReplicatedStorage.InRound
local Status = game.ReplicatedStorage.Status

local HomePlatform = game.Workspace.HomePlatform
local TilePlatform = game.Workspace.TilePlatform

-- Checks if InRound is changed, and teleports them to the area they get teleported to.
InRound.Changed:Connect(function()
    print(InRound.Value)
    if InRound.Value == true then
        for _, player in pairs(game.Players:GetChildren()) do
            local char = player.Character
            char.HumanoidRootPart.CFrame = TilePlatform.CFrame
        end

    elseif InRound.Value == false then
        for _, player in pairs(game.Players:GetChildren()) do
            local char = player.Character
            char.HumanoidRootPart.CFrame = HomePlatform.CFrame
        end
    end
end)

-- The intermission timer
local function Timer()

    --  Check if there are enough players (Where I'm 90 percent sure it went wrong)
    local plrcount = 0 

    game.Players.PlayerAdded:Connect(function()
        for i,v in pairs(game.Players:GetChildren()) do
            plrcount = plrcount + 1
        end
    end)

    while plrcount >= 1 do
        Status.Value = "Not enough players!"
        for i = IntermissionLength, 0, -1 do
            InRound.Value = false
            wait(1)
            Status.Value = "Intermission for "..i.." more seconds!"
        end

        for i = RoundLength, 0,-1 do
            InRound.Value = true
            wait(1)
            Status.Value = "Game going on for "..i.." more seconds!"
        end
    end

    while plrcount == 1 do
        Status.Value = "Not enough players!"
    end
end