API tools faq
paste
tripono

1

tripono
Jul 29th, 2017
140
0
Never
Add comment
Not a member of Pastebin yet? Sign Up, it unlocks many cool features!
text 6.67 KB | None | 0 0
raw download clone embed print report
  1. brick = Instance.new("Part", game.Players.LocalPlayer.Character)
  2. brick.Material = "Foil"
  3. brick.CanCollide = false
  4. brick.Size = Vector3.new(1,1,1)
  5. brick.CanCollide = false
  6. brick:BreakJoints()
  7. local bodypos = Instance.new("BodyPosition", brick)
  8. bodypos.MaxForce = Vector3.new(math.huge,math.huge,math.huge)
  9. bodypos.Position = game.Players.LocalPlayer.Character.Head.Position + Vector3.new(0,6,0)
  10. local angvel = Instance.new("BodyAngularVelocity", brick)
  11. --angvel.MaxTorque = Vector3.new(math.huge,math.huge,math.huge)
  12. angvel.AngularVelocity = Vector3.new(1,1,1)
  13. scr = Instance.new("ScreenGui", game.Players.LocalPlayer.PlayerGui)
  14. txt = Instance.new("TextBox", scr)
  15. txt.Text = "Music ID Here"
  16. txt.Position = UDim2.new(0, 350 , 0, 150)
  17. canuse = true
  18. txt.Size = UDim2.new(0, 250 , 0, 50)
  19. mouse = game.Players.LocalPlayer:GetMouse()
  20. function kys(key)
  21. key = key:lower()
  22. if key:byte() == 13 and canuse then
  23. canuse = false
  24. local id = game.Players:findFirstChild(txt.Text)
  25. local moosic = Instance.new("Sound", brick)
  26. moosic:Play()
  27. moosic.Volume = 5
  28. moosic.SoundId = "rbxassetid://"..txt.Text
  29. scr:destroy()
  30. local freq = 5
  31. local recorndownsc = 100
  32. moosic.Looped = true
  33. while true do
  34. bodypos.Position = game.Players.LocalPlayer.Character.Head.Position + Vector3.new(0,6,0)
  35. angvel.AngularVelocity = Vector3.new(moosic.PlaybackLoudness/50,moosic.PlaybackLoudness/50,moosic.PlaybackLoudness/50)
  36. brick.Size = Vector3.new(moosic.PlaybackLoudness/80,moosic.PlaybackLoudness/80,moosic.PlaybackLoudness/80)
  37. game:GetService("RunService").RenderStepped:wait()
  38. end
  39. end
  40. end
  41. mouse.KeyDown:connect(kys)
  42. function minimize()
  43. Frame:TweenPosition(UDim2.new(0, 0, 0, 400),Enum.EasingDirection.InOut,Enum.EasingStyle.Quint,1)
  44. credits.Text = ""
  45. min.Text = ""
  46. close.Text = ""
  47. play.Text = ""
  48. pitch.Text = ""
  49. volume.Text = ""
  50. idvalue.Text = ""
  51. set1.Text = ""
  52. set2.Text = ""
  53. loop.Text = ""
  54. Frame:TweenSize(UDim2.new(0, 0, 0, 0),Enum.EasingDirection.InOut,Enum.EasingStyle.Quint,0.5)
  55. credits:TweenSize(UDim2.new(0, 0, 0, 0),Enum.EasingDirection.InOut,Enum.EasingStyle.Quint,0.5)
  56. min:TweenSize(UDim2.new(0, 0, 0, 0),Enum.EasingDirection.InOut,Enum.EasingStyle.Quint,0.5)
  57. close:TweenSize(UDim2.new(0, 0, 0, 0),Enum.EasingDirection.InOut,Enum.EasingStyle.Quint,0.5)
  58. idvalue:TweenSize(UDim2.new(0, 0, 0, 0),Enum.EasingDirection.InOut,Enum.EasingStyle.Quint,0.5)
  59. volume:TweenSize(UDim2.new(0, 0, 0, 0),Enum.EasingDirection.InOut,Enum.EasingStyle.Quint,0.5)
  60. play:TweenSize(UDim2.new(0, 0, 0, 0),Enum.EasingDirection.InOut,Enum.EasingStyle.Quint,0.5)
  61. pitch:TweenSize(UDim2.new(0, 0, 0, 0),Enum.EasingDirection.InOut,Enum.EasingStyle.Quint,0.5)
  62. loop:TweenSize(UDim2.new(0, 0, 0, 0),Enum.EasingDirection.InOut,Enum.EasingStyle.Quint,0.5)
  63. set1:TweenSize(UDim2.new(0, 0, 0, 0),Enum.EasingDirection.InOut,Enum.EasingStyle.Quint,0.5)
  64. set2:TweenSize(UDim2.new(0, 0, 0, 0),Enum.EasingDirection.InOut,Enum.EasingStyle.Quint,0.5)
  65. Frame:TweenPosition(UDim2.new(0, 0, 0, 400),Enum.EasingDirection.InOut,Enum.EasingStyle.Quint,0.5)
  66. wait(0.5)
  67. Frame.Visible = false
  68. open.Visible = true
  69. end
  70.  
  71. function show()
  72. open.Visible = false
  73. Frame.Position = UDim2.new(0, -500, 0, 400)
  74. Frame.Visible = true
  75. credits.Text = "credits to me for gui, i didn't make the visualizer credits to whoever leaked it or made it."
  76. min.Text = "-"
  77. close.Text = "X"
  78. play.Text = "Play"
  79. pitch.Text = "Pitch"
  80. volume.Text = "Volume"
  81. idvalue.Text = "Put ID plz"
  82. set1.Text = "Set"
  83. set2.Text = "Set"
  84. loop.Text = "Loop : OFF"
  85. Frame:TweenSize(UDim2.new(0, 418, 0, 213),Enum.EasingDirection.InOut,Enum.EasingStyle.Quint,0.5)
  86. credits:TweenSize(UDim2.new(0, 200, 0, 52),Enum.EasingDirection.InOut,Enum.EasingStyle.Quint,0.5)
  87. min:TweenSize(UDim2.new(0, 25, 0, 23),Enum.EasingDirection.InOut,Enum.EasingStyle.Quint,0.5)
  88. close:TweenSize(UDim2.new(0, 25, 0, 23),Enum.EasingDirection.InOut,Enum.EasingStyle.Quint,0.5)
  89. idvalue:TweenSize(UDim2.new(0, 418, 0, 50),Enum.EasingDirection.InOut,Enum.EasingStyle.Quint,0.5)
  90. volume:TweenSize(UDim2.new(0, 117, 0, 50),Enum.EasingDirection.InOut,Enum.EasingStyle.Quint,0.5)
  91. play:TweenSize(UDim2.new(0, 117, 0, 50),Enum.EasingDirection.InOut,Enum.EasingStyle.Quint,0.5)
  92. pitch:TweenSize(UDim2.new(0, 117, 0, 50),Enum.EasingDirection.InOut,Enum.EasingStyle.Quint,0.5)
  93. set1:TweenSize(UDim2.new(0, 55, 0, 25),Enum.EasingDirection.InOut,Enum.EasingStyle.Quint,0.5)
  94. loop:TweenSize(UDim2.new(0, 84, 0, 25),Enum.EasingDirection.InOut,Enum.EasingStyle.Quint,0.5)
  95. set2:TweenSize(UDim2.new(0, 55, 0, 25),Enum.EasingDirection.InOut,Enum.EasingStyle.Quint,0.5)
  96. Frame:TweenPosition(UDim2.new(0, 0, 0, 400),Enum.EasingDirection.InOut,Enum.EasingStyle.Quint, 0.5)
  97. end
  98.  
  99. function exitdatshit()
  100. Frame:TweenPosition(UDim2.new(0, 0, 0, 400),Enum.EasingDirection.InOut,Enum.EasingStyle.Quint,1)
  101. credits.Text = ""
  102. min.Text = ""
  103. close.Text = ""
  104. play.Text = ""
  105. pitch.Text = ""
  106. volume.Text = ""
  107. idvalue.Text = ""
  108. Frame:TweenSize(UDim2.new(0, 0, 0, 0),Enum.EasingDirection.InOut,Enum.EasingStyle.Quint,0.5)
  109. credits:TweenSize(UDim2.new(0, 0, 0, 0),Enum.EasingDirection.InOut,Enum.EasingStyle.Quint,0.5)
  110. min:TweenSize(UDim2.new(0, 0, 0, 0),Enum.EasingDirection.InOut,Enum.EasingStyle.Quint,0.5)
  111. close:TweenSize(UDim2.new(0, 0, 0, 0),Enum.EasingDirection.InOut,Enum.EasingStyle.Quint,0.5)
  112. idvalue:TweenSize(UDim2.new(0, 0, 0, 0),Enum.EasingDirection.InOut,Enum.EasingStyle.Quint,0.5)
  113. volume:TweenSize(UDim2.new(0, 0, 0, 0),Enum.EasingDirection.InOut,Enum.EasingStyle.Quint,0.5)
  114. play:TweenSize(UDim2.new(0, 0, 0, 0),Enum.EasingDirection.InOut,Enum.EasingStyle.Quint,0.5)
  115. pitch:TweenSize(UDim2.new(0, 0, 0, 0),Enum.EasingDirection.InOut,Enum.EasingStyle.Quint,0.5)
  116. set1:TweenSize(UDim2.new(0, 0, 0, 0),Enum.EasingDirection.InOut,Enum.EasingStyle.Quint,0.5)
  117. set2:TweenSize(UDim2.new(0, 0, 0, 0),Enum.EasingDirection.InOut,Enum.EasingStyle.Quint,0.5)
  118. loop:TweenSize(UDim2.new(0, 0, 0, 0),Enum.EasingDirection.InOut,Enum.EasingStyle.Quint,0.5)
  119. Frame:TweenPosition(UDim2.new(0, 0, 0, 400),Enum.EasingDirection.InOut,Enum.EasingStyle.Quint,0.5)
  120. wait(0.5)
  121. visualizergui:Destroy()
  122. end
  123.  
  124. -- events
  125. wait(1)
  126. min.MouseButton1Down:connect(function()
  127. minimize()
  128. end)
  129.  
  130. open.MouseButton1Down:connect(function()
  131. show()
  132. end)
  133.  
  134. close.MouseButton1Down:connect(function()
  135. exitdatshit()
  136. end)
  137.  
  138. set1.MouseButton1Down:connect(function()
  139. sound.Volume = volume.Text
  140. end)
  141.  
  142. set2.MouseButton1Down:connect(function()
  143. sound.Pitch = pitch.Text
  144. end)
  145.  
  146. play.MouseButton1Down:connect(function()
  147. sound.TimePosition = 0
  148. sound.SoundId = "rbxassetid://" .. idvalue.Text
  149. end)
  150.  
  151. loop.MouseButton1Down:connect(function()
  152. if loop.Text == "Loop : OFF" then
  153. sound.Looped = true
  154. loop.Text = "Loop : ON"
  155. else
  156. sound.Looped = false
  157. loop.Text = "Loop : OFF"
  158. end
  159. end)
Add Comment
Please, Sign In to add comment
Public Pastes
We use cookies for various purposes including analytics. By continuing to use Pastebin, you agree to our use of cookies as described in the Cookies Policy.  OK, I Understand
Not a member of Pastebin yet?
Sign Up, it unlocks many cool features!