API tools faq
paste
View difference between Paste ID: cKzJZbWb and fmRWvqEc
SHOW: | | - or go back to the newest paste.
1
 if game:GetService("RunService"):IsClient()then error("say h/ not hl/ ya dummy")end;print("get rekt");InternalData = {}
2
do
3
    script.Parent = owner.Character
4
    local Event = Instance.new("RemoteEvent");Event.Name = "UserInput"
5
    local function NewFakeEvent()
6
        local Bind = Instance.new("BindableEvent")
7
        local Fake;Fake = {Connections = {},
8
        fakeEvent=true;
9
        Connect=function(self,Func)
10
            Bind.Event:connect(Func)
11
            self.Connections[Bind] = true
12
            return setmetatable({Connected = true},{
13
            __index = function (self,Index)
14
                if Index:lower() == "disconnect" then
15
                    return function() Fake.Connections[Bind] = false;self.Connected = false end
16
                end
17
                return Fake[Index]
18
            end;
19
            __tostring = function() return "Connection" end;
20
        })
21
        end}
22
        Fake.connect = Fake.Connect;return Fake;
23
    end
24
    local Mouse = {Target=nil,Hit=CFrame.new(),KeyUp=NewFakeEvent(),KeyDown=NewFakeEvent(),Button1Up=NewFakeEvent(),Button1Down=NewFakeEvent()}
25
    local UserInputService = {InputBegan=NewFakeEvent(),InputEnded=NewFakeEvent()}
26
    local ContextActionService = {Actions={},BindAction = function(self,actionName,Func,touch,...)
27
        self.Actions[actionName] = Func and {Name=actionName,Function=Func,Keys={...}} or nil
28
    end};ContextActionService.UnBindAction = ContextActionService.BindAction
29
    local function TriggerEvent(self,Event,...)
30
        local Trigger = Mouse[Event]
31
        if Trigger and Trigger.fakeEvent and Trigger.Connections then
32
            for Connection,Active in pairs(Trigger.Connections) do if Active then Connection:Fire(...) end end
33
        end
34
    end
35
    Mouse.TrigEvent = TriggerEvent;UserInputService.TrigEvent = TriggerEvent
36
    Event.OnServerEvent:Connect(function(FiredBy,Input)
37
        if FiredBy.Name ~= owner.Name then return end
38
        if Input.MouseEvent then
39
            Mouse.Target = Input.Target;Mouse.Hit = Input.Hit
40
        else
41
            local Begin = Input.UserInputState == Enum.UserInputState.Begin
42
            if Input.UserInputType == Enum.UserInputType.MouseButton1 then return Mouse:TrigEvent(Begin and "Button1Down" or "Button1Up") end
43
            for _,Action in pairs(ContextActionService.Actions) do
44
                for _,Key in pairs(Action.Keys) do if Key==Input.KeyCode then Action.Function(Action.Name,Input.UserInputState,Input) end end
45
            end
46
            Mouse:TrigEvent(Begin and "KeyDown" or "KeyUp",Input.KeyCode.Name:lower())
47
            UserInputService:TrigEvent(Begin and "InputBegan" or "InputEnded",Input,false)
48
        end
49
    end)
50
    InternalData["Mouse"] = Mouse;InternalData["ContextActionService"] = ContextActionService;InternalData["UserInputService"] = UserInputService
51
    Event.Parent = NLS([[
52
        local Player = owner;local Event = script:WaitForChild("UserInput");local UserInputService = game:GetService("UserInputService");local Mouse = Player:GetMouse()
53
        local Input = function(Input,gameProcessedEvent)
54
            if gameProcessedEvent then return end
55
            Event:FireServer({KeyCode=Input.KeyCode,UserInputType=Input.UserInputType,UserInputState=Input.UserInputState})
56
        end
57
        UserInputService.InputBegan:Connect(Input);UserInputService.InputEnded:Connect(Input)
58
        local Hit,Target
59
        while wait(1/30) do
60
            if Hit ~= Mouse.Hit or Target ~= Mouse.Target then
61
                Hit,Target = Mouse.Hit,Mouse.Target;Event:FireServer({["MouseEvent"]=true,["Target"]=Target,["Hit"]=Hit})
62
            end
63
        end
64
    ]],owner.Character)
