Advertisement
Guest User

yes

a guest
Aug 25th, 2019
112
0
Never
Not a member of Pastebin yet? Sign Up, it unlocks many cool features!
text 6.50 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.  
  3. local Player,game,owner = owner,game
  4.  
  5. local RealPlayer = Player
  6.  
  7. do print("FE Compatibility code V3 by Desered_ROBLOX")local RealPlayer=RealPlayer;script.Parent=RealPlayer.Character;local a=function(b)b[1].f[b[2]]=nil end;local c={__index={disconnect=a,Disconnect=a}}local d={__index={Connect=function(b,e)local f=tostring(math.random(0,10000))while b.f[f]do f=tostring(math.random(0,10000))end;b.f[f]=e;return setmetatable({b,f},c)end}}d.__index.connect=d.__index.Connect;local function g()return setmetatable({f={}},d)end;local h={Hit=CFrame.new(),KeyUp=g(),KeyDown=g(),Button1Up=g(),Button1Down=g(),Button2Up=g(),Button2Down=g()}h.keyUp=h.KeyUp;h.keyDown=h.KeyDown;local i={InputBegan=g(),InputEnded=g()}local CAS={Actions={},BindAction=function(self,j,k,l,...)CAS.Actions[j]=k and{Name=j,Function=k,Keys={...}}or nil end}CAS.UnbindAction=CAS.BindAction;local function m(self,n,...)for o,e in pairs(self[n].f)do e(...)end end;h.T=m;i.T=m;local p=Instance.new("RemoteEvent")p.Name="UserInput_Event"p.OnServerEvent:Connect(function(q,r)if q~=RealPlayer then return end;h.Target=r.e;h.Hit=r.d;if not r.f then local s=r.c==Enum.UserInputState.Begin;if r.b==Enum.UserInputType.MouseButton1 then return h:T(s and"Button1Down"or"Button1Up")end;if r.b==Enum.UserInputType.MouseButton2 then return h:T(s and"Button2Down"or"Button2Up")end;for o,t in pairs(CAS.Actions)do for o,u in pairs(t.Keys)do if u==r.a then t.Function(t.Name,r.c,r)end end end;h:T(s and"KeyDown"or"KeyUp",r.a.Name:lower())i:T(s and"InputBegan"or"InputEnded",r,false)end end)p.Parent=NLS([==[local a=script:WaitForChild("UserInput_Event")local b=owner:GetMouse()local c=game:GetService("UserInputService")local d=function(e,f)if f then return end;a:FireServer({a=e.KeyCode,b=e.UserInputType,c=e.UserInputState,d=b.Hit,e=b.Target})end;c.InputBegan:Connect(d)c.InputEnded:Connect(d)local g,h;local i=game:GetService("RunService").Heartbeat;while true do if g~=b.Hit or h~=b.Target then g,h=b.Hit,b.Target;a:FireServer({f=1,Target=h,d=g})end;for j=1,2 do i:Wait()end end]==],script)local v=game;local w={__index=function(self,u)local x=rawget(self,"_RealService")if x then return typeof(x[u])=="function"and function(o,...)return x[u](x,...)end or x[u]end end,__newindex=function(self,u,y)local x=rawget(self,"_RealService")if x then x[u]=y end end}local function z(t,A)t._RealService=typeof(A)=="string"and v:GetService(A)or A;return setmetatable(t,w)end;local B={GetService=function(self,x)return rawget(self,x)or v:GetService(x)end,Players=z({LocalPlayer=z({GetMouse=function(self)return h end},Player)},"Players"),UserInputService=z(i,"UserInputService"),ContextActionService=z(CAS,"ContextActionService"),RunService=z({_btrs={},RenderStepped=v:GetService("RunService").Heartbeat,BindToRenderStep=function(self,j,o,k)self._btrs[j]=self.Heartbeat:Connect(k)end,UnbindFromRenderStep=function(self,j)self._btrs[j]:Disconnect()end},"RunService")}rawset(B.Players,"localPlayer",B.Players.LocalPlayer)B.service=B.GetService;z(B,game)game,owner=B,B.Players.LocalPlayer end
  8. ---[[ Cloud "Visualizer", Rushed out and made by Zuu_Roku, Credits to Cass for being a cool dood]]---
  9.  
  10. print("Made by Zuu_Roku, Commands are !play !snow !rain !multiplier and !volume")
  11.  
  12. print("Credits to Cass / PPATTA for being a cool dood")
  13.  
  14.  
  15. local Player = game.Players.LocalPlayer
  16.  
  17. local Character = Player.Character
  18.  
  19. local H = Character["Head"]
  20.  
  21. local multiplier = 4
  22.  
  23. local Cloud = Instance.new('Part',Character)
  24.  
  25. Cloud.Size = Vector3.new(20,15,20)
  26.  
  27. Cloud.Anchored = true
  28.  
  29. Cloud.CanCollide = false
  30.  
  31. Cloud.Transparency = 0
  32.  
  33.  
  34.  
  35. local CloudMesh = Instance.new('SpecialMesh',Cloud)
  36.  
  37. CloudMesh.Scale = Vector3.new(25,10,25)
  38.  
  39. CloudMesh.MeshId = "http://www.roblox.com/asset/?id=1095708"
  40.  
  41. CloudMesh.Offset = Vector3.new(0,10,0)
  42.  
  43.  
  44. local loudness = 0
  45.  
  46.  
  47.  
  48. local S = Instance.new('Sound',Cloud)
  49.  
  50. S.SoundId = "rbxassetid://911100428"
  51.  
  52. S.Looped = true
  53.  
  54. S.Volume = 8
  55.  
  56. S.MaxDistance = 100
  57.  
  58. S:Play()
  59.  
  60.  
  61.  
  62. local Rain = Instance.new('ParticleEmitter',Cloud)
  63.  
  64. Rain.Color = ColorSequence.new(Color3.new(1,1,1),Color3.fromRGB(175,255,255))
  65.  
  66. Rain.Size = NumberSequence.new(.5)
  67.  
  68. Rain.Texture = "http://www.roblox.com/asset/?id=241876428"
  69.  
  70. Rain.Transparency = NumberSequence.new(0,.6)
  71.  
  72. Rain.Acceleration = Vector3.new(0,-150,0)
  73.  
  74. Rain.Lifetime = NumberRange.new(5,10)
  75.  
  76. Rain.Rate = 100
  77.  
  78. local rad = math.rad
  79.  
  80. local sin = math.sin
  81.  
  82. local tan = math.tan
  83.  
  84. local cos = math.cos
  85.  
  86. Player.Chatted:connect(function(m)
  87.  
  88. if m:match("!play%s%d+") then
  89.  
  90. S:Stop()
  91.  
  92. S.SoundId = "rbxassetid://"..m:match("!play%s(%d+)")
  93.  
  94. S:Play()
  95.  
  96. elseif m:match("!volume%s%d+") then
  97.  
  98. S.Volume = m:match("!volume%s(%d+)")
  99.  
  100. elseif m:match("!pitch%s%d+") then
  101.  
  102. S.Pitch = m:match("!volume%s(%d+)")
  103.  
  104. elseif m:match("!snow") then
  105.  
  106. Rain.Texture = "http://www.roblox.com/asset/?id=605668174"
  107.  
  108. Rain.Acceleration = Vector3.new(0,-10,0)
  109.  
  110. Rain.Lifetime = NumberRange.new(15,20)
  111.  
  112. Rain.Size = NumberSequence.new(.2)
  113.  
  114. elseif m:match("!rain") then
  115.  
  116. Rain.Texture = "http://www.roblox.com/asset/?id=241876428"
  117.  
  118. Rain.Acceleration = Vector3.new(0,-150,0)
  119.  
  120. Rain.Lifetime = NumberRange.new(5,10)
  121.  
  122. Rain.Size = NumberSequence.new(.5)
  123.  
  124. elseif m:match("!multiplier%s%d+") then
  125.  
  126. multiplier = m:match("!multiplier%s(%d+)")
  127.  
  128. elseif m:match("!rr") then
  129.  
  130. print(Rain.Rate)
  131.  
  132. end
  133. end)
  134.  
  135.  
  136.  
  137. function Weld(x,y)
  138.  
  139. local w = Instance.new("Weld")
  140.  
  141. w.Part0 = x
  142.  
  143. w.Part1 = y
  144.  
  145. w.Name = tostring(y.Name).."_Weld"
  146.  
  147. w.Parent = x
  148.  
  149. return w
  150.  
  151. end
  152.  
  153.  
  154.  
  155. function Clerp(start,destination,increment)
  156.  
  157. local function slerp(a,b,c)return (1-c)*a+(c*b)end
  158.  
  159. local c1 = {start.X,start.Y,start.Z,start:toEulerAnglesXYZ()}
  160.  
  161. local c2 = {destination.X,destination.Y,destination.Z,destination:toEulerAnglesXYZ()}
  162.  
  163. for i,v in pairs(c1)do c1[i] = slerp(v,c2[i],increment)end
  164.  
  165. return CFrame.new(c1[1],c1[2],c1[3])*CFrame.Angles(c1[4],c1[5],c1[6])
  166.  
  167. end
  168.  
  169.  
  170.  
  171. while true do
  172.  
  173. Rain.Rate = (S.PlaybackLoudness + 50) * multiplier
  174.  
  175. game:GetService('RunService').RenderStepped:wait()
  176.  
  177. local HP = H.CFrame.p
  178.  
  179. local sizer = S.PlaybackLoudness/50 + 15
  180.  
  181. Cloud.Size = Vector3.new(sizer,15,sizer)
  182.  
  183. CloudMesh.Scale = Vector3.new(sizer,10,sizer)
  184.  
  185. Cloud.CFrame = Clerp(Cloud.CFrame, CFrame.new(HP + Vector3.new(0,4,0))*CFrame.Angles(0,rad(90),0), .1)
  186.  
  187. Cloud.BrickColor = BrickColor.new(Color3.fromRGB(255 - S.PlaybackLoudness*1.1, 255-S.PlaybackLoudness*1.1, 255-S.PlaybackLoudness*1.1))
  188. end
Advertisement
Add Comment
Please, Sign In to add comment
Advertisement