Advertisement
yamanohera155233

Untitled

Jun 25th, 2016
165
0
Never
Not a member of Pastebin yet? Sign Up, it unlocks many cool features!
text 2.92 KB | None | 0 0
  1. local Player = game.Players.LocalPlayer
  2. local c = Player.Character
  3. if not c or not c.Parent then
  4. c = Player.CharacterAdded:wait()
  5. end
  6.  
  7. wait(1)
  8.  
  9. local radio = Instance.new("Part",c)
  10. radio.Name = "Radio"
  11. radio.CanCollide = false
  12. radio.Anchored = true
  13. radio.FormFactor = "Custom"
  14. radio.Size = Vector3.new(3.2, 1.43, 0.8)
  15. radio.CFrame = c.Torso.CFrame * CFrame.new(0,0,.8)
  16. radio.CFrame = radio.CFrame * CFrame.fromEulerAnglesXYZ(0,3.15,0)
  17. radio.CFrame = radio.CFrame * CFrame.fromEulerAnglesXYZ(0,0,0)
  18.  
  19. local mesh = Instance.new("SpecialMesh",radio)
  20. mesh.MeshId = "http://www.roblox.com/asset/?id=119447056"
  21. mesh.TextureId = "https://www.roblox.com/asset/?id=119444340"
  22.  
  23. local weld = Instance.new("Weld",radio)
  24. weld.Part0 = c.Torso
  25. weld.Part1 = radio
  26. weld.C0 = c.Torso.CFrame:inverse()
  27. weld.C1 = radio.CFrame:inverse()
  28. radio.Anchored = false
  29.  
  30. local sound = Instance.new("Sound",radio)
  31. sound.Name = "Music"
  32. sound.Looped = true
  33. sound.Volume = 1
  34.  
  35. local gui = Instance.new("ScreenGui",Player.PlayerGui)
  36.  
  37. local frame = Instance.new("Frame",gui)
  38. frame.BackgroundColor3 = Color3.new(58/255,58/255,58/255)
  39. frame.BorderColor3 = Color3.new(0,0,0)
  40. frame.BorderSizePixel = 2
  41. frame.Size = UDim2.new(0,300,0,200)
  42. frame.Position = UDim2.new(0,20,.5,-100)
  43.  
  44. local playb = Instance.new("TextButton",frame)
  45. playb.BackgroundColor3 = Color3.new(0,85/255,0)
  46. playb.BorderColor3 = Color3.new(0,0,0)
  47. playb.BorderSizePixel = 2
  48. playb.Size = UDim2.new(.3,0,.2,0)
  49. playb.Position = UDim2.new(.1,0,.7,0)
  50. playb.Text = "Play"
  51. playb.TextColor3 = Color3.new(255,255,255)
  52. playb.TextScaled = true
  53.  
  54. local stopb = Instance.new("TextButton",frame)
  55. stopb.BackgroundColor3 = Color3.new(170/255,0,0)
  56. stopb.BorderColor3 = Color3.new(0,0,0)
  57. stopb.BorderSizePixel = 2
  58. stopb.Size = UDim2.new(.3,0,.2,0)
  59. stopb.Position = UDim2.new(.6,0,.7,0)
  60. stopb.Text = "Stop"
  61. stopb.TextColor3 = Color3.new(255,255,255)
  62. stopb.TextScaled = true
  63.  
  64. local stipb = Instance.new("TextBox",frame)
  65. stipb.BackgroundColor3 = Color3.new(0,0,127/255)
  66. stipb.BorderColor3 = Color3.new(0,0,0)
  67. stipb.BorderSizePixel = 2
  68. stipb:TweenSize(UDim2.new(.5,0,.25,0),"Out","Quad",1,true)
  69. stipb.Position = UDim2.new(.25,0,.3,0)
  70. stipb.Text = "SoundId"
  71. stipb.TextColor3 = Color3.new(255,255,255)
  72. stipb.TextScaled = true
  73.  
  74. local label = Instance.new("TextLabel",frame)
  75. label.Text = "Made By ChuckXZ!"
  76. label.TextScaled = true
  77. label:TweenSize(UDim2.new(1,0,.2,0))
  78. label.TextColor3 = Color3.new(255,255,255)
  79. label.BackgroundTransparency = 1
  80. --stipb.Size = UDim2.new(1,0,.2,0)
  81.  
  82. local Playing = false
  83.  
  84. stipb.Changed:connect(function()
  85. sound.SoundId = "rbxassetid://" .. stipb.Text
  86. end)
  87.  
  88. playb.MouseButton1Click:connect(function()
  89. sound:Play()
  90. Playing = true
  91. end)
  92.  
  93. stopb.MouseButton1Click:connect(function()
  94. sound:Stop()
  95. Playing = false
  96. end)
  97.  
  98. while true do
  99. if Playing then
  100. mesh.Scale = Vector3.new(1.1,1.1,1.1)
  101. wait(.2)
  102. mesh.Scale = Vector3.new(1,1,1)
  103. end
  104. wait(.2)
  105. end
Advertisement
Add Comment
Please, Sign In to add comment
Advertisement