Problem with this script, It's not working Correctly, Help?

Is there a better way to doing this without the script being super messed up? It chooses the map before doing intermission and I'm not sure what to do...

--//Variables

Intermission = 10
GameTime = 10

--//Functions

function ChangeText(Text)
	local Players = game.Players:GetPlayers()
	for i = 1, #Players do
	Players[i].PlayerGui:WaitForChild("ActivityGui").MainFrame.ActivityLabel.Text = Text
end
end

function BarBring()
--Original(0,0,0.45,0)
--Away(-3,0,0.45,0)
	local Players = game.Players:GetPlayers()
	for i = 1, #Players do
	Players[i].PlayerGui:WaitForChild("ActivityGui").MainFrame:TweenPosition(UDim2.new(0,0,0.45,0),Quad,1,true)	
end
end

function BarLeave()
	local Players = game.Players:GetPlayers()
	for i = 1, #Players do
	Players[i].PlayerGui:WaitForChild("ActivityGui").MainFrame:TweenPosition(UDim2.new(-3,0,0.45,0),Quad,1,true)	
end
end

function BeginIntermission()
	local Players = game.Players:GetChildren()
	for i = Intermission, 0, -1 do
	ChangeText("Beginning Game In: " ..i)
	wait(1)
end
end

function GetMap()
	local Maps = game.ReplicatedStorage.Maps:GetChildren()
	local PickMap = math.random(1, #Maps)
	local SelectedMap = Maps[PickMap]:Clone()
	SelectedMap.Name = 'Map'
	SelectedMap.Parent = game.Workspace
	ChangeText("Map Chosen: " ..SelectedMap.MapName.Value)
end

while true do
	BarBring()
	wait(0.5)
	BeginIntermission()
	wait(0.5)
	BarLeave()
	wait(0.5)
	GetMap()
	wait(0.5)
	BarBring()
	wait(1)
	BarLeave()
	wait(0.5)
end