Permadeath reanim roblox

--this might be hard to use in ur script but im mainly making this paste to save the script


repeat wait() until game:IsLoaded()
repeat wait() until game:GetService("Players").LocalPlayer.Character
if not game:GetService("RunService"):IsStudio() then
    sethiddenproperty(game:GetService("Players").LocalPlayer,"MaximumSimulationRadius",math.huge)
    sethiddenproperty(game:GetService("Players").LocalPlayer,"SimulationRadius",1.0000000331814e+32)
    for i,v in next, game:GetService("Players").LocalPlayer.Character:GetDescendants() do
        if v:IsA("BasePart") then
            game:GetService("RunService").Heartbeat:connect(function()
                v.Velocity = Vector3.new(-25.05,0,0)
                wait(0.5)
            end)
        end
    end
    workspace.FallenPartsDestroyHeight = -math.huge
end
wait(1)

local plr = game:GetService("Players").LocalPlayer
local lplrChar = plr.Character
lplrChar.Archivable = true

local flingRoot = true
local accessories = true

local dropHats = {}

if flingRoot then
    local realRoot = lplrChar:FindFirstChild("HumanoidRootPart")
    local fakeRoot = realRoot:Clone()
    realRoot.Transparency = 0
    fakeRoot.Parent = lplrChar
    realRoot.Name = "RealRoot"
    realRoot:ClearAllChildren()
    fakeRoot:FindFirstChildOfClass("Motor6D").Part0 = fakeRoot
    local bodyPos = Instance.new("BodyPosition",realRoot)
    bodyPos.MaxForce = Vector3.new(99999997781963083612160, 99999997781963083612160, 99999997781963083612160)
    bodyPos.P = 99999997952
    bodyPos.D = 1000000
    bodyPos.Position = fakeRoot.Position
    local bodyFling = Instance.new("BodyThrust",realRoot)
    bodyFling.Location = Vector3.new(25,0,0)
    bodyFling.Force = Vector3.new(2500,2500,2500)

end


for i,v in pairs(lplrChar:GetDescendants()) do
    if v:IsA("Accessory") and accessories then
        local att1 = v.Handle:FindFirstChildOfClass("Attachment")
        local att
        for i,b in pairs(lplrChar:GetDescendants()) do
            if b:IsA("Attachment") then
                if b.Name == att1.Name and b.Parent.Name ~= "Handle" then
                    att = b
                end
            end
        end
        for i,b in ipairs(dropHats) do
            if v.Name ~= b then
                local alpos = Instance.new("AlignPosition",v.Handle)
                local alori = Instance.new("AlignOrientation",v.Handle)
                alpos.Attachment0 = att1
                alpos.Attachment1 = att
                alori.Attachment0 = att1
                alori.Attachment1 = att
                alori.MaxTorque = 1000000000 --1000000000--5772000
                alori.Responsiveness = 200
                alpos.MaxForce = 1000000000 --1000000000--5772000
                alpos.Responsiveness = 200
                alpos.ApplyAtCenterOfMass = false
            else
                v.Handle.Anchored = true
            end
        end

        game:GetService("RunService").RenderStepped:Connect(function()
            local w = v.Handle:FindFirstChildOfClass("Weld")
            if w then
                w.Enabled = false
                w:Destroy()
            end

        end)
    elseif not accessories then
        if v:IsA("Accessory") then
            --v:Destroy()
        end
    end

    if v:IsA("Motor6D") then
        local att = Instance.new("Attachment",v.Parent)
        local att1 = Instance.new("Attachment",v.Part1)
        local alpos = Instance.new("AlignPosition",v.Parent)
        local alori = Instance.new("AlignOrientation",v.Parent)
        att.Name = v.Name.." att"
        att.Position = v.C0.p
        att1.Name = v.Name.."1"
        att1.Position = v.C1.p
        alpos.Name = v.Part1.Name.." pos"
        alori.Name = v.Part1.Name.." ori"
        alpos.Attachment0 = att1
        alpos.Attachment1 = att
        alori.Attachment0 = att1
        alori.Attachment1 = att
        alori.MaxTorque = 1000000000
        alori.Responsiveness = 200
        alpos.MaxForce = 1000000000
        alpos.Responsiveness = 200
        alpos.ApplyAtCenterOfMass = false
        local clone = v:Clone()
        clone.Parent = v.Parent
        clone.Enabled = false
        clone.Changed:Connect(function()
            if clone.Enabled then
                clone.Enabled = false
            end
        end)
        game:GetService("RunService").RenderStepped:Connect(function()
            att.CFrame = clone.C0
            att1.CFrame = clone.C1
        end)
    end
end
local function NoclipLoop()
    for _, v in pairs(lplrChar:GetDescendants()) do
        if v:IsA("BasePart") and v.Name ~= "HumanoidRootPart" and v.Name ~= "Handle" then
            v.CanCollide = false
        end
    end
end
game:GetService("RunService").Stepped:Connect(function()
    NoclipLoop()
end)

wait(.5)

local p = game:GetService("Players").LocalPlayer
local c = p.Character
local m = Instance.new("Model",c)
m.Name = "Fake Character"
local t = Instance.new("Part",m)
t.Name = "Torso"
t.Position = c.HumanoidRootPart.Position
local h = Instance.new("Part",m)
h.Name = "Head"
h.Position = c.HumanoidRootPart.Position
local hum = Instance.new("Humanoid",m)
p.Character = m
print("Switched Char")
wait(2.9)
p.Character = c
print("Switched Back")
wait(2.9)
p.Character:FindFirstChildOfClass("Humanoid").Health = 0
print("Making fake humanoid")
wait(.1)
local rh = p.Character:FindFirstChildOfClass("Humanoid")
local fh = p.Character:FindFirstChildOfClass("Humanoid"):Clone()
fh.Parent = p.Character
rh.Parent = plr
workspace.CurrentCamera.CameraSubject = fh
plr.CharacterAdded:Connect(function()
    rh:Destroy()
end)
wait(1)
m:Destroy()

wait(2)

local function NoclipLoop1()
    for _, v in pairs(workspace:GetDescendants()) do
        if v:IsA("Humanoid") then
            for i,d in pairs(v.Parent:GetDescendants()) do
                if d:IsA("BasePart") and d.CanCollide == true and d.Name ~= "Handle" then
                    d.CanCollide = false
                end
            end
        end

    end
end
game:GetService("RunService").Stepped:Connect(function()
    NoclipLoop1()
    rh.Sit = false
    fh.Sit = false
end)