Advertisement
thatonepuggo

radio but anywhere :O

Aug 14th, 2020 (edited)
78
0
Never
Not a member of Pastebin yet? Sign Up, it unlocks many cool features!
text 2.03 KB | None | 0 0
  1. -- edit "plr" before using!
  2. local prefix = ">"
  3. local plr = game.Players["oof0m"]
  4.  
  5. local char = plr.Character
  6. local part = Instance.new("Part",char)
  7. local mesh = Instance.new("SpecialMesh",part)
  8. local weld = Instance.new("Weld",part)
  9. local sound = Instance.new("Sound",part)
  10. local run = game:GetService("RunService")
  11. local ts = game:GetService("TweenService")
  12. local info = TweenInfo.new(1,Enum.EasingStyle.Quad,Enum.EasingDirection.InOut,0,false,0)
  13. sound.SoundId = "rbxassetid://2791762394"
  14. sound.Volume = 10
  15. sound.Looped = true
  16. sound:Play()
  17. part.CFrame = char.HumanoidRootPart.CFrame - Vector3.new(0,0,.5)
  18. part.CanCollide = false
  19.  
  20. mesh.MeshId = "rbxassetid://212302951"
  21. mesh.TextureId = "rbxassetid://212303049"
  22. mesh.Scale = Vector3.new(5,5,5)
  23. weld.Part0 = part
  24. weld.Part1 = char.Head
  25. weld.C0 = CFrame.new(0,3,0):Inverse()
  26.  
  27. local change2 = false
  28. run.Heartbeat:Connect(function()
  29. if change2 == false then
  30. change2 = true
  31. local goals = {C0 = CFrame.new(0,4,0):Inverse()}
  32. ts:Create(weld,info,goals):Play()
  33. wait(1)
  34. local goals = {C0 = CFrame.new(0,3,0):Inverse()}
  35. ts:Create(weld,info,goals):Play()
  36. wait(1)
  37. change2 = false
  38. end
  39. end)
  40.  
  41. plr.Chatted:Connect(function(cht,rec)
  42. local lowerd = string.lower(cht)
  43. local msg = lowerd:split(" ")
  44. if msg[1] == prefix.."play" then
  45. sound.SoundId = "rbxassetid://".. msg[2]
  46. sound:Play()
  47. elseif msg[1] == prefix.."vol" then
  48. sound.Volume = msg[2]
  49. end
  50. end)
  51.  
  52. for _, child in pairs(plr.Character:GetDescendants()) do
  53. if child:IsA("Part") or child:IsA("MeshPart") or child:IsA("UnionOperation") then
  54. child.Material = Enum.Material.ForceField
  55. local Brick = child
  56. local speed = 5
  57. local change = false
  58. for _, child in pairs(char:GetDescendants()) do
  59. if child:IsA("Part") then
  60. child.Material = Enum.Material.ForceField
  61. run.Heartbeat:Connect(function()
  62. --rainbow effect loop
  63.  
  64. for i = 0,1,0.001*speed do
  65. if change == false then
  66. change = true
  67. Brick.Color = Color3.fromHSV(i,1,1) --creates a color using i
  68. wait()
  69. change = false
  70. end
  71. end
  72.  
  73. end)
  74. end
  75. end
  76. end
  77. end
Advertisement
Add Comment
Please, Sign In to add comment
Advertisement