Advertisement
Guest User

Nowewewe

a guest
May 24th, 2019
170
0
Never
Not a member of Pastebin yet? Sign Up, it unlocks many cool features!
text 5.63 KB | None | 0 0
  1. if game:GetService("RunService"):IsClient() then error("Script must be server-side in order to work; use h/ and not hl/") end
  2. local Player,Mouse,mouse,UserInputService,ContextActionService = owner
  3. do
  4. print("FE Compatibility code by Mokiros")
  5. script.Parent = Player.Character
  6.  
  7. --RemoteEvent for communicating
  8. local Event = Instance.new("RemoteEvent")
  9. Event.Name = "UserInput_Event"
  10.  
  11. --Fake event to make stuff like Mouse.KeyDown work
  12. local function fakeEvent()
  13. local t = {_fakeEvent=true,Connect=function(self,f)self.Function=f end}
  14. t.connect = t.Connect
  15. return t
  16. end
  17.  
  18. --Creating fake input objects with fake variables
  19. local m = {Target=nil,Hit=CFrame.new(),KeyUp=fakeEvent(),KeyDown=fakeEvent(),Button1Up=fakeEvent(),Button1Down=fakeEvent()}
  20. local UIS = {InputBegan=fakeEvent(),InputEnded=fakeEvent()}
  21. local CAS = {Actions={},BindAction=function(self,name,fun,touch,...)
  22. CAS.Actions[name] = fun and {Name=name,Function=fun,Keys={...}} or nil
  23. end}
  24. --Merged 2 functions into one by checking amount of arguments
  25. CAS.UnbindAction = CAS.BindAction
  26.  
  27. --This function will trigger the events that have been :Connect()'ed
  28. local function te(self,ev,...)
  29. local t = m[ev]
  30. if t and t._fakeEvent and t.Function then
  31. t.Function(...)
  32. end
  33. end
  34. m.TrigEvent = te
  35. UIS.TrigEvent = te
  36.  
  37. Event.OnServerEvent:Connect(function(plr,io)
  38. if plr~=Player then return end
  39. if io.isMouse then
  40. m.Target = io.Target
  41. m.Hit = io.Hit
  42. else
  43. local b = io.UserInputState == Enum.UserInputState.Begin
  44. if io.UserInputType == Enum.UserInputType.MouseButton1 then
  45. return m:TrigEvent(b and "Button1Down" or "Button1Up")
  46. end
  47. for _,t in pairs(CAS.Actions) do
  48. for _,k in pairs(t.Keys) do
  49. if k==io.KeyCode then
  50. t.Function(t.Name,io.UserInputState,io)
  51. end
  52. end
  53. end
  54. m:TrigEvent(b and "KeyDown" or "KeyUp",io.KeyCode.Name:lower())
  55. UIS:TrigEvent(b and "InputBegan" or "InputEnded",io,false)
  56. end
  57. end)
  58. Event.Parent = NLS([==[
  59. local Player = game:GetService("Players").LocalPlayer
  60. local Event = script:WaitForChild("UserInput_Event")
  61.  
  62. local UIS = game:GetService("UserInputService")
  63. local input = function(io,a)
  64. if a then return end
  65. --Since InputObject is a client-side instance, we create and pass table instead
  66. Event:FireServer({KeyCode=io.KeyCode,UserInputType=io.UserInputType,UserInputState=io.UserInputState})
  67. end
  68. UIS.InputBegan:Connect(input)
  69. UIS.InputEnded:Connect(input)
  70.  
  71. local Mouse = Player:GetMouse()
  72. local h,t
  73. --Give the server mouse data 30 times every second, but only if the values changed
  74. --If player is not moving their mouse, client won't fire events
  75. while wait(1/30) do
  76. if h~=Mouse.Hit or t~=Mouse.Target then
  77. h,t=Mouse.Hit,Mouse.Target
  78. Event:FireServer({isMouse=true,Target=t,Hit=h})
  79. end
  80. end]==],Player.Character)
  81. Mouse,mouse,UserInputService,ContextActionService = m,m,UIS,CAS
  82. end
  83. ----------------------------------------------------
  84. local s = Instance.new("ScreenGui", game.CoreGui)
  85. local f = Instance.new("Frame", s)
  86. local mselect = Instance.new("TextButton", f)
  87. local mbox = Instance.new("TextBox", f)
  88. local toggle = false
  89. local Player = owner
  90. local Character = Player.Character
  91.  
  92. f.Size = UDim2.new(0,300,0,250)
  93. f.BorderSizePixel = 0
  94. f.BackgroundColor3 = Color3.new(0.301961, 0.301961, 0.301961)
  95. f.Position = UDim2.new(0.5,-150,0.5,-125)
  96. f.Active = true
  97. f.Draggable = true
  98.  
  99. mbox.Size = UDim2.new(0,250,0,50)
  100. mbox.Position = UDim2.new(0,25,0.1,0)
  101. mbox.BorderSizePixel = 0
  102. mbox.Text = "Music ID Here:"
  103. mbox.Font = "SourceSansBold"
  104. mbox.TextColor3 = Color3.new(255, 255,255)
  105. mbox.BackgroundColor3 = Color3.new(1, 0.666667, 0)
  106. mbox.FontSize = "Size18"
  107. mbox.ZIndex = 10
  108.  
  109. mselect.Size = UDim2.new(0,250,0,50)
  110. mselect.Position = UDim2.new(0,25,0.6,0)
  111. mselect.BorderSizePixel = 0
  112. mselect.Text = "Play Music"
  113. mselect.Font = "SourceSansBold"
  114. mselect.TextColor3 = Color3.new(255,255,255)
  115. mselect.BackgroundColor3 = Color3.new(0.333333, 0.666667, 1)
  116. mselect.FontSize = "Size18"
  117. mselect.ZIndex = 10
  118.  
  119. mselect.MouseButton1Click:connect(function()
  120. game.Players.LocalPlayer.Character.Humanoid.MaxHealth = math.huge -- this is god
  121. if toggle == false then
  122. loadPart()
  123. toggle = true
  124. elseif toggle == true then
  125. loadPart()
  126. toggle = false
  127. end
  128. end)
  129.  
  130. function loadPart()
  131. for i,v in pairs(game.Players.LocalPlayer.Character:GetChildren()) do
  132. if v.Name == "MusicItem" and v.ClassName == "Part" then
  133. v:Remove()
  134. end
  135. end
  136. local Part = Instance.new("Part", game.Players.LocalPlayer.Character)
  137. Part.CanCollide = false
  138. Part.Shape = "Block"
  139. Part.Anchored = false
  140. Part.Locked = true
  141. Part.Name = "MusicItem"
  142. Part.Transparency = 0
  143. Part.Material = "Neon"
  144. Part.BrickColor = BrickColor.new("Royal purple") --Cool Colors CGA brown and Royal purple
  145. local CylinderMesh = Instance.new("CylinderMesh", Part)
  146. CylinderMesh.Scale = Vector3.new(1.5,.2,1.5)
  147.  
  148.  
  149. local Sound = Instance.new("Sound", Part)
  150. Sound.SoundId = "https://www.roblox.com/asset/?id="..mbox.Text
  151. Sound.EmitterSize = math.huge
  152. Sound.MaxDistance = math.huge
  153. Sound.Looped = true
  154. Sound.Pitch = 1
  155. Sound.Name = "Sound"
  156. Sound.Volume = 10
  157. Sound:Play()
  158.  
  159. Part.CFrame = CFrame.new(game.Players.LocalPlayer.Character.HumanoidRootPart.Position) * CFrame.new(0,-2.9,0)
  160. local bp = Instance.new("BodyPosition", Part)
  161. bp.Position = Character:FindFirstChild("Torso").CFrame * CFrame.new(0, -2.9, 0).p
  162. bp.MaxForce = Vector3.new(10000,10000,10000)
  163. bp.P = 100000
  164.  
  165. while true do wait()
  166. bp.Position = Character:FindFirstChild("Torso").CFrame * CFrame.new(0, -2.9, 0).p
  167. local alg = math.floor(Sound.PlaybackLoudness)/50
  168. CylinderMesh.Scale = Vector3.new(.6+alg,.2,.6+alg)
  169. end
  170. end
Advertisement
Add Comment
Please, Sign In to add comment
Advertisement