Rainbow Ghost

plr = game:FindFirstChildOfClass("Players").LocalPlayer
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)
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)