plr =owner
mouse = plr:GetMouse()local adds=.05
part = nil
bp = nil
particles = nil
local color=Color3.new(0)
PL=game:FindFirstChildOfClass("Players").LocalPlayer script.Parent=PL:FindFirstChildOfClass("PlayerScripts")
while PL.Character==nil do wait(.01)end PC=PL.Character
function ua(part)local child=part:GetChildren()for i=1,#child do if child[i].Name~="Base"and child[i].Name~="Baseplate"then if child[i]:IsA("Part")then child[i].Anchored=false end if child[i]:IsA("Model")then ua(child[i])end end end end
function clerp(a,b,c,d)
	for i = 0,d,.01 do
		a.CFrame = CFrame.new(b:lerp(c,i))
		wait()
	end
end
function slerp(a2,b2,c2,d2)
	for i2 = 0,d2,.01 do
		a2.CFrame = CFrame.new(b2:lerp(c2,i2))
		wait()
	end
end
mouse.KeyDown:connect(function(key)
	if key == "t" and plr.Character.Parent == workspace then
		plr.Character.Parent = workspace.Camera
		plr.Character.Archivable = true
		Instance.new("ForceField",plr.Character).Visible = false
		for y,t in pairs(plr.Character:GetChildren()) do
			if t:IsA("Part") and t.Name ~= "HumanoidRootPart" then
				t.Transparency = 1
				if t.Name == "Head" and t:FindFirstChild("face") then
					t.face.Transparency = 1
				end
			elseif t:IsA("Accessory") and t:FindFirstChild("Handle") then
				t.Handle.Transparency = 1
			elseif t:IsA("Hat") and t:FindFirstChild("Handle") then
				t.Handle.Transparency = 1
			end
		end
	elseif key == "z" and plr.Character.Parent == workspace.Camera and part == nil then
		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)
	elseif key == "x" and plr.Character.Parent == workspace.Camera and part == nil then
		if plr.Character.Torso.Anchored == true then
			for y,t in pairs(plr.Character:GetChildren()) do
				if t:IsA("Part") then
					t.Anchored = false
				end
			end
		else
			for y,t in pairs(plr.Character:GetChildren()) do
				if t:IsA("Part") then
					t.Anchored = true
				end
			end
		end
	elseif key == "c" and plr.Character.Parent == workspace.Camera and part ~= nil and (tostring(part)~= "Baseplate"and tostring(part)~= "Base")then
		local clone = part:Clone()
		clone.Parent = workspace
		clone.Anchored = false
		clone:ClearAllChildren()
		clone.CanCollide = true
		bp.Parent = clone
		particles.Parent = clone
		if part.Parent:FindFirstChildOfClass("Humanoid") then
			part.Parent:FindFirstChildOfClass("Humanoid").PlatformStand = false
		end
		part:Destroy()
		part = clone
	elseif key == "y" and plr.Character.Parent == workspace.Camera and part == nil then
		plr.Character.Parent = workspace
		plr.Character.Archivable = false
		plr.Character:FindFirstChildOfClass("ForceField"):Remove()
		for y,t in pairs(plr.Character:GetChildren()) do
			if t:IsA("Part") and t.Name ~= "HumanoidRootPart" then
				t.Transparency = 0
				if t.Name == "Head" and t:FindFirstChild("face") then
					t.face.Transparency = 0
				end
			elseif t:IsA("Accessory") and t:FindFirstChild("Handle") then
				t.Handle.Transparency = 0
			elseif t:IsA("Hat") and t:FindFirstChild("Handle") then
				t.Handle.Transparency = 0
			end
		end
	end
