Why does loading take so long for my place?

I have a place that uses PlayerRemoved script. But when using in online mode, it don't load a lot. Any solutions?

Faulty code:

local replicated = game:GetService("ReplicatedStorage")

game.Players.PlayerRemoving:connect(function(player)
    if replicated.Track1.Value == player.Name then
        replicated.Track1.ok.Value = true
    elseif replicated.Track3.Value == player.Name then
        replicated.Track3.ok.Value = true
    elseif replicated.Track4.Value == player.Name then
        replicated.Track4.ok.Value = true
    end
end)

Faulty code 2:

local Track1 = script.Parent.Background:WaitForChild("Track1")
local Track3 = script.Parent.Background:WaitForChild("Track3")
local Track4 = script.Parent.Background:WaitForChild("Track4")
local player = game.Players.LocalPlayer
local Name = player.Name
local replicated = game:GetService("ReplicatedStorage")
local Annoucements = script.Parent:WaitForChild("Annoucements")
local Helper = script.Parent:WaitForChild("Helper")
local Say = Annoucements:WaitForChild("Say")
local Do = Helper:WaitForChild("Do")

script.Parent.Background.Track1.MouseButton1Click:connect(function()
    torso = player.Character:WaitForChild("Torso")
    humanoid = player.Character:WaitForChild("Humanoid")
    if torso and humanoid then
        torso.CFrame = CFrame.new(workspace["R62_Trk1"].Model.VehicleSeat.Position + Vector3.new(0, 3, 0))
        script.Parent.Background:Destroy()
        script.Parent.Annoucements.Visible = true
        script.Parent.Helper.Visible = true
        script.Parent.ChatFrame.Visible = true
        replicated.Track1.Value = Name
        replicated.Track1.ok.Value = false
    end
end)

script.Parent.Background.Track3.MouseButton1Click:connect(function()
    torso = player.Character:WaitForChild("Torso")
    humanoid = player.Character:WaitForChild("Humanoid")
    if torso and humanoid then
        torso.CFrame = CFrame.new(workspace["R62_Trk3"].Model.VehicleSeat.Position + Vector3.new(0, 3, 0))
        script.Parent.Background:Destroy()
        script.Parent.Annoucements.Visible = true
        script.Parent.Helper.Visible = true
        script.Parent.ChatFrame.Visible = true
        replicated.Track3.Value = Name
        replicated.Track3.ok.Value = false
    end
end)

script.Parent.Background.Track4.MouseButton1Click:connect(function()
    torso = player.Character:WaitForChild("Torso")
    humanoid = player.Character:WaitForChild("Humanoid")
    if torso and humanoid then
        torso.CFrame = CFrame.new(workspace["R62_Trk4"].Model.VehicleSeat.Position + Vector3.new(0, 3, 0))
        script.Parent.Background:Destroy()
        script.Parent.Annoucements.Visible = true
        script.Parent.Helper.Visible = true
        script.Parent.ChatFrame.Visible = true
        replicated.Track4.Value = Name
        replicated.Track4.ok.Value = false
    end
end)

local instructions1 = {
    "Hello! I'm mine248 and I'll be teaching you how to operate this train.",
    "Press the up key or W to go forwards.", 
    "Press the down key or S to go backwards.",
    'Check the box labeled "Annoucments."',
    'Chat what the box labeled "Annoucments." says.',
    'When it says "Stand clear of the closing doors", say it and then close the door.',
    'When it says "Stand clear of the closing doors", say it and then close the door.'
    --etc
}
local step = 1
script.Parent.Helper.TextButton.MouseButton1Click:connect(function()
    Do.Text = instructions1[step] 
    step = (step % #instructions1) + 1
    if step == 7 then
        script.Parent.Helper:Destroy()
    end 
end)

local instructions2 = {
    "This is a Grand Central bound shuttle train.",
    "The next stop is Grand Central-42nd Street.", 
    "Stand clear of the closing doors please.",
    "DO NOT SAY ANYTHING UNTIL IT'S APPROCHING GRAND CENTRAL. Then click Next.",
    "This is Grand Central-42nd Street. Transfer is available to the 4, 5, 6, and 7 trains. Connections is available to the Metro North.",
    "DO NOT SAY ANYTHING UNTIL THE TRAIN STOPS AND YOU OPEN THE DOOR.",
    "This is the last stop on the train. Please leave the train.",
    'This is a Times Square bound shuttle train.',
    'The next stop is Times Square-42nd Street.',
    "Stand clear of the closing doors please.",
    "DO NOT SAY ANYTHING UNTIL IT'S APPROCHING TIMES SQUARE. Then click Next.",
    "This is Times Square-42nd Street. Transfer is available to the 1, 2, 3, 7, A, C, E, N, Q, and R trains. Connections is available to the Port Authority Bus Terminal.",
    "DO NOT SAY ANYTHING UNTIL THE TRAIN STOPS AND YOU OPEN THE DOOR.",
    "This is the last stop on the train. Please leave the train."
    --etc
}
local step2 = 1
script.Parent.Annoucements.TextButton.MouseButton1Click:connect(function()
    Say.Text = instructions2[step2] 
    step2 = (step2 % #instructions2) + 1
end)

while true do
    if replicated.Track1 and replicated.Track1.ok.Value ==  false then
        Track1.Visible = false
    elseif replicated.Track3 and replicated.Track3.ok.Value == false then
        Track3.Visible = false
    elseif replicated.Track4 and replicated.Track4.ok.Value ==  false then
        Track4.Visible = false
    elseif replicated.Track1 and replicated.Track1.ok.Value ==  true then
        Track1.Visible = true
    elseif replicated.Track3 and replicated.Track3.ok.Value == true then
        Track3.Visible = true
    elseif replicated.Track4 and replicated.Track4.ok.Value ==  true then
        Track4.Visible = true
    end
end