Advertisement
lafur

Untitled

Jan 28th, 2019
221
0
Never
Not a member of Pastebin yet? Sign Up, it unlocks many cool features!
  1. --https://github.com/Mokiros/roblox-FE-compatibility
  2. if game:GetService("RunService"):IsClient() then error("Script must be server-side in order to work; use h/ and not hl/") end
  3. local Player,game,owner = owner,game
  4. local RealPlayer = Player
  5. do print("FE Compatibility code V2 by Mokiros")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 -- This script has inspired by Krystal dance! --
  6.  
  7. local Plr = game.Players.LocalPlayer
  8. local PChar = Plr.Character
  9. local Assets = "rbxassetid://"
  10. local DebounceKey = true
  11. local Mouse = Plr:GetMouse()
  12. local AnimHop = Instance.new("Animation", PChar)
  13. AnimHop.AnimationId = Assets.."129423030"
  14. local TrackAnim = nil
  15. local StopIt = false
  16.  
  17. local GenerateCharacter = function()
  18.     for i,v in pairs(PChar:GetChildren()) do
  19.         wait(0.1)
  20.         if v.ClassName == "Hat" or v.ClassName == "CharacterMesh" then
  21.             v:Destroy()
  22.         end
  23.         if v.ClassName == "Part" then
  24.             v.BrickColor = BrickColor.Black()
  25.         end
  26.         PChar.Head.BrickColor = BrickColor.White()
  27.         PChar["Body Colors"].HeadColor = BrickColor.White()
  28.         PChar["Body Colors"].LeftArmColor = BrickColor.Black()
  29.         PChar["Body Colors"].LeftLegColor = BrickColor.Black()
  30.         PChar["Body Colors"].RightArmColor = BrickColor.Black()
  31.         PChar["Body Colors"].RightLegColor = BrickColor.Black()
  32.         PChar["Body Colors"].TorsoColor = BrickColor.Black()
  33.         if PChar:FindFirstChild("Shirt") == nil then else PChar:FindFirstChild("Shirt"):Destroy() end
  34.         if PChar:FindFirstChild("Pants") == nil then else PChar:FindFirstChild("Pants"):Destroy() end
  35.         PChar.Head.face.Texture = "http://www.roblox.com/asset/?id=282690375"
  36.         PChar.Humanoid.WalkSpeed = 14
  37.         PChar.Humanoid.MaxHealth = math.huge
  38.         PChar.Humanoid.Health = math.huge
  39.     end
  40. end
  41.  
  42. local MusicFolder = Instance.new("Folder", PChar)
  43. MusicFolder.Name = "Music"
  44.  
  45. local SnoopMusic = Instance.new("Sound", MusicFolder)
  46. SnoopMusic.SoundId = Assets.."172388329"
  47. local DogeMusic = Instance.new("Sound", MusicFolder)
  48. DogeMusic.SoundId = Assets.."150794704"
  49.  
  50. wait(0.9)
  51.  
  52. GenerateCharacter()
  53.  
  54. Mouse.KeyDown:connect(function(key) local key = key:lower()
  55.     if key == "e" then
  56.         if DebounceKey == false then
  57.             return
  58.         end
  59.         DebounceKey = false
  60.         PChar.Humanoid.WalkSpeed = 0
  61.         TrackAnim = PChar.Humanoid:LoadAnimation(AnimHop)
  62.         SnoopMusic:Play()
  63.         for i = SnoopMusic.TimeLength, 1, -1 do
  64.             if StopIt == true then
  65.                 break
  66.             end
  67.             print(i)
  68.             wait(1)
  69.             TrackAnim:Play()
  70.         end
  71.         DebounceKey = true
  72.         TrackAnim:Stop()
  73.         PChar.Humanoid.WalkSpeed = 14
  74.     end
  75.     if key == "r" then
  76.         if DebounceKey == false then
  77.             return
  78.         end
  79.         DebounceKey = false
  80.         PChar.Humanoid.WalkSpeed = 0
  81.         TrackAnim = PChar.Humanoid:LoadAnimation(AnimHop)
  82.         DogeMusic:Play()
  83.         DogeMusic.Volume = 10
  84.         for i = 55, 1, -1 do
  85.             if StopIt == true then
  86.                 break
  87.             end
  88.             print(i)
  89.             wait(1)
  90.             TrackAnim:Play()
  91.             local location = game.Players.LocalPlayer.Character:GetModelCFrame()
  92.             local DogeHats = Instance.new("Part")
  93.             DogeHats.CanCollide = false
  94.             DogeHats.RotVelocity = Vector3.new(math.random()*math.pi,math.random()*math.pi,math.random()*math.pi)
  95.             local mesh = Instance.new("SpecialMesh")
  96.             mesh.TextureId = "rbxassetid://151778895"
  97.             mesh.MeshId = "rbxassetid://151778863"
  98.             mesh.MeshType = "FileMesh"
  99.             mesh.Parent = DogeHats
  100.             mesh.Scale = Vector3.new(math.random()*20,math.random()*20,math.random()*20)
  101.             DogeHats.CFrame = location * CFrame.new(math.random()*500 - 250,math.random(100,200),math.random()*500 - 250)
  102.             DogeHats.Parent = game.Workspace
  103.         end
  104.         DebounceKey = true
  105.         TrackAnim:Stop()
  106.         for i = 10, 1, 0 do
  107.             wait(0.2)
  108.             DogeMusic.Volume = i
  109.         end
  110.         DogeMusic:Stop()
  111.         PChar.Humanoid.WalkSpeed = 14
  112.     end
  113.     if key == "w" or key == "a" or key == "s" or key == "d" then
  114.         StopIt = true
  115.         SnoopMusic:Stop()
  116.         DogeMusic:Stop()
  117.         if TrackAnim == nil then else TrackAnim:Stop() end
  118.         DebounceKey = true
  119.         PChar.Humanoid.WalkSpeed = 14
  120.         wait(2)
  121.         StopIt = false
  122.     end
  123. end)
Advertisement
Add Comment
Please, Sign In to add comment
Advertisement