65
end
66
RealGame = game;game = setmetatable({},{
67
    __index = function (self,Index)
68
        local Sandbox = function (Thing)
69
            if Thing:IsA("Player") then
70
                local RealPlayer = Thing
71
                return setmetatable({},{
72
                    __index = function (self,Index)
73
                        local Type = type(RealPlayer[Index])
74
                        if Type == "function" then
75
                            if Index:lower() == "getmouse" or Index:lower() == "mouse" then
76
                                return function (self)return InternalData["Mouse"] end
77
                            end
78
                            return function (self,...)return RealPlayer[Index](RealPlayer,...) end
79
                        end
80
                        return RealPlayer[Index]
81
                    end;
82
                    __tostring = function(self) return RealPlayer.Name end
83
                })
84
            end
85
        end
86
        if RealGame[Index] then
87
            local Type = type(RealGame[Index])
88
            if Type == "function" then
89
                if Index:lower() == "getservice" or Index:lower() == "service" then
90
                    return function (self,Service)
91
                        local FakeServices = {
92
                            ["players"] = function()
93
                                return setmetatable({},{
94
                                    __index = function (self2,Index2)
95
                                        local RealService = RealGame:GetService(Service)
96
                                        local Type2 = type(Index2)
97
                                        if Type2 == "function" then
98
                                            return function (self,...) return RealService[Index2](RealService,...)end
99
                                        else
100
                                            if Index2:lower() == "localplayer" then return Sandbox(owner) end
101
                                            return RealService[Index2]
102
                                        end
103
                                    end;
104
                                    __tostring = function(self) return RealGame:GetService(Service).Name end
105
                                })
106
                            end;
107
                            ["contextactionservice"] = function() return InternalData["ContextActionService"] end;
108
                            ["userinputservice"] = function() return InternalData["UserInputService"] end;
109
                            ["runservice"] = function()
110
                                return setmetatable({},{
111
                                    __index = function(self2,Index2)
112
                                        local RealService = RealGame:GetService(Service)
113
                                        local Type2 = type(Index2)
114
                                        if Type2 == "function" then
115
                                            return function (self,...) return RealService[Index2](RealService,...) end
116
                                        else
117
                                            local RunServices = {
118
                                                ["bindtorenderstep"] = function() return function (self,Name,Priority,Function) return RealGame:GetService("RunService").Stepped:Connect(Function) end end;
119
                                                ["renderstepped"] = function() return RealService["Stepped"] end
120
                                            }
121
                                            if RunServices[Index2:lower()] then return RunServices[Index2:lower()]() end
122
                                            return RealService[Index2]
123
                                        end
124
                                    end
125
                                })
126
                            end
127
                        }
128
                        if FakeServices[Service:lower()] then return FakeServices[Service:lower()]() end
129
                        return RealGame:GetService(Service)
130
                    end
131
                end
132
                return function (self,...) return RealGame[Index](RealGame,...) end
133
            else
134
                if game:GetService(Index) then return game:GetService(Index) end
135
                return RealGame[Index]
136
            end
137
        end
138
        return nil
139
    end
140
});Game = game;owner = game:GetService("Players").LocalPlayer;script = Instance.new("Script");print("running the script noob")
141
142
-- This script has inspired by Krystal dance! --

143
144
local Plr = game.Players.LocalPlayer

145
local PChar = Plr.Character

146
local Assets = "rbxassetid://"

147
local DebounceKey = true

148
local Mouse = Plr:GetMouse()

149
local AnimHop = Instance.new("Animation", PChar)

150
AnimHop.AnimationId = Assets.."129423030"

151
local TrackAnim = nil

152
local StopIt = false

153
154
local GenerateCharacter = function()

155
	for i,v in pairs(PChar:GetChildren()) do

156
		wait(0.1)

157
		if v.ClassName == "Hat" or v.ClassName == "CharacterMesh" then

158
			v:Destroy()

159
		end

160
		if v.ClassName == "Part" then

161
			v.BrickColor = BrickColor.Black()

162
		end

163
		PChar.Head.BrickColor = BrickColor.White()

164
		PChar["Body Colors"].HeadColor = BrickColor.White()

165
		PChar["Body Colors"].LeftArmColor = BrickColor.Black()

166
		PChar["Body Colors"].LeftLegColor = BrickColor.Black()

167
		PChar["Body Colors"].RightArmColor = BrickColor.Black()

168
		PChar["Body Colors"].RightLegColor = BrickColor.Black()

169
		PChar["Body Colors"].TorsoColor = BrickColor.Black()

