One time Intro GUI doesn't work. after "game.Players.PlayerAdded:connect(functio..." was added, why?

game.Players.PlayerAdded:connect(function(player)
	
local black = script.Parent.Parent
local title = script.Parent
local joingame = script.Parent.Parent.TextButton
	
	for i = 0,1,0.1 do
	black.BackgroundTransparency = i
	wait(0.1)
	
	if black.BackgroundTransparency == 1 then
	script.Parent:TweenPosition (UDim2.new(0.5, -100, 0.1, -25), "Out", "Quad", 1, true)
	joingame.Visible = true   
	end
end

function onClicked()
	for i = 1,0,-0.1 do
		black.BackgroundTransparency = i
		wait (0.1)
	end
	wait(2)
game:GetService('Players').LocalPlayer.CameraMode = Enum.CameraMode.LockFirstPerson
game:GetService('Players').LocalPlayer.CameraMode = Enum.CameraMode.Classic
game:GetService('Players').LocalPlayer.CameraMode = Enum.CameraMode.LockFirstPerson
title.Visible = false
joingame.Visible = false
	wait(1)
	for i = 0,1,0.1 do
		black.BackgroundTransparency = i
		wait(0.1)
	end
end

script.Parent.Parent.TextButton.MouseButton1Down:connect(onClicked)

end)

I cannot see the intro, After adding "game.Players.PlayerAdded:connect(function(player)", I need help

Assuming this is a local script, you do not need to use the PlayerAdded event. It should work perfectly fine.

local black = script.Parent.Parent
local title = script.Parent
local joingame = script.Parent.Parent.TextButton

    for i = 0,1,0.1 do
    black.BackgroundTransparency = i
    wait(0.1)

    if black.BackgroundTransparency == 1 then
    script.Parent:TweenPosition (UDim2.new(0.5, -100, 0.1, -25), "Out", "Quad", 1, true)
    joingame.Visible = true   
    end
end

function onClicked()
    for i = 1,0,-0.1 do
        black.BackgroundTransparency = i
        wait (0.1)
    end
    wait(2)
game:GetService('Players').LocalPlayer.CameraMode = Enum.CameraMode.LockFirstPerson
game:GetService('Players').LocalPlayer.CameraMode = Enum.CameraMode.Classic
game:GetService('Players').LocalPlayer.CameraMode = Enum.CameraMode.LockFirstPerson
title.Visible = false
joingame.Visible = false
    wait(1)
    for i = 0,1,0.1 do
        black.BackgroundTransparency = i
        wait(0.1)
    end
end

script.Parent.Parent.TextButton.MouseButton1Down:connect(onClicked)