Advertisement
Not a member of Pastebin yet?
Sign Up,
it unlocks many cool features!
- local key = "udmdtcm38724234239cv,DDDf_"
- -- Objects
- local Music = Instance.new("ScreenGui")
- local Music_2 = Instance.new("Frame")
- local Create = Instance.new("TextButton")
- local MusicProperities = Instance.new("Frame")
- local Change = Instance.new("TextButton")
- local Play = Instance.new("TextButton")
- local Pitch = Instance.new("TextButton")
- local Volume = Instance.new("TextButton")
- local IDVal = Instance.new("TextBox")
- local PitchVal = Instance.new("TextBox")
- local VolumeVal = Instance.new("TextBox")
- local ImageLabel = Instance.new("ImageLabel")
- -- Properties
- MusicProperities.Visible = false
- Music.Name = "Music"
- Music.Parent = game.Players.LocalPlayer.PlayerGui
- Music_2.Name = "Music"
- Music_2.Parent = Music
- Music_2.BackgroundColor3 = Color3.new(1, 1, 1)
- Music_2.Position = UDim2.new(0, 233, 0, 171)
- Music_2.Size = UDim2.new(0, 255, 0, 100)
- Music_2.Style = Enum.FrameStyle.RobloxRound
- Create.Name = "Create"
- Create.Parent = Music_2
- Create.BackgroundColor3 = Color3.new(1, 1, 1)
- Create.Size = UDim2.new(0, 238, 0, 83)
- Create.Style = Enum.ButtonStyle.RobloxRoundDefaultButton
- Create.Font = Enum.Font.SourceSans
- Create.FontSize = Enum.FontSize.Size14
- Create.Text = "Create sound."
- Create.TextScaled = true
- Create.TextSize = 14
- Create.TextWrapped = true
- MusicProperities.Name = "MusicProperities"
- MusicProperities.Parent = Music
- MusicProperities.Active = true
- MusicProperities.BackgroundColor3 = Color3.new(1, 1, 1)
- MusicProperities.Draggable = true
- MusicProperities.Position = UDim2.new(0, 95, 0, 318)
- MusicProperities.Size = UDim2.new(0, 420, 0, 218)
- MusicProperities.Style = Enum.FrameStyle.RobloxRound
- Change.Name = "Change"
- Change.Parent = MusicProperities
- Change.BackgroundColor3 = Color3.new(1, 1, 1)
- Change.Size = UDim2.new(0, 103, 0, 50)
- Change.Style = Enum.ButtonStyle.RobloxRoundDefaultButton
- Change.Font = Enum.Font.SourceSans
- Change.FontSize = Enum.FontSize.Size14
- Change.Text = "Change ID"
- Change.TextScaled = true
- Change.TextSize = 14
- Change.TextWrapped = true
- Play.Name = "Play"
- Play.Parent = MusicProperities
- Play.BackgroundColor3 = Color3.new(1, 1, 1)
- Play.Position = UDim2.new(0, 0, 0, 125)
- Play.Size = UDim2.new(0, 103, 0, 50)
- Play.Style = Enum.ButtonStyle.RobloxRoundDefaultButton
- Play.Font = Enum.Font.SourceSans
- Play.FontSize = Enum.FontSize.Size14
- Play.Text = "Play"
- Play.TextScaled = true
- Play.TextSize = 14
- Play.TextWrapped = true
- Pitch.Name = "Pitch"
- Pitch.Parent = MusicProperities
- Pitch.BackgroundColor3 = Color3.new(1, 1, 1)
- Pitch.Position = UDim2.new(0, 0, 0, 59)
- Pitch.Size = UDim2.new(0, 103, 0, 50)
- Pitch.Style = Enum.ButtonStyle.RobloxRoundDefaultButton
- Pitch.Font = Enum.Font.SourceSans
- Pitch.FontSize = Enum.FontSize.Size14
- Pitch.Text = "Change Speed"
- Pitch.TextScaled = true
- Pitch.TextSize = 14
- Pitch.TextWrapped = true
- Volume.Name = "Volume"
- Volume.Parent = MusicProperities
- Volume.BackgroundColor3 = Color3.new(1, 1, 1)
- Volume.Position = UDim2.new(0, 300, 0, 0)
- Volume.Size = UDim2.new(0, 103, 0, 50)
- Volume.Style = Enum.ButtonStyle.RobloxRoundDefaultButton
- Volume.Font = Enum.Font.SourceSans
- Volume.FontSize = Enum.FontSize.Size14
- Volume.Text = "Change Volume"
- Volume.TextScaled = true
- Volume.TextSize = 14
- Volume.TextWrapped = true
- IDVal.Name = "IDVal"
- IDVal.Parent = MusicProperities
- IDVal.BackgroundColor3 = Color3.new(0.666667, 0, 0)
- IDVal.Position = UDim2.new(0, 114, 0, 20)
- IDVal.Size = UDim2.new(0, 96, 0, 24)
- IDVal.ClearTextOnFocus = true
- IDVal.Font = Enum.Font.SourceSans
- IDVal.FontSize = Enum.FontSize.Size14
- IDVal.Text = "Id"
- IDVal.TextScaled = true
- IDVal.TextSize = 14
- IDVal.TextWrapped = true
- PitchVal.Name = "PitchVal"
- PitchVal.Parent = MusicProperities
- PitchVal.BackgroundColor3 = Color3.new(0.666667, 0, 0)
- PitchVal.Position = UDim2.new(0, 114, 0, 85)
- PitchVal.Size = UDim2.new(0, 96, 0, 24)
- PitchVal.ClearTextOnFocus = false
- PitchVal.Font = Enum.Font.SourceSans
- PitchVal.FontSize = Enum.FontSize.Size14
- PitchVal.Text = "Speed Number"
- PitchVal.TextScaled = true
- PitchVal.TextSize = 14
- PitchVal.TextWrapped = true
- VolumeVal.Name = "VolumeVal"
- VolumeVal.Parent = MusicProperities
- VolumeVal.BackgroundColor3 = Color3.new(0.666667, 0, 0)
- VolumeVal.Position = UDim2.new(0, 305, 0, 48)
- VolumeVal.Size = UDim2.new(0, 96, 0, 24)
- VolumeVal.ClearTextOnFocus = false
- VolumeVal.Font = Enum.Font.SourceSans
- VolumeVal.FontSize = Enum.FontSize.Size14
- VolumeVal.Text = "0.500"
- VolumeVal.TextScaled = true
- VolumeVal.TextSize = 14
- VolumeVal.TextWrapped = true
- ImageLabel.Parent = MusicProperities
- ImageLabel.BackgroundColor3 = Color3.new(1, 1, 1)
- ImageLabel.BackgroundTransparency = 1
- ImageLabel.Position = UDim2.new(0, 302, 0, 109)
- ImageLabel.Size = UDim2.new(0, 102, 0, 100)
- ImageLabel.Image = "rbxassetid://24716155"
- ----------------------
- Create.MouseButton1Down:Connect(function()
- sound = Instance.new("Sound", workspace)
- sound.Name = key
- Music_2.Visible = false
- MusicProperities.Visible = true
- end)
- Change.MouseButton1Down:Connect(function()
- sound.SoundId = "rbxassetid://"..IDVal.Text
- end)
- Play.MouseButton1Down:Connect(function()
- if Play.Text == "Play" then
- sound:Play()
- Play.Text = "Stop"
- elseif Play.Text == "Stop" then
- sound:Pause()
- Play.Text = "Play"
- end
- end)
- Volume.MouseButton1Down:Connect(function()
- sound.Volume = VolumeVal.Text
- end)
- Pitch.MouseButton1Down:Connect(function()
- sound.PlaybackSpeed = PitchVal.Text
- end)
- while wait() do
- ImageLabel:TweenSize(UDim2.new(0, 102,0, 100), "Out", "Quad", 0.5, false)
- ImageLabel:TweenPosition(UDim2.new(0, 302, 0, 109), "Out", "Quad", 0.5, false)
- wait()
- ImageLabel:TweenPosition(UDim2.new(0, 346,0, 157), "Out", "Quad", 0.5, false)
- ImageLabel:TweenSize(UDim2.new(0, 41,0, 42), "Out", "Quad", 0.5, false)
- end
Advertisement
Add Comment
Please, Sign In to add comment
Advertisement