Advertisement
FloweyTheFlower

Roblox Scripts #21 Neon Tail Can Music

Aug 29th, 2017
1,102
0
Never
Not a member of Pastebin yet? Sign Up, it unlocks many cool features!
text 13.23 KB | None | 0 0
  1. -- visualizer
  2. local Parts = {}
  3. local Parts2 = {}
  4. local Direction = 1
  5. local loudness = 0
  6. local TColor = BrickColor.new("Black")
  7. for i = 1, 100 do
  8. local p = Instance.new("Part", game.Players.LocalPlayer.Character.Torso)
  9. p.Size = Vector3.new(0.2, 0.2, 0.2)
  10. p.Anchored = true
  11. p.CanCollide = false
  12. p.Material = "Neon"
  13. p.Position = game.Players.LocalPlayer.Character.Torso.Position
  14. table.insert(Parts, p)
  15. end
  16. for i = 1, 100 do
  17. local p = Instance.new("Part", game.Players.LocalPlayer.Character.Torso)
  18. p.Size = Vector3.new(0.2, 0.2, 0.2)
  19. p.Anchored = true
  20. p.CanCollide = false
  21. p.Material = "Neon"
  22. p.Position = game.Players.LocalPlayer.Character.Torso.Position
  23. table.insert(Parts2, p)
  24. end
  25. local sound = Instance.new("Sound", game.Players.LocalPlayer.Character.Torso)
  26. sound.SoundId = "rbxassetid://574539049"
  27. sound.Volume = 1
  28. sound:Play()
  29. spawn(function()
  30. local SelectedPart = 0
  31. while true do
  32. if Direction == 1 then
  33. if SelectedPart < #Parts then
  34. SelectedPart = SelectedPart + Direction
  35. else
  36. Direction = -1
  37. TColor = BrickColor.Random()
  38. end
  39. elseif Direction == -1 then
  40. if SelectedPart > 1 then
  41. SelectedPart = SelectedPart + Direction
  42. else
  43. Direction = 1
  44. TColor = BrickColor.Random()
  45. end
  46. end
  47. local sel = Parts[SelectedPart]
  48. local sel2 = Parts2[SelectedPart]
  49. sel.BrickColor = BrickColor.Random()
  50. sel2.BrickColor = BrickColor.Random()
  51. loudness = sound.PlaybackLoudness / 500
  52. sel.Size = Vector3.new(loudness, loudness, 0.2)
  53. sel2.Size = Vector3.new(loudness, loudness, 0.2)
  54. wait()
  55. sel.BrickColor = TColor
  56. sel2.BrickColor = TColor
  57. end
  58. end)
  59. game:GetService("RunService").RenderStepped:connect(function()
  60. for i = 1, #Parts do
  61. if i == 1 then
  62. Parts[i].CFrame = Parts[i].CFrame:lerp(game.Players.LocalPlayer.Character.Torso.CFrame, 0.9)
  63. else
  64. Parts[i].CFrame = Parts[i].CFrame:lerp(Parts[i - 1].CFrame * CFrame.Angles(-loudness / 20, math.sin(-loudness / 50), 0) * CFrame.new(0, 0, 0.15), 0.8)
  65. end
  66. end
  67. for i = 1, #Parts2 do
  68. if i == 1 then
  69. Parts2[i].CFrame = Parts2[i].CFrame:lerp(game.Players.LocalPlayer.Character.Torso.CFrame, 0.9)
  70. else
  71. Parts2[i].CFrame = Parts2[i].CFrame:lerp(Parts2[i - 1].CFrame * CFrame.Angles(-loudness / 20, math.sin(loudness / 50), 0) * CFrame.new(0, 0, 0.15), 0.8)
  72. end
  73. end
  74. end)
  75.  
  76. -- visualizer gui
  77.  
  78. local visualizergui = Instance.new("ScreenGui")
  79. local Frame = Instance.new("Frame")
  80. local idvalue = Instance.new("TextBox")
  81. local play = Instance.new("TextButton")
  82. local volume = Instance.new("TextBox")
  83. local pitch = Instance.new("TextBox")
  84. local close = Instance.new("TextButton")
  85. local min = Instance.new("TextButton")
  86. local credits = Instance.new("TextLabel")
  87. local open = Instance.new("TextButton")
  88. local set2 = Instance.new("TextButton")
  89. local set1 = Instance.new("TextButton")
  90. local loop = Instance.new("TextButton")
  91.  
  92. --properties xd
  93. visualizergui.Name = "visualizergui"
  94. visualizergui.Parent = game.Players.LocalPlayer.PlayerGui
  95.  
  96. Frame.Parent = visualizergui
  97. Frame.BackgroundColor3 = Color3.new(0.701961, 0.952941, 1)
  98. Frame.BackgroundTransparency = 0.20000000298023
  99. Frame.BorderColor3 = Color3.new(0.211765, 0.329412, 0.415686)
  100. Frame.BorderSizePixel = 8
  101. Frame.Position = UDim2.new(0, 51, 0, 213)
  102. Frame.Size = UDim2.new(0, 418, 0, 213)
  103. Frame.Active = true
  104. Frame.Draggable = true
  105. Frame.Visible = false
  106.  
  107. idvalue.Name = "idvalue"
  108. idvalue.Parent = Frame
  109. idvalue.BackgroundColor3 = Color3.new(0.666667, 1, 1)
  110. idvalue.BackgroundTransparency = 0.5
  111. idvalue.Size = UDim2.new(0, 418, 0, 50)
  112. idvalue.Font = Enum.Font.Fantasy
  113. idvalue.FontSize = Enum.FontSize.Size24
  114. idvalue.Text = "Put ID plz"
  115. idvalue.TextSize = 24
  116.  
  117. play.Name = "play"
  118. play.Parent = Frame
  119. play.BackgroundColor3 = Color3.new(0.666667, 1, 1)
  120. play.BackgroundTransparency = 0.44999998807907
  121. play.BorderColor3 = Color3.new(0.207843, 0.0901961, 0.0705882)
  122. play.BorderSizePixel = 3
  123. play.Position = UDim2.new(0, 9, 0, 82)
  124. play.Size = UDim2.new(0, 117, 0, 50)
  125. play.Font = Enum.Font.SourceSans
  126. play.FontSize = Enum.FontSize.Size28
  127. play.Text = "Play"
  128. play.TextSize = 28
  129.  
  130. volume.Name = "volume"
  131. volume.Parent = Frame
  132. volume.BackgroundColor3 = Color3.new(0.666667, 1, 1)
  133. volume.BackgroundTransparency = 0.44999998807907
  134. volume.BorderColor3 = Color3.new(0.207843, 0.0901961, 0.0705882)
  135. volume.BorderSizePixel = 3
  136. volume.Position = UDim2.new(0, 151, 0, 82)
  137. volume.Size = UDim2.new(0, 117, 0, 50)
  138. volume.Font = Enum.Font.SourceSans
  139. volume.FontSize = Enum.FontSize.Size28
  140. volume.Text = "Volume"
  141. volume.TextSize = 28
  142.  
  143. pitch.Name = "pitch"
  144. pitch.Parent = Frame
  145. pitch.BackgroundColor3 = Color3.new(0.666667, 1, 1)
  146. pitch.BackgroundTransparency = 0.44999998807907
  147. pitch.BorderColor3 = Color3.new(0.207843, 0.0901961, 0.0705882)
  148. pitch.BorderSizePixel = 3
  149. pitch.Position = UDim2.new(0, 291, 0, 82)
  150. pitch.Size = UDim2.new(0, 117, 0, 50)
  151. pitch.Font = Enum.Font.SourceSans
  152. pitch.FontSize = Enum.FontSize.Size28
  153. pitch.Text = "Pitch"
  154. pitch.TextSize = 28
  155.  
  156. close.Name = "close"
  157. close.Parent = Frame
  158. close.BackgroundColor3 = Color3.new(1, 0, 0.0156863)
  159. close.BackgroundTransparency = 0.40000000596046
  160. close.Position = UDim2.new(0, 393, 0, 190)
  161. close.Size = UDim2.new(0, 25, 0, 23)
  162. close.Font = Enum.Font.SourceSans
  163. close.FontSize = Enum.FontSize.Size28
  164. close.Text = "X"
  165. close.TextSize = 28
  166.  
  167. min.Name = "min"
  168. min.Parent = Frame
  169. min.BackgroundColor3 = Color3.new(0.286275, 0.286275, 1)
  170. min.BackgroundTransparency = 0.40000000596046
  171. min.Position = UDim2.new(0, 357, 0, 190)
  172. min.Size = UDim2.new(0, 25, 0, 23)
  173. min.Font = Enum.Font.SourceSans
  174. min.FontSize = Enum.FontSize.Size36
  175. min.Text = "-"
  176. min.TextSize = 36
  177.  
  178. credits.Name = "credits"
  179. credits.Parent = Frame
  180. credits.BackgroundColor3 = Color3.new(1, 1, 1)
  181. credits.BackgroundTransparency = 1
  182. credits.Position = UDim2.new(0, 0, 0, 161)
  183. credits.Size = UDim2.new(0, 200, 0, 52)
  184. credits.Font = Enum.Font.SourceSans
  185. credits.FontSize = Enum.FontSize.Size14
  186. credits.Text = "credits to mr steal yo bork for gui, i didn't make the visualizer credits to whoever leaked it or made it."
  187. credits.TextSize = 14
  188. credits.TextWrapped = true
  189.  
  190. open.Name = "open"
  191. open.Parent = visualizergui
  192. open.BackgroundColor3 = Color3.new(0.666667, 1, 1)
  193. open.BackgroundTransparency = 0.44999998807907
  194. open.BorderColor3 = Color3.new(0.207843, 0.0901961, 0.0705882)
  195. open.BorderSizePixel = 3
  196. open.Position = UDim2.new(0, 0, 0, 400)
  197. open.Size = UDim2.new(0, 59, 0, 50)
  198. open.Font = Enum.Font.SourceSans
  199. open.FontSize = Enum.FontSize.Size28
  200. open.Text = "Open"
  201. open.TextSize = 28
  202. open.Visible = false
  203.  
  204. set2.Name = "set2"
  205. set2.Parent = Frame
  206. set2.BackgroundColor3 = Color3.new(0.666667, 1, 1)
  207. set2.BackgroundTransparency = 0.44999998807907
  208. set2.BorderColor3 = Color3.new(0.207843, 0.0901961, 0.0705882)
  209. set2.BorderSizePixel = 3
  210. set2.Position = UDim2.new(0, 325, 0, 136)
  211. set2.Size = UDim2.new(0, 55, 0, 25)
  212. set2.Font = Enum.Font.SourceSans
  213. set2.FontSize = Enum.FontSize.Size24
  214. set2.Text = "Set"
  215. set2.TextSize = 24
  216. set2.TextWrapped = true
  217.  
  218. set1.Name = "set1"
  219. set1.Parent = Frame
  220. set1.BackgroundColor3 = Color3.new(0.666667, 1, 1)
  221. set1.BackgroundTransparency = 0.44999998807907
  222. set1.BorderColor3 = Color3.new(0.207843, 0.0901961, 0.0705882)
  223. set1.BorderSizePixel = 3
  224. set1.Position = UDim2.new(0, 181, 0, 136)
  225. set1.Size = UDim2.new(0, 55, 0, 25)
  226. set1.Font = Enum.Font.SourceSans
  227. set1.FontSize = Enum.FontSize.Size24
  228. set1.Text = "Set"
  229. set1.TextSize = 24
  230. set1.TextWrapped = true
  231.  
  232. loop.Name = "loop"
  233. loop.Parent = Frame
  234. loop.BackgroundColor3 = Color3.new(0.666667, 1, 1)
  235. loop.BackgroundTransparency = 0.44999998807907
  236. loop.BorderColor3 = Color3.new(0.207843, 0.0901961, 0.0705882)
  237. loop.BorderSizePixel = 3
  238. loop.Position = UDim2.new(0, 241, 0, 188)
  239. loop.Size = UDim2.new(0, 84, 0, 25)
  240. loop.Font = Enum.Font.SourceSans
  241. loop.FontSize = Enum.FontSize.Size18
  242. loop.Text = "Loop : OFF"
  243. loop.TextSize = 18
  244. loop.TextWrapped = true
  245.  
  246. -- functions
  247. function start()
  248. wait(0.5)
  249. Frame.Position = UDim2.new(0, -500, 0, 400)
  250. Frame.Visible = true
  251. Frame:TweenPosition(UDim2.new(0, 0, 0, 400),Enum.EasingDirection.InOut,Enum.EasingStyle.Quint,1)
  252. end
  253.  
  254. if game.Players.LocalPlayer.Character then
  255. start()
  256. else
  257. print'character not found plz try again XD'
  258. end
  259.  
  260. function minimize()
  261. Frame:TweenPosition(UDim2.new(0, 0, 0, 400),Enum.EasingDirection.InOut,Enum.EasingStyle.Quint,1)
  262. credits.Text = ""
  263. min.Text = ""
  264. close.Text = ""
  265. play.Text = ""
  266. pitch.Text = ""
  267. volume.Text = ""
  268. idvalue.Text = ""
  269. set1.Text = ""
  270. set2.Text = ""
  271. loop.Text = ""
  272. Frame:TweenSize(UDim2.new(0, 0, 0, 0),Enum.EasingDirection.InOut,Enum.EasingStyle.Quint,0.5)
  273. credits:TweenSize(UDim2.new(0, 0, 0, 0),Enum.EasingDirection.InOut,Enum.EasingStyle.Quint,0.5)
  274. min:TweenSize(UDim2.new(0, 0, 0, 0),Enum.EasingDirection.InOut,Enum.EasingStyle.Quint,0.5)
  275. close:TweenSize(UDim2.new(0, 0, 0, 0),Enum.EasingDirection.InOut,Enum.EasingStyle.Quint,0.5)
  276. idvalue:TweenSize(UDim2.new(0, 0, 0, 0),Enum.EasingDirection.InOut,Enum.EasingStyle.Quint,0.5)
  277. volume:TweenSize(UDim2.new(0, 0, 0, 0),Enum.EasingDirection.InOut,Enum.EasingStyle.Quint,0.5)
  278. play:TweenSize(UDim2.new(0, 0, 0, 0),Enum.EasingDirection.InOut,Enum.EasingStyle.Quint,0.5)
  279. pitch:TweenSize(UDim2.new(0, 0, 0, 0),Enum.EasingDirection.InOut,Enum.EasingStyle.Quint,0.5)
  280. loop:TweenSize(UDim2.new(0, 0, 0, 0),Enum.EasingDirection.InOut,Enum.EasingStyle.Quint,0.5)
  281. set1:TweenSize(UDim2.new(0, 0, 0, 0),Enum.EasingDirection.InOut,Enum.EasingStyle.Quint,0.5)
  282. set2:TweenSize(UDim2.new(0, 0, 0, 0),Enum.EasingDirection.InOut,Enum.EasingStyle.Quint,0.5)
  283. Frame:TweenPosition(UDim2.new(0, 0, 0, 400),Enum.EasingDirection.InOut,Enum.EasingStyle.Quint,0.5)
  284. wait(0.5)
  285. Frame.Visible = false
  286. open.Visible = true
  287. end
  288.  
  289. function show()
  290. open.Visible = false
  291. Frame.Position = UDim2.new(0, -500, 0, 400)
  292. Frame.Visible = true
  293. credits.Text = "credits to me for gui, i didn't make the visualizer credits to whoever leaked it or made it."
  294. min.Text = "-"
  295. close.Text = "X"
  296. play.Text = "Play"
  297. pitch.Text = "Pitch"
  298. volume.Text = "Volume"
  299. idvalue.Text = "Put ID plz"
  300. set1.Text = "Set"
  301. set2.Text = "Set"
  302. loop.Text = "Loop : OFF"
  303. Frame:TweenSize(UDim2.new(0, 418, 0, 213),Enum.EasingDirection.InOut,Enum.EasingStyle.Quint,0.5)
  304. credits:TweenSize(UDim2.new(0, 200, 0, 52),Enum.EasingDirection.InOut,Enum.EasingStyle.Quint,0.5)
  305. min:TweenSize(UDim2.new(0, 25, 0, 23),Enum.EasingDirection.InOut,Enum.EasingStyle.Quint,0.5)
  306. close:TweenSize(UDim2.new(0, 25, 0, 23),Enum.EasingDirection.InOut,Enum.EasingStyle.Quint,0.5)
  307. idvalue:TweenSize(UDim2.new(0, 418, 0, 50),Enum.EasingDirection.InOut,Enum.EasingStyle.Quint,0.5)
  308. volume:TweenSize(UDim2.new(0, 117, 0, 50),Enum.EasingDirection.InOut,Enum.EasingStyle.Quint,0.5)
  309. play:TweenSize(UDim2.new(0, 117, 0, 50),Enum.EasingDirection.InOut,Enum.EasingStyle.Quint,0.5)
  310. pitch:TweenSize(UDim2.new(0, 117, 0, 50),Enum.EasingDirection.InOut,Enum.EasingStyle.Quint,0.5)
  311. set1:TweenSize(UDim2.new(0, 55, 0, 25),Enum.EasingDirection.InOut,Enum.EasingStyle.Quint,0.5)
  312. loop:TweenSize(UDim2.new(0, 84, 0, 25),Enum.EasingDirection.InOut,Enum.EasingStyle.Quint,0.5)
  313. set2:TweenSize(UDim2.new(0, 55, 0, 25),Enum.EasingDirection.InOut,Enum.EasingStyle.Quint,0.5)
  314. Frame:TweenPosition(UDim2.new(0, 0, 0, 400),Enum.EasingDirection.InOut,Enum.EasingStyle.Quint, 0.5)
  315. end
  316.  
  317. function exitdatshit()
  318. Frame:TweenPosition(UDim2.new(0, 0, 0, 400),Enum.EasingDirection.InOut,Enum.EasingStyle.Quint,1)
  319. credits.Text = ""
  320. min.Text = ""
  321. close.Text = ""
  322. play.Text = ""
  323. pitch.Text = ""
  324. volume.Text = ""
  325. idvalue.Text = ""
  326. Frame:TweenSize(UDim2.new(0, 0, 0, 0),Enum.EasingDirection.InOut,Enum.EasingStyle.Quint,0.5)
  327. credits:TweenSize(UDim2.new(0, 0, 0, 0),Enum.EasingDirection.InOut,Enum.EasingStyle.Quint,0.5)
  328. min:TweenSize(UDim2.new(0, 0, 0, 0),Enum.EasingDirection.InOut,Enum.EasingStyle.Quint,0.5)
  329. close:TweenSize(UDim2.new(0, 0, 0, 0),Enum.EasingDirection.InOut,Enum.EasingStyle.Quint,0.5)
  330. idvalue:TweenSize(UDim2.new(0, 0, 0, 0),Enum.EasingDirection.InOut,Enum.EasingStyle.Quint,0.5)
  331. volume:TweenSize(UDim2.new(0, 0, 0, 0),Enum.EasingDirection.InOut,Enum.EasingStyle.Quint,0.5)
  332. play:TweenSize(UDim2.new(0, 0, 0, 0),Enum.EasingDirection.InOut,Enum.EasingStyle.Quint,0.5)
  333. pitch:TweenSize(UDim2.new(0, 0, 0, 0),Enum.EasingDirection.InOut,Enum.EasingStyle.Quint,0.5)
  334. set1:TweenSize(UDim2.new(0, 0, 0, 0),Enum.EasingDirection.InOut,Enum.EasingStyle.Quint,0.5)
  335. set2:TweenSize(UDim2.new(0, 0, 0, 0),Enum.EasingDirection.InOut,Enum.EasingStyle.Quint,0.5)
  336. loop:TweenSize(UDim2.new(0, 0, 0, 0),Enum.EasingDirection.InOut,Enum.EasingStyle.Quint,0.5)
  337. Frame:TweenPosition(UDim2.new(0, 0, 0, 400),Enum.EasingDirection.InOut,Enum.EasingStyle.Quint,0.5)
  338. wait(0.5)
  339. visualizergui:Destroy()
  340. end
  341.  
  342. -- events
  343. wait(1)
  344. min.MouseButton1Down:connect(function()
  345. minimize()
  346. end)
  347.  
  348. open.MouseButton1Down:connect(function()
  349. show()
  350. end)
  351.  
  352. close.MouseButton1Down:connect(function()
  353. exitdatshit()
  354. end)
  355.  
  356. set1.MouseButton1Down:connect(function()
  357. sound.Volume = volume.Text
  358. end)
  359.  
  360. set2.MouseButton1Down:connect(function()
  361. sound.Pitch = pitch.Text
  362. end)
  363.  
  364. play.MouseButton1Down:connect(function()
  365. sound.TimePosition = 0
  366. sound.SoundId = "rbxassetid://" .. idvalue.Text
  367. end)
  368.  
  369. loop.MouseButton1Down:connect(function()
  370. if loop.Text == "Loop : OFF" then
  371. sound.Looped = true
  372. loop.Text = "Loop : ON"
  373. else
  374. sound.Looped = false
  375. loop.Text = "Loop : OFF"
  376. end
  377. end)
Advertisement
Add Comment
Please, Sign In to add comment
Advertisement