To R6 V2

--[[
    ToR6 function
        V1 (With dummy set up): 7280483172

        by chl (removing creds aint cool bro)

    V2 is mainly script oriented, if you don't want this, check out V1

    This module returns a function, so inorder to use it you call it, ex.

        require(MODULE)(PLAYER_INSTANCE)
--]]

-- assignments
local players = game:GetService('Players')

-- functions
local wait = task.wait
local spawn = task.spawn
local V3 = Vector3.new
local CF = CFrame.new

-- 1l
function ChangeIndex(a,b)for d,e in next,b do a[d]=e end end
function Create(a)return function(b)local c = Instance.new(a)ChangeIndex(c,b)return c end end

-- gen
function FindFirstDescendant(a,...)
    for _,b in next,{...}do
        a = a:FindFirstChild(b)
        if not a then break end
    end
    return a
end
----------------------------------------------------------------------------------------------------
function CreateDummy()--[[Idk what are yall gonna do with this part so i'lll just make it ugly    ]]
local CurrentStep=1;for _,set in next,{{'Health','Script','local a=script.Parent;local b=a:WaitFo'..
'rChild("Head")local c=a:WaitForChild("Humanoid")local d=false;function regenHealth()if d then re'..
'turn end;d=true;while c.Health<c.MaxHealth do local e=wait(1)local f=c.Health;if f>0 and f<c.Max'..
'Health then local g=0.01*e*c.MaxHealth;f=f+g;c.Health=math.min(f,c.MaxHealth)end end;if c.Health'..
'>c.MaxHealth then c.Health=c.MaxHealth end;d=false end;c.HealthChanged:connect(regenHealth)'};{''..
'Animate','LocalScript','function waitForChild(a,b)local c=a:findFirstChild(b)if c then return c '..
'end;while true do c=a.ChildAdded:wait()if c.Name==b then return c end end end;local d=script.Par'..
'ent;local e=waitForChild(d,"Torso")local f=waitForChild(e,"Right Shoulder")local g=waitForChild('..
'e,"Left Shoulder")local h=waitForChild(e,"Right Hip")local i=waitForChild(e,"Left Hip")local j=w'..
'aitForChild(e,"Neck")local k=waitForChild(d,"Humanoid")local l="Standing"local m=""local n=nil;l'..
'ocal o=nil;local p=nil;local q=1.0;local r={}local s={idle={{id="http://www.roblox.com/asset/?id'..
'=180435571",weight=9},{id="http://www.roblox.com/asset/?id=180435792",weight=1}},walk={{id="http'..
'://www.roblox.com/asset/?id=180426354",weight=10}},run={{id="run.xml",weight=10}},jump={{id="htt'..
'p://www.roblox.com/asset/?id=125750702",weight=10}},fall={{id="http://www.roblox.com/asset/?id=1'..
'80436148",weight=10}},climb={{id="http://www.roblox.com/asset/?id=180436334",weight=10}},sit={{i'..
'd="http://www.roblox.com/asset/?id=178130996",weight=10}},toolnone={{id="http://www.roblox.com/a'..
'sset/?id=182393478",weight=10}},toolslash={{id="http://www.roblox.com/asset/?id=129967390",weigh'..
't=10}},toollunge={{id="http://www.roblox.com/asset/?id=129967478",weight=10}},wave={{id="http://'..
'www.roblox.com/asset/?id=128777973",weight=10}},point={{id="http://www.roblox.com/asset/?id=1288'..
'53357",weight=10}},dance1={{id="http://www.roblox.com/asset/?id=182435998",weight=10},{id="http:'..
'//www.roblox.com/asset/?id=182491037",weight=10},{id="http://www.roblox.com/asset/?id=182491065"'..
',weight=10}},dance2={{id="http://www.roblox.com/asset/?id=182436842",weight=10},{id="http://www.'..
'roblox.com/asset/?id=182491248",weight=10},{id="http://www.roblox.com/asset/?id=182491277",weigh'..
't=10}},dance3={{id="http://www.roblox.com/asset/?id=182436935",weight=10},{id="http://www.roblox'..
'.com/asset/?id=182491368",weight=10},{id="http://www.roblox.com/asset/?id=182491423",weight=10}}'..
',laugh={{id="http://www.roblox.com/asset/?id=129423131",weight=10}},cheer={{id="http://www.roblo'..
'x.com/asset/?id=129423030",weight=10}}}local t={"dance1","dance2","dance3"}local u={wave=false,p'..
'oint=false,dance1=true,dance2=true,dance3=true,laugh=false,cheer=false}function configureAnimati'..
'onSet(v,w)if r[v]~=nil then for x,y in pairs(r[v].connections)do y:disconnect()end end;r[v]={}r['..
'v].count=0;r[v].totalWeight=0;r[v].connections={}local z=script:FindFirstChild(v)if z~=nil then '..
'table.insert(r[v].connections,z.ChildAdded:connect(function(c)configureAnimationSet(v,w)end))tab'..
'le.insert(r[v].connections,z.ChildRemoved:connect(function(c)configureAnimationSet(v,w)end))loca'..
'l A=1;for x,B in pairs(z:GetChildren())do if B:IsA("Animation")then table.insert(r[v].connection'..
's,B.Changed:connect(function(C)configureAnimationSet(v,w)end))r[v][A]={}r[v][A].anim=B;local D=B'..
':FindFirstChild("Weight")if D==nil then r[v][A].weight=1 else r[v][A].weight=D.Value end;r[v].co'..
'unt=r[v].count+1;r[v].totalWeight=r[v].totalWeight+r[v][A].weight;A=A+1 end end end;if r[v].coun'..
't<=0 then for A,E in pairs(w)do r[v][A]={}r[v][A].anim=Instance.new("Animation")r[v][A].anim.Nam'..
'e=v;r[v][A].anim.AnimationId=E.id;r[v][A].weight=E.weight;r[v].count=r[v].count+1;r[v].totalWeig'..
'ht=r[v].totalWeight+E.weight end end end;function scriptChildModified(c)local w=s[c.Name]if w~=n'..
'il then configureAnimationSet(c.Name,w)end end;script.ChildAdded:connect(scriptChildModified)scr'..
'ipt.ChildRemoved:connect(scriptChildModified)for v,w in pairs(s)do configureAnimationSet(v,w)end'..
';local F="None"local G=0;local H=0;local I=0.3;local J=0.1;local K=0.3;local L=0.75;function sto'..
'pAllAnimations()local M=m;if u[M]~=nil and u[M]==false then M="idle"end;m=""n=nil;if p~=nil then'..
' p:disconnect()end;if o~=nil then o:Stop()o:Destroy()o=nil end;return M end;function setAnimatio'..
'nSpeed(N)if N~=q then q=N;o:AdjustSpeed(q)end end;function keyFrameReachedFunc(O)if O=="End"then'..
' local P=m;if u[P]~=nil and u[P]==false then P="idle"end;local Q=q;playAnimation(P,0.0,k)setAnim'..
'ationSpeed(Q)end end;function playAnimation(R,S,T)local U=math.random(1,r[R].totalWeight)local V'..
'=U;local A=1;while U>r[R][A].weight do U=U-r[R][A].weight;A=A+1 end;local E=r[R][A].anim;if E~=n'..
' then if o~=nil then o:Stop(S)o:Destroy()end;q=1.0;o=T:LoadAnimation(E)o:Play(S)m=R;n=E;if p~=ni'..
'l then p:disconnect()end;p=o.KeyframeReached:connect(keyFrameReachedFunc)end end;local W=""local'..
' X=nil;local Y=nil;local Z=nil;function toolKeyFrameReachedFunc(O)if O=="End"then playToolAnimat'..
'ion(W,0.0,k)end end;function playToolAnimation(R,S,T)local U=math.random(1,r[R].totalWeight)loca'..
'l V=U;local A=1;while U>r[R][A].weight do U=U-r[R][A].weight;A=A+1 end;local E=r[R][A].anim;if Y'..
'~=E then if X~=nil then X:Stop()X:Destroy()S=0 end;X=T:LoadAnimation(E)X:Play(S)W=R;Y=E;Z=X.Keyf'..
'rameReached:connect(toolKeyFrameReachedFunc)end end;function stopToolAnimations()local M=W;if Z~'..
'=nil then Z:disconnect()end;W=""Y=nil;if X~=nil then X:Stop()X:Destroy()X=nil end;return M end;f'..
'unction onRunning(N)if N>0.01 then playAnimation("walk",0.1,k)if n and n.AnimationId=="http://ww'..
'w.roblox.com/asset/?id=180426354"then setAnimationSpeed(N/14.5)end;l="Running"else if u[m]==nil '..
'then playAnimation("idle",0.1,k)l="Standing"end end end;function onDied()l="Dead"end;function on'..
'Jumping()playAnimation("jump",0.1,k)H=I;l="Jumping"end;function onClimbing(N)playAnimation("clim'..
'b",0.1,k)setAnimationSpeed(N/12.0)l="Climbing"end;function onGettingUp()l="GettingUp"end;functio'..
'n onFreeFall()if H<=0 then playAnimation("fall",K,k)end;l="FreeFall"end;function onFallingDown()'..
'l="FallingDown"end;function onSeated()l="Seated"end;function onPlatformStanding()l="PlatformStan'..
'ding"end;function onSwimming(N)if N>0 then l="Running"else l="Standing"end end;function getTool('..
')for x,_ in ipairs(d:GetChildren())do if _.className=="Tool"then return _ end end;return nil end'..
';function getToolAnim(a0)for x,a1 in ipairs(a0:GetChildren())do if a1.Name=="toolanim"and a1.cla'..
'ssName=="StringValue"then return a1 end end;return nil end;function animateTool()if F=="None"the'..
'n playToolAnimation("toolnone",J,k)return end;if F=="Slash"then playToolAnimation("toolslash",0,'..
'k)return end;if F=="Lunge"then playToolAnimation("toollunge",0,k)return end end;function moveSit'..
'()f.MaxVelocity=0.15;g.MaxVelocity=0.15;f:SetDesiredAngle(3.14/2)g:SetDesiredAngle(-3.14/2)h:Set'..
'DesiredAngle(3.14/2)i:SetDesiredAngle(-3.14/2)end;local a2=0;function move(a3)local a4=1;local a'..
'5=1;local a6=a3-a2;a2=a3;local a7=0;local a8=false;if H>0 then H=H-a6 end;if l=="FreeFall"and H<'..
'=0 then playAnimation("fall",K,k)elseif l=="Seated"then playAnimation("sit",0.5,k)return elseif '..
'l=="Running"then playAnimation("walk",0.1,k)elseif l=="Dead"or l=="GettingUp"or l=="FallingDown"'..
'or l=="Seated"or l=="PlatformStanding"then stopAllAnimations()a4=0.1;a5=1;a8=true end;if a8 then'..
' desiredAngle=a4*math.sin(a3*a5)f:SetDesiredAngle(desiredAngle+a7)g:SetDesiredAngle(desiredAngle'..
'-a7)h:SetDesiredAngle(-desiredAngle)i:SetDesiredAngle(-desiredAngle)end;local a0=getTool()if a0 '..
'and a0:FindFirstChild("Handle")then animStringValueObject=getToolAnim(a0)if animStringValueObjec'..
't then F=animStringValueObject.Value;animStringValueObject.Parent=nil;G=a3+.3 end;if a3>G then G'..
'=0;F="None"end;animateTool()else stopToolAnimations()F="None"Y=nil;G=0 end end;k.Died:connect(on'..
'Died)k.Running:connect(onRunning)k.Jumping:connect(onJumping)k.Climbing:connect(onClimbing)k.Get'..
'tingUp:connect(onGettingUp)k.FreeFalling:connect(onFreeFall)k.FallingDown:connect(onFallingDown)'..
'k.Seated:connect(onSeated)k.PlatformStanding:connect(onPlatformStanding)k.Swimming:connect(onSwi'..
'mming)game.Players.LocalPlayer.Chatted:connect(function(a9)local aa=""if a9=="/e dance"then aa=t'..
'[math.random(1,#t)]elseif string.sub(a9,1,3)=="/e "then aa=string.sub(a9,4)elseif string.sub(a9,'..
'1,7)=="/emote "then aa=string.sub(a9,8)end;if l=="Standing"and u[aa]~=nil then playAnimation(aa,'..
'0.1,k)end end)local ab=game:service("RunService")playAnimation("idle",0.1,k)l="Standing"task.spa'..
'wn(function()while d.Parent~=nil do local x,a3=wait(0.1)move(a3)end end)local ac=game.Players.Lo'..
'calPlayer;function waitForDescendant(a,...)for x,ad in next,{...}do a=a:WaitForChild(ad,1/0)end;'..
'return a end;if not ac then return end;local ae=waitForDescendant(ac,\'PlayerScripts\',\'PlayerM'..
'odule\',\'ControlModule\')local af=ae:Clone()require(af)'};{'RunCmd','AddStep'};{'Create',{'Model';
{Name='Dummy';Parent=script}}};{'GetClonedMember',{'Health';{Disabled=1>0},{Parent={'Dummy'}};};{'A'
..'nimate';{Disabled=1>0},{Parent={'Dummy'}}}};{'Create',{'Part',{CFrame=CF(0,4.5,.5);Name='He\97d';
Size=V3(2,1,1)},{Parent={'Dummy'}}},{'SpecialMesh',{Scale=V3(5/4,5/4,5/4)},{Parent={'Dummy','Head'}}
},{'Decal',{Name='face';Texture='rbxasset://textures/face.png'},{Parent={'Dummy','Head'}}},{'Atta'..
'chment',{CFrame=CF(0,.6,0);Name='HairAttachment'},{Parent={'Dummy','Head'}}},{'Attachment',{CFrame=
CF(0,.6,0);Name='HatAttachment'},{Parent={'Dummy','Head'}};},{'Attachment',{CFrame=CF(0,0,-.6);Name=
'FaceFrontAttachment'},{Parent={'Dummy','Head'}}},{'Attachment',{Name='\70\97ceCenterAttachment';},{
Parent={'Dummy','Head'}}},{'Part',{CFrame=CF(-1.5,3,.5);Name='Left Arm';Size=V3(1,2,1)},{Parent={'D'
..'ummy'}}},{'Attachment',{CFrame=CF(0,1,0);Name='LeftShoulderAttachment'},{Parent={'Dummy','Left'..
' Arm'}}},{'Part',{CFrame=CF(1.5,3,.5);Name='Right Arm';Size=V3(1,2,1)},{Parent={'Dummy'}}},{'Att'..
'achment',{CFrame=CF(0,1,0);Name='RightShoulderAttachment'},{Parent={'Dummy','Right Arm'}}},{'Part',
{CFrame=CF(-.5,1,.5);Name='Left Leg';Size=V3(1,2,1)},{Parent={'Dummy'}}},{'Part',{CFrame=CF(.5,1,.5)
;Name='Right Leg';Size=V3(1,2,1)},{Parent={'Dummy'}}},{'Part',{CFrame=CF(0,3,1/2);Name='Torso';Size=
V3(2,2,1)},{Parent={'Dummy'}}},{'Decal',{Name='roblox'},{Parent={'Dummy','Torso'}};},{'Attachment',{
CFrame=CF(0,1,0);Name='NeckAttachment'},{Parent={'Dummy','Torso'}}},{'Attachment',{CFrame=CF(0,0,-.5
);Name='BodyFrontAttachment'},{Parent={'Dummy','Torso'}}},{'Attachment',{CFrame=CF(0,0,.5);Name='Bo'
..'dyBackAttachment'},{Parent={'Dummy','Torso'}}},{'Attachment',{CFrame=CF(-1,1,0);Name='LeftColl'..
'arAttachment'},{Parent={'Dummy','Torso'}}},{'Attachment',{CFrame=CF(1,1,0);Name='RightCollarAtta'..
'chment'},{Parent={'Dummy','Torso'}}},{'Attachment',{CFrame=CF(0,-1,-.5);Name='WaistFrontAttachment'
},{Parent={'Dummy','Torso'}}},{'Attachment',{CFrame=CF(0,-1,0);Name='WaistCenterAttachment'},{Parent
={'Dummy','Torso'}}},{'Attachment',{CFrame=CF(0,-1,.5);Name='WaistBackAttachment'},{Parent={'Dummy',
'Torso'}}},{'Motor6D',{Name='Right Shoulder';MaxVelocity=.1;C0=CF(1,.5,0,0,0,1,0,1,0,-1,0,0);C1=CF(-
.5,.5,0,0,0,1,0,1,0,-1,0,0)},{Part1={'Dummy','Right Arm'};Parent={'Dummy','Torso'};Part0={'\68ummy',
'Torso'}}},{'Motor6D',{Name='Left Shoulder';MaxVelocity=.1;C0=CF(-1,1/2,0,0,0,-1,0,1,0,1,0,0);C1=CF(
.5,.5,0,0,0,-1,0,1,0,1,0,0)},{Part1={'Dummy','Left Arm'};Parent={'Dummy','Torso'};Part0={'Dummy','T'
..'orso'}}},{'Motor6D',{Name='Right Hip';MaxVelocity=.1;C0=CF(1,-1,0,0,0,1,0,1,0,-1,0,0);C1=CF(.5,1,
0,0,0,1,0,1,0,-1,0,0)},{Part1={'Dummy','Right Leg'};Parent={'Dummy','Torso'};Part0={'Dummy','Tors'..
'o'}}},{'Motor6D',{Name='Left Hip';MaxVelocity=.1;C0=CF(-1,-1,0,0,0,-1,0,1,0,1,0,0);C1=CF(-.5,1,0,0,
0,-1,0,1,0,1,0,0)},{Part1={'Dummy','Left Leg'};Parent={'Dummy','Torso'};Part0={'Dummy','Torso'}};},{
'Motor6D',{Name='Neck';MaxVelocity=.1;C0=CF(0,1,0,-1,0,0,0,0,1,0,1,0);C1=CF(0,-.5,0,-1,0,0,0,0,1,0,1
,0)},{Part1={'Dummy','Head'};Parent={'Dummy','Torso'};Part0={'Dummy','Torso'}}},{'\72um\97noid',{},{
Parent={'Dummy'}}},{'Animator',{},{Parent={'Dummy','Humanoid'}}},{'Part',{CFrame=CF(0,3,.5);Name='H'
..'umanoidRootPart';Size=V3(2,2,1);Transparency=1},{Parent={'Dummy'}}},{'Motor6D',{Name='RootJoint';
MaxVelocity=.1;C0=CF(0,0,0,-1,0,0,0,0,1,0,1,0);C1=CF(0,0,0,-1,0,0,0,0,1,0,1,0)},{Part1={'Dummy','To'
..'rso'};Parent={'Dummy','HumanoidRootPart'};Part0={'Dummy','HumanoidRootPart'}}},{'\83tringValue',{
Name='idle'},{Parent={'Dummy','Animate'}}},{'Animation',{AnimationId='http://www.roblox.com/asset'..
'/?id=180435571';Name='Animation1'},{Parent={'Dummy','Animate','idle'}}},{'NumberValue',{Name='We'..
'ight';Value=9},{Parent={'Dummy','Animate','idle','Animation1'}}},{'Animation',{AnimationId='http'..
'://www.roblox.com/asset/?id=180435792';Name='Animation2'},{Parent={'Dummy','Animate','idle'}}},{'N'
..'umberValue',{Name='Weight';Value=1},{Parent={'Dummy','Animate','idle','Animation2'}}},{'String'..
'Value',{Name='walk'},{Parent={'Dummy','Animate'}}},{'Animation',{AnimationId='http://www.roblox.'..
'com/asset/?id=180426354';Name='WalkAnim'},{Parent={'Dummy','Animate','walk'}}},{'StringValue',{Name
='run'},{Parent={'Dummy','Animate'}}},{'Animation',{AnimationId='http://www.roblox.com/asset/?id='..
'180426354';Name='RunAnim'},{Parent={'Dummy','Animate','run'}}},{'StringValue',{Name='jump'},{Parent
={'Dummy','Animate'}}},{'Animation',{AnimationId='http://www.roblox.com/asset/?id=12575070\50';Name=
'JumpAnim'},{Parent={'Dummy','Animate','jump'}}},{'StringValue',{Name='climb'},{Parent={'Dummy','An'
..'imate'}}},{'Animation',{AnimationId='rbxassetid://180436334';Name='ClimbAnim';},{Parent={'Dummy',
'Animate','climb'}}},{'StringValue',{Name='toolnone'},{Parent={'Dummy','Animate'}}},{'\65nimation',{
AnimationId='http://www.roblox.com/asset/?id=182393478';Name='ToolNoneAnim'},{Parent={'Dummy','An'..
'imate','toolnone'}}},{'StringValue',{Name='fall'},{Parent={'Dummy','Animate'}}},{'Animation',{['An'
..'imationId']='http://www.roblox.com/asset/?id=180436148';Name='FallAnim'},{Parent={'Dummy','Ani'..
'mate','fall'}}},{'StringValue',{Name='sit'},{Parent={'Dummy','Animate'}}},{'Animation',{AnimationId
='http://www.roblox.com/asset/?id=178130996';Name='SitAnim'},{Parent={'Dummy','Animate','sit'}}}}}do
if set[1]=='\82unCmd'then if'\65\100\100\83\116\101\112'==set[2]then CurrentStep+=1 end continue;end
if CurrentStep==(1+(0*#'wwwwwwwwwwwwwwwwwwwwwwwwwwwwwwwwwwwwwwwwwwwwwwwwwwwwwwwwwwwwwwwwwwwww'))then
assert(script:FindFirstChild(set[1]),'Missing member: Expected '..set[2]..' '..'named '..set[1]..'w'
..'\105\116\104\32\115\111\117\114ce\58\32'..set[1+1+1])elseif CurrentStep==1+1 then local Cmd=set[1
];if Cmd=='\67\114\101\97\116\101'then for it,subset in next,set do if it==(1+(0))then continue end;
local ins=Create(subset[1])(subset[2]);if subset[1+1+1]and type(subset[1+1+1])=='\116\97\98\108\101'
then for a,c in next,subset[1+1+1]do subset[1+1+0][a]=FindFirstDescendant(script,unpack(c));end;end;
ChangeIndex(ins,subset[2])end;elseif Cmd=='GetClonedMe\109\98\101\114'then for it,subset in next,set
do if it==1 then continue end local Clone=script:FindFirstChild(subset[1+0*#'wwwwwwwwwww']):Clone();
ChangeIndex(Clone,subset[2]);if subset[3]and type(subset[3])=='table'then for a,c in next,subset[1+2
]do subset[1+1][a]=FindFirstDescendant(script,unpack(c));end;end;ChangeIndex(Clone,subset[1+1+0*#'w'
]);end;end;end;end;return script:FindFirstChild('\68\117\109\109\121'..(''):rep(#'wwwwwwwwww'));end;

function GetDummy()
    local Result = script:FindFirstChild('Dummy')

    if not Result then
        Result = CreateDummy()
    end

    return Result
end

function ToR6(player)
    assert(typeof(player)=='Instance','Bad argument: Expected value type Instance, got '.. typeof(player))
    assert(player:IsA'Player','Bad argument: Expected ClassName Player, got' .. player.ClassName)
    local character = assert(player.Character,'Property Player\'s character is nil.')
    assert(character.Parent,'Character\'s parent is nil.')
    local humanoidRootPart = assert(character:FindFirstChild('HumanoidRootPart'),'No HumanoidRootPart parented under character')
    assert(humanoidRootPart:IsA('Part'),'HumanoidRootPart not a Part. Possible that multiple children are named "HumanoidRootPart"')



    local description = players:GetHumanoidDescriptionFromUserId(player.UserId)
    local cloneDummy = GetDummy():Clone()
    local originalCFrame = humanoidRootPart.CFrame
    local originalParent = character.Parent


    for _,a in next,character:GetChildren()do
        if a:IsA('LuaSourceContainer')then
            a.Disabled = true
        end

        a:Destroy()
    end

    character.Parent = nil

    for _,a in next,cloneDummy:GetChildren()do
        a.Parent = character
    end

    local humanoidRootPart = character.HumanoidRootPart

    humanoidRootPart.CFrame = originalCFrame

    character.PrimaryPart = humanoidRootPart
    character.Parent = originalParent

    character.Animate.Disabled = false
    character.Health.Disabled = false


    local humanoid = character:FindFirstChildWhichIsA'Humanoid'
    humanoid:ApplyDescription(description)

    spawn(function()
        humanoid.Died:Wait()

        wait(players.RespawnTime)

        player:LoadCharacter()
    end)
end

-- return
return ToR6