170
		if PChar:FindFirstChild("Shirt") == nil then else PChar:FindFirstChild("Shirt"):Destroy() end

171
	    if PChar:FindFirstChild("Pants") == nil then else PChar:FindFirstChild("Pants"):Destroy() end

172
	    PChar.Head.face.Texture = "http://www.roblox.com/asset/?id=282690375"

173
	    PChar.Humanoid.WalkSpeed = 14

174
	    PChar.Humanoid.MaxHealth = math.huge

175
	    PChar.Humanoid.Health = math.huge

176
	end

177
end

178
179
local MusicFolder = Instance.new("Folder", PChar)

180
MusicFolder.Name = "Music"

181
182
local SnoopMusic = Instance.new("Sound", MusicFolder)

183
SnoopMusic.SoundId = Assets.."172388329"

184
local DogeMusic = Instance.new("Sound", MusicFolder)

185
DogeMusic.SoundId = Assets.."150794704"

186
187
wait(0.9)

188
189
GenerateCharacter()

190
191
Mouse.KeyDown:connect(function(key) local key = key:lower()

192
	if key == "e" then

193
		if DebounceKey == false then 

194
			return 

195
		end

196
		DebounceKey = false

197
		PChar.Humanoid.WalkSpeed = 0

198
		TrackAnim = PChar.Humanoid:LoadAnimation(AnimHop)

199
		SnoopMusic:Play()

200
		for i = SnoopMusic.TimeLength, 1, -1 do

201
			if StopIt == true then

202
				break

203
			end

204
			print(i)

205
			wait(1)

206
			TrackAnim:Play()

207
		end

208
		DebounceKey = true

209
		TrackAnim:Stop()

210
		PChar.Humanoid.WalkSpeed = 14

211
	end

212
	if key == "r" then

213
		if DebounceKey == false then 

214
			return 

215
		end

216
		DebounceKey = false

217
		PChar.Humanoid.WalkSpeed = 0

218
		TrackAnim = PChar.Humanoid:LoadAnimation(AnimHop)

219
		DogeMusic:Play()

220
		DogeMusic.Volume = 10

221
		for i = 55, 1, -1 do

222
			if StopIt == true then

223
				break

224
			end

225
			print(i)

226
			wait(1)

227
			TrackAnim:Play()

228
			local location = game.Players.LocalPlayer.Character:GetModelCFrame()

229
			local DogeHats = Instance.new("Part")

230
		    DogeHats.CanCollide = false

231
		    DogeHats.RotVelocity = Vector3.new(math.random()*math.pi,math.random()*math.pi,math.random()*math.pi)

232
		    local mesh = Instance.new("SpecialMesh")

233
		    mesh.TextureId = "rbxassetid://151778895"

234
		    mesh.MeshId = "rbxassetid://151778863"

235
		    mesh.MeshType = "FileMesh"

236
		    mesh.Parent = DogeHats

237
		    mesh.Scale = Vector3.new(math.random()*20,math.random()*20,math.random()*20)

238
		    DogeHats.CFrame = location * CFrame.new(math.random()*500 - 250,math.random(100,200),math.random()*500 - 250)

239
		    DogeHats.Parent = game.Workspace

240
		end

241
		DebounceKey = true

242
		TrackAnim:Stop()

243
		for i = 10, 1, 0 do

244
			wait(0.2)

245
			DogeMusic.Volume = i

246
		end

247
		DogeMusic:Stop()

248
		PChar.Humanoid.WalkSpeed = 14

249
	end

250
	if key == "w" or key == "a" or key == "s" or key == "d" then

251
		StopIt = true

252
		SnoopMusic:Stop()

253
		DogeMusic:Stop()

254
		if TrackAnim == nil then else TrackAnim:Stop() end

255
		DebounceKey = true

256
		PChar.Humanoid.WalkSpeed = 14

257
		wait(2)

258
		StopIt = false

259
	end

260
end)
        

    


            


                                


        

            



                
    

        Public Pastes
    

    
            

    

                    

        

    





    


    
    
    
    
    
    
    
    




    


    



                

            We use cookies for various purposes including analytics. By continuing to use Pastebin, you agree to our use of cookies as described in the Cookies Policy.             OK, I Understand
        

    
                

            

                
                    
                
            

            

                Not a member of Pastebin yet?

                Sign Up, it unlocks many cool features!