The title is self explanatory:
local k = script.Parent
local s = script.Parent:FindFirstChild("Click")
local hm = script.Parent:FindFirstChild("vhs thing")
local other = script.Parent:FindFirstChild("Sound")
hm:Play()
wait(0.5)
k.Text = "W"
s:Play()
wait(0.5)
k.Text = "We"
s:Play()
wait(0.5)
k.Text = "Wel"
s:Play()
wait(0.5)
hm:Stop()
k.Text = "Welc"
s:Play()
other:Play()
wait(0.5)
k.Text = "Welco"
s:Play()
wait(0.5)
k.Text = "Welcom"
s:Play()
wait(0.5)
k.Text = "Welcome"
s:Play()
wait(1)
repeat wait(0.1) k.TextTransparency = k.TextTransparency + 0.1 until k.TextTransparency == 1
wait(3)
repeat wait(0.1) other.Volume = other.Volume - 0.1 until other.Volume <= 0
script.Parent.Sound.Volume = 0
script.Parent:Destroy()

1 comment
you could make this code way better, check out loops on the wiki