Advertisement
AlQaza

Untitled

Apr 19th, 2017
100
0
Never
Not a member of Pastebin yet? Sign Up, it unlocks many cool features!
text 5.67 KB | None | 0 0
  1. local key = "udmdtcm38724234239cv,DDDf_"
  2. -- Objects
  3.  
  4. local Music = Instance.new("ScreenGui")
  5. local Music_2 = Instance.new("Frame")
  6. local Create = Instance.new("TextButton")
  7. local MusicProperities = Instance.new("Frame")
  8. local Change = Instance.new("TextButton")
  9. local Play = Instance.new("TextButton")
  10. local Pitch = Instance.new("TextButton")
  11. local Volume = Instance.new("TextButton")
  12. local IDVal = Instance.new("TextBox")
  13. local PitchVal = Instance.new("TextBox")
  14. local VolumeVal = Instance.new("TextBox")
  15. local ImageLabel = Instance.new("ImageLabel")
  16.  
  17. -- Properties
  18. MusicProperities.Visible = false
  19. Music.Name = "Music"
  20. Music.Parent = game.Players.LocalPlayer.PlayerGui
  21.  
  22. Music_2.Name = "Music"
  23. Music_2.Parent = Music
  24. Music_2.BackgroundColor3 = Color3.new(1, 1, 1)
  25. Music_2.Position = UDim2.new(0, 233, 0, 171)
  26. Music_2.Size = UDim2.new(0, 255, 0, 100)
  27. Music_2.Style = Enum.FrameStyle.RobloxRound
  28.  
  29. Create.Name = "Create"
  30. Create.Parent = Music_2
  31. Create.BackgroundColor3 = Color3.new(1, 1, 1)
  32. Create.Size = UDim2.new(0, 238, 0, 83)
  33. Create.Style = Enum.ButtonStyle.RobloxRoundDefaultButton
  34. Create.Font = Enum.Font.SourceSans
  35. Create.FontSize = Enum.FontSize.Size14
  36. Create.Text = "Create sound."
  37. Create.TextScaled = true
  38. Create.TextSize = 14
  39. Create.TextWrapped = true
  40.  
  41. MusicProperities.Name = "MusicProperities"
  42. MusicProperities.Parent = Music
  43. MusicProperities.Active = true
  44. MusicProperities.BackgroundColor3 = Color3.new(1, 1, 1)
  45. MusicProperities.Draggable = true
  46. MusicProperities.Position = UDim2.new(0, 95, 0, 318)
  47. MusicProperities.Size = UDim2.new(0, 420, 0, 218)
  48. MusicProperities.Style = Enum.FrameStyle.RobloxRound
  49.  
  50. Change.Name = "Change"
  51. Change.Parent = MusicProperities
  52. Change.BackgroundColor3 = Color3.new(1, 1, 1)
  53. Change.Size = UDim2.new(0, 103, 0, 50)
  54. Change.Style = Enum.ButtonStyle.RobloxRoundDefaultButton
  55. Change.Font = Enum.Font.SourceSans
  56. Change.FontSize = Enum.FontSize.Size14
  57. Change.Text = "Change ID"
  58. Change.TextScaled = true
  59. Change.TextSize = 14
  60. Change.TextWrapped = true
  61.  
  62. Play.Name = "Play"
  63. Play.Parent = MusicProperities
  64. Play.BackgroundColor3 = Color3.new(1, 1, 1)
  65. Play.Position = UDim2.new(0, 0, 0, 125)
  66. Play.Size = UDim2.new(0, 103, 0, 50)
  67. Play.Style = Enum.ButtonStyle.RobloxRoundDefaultButton
  68. Play.Font = Enum.Font.SourceSans
  69. Play.FontSize = Enum.FontSize.Size14
  70. Play.Text = "Play"
  71. Play.TextScaled = true
  72. Play.TextSize = 14
  73. Play.TextWrapped = true
  74.  
  75. Pitch.Name = "Pitch"
  76. Pitch.Parent = MusicProperities
  77. Pitch.BackgroundColor3 = Color3.new(1, 1, 1)
  78. Pitch.Position = UDim2.new(0, 0, 0, 59)
  79. Pitch.Size = UDim2.new(0, 103, 0, 50)
  80. Pitch.Style = Enum.ButtonStyle.RobloxRoundDefaultButton
  81. Pitch.Font = Enum.Font.SourceSans
  82. Pitch.FontSize = Enum.FontSize.Size14
  83. Pitch.Text = "Change Speed"
  84. Pitch.TextScaled = true
  85. Pitch.TextSize = 14
  86. Pitch.TextWrapped = true
  87.  
  88. Volume.Name = "Volume"
  89. Volume.Parent = MusicProperities
  90. Volume.BackgroundColor3 = Color3.new(1, 1, 1)
  91. Volume.Position = UDim2.new(0, 300, 0, 0)
  92. Volume.Size = UDim2.new(0, 103, 0, 50)
  93. Volume.Style = Enum.ButtonStyle.RobloxRoundDefaultButton
  94. Volume.Font = Enum.Font.SourceSans
  95. Volume.FontSize = Enum.FontSize.Size14
  96. Volume.Text = "Change Volume"
  97. Volume.TextScaled = true
  98. Volume.TextSize = 14
  99. Volume.TextWrapped = true
  100.  
  101. IDVal.Name = "IDVal"
  102. IDVal.Parent = MusicProperities
  103. IDVal.BackgroundColor3 = Color3.new(0.666667, 0, 0)
  104. IDVal.Position = UDim2.new(0, 114, 0, 20)
  105. IDVal.Size = UDim2.new(0, 96, 0, 24)
  106. IDVal.ClearTextOnFocus = true
  107. IDVal.Font = Enum.Font.SourceSans
  108. IDVal.FontSize = Enum.FontSize.Size14
  109. IDVal.Text = "Id"
  110. IDVal.TextScaled = true
  111. IDVal.TextSize = 14
  112. IDVal.TextWrapped = true
  113.  
  114. PitchVal.Name = "PitchVal"
  115. PitchVal.Parent = MusicProperities
  116. PitchVal.BackgroundColor3 = Color3.new(0.666667, 0, 0)
  117. PitchVal.Position = UDim2.new(0, 114, 0, 85)
  118. PitchVal.Size = UDim2.new(0, 96, 0, 24)
  119. PitchVal.ClearTextOnFocus = false
  120. PitchVal.Font = Enum.Font.SourceSans
  121. PitchVal.FontSize = Enum.FontSize.Size14
  122. PitchVal.Text = "Speed Number"
  123. PitchVal.TextScaled = true
  124. PitchVal.TextSize = 14
  125. PitchVal.TextWrapped = true
  126.  
  127. VolumeVal.Name = "VolumeVal"
  128. VolumeVal.Parent = MusicProperities
  129. VolumeVal.BackgroundColor3 = Color3.new(0.666667, 0, 0)
  130. VolumeVal.Position = UDim2.new(0, 305, 0, 48)
  131. VolumeVal.Size = UDim2.new(0, 96, 0, 24)
  132. VolumeVal.ClearTextOnFocus = false
  133. VolumeVal.Font = Enum.Font.SourceSans
  134. VolumeVal.FontSize = Enum.FontSize.Size14
  135. VolumeVal.Text = "0.500"
  136. VolumeVal.TextScaled = true
  137. VolumeVal.TextSize = 14
  138. VolumeVal.TextWrapped = true
  139.  
  140. ImageLabel.Parent = MusicProperities
  141. ImageLabel.BackgroundColor3 = Color3.new(1, 1, 1)
  142. ImageLabel.BackgroundTransparency = 1
  143. ImageLabel.Position = UDim2.new(0, 302, 0, 109)
  144. ImageLabel.Size = UDim2.new(0, 102, 0, 100)
  145. ImageLabel.Image = "rbxassetid://24716155"
  146. ----------------------
  147. Create.MouseButton1Down:Connect(function()
  148. sound = Instance.new("Sound", workspace)
  149. sound.Name = key
  150. Music_2.Visible = false
  151. MusicProperities.Visible = true
  152. end)
  153. Change.MouseButton1Down:Connect(function()
  154. sound.SoundId = "rbxassetid://"..IDVal.Text
  155. end)
  156.  
  157. Play.MouseButton1Down:Connect(function()
  158. if Play.Text == "Play" then
  159. sound:Play()
  160. Play.Text = "Stop"
  161.  
  162. elseif Play.Text == "Stop" then
  163. sound:Pause()
  164. Play.Text = "Play"
  165. end
  166. end)
  167.  
  168. Volume.MouseButton1Down:Connect(function()
  169. sound.Volume = VolumeVal.Text
  170. end)
  171.  
  172. Pitch.MouseButton1Down:Connect(function()
  173. sound.PlaybackSpeed = PitchVal.Text
  174. end)
  175. while wait() do
  176. ImageLabel:TweenSize(UDim2.new(0, 102,0, 100), "Out", "Quad", 0.5, false)
  177. ImageLabel:TweenPosition(UDim2.new(0, 302, 0, 109), "Out", "Quad", 0.5, false)
  178. wait()
  179. ImageLabel:TweenPosition(UDim2.new(0, 346,0, 157), "Out", "Quad", 0.5, false)
  180. ImageLabel:TweenSize(UDim2.new(0, 41,0, 42), "Out", "Quad", 0.5, false)
  181. end
Advertisement
Add Comment
Please, Sign In to add comment
Advertisement