API tools faq
paste
View difference between Paste ID: NSVbTMD0 and 4SrVi93V
SHOW: | | - or go back to the newest paste.
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
6
7
plr = game.Players.LocalPlayer

8
mouse = plr:GetMouse()

9
part = nil

10
bp = nil

11
particles = nil

12
function clerp(a,b,c,d)

13
	for i = 0,d,.01 do

14
		a.CFrame = CFrame.new(b:lerp(c,i))

15
		wait()

16
	end

17
end

18
function slerp(a2,b2,c2,d2)

19
	for i2 = 0,d2,.01 do

20
		a2.CFrame = CFrame.new(b2:lerp(c2,i2))

21
		wait()

22
	end

23
end

24
mouse.KeyDown:connect(function(key)

25
	if key == "e" and plr.Character.Parent == workspace then

26
		plr.Character.Parent = workspace.Camera

27
		plr.Character.Archivable = true

28
		Instance.new("ForceField",plr.Character).Visible = false

29
		for y,t in pairs(plr.Character:GetChildren()) do

30
			if t:IsA("Part") and t.Name ~= "HumanoidRootPart" then

31
				t.Transparency = 1

32
				if t.Name == "Head" and t:FindFirstChild("face") then

33
					t.face.Transparency = 1

34
				end

35
			elseif t:IsA("Accessory") and t:FindFirstChild("Handle") then

36
				t.Handle.Transparency = 1

37
			end

38
		end

39
	elseif key == "z" and plr.Character.Parent == workspace.Camera and part == nil then

40
		plr.Character.Torso.CFrame = CFrame.new(Vector3.new(mouse.hit.p.X,mouse.hit.p.Y+1.5,mouse.hit.p.Z),plr.Character.Torso.CFrame.p)

41
	elseif key == "x" and plr.Character.Parent == workspace.Camera and part == nil then

42
		if plr.Character.Torso.Anchored == true then

43
			for y,t in pairs(plr.Character:GetChildren()) do

44
				if t:IsA("Part") then

45
					t.Anchored = false

46
				end

47
			end

48
		else

49
			for y,t in pairs(plr.Character:GetChildren()) do

50
				if t:IsA("Part") then

51
					t.Anchored = true

52
				end

53
			end

54
		end

55
	elseif key == "c" and plr.Character.Parent == workspace.Camera and part ~= nil then

56
		local clone = part:Clone()

57
		clone.Parent = workspace

58
		clone.Anchored = false

59
		clone:ClearAllChildren()

60
		clone.CanCollide = true

61
		bp.Parent = clone

62
		particles.Parent = clone

63
		if part.Parent:FindFirstChildOfClass("Humanoid") then

64
			part.Parent:FindFirstChildOfClass("Humanoid").PlatformStand = false

65
		end

66
		part:Destroy()

67
		part = clone

68
	elseif key == "t" and plr.Character.Parent == workspace.Camera and part == nil then

69
		plr.Character.Parent = workspace

70
		plr.Character.Archivable = false

71
		plr.Character:FindFirstChildOfClass("ForceField"):Remove()

72
		for y,t in pairs(plr.Character:GetChildren()) do

73
			if t:IsA("Part") and t.Name ~= "HumanoidRootPart" then

74
				t.Transparency = 0

75
				if t.Name == "Head" and t:FindFirstChild("face") then

76
					t.face.Transparency = 0

77
				end

78
			elseif t:IsA("Accessory") and t:FindFirstChild("Handle") then

79
				t.Handle.Transparency = 0

80
			end

81
		end

82
	end

83
end)

84
mouse.Button1Down:connect(function()

85
	if plr.Character.Parent == workspace.Camera then

86
		if mouse ~= nil then

87
			if mouse.Target ~= nil then

88
				part = mouse.Target

89
				bp = Instance.new("BodyPosition",part)

90
				bp.MaxForce = Vector3.new(math.huge,math.huge,math.huge)

91
				bp.Position = part.Position

92
				particles = Instance.new("ParticleEmitter",part)

93
				particles.Color = ColorSequence.new(Color3.new(0,0,0))

94
				particles.Size = NumberSequence.new(1)

95
				particles.Texture = "rbxassetid://292289455"

96
				particles.VelocitySpread = 360

97
				particles.Speed = NumberRange.new(0)

98
				particles.RotSpeed = NumberRange.new(0)

99
				particles.Rotation = NumberRange.new(0)

100
				particles.Rate = 250

101
				particles.Lifetime = NumberRange.new(.2,.4)

102
				particles.Transparency = NumberSequence.new({NumberSequenceKeypoint.new(0,1,0),NumberSequenceKeypoint.new(.12,.688,0),NumberSequenceKeypoint.new(.891,.887,0),NumberSequenceKeypoint.new(1,1,0)})

103
				dwn = true

104
			end

105
		end

106
		while dwn == true do 

107
			wait()	

108
			bp.Position = mouse.hit.p

109
			if part then

110
				if part.Parent:FindFirstChildOfClass("Humanoid") then

111
					part.Parent:FindFirstChildOfClass("Humanoid").PlatformStand = true

112
				end

113
			end

114
		end

115
	end

116
end)

117
mouse.Button1Up:connect(function()

118
	dwn = false

119
	if part then if part.Parent:FindFirstChildOfClass("Humanoid") then part.Parent:FindFirstChildOfClass("Humanoid").PlatformStand = false end part = nil end

120
	if bp then bp:Destroy() end

121
	if particles then particles:Destroy() end

122
end)

123
base = Instance.new("ScreenGui",plr.PlayerGui)

124
bbg = Instance.new("BillboardGui",plr.Character.Head)

125
bbg.Size = UDim2.new(0,200,0,50)

126
bbg.StudsOffset = Vector3.new(0,3,0)

127
bbgTl = Instance.new("TextLabel",bbg)

128
bbgTl.BackgroundTransparency = 1

129
bbgTl.Size = UDim2.new(10,0,1,0)

130
bbgTl.Position = UDim2.new(-4.5,0,0,0)

131
bbgTl.Font = "Code"

132
bbgTl.Text = " "

133
bbgTl.TextSize = 25

134
bbgTl.TextStrokeColor3 = Color3.new(1,1,1)

135
bbgTl.TextColor3 = Color3.new(0,0,0)

136
bbgTl.TextStrokeTransparency = 0

137
bbgTl.TextWrapped = true

138
plr.Chatted:connect(function(msg)

139
	bbgTl.Text = msg

140
	wait(5)

141
	if bbgTl.Text == msg then

142
		bbgTl.Text = " "

143
	end

144
end)

145
touchCounter = 0

146
while wait() do

147
	if plr.Character.Parent == workspace.Camera then

148
		local c = plr.Character:Clone()

149
		c:MakeJoints()

150
		for y,t in pairs(c:GetChildren()) do

151
			if t:IsA("Part") then

152
				t.CanCollide = false 

153
				t.Anchored = true 

154
				t.Transparency = .5

155
				t.TopSurface = "Smooth"

156
				t.BottomSurface = "Smooth"

157
				t.RightSurface = "Smooth"

158
				t.LeftSurface = "Smooth"

159
				t.FrontSurface = "Smooth"

160
				t.BackSurface = "Smooth"

161
				t.BrickColor = BrickColor.new("Really black")

162
				if t.Name == "Head" and t:FindFirstChild("face") then

163
					t.face:Remove()

164
				elseif t.Name == "Torso" and t:FindFirstChild("roblox") then

165
					t.roblox:Remove()

166
				elseif t.Name == "HumanoidRootPart" then

167
					t:Remove()

168
				end

169
			else 

170
				t:Remove()

171
			end

172
		end

173
		c.Parent = workspace

174
		game.Debris:AddItem(c,.05)

175
	end

176
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!