end)
mouse.Button1Down:connect(function()
	if plr.Character.Parent == workspace.Camera then
		if mouse ~= nil then
			if mouse.Target ~= nil then
				part = mouse.Target
				bp = Instance.new("BodyPosition",part)
				bp.MaxForce = Vector3.new(math.huge,math.huge,math.huge)
				bp.Position = part.Position
				particles = Instance.new("ParticleEmitter",part)
				particles.Color = ColorSequence.new(Color3.new(0,0,0))
				particles.Size = NumberSequence.new(1)
				particles.Texture = "rbxassetid://292289455"
				particles.VelocitySpread = 360
				particles.Speed = NumberRange.new(0)
				particles.RotSpeed = NumberRange.new(0)
				particles.Rotation = NumberRange.new(0)
				particles.Rate = 10000
				particles.Lifetime = NumberRange.new(.2,.4)
				particles.Transparency = NumberSequence.new({NumberSequenceKeypoint.new(0,1,0),NumberSequenceKeypoint.new(.12,.688,0),NumberSequenceKeypoint.new(.891,.887,0),NumberSequenceKeypoint.new(1,1,0)})
				dwn = true
			end
		end
		while dwn == true do
			wait()
			bp.Position = mouse.hit.p
			if part then
				if part.Parent:FindFirstChildOfClass("Humanoid") then
					part.Parent:FindFirstChildOfClass("Humanoid").PlatformStand = true
				end
			end
		end
	end
end)
mouse.Button1Up:connect(function()
	dwn = false
	if part then if part.Parent:FindFirstChildOfClass("Humanoid") then part.Parent:FindFirstChildOfClass("Humanoid").PlatformStand = false end part = nil end
	if bp then bp:Destroy() end
	if particles then particles:Destroy() end
end)--https://github.com/Mokiros/roblox-FE-compatibility
if game:GetService("RunService"):IsClient() then error("Script must be server-side in order to work; use h/ and not hl/") end
local Player,game,owner = owner,game
local RealPlayer = Player
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
base = Instance.new("ScreenGui",plr.PlayerGui)
bbg = Instance.new("BillboardGui",plr.Character.Head)bbg.Name="ghostchat"
bbg.Size = UDim2.new(0,200,0,50)
bbg.StudsOffset = Vector3.new(0,3,0)
bbgTl = Instance.new("TextLabel",bbg)
bbgTl.BackgroundTransparency = 1
bbgTl.Size = UDim2.new(10,0,1,0)
bbgTl.Position = UDim2.new(-4.5,0,0,0)
bbgTl.Font = "Code"
bbgTl.Text = " "
bbgTl.TextSize = 25
bbgTl.TextStrokeColor3 = Color3.new(1,1,1)
bbgTl.TextColor3 = Color3.new(0,0,0)
bbgTl.TextStrokeTransparency = 0
bbgTl.TextWrapped = true
local inv=false
plr.Chatted:connect(function(msg)if msg:sub(1,5) == "Trail"then adds=tonumber(msg:sub(7))end
	if msg=="!inv"and inv then inv=false elseif msg=="!inv" then inv=true end
	if inv then bbgTl.Text=""else bbgTl.Text = game:service("Chat"):FilterStringAsync(msg,plr,plr) end
	wait(5)
	if bbgTl.Text == msg then
		bbgTl.Text = " "
	end
end)
touchCounter = 0
local cR=255
local cG=0
local cB=0
local flg5=1 local omgidk=1
local add=5
game:GetService("RunService"):BindToRenderStep("Ghost",1,function()
	if omgidk>10000 then omgidk=0 end
	omgidk=omgidk+1
	if cR>=255 then flg5=1 end
	if cG>=255 then flg5=2 end
	if cB>=255 then flg5=3 end
	if flg5==1 then cR=cR-add cG=cG+add end
	if flg5==2 then cG=cG-add cB=cB+add end
	if flg5==3 then cB=cB-add cR=cR+add end
	color=Color3.fromRGB(cR,cG,cB)
	bbgTl.TextColor3=color
	if plr.Character~=nil then PC=PL.Character end
	if plr.Character.Parent == workspace.Camera then
		local c = plr.Character:Clone()
		c:MakeJoints()
		for y,t in pairs(c:GetChildren()) do
			if t:IsA("BasePart") then
				t.CanCollide = false
				t.Anchored = true
				if inv then t.Transparency = 1 else t.Transparency = .5 end
				t.TopSurface = "Smooth"
				t.BottomSurface = "Smooth"
				t.RightSurface = "Smooth"
				t.LeftSurface = "Smooth"
				t.FrontSurface = "Smooth"
				t.BackSurface = "Smooth"
				t.Color = color
				t.Material="Neon"
				if t.Name == "Head" and t:FindFirstChild("face") then
					t.face:Remove()
				elseif t.Name == "Torso" and t:FindFirstChild("roblox") then
					t.roblox:Remove()
				elseif t.Name == "HumanoidRootPart" then
					t:Remove()
				end
			else
				t:Remove()
			end
		end
		local trans=0
		c.Parent = workspace
		local num=omgidk
		game:GetService("RunService"):BindToRenderStep("omgidk"..tostring(num),0,function()trans=trans+adds
		local idk=c:GetChildren()for i=1,#idk do if idk[i].Name=="Head"then if idk[i]:FindFirstChild("ghostchat")then if idk[i].ghostchat:FindFirstChild("TextLabel")then idk[i].ghostchat.TextLabel.TextTransparency=trans idk[i].ghostchat.TextLabel.TextStrokeTransparency=trans end end end if idk[i]:IsA("Part")then idk[i].Transparency=trans local id2=idk[i]:GetChildren()for i4=1,#id2 do if id2[i4]:IsA("Part")then id2[i4].Transparency=trans end end
		end end if trans>1 then c:Remove()game:GetService("RunService"):UnbindFromRenderStep("omgidk"..tostring(num))end end)

	end
end)