hey guys, anyone know why the sound wont stop playing after I go to the next screen? seems pretty straight forward but I don’t know why its not working.
-- Screens
local create = script.Parent.Create
local choice = script.Parent.Parent.ChoiceFrame
--fade variables
local frame = script.Parent
local Ptext = script.Parent.Ptext
local Rtext = script.Parent.Rtext
local Otext = script.Parent.Otext
local Jtext = script.Parent.Jtext
local Etext = script.Parent.Etext
local Ctext = script.Parent.Ctext
local Ttext = script.Parent.Ttext
local Sanctum = script.Parent.TextLabel
--sounds
local sound1 = Instance.new("Sound")
-----------------------------------------------------------------
-- music play
sound1.Volume = .2
sound1.SoundId = "rbxassetid://3163730521"
sound1.Parent = script.Parent.Parent
sound1:Play()
-- animation for title text
Ptext.Visible = true
Ptext:TweenPosition(UDim2.new(0.215,0,-0.0009,75),"Out","Quad", 2, false, nil)
wait(0.5)
Rtext.Visible = true
Rtext:TweenPosition(UDim2.new(0.28,0, 0.0008,75),"Out","Quad", 2, false, nil)
wait(0.5)
Otext.Visible = true
Otext:TweenPosition(UDim2.new(0.364,0, 0.0006,75),"Out","Quad", 2, false, nil)
wait(0.5)
Jtext.Visible = true
Jtext:TweenPosition(UDim2.new(0.449,0, 0.012,75),"Out","Quad", 2, false, nil)
wait(0.5)
Etext.Visible = true
Etext:TweenPosition(UDim2.new(0.519,0, 0.012,75),"Out","Quad", 2, false, nil)
wait(0.5)
Ctext.Visible = true
Ctext:TweenPosition(UDim2.new(0.609,0, 0.005,75),"Out","Quad", 2, false, nil)
wait(0.5)
Ttext.Visible = true
Ttext:TweenPosition(UDim2.new(0.702,0,-0.015,75),"Out","Quad", 2, false, nil)
wait(1.5)
Sanctum.Visible = true
Sanctum:TweenPosition(UDim2.new(0.414,0,0.368,5),"Out","Quad", 2, false, nil)
wait(1.5)
create.Visible = true
create:TweenPosition(UDim2.new(0.494,0,0.754,-3),"In","Quad", 0, false, nil)
-- new game button click
create.MouseButton1Click:Connect(function()
local sound = Instance.new("Sound")
sound.Volume = 1
sound.SoundId = "rbxassetid://2193279623"
sound.Parent = script.Parent
sound:Play()
for i = 0, 1, 0.2 do
create.TextTransparency = i
Ptext.ImageTransparency = i
Rtext.ImageTransparency = i
Otext.ImageTransparency = i
Jtext.ImageTransparency = i
Etext.ImageTransparency = i
Ctext.ImageTransparency = i
Ttext.ImageTransparency = i
Sanctum.TextTransparency = i
wait(1)
end
create.Visible = false
choice.Visible = true
sound1:Stop()
script.FirstScreenFinished:Fire()
end)