animation test

Services = setmetatable({},{__index=function(s,r) return game:service(r) end})
Player = Services.Players.LocalPlayer
wait()script.Parent=nil
BodyParts={}
abs = function(int)
	if int < 0 then return -int else return int end
end
rad = function(deg)
	return deg * math.pi / 180
end
deg = function(rad)
	return rad * 180 / math.pi
end
dist = function(p1,p2)
	r,e = ypcall(function()
		p1 = p1.Position
	end)
	if not r then p1 = p1 end
	r,e = ypcall(function()
		p2 = p2.Position
	end)
	if not r then p1 = p1 end
	return math.sqrt( (p2.X-p1.X)^2 + (p2.Y-p1.Y)^2 + (p2.Z-p1.Z)^2 )
end

function GetChar()
	return Player.Character
end
function GetHum()
	for i,v in pairs(GetChar():children'') do
		if v.ClassName == 'Humanoid' then
			return v
		end
	end
end

function Died()
	for i,v in pairs(GetChar():children'') do
		if v.ClassName == 'Part' then
			table.insert(BodyParts,{v.CFrame,v})
		elseif v.ClassName == 'Hat' then
			v.Parent=workspace
			table.insert(BodyParts,{v.Handle.CFrame,v.Handle,1})
		end
	end

	wait(3)
	for i,v in pairs(BodyParts) do
		v[2].Anchored=true
		if v[2].Name == 'Torso' then pos = v[1] end
	end

	for i,v in pairs(BodyParts) do
		coroutine.resume(coroutine.create(function()
			repeat Services.RunService.Heartbeat:wait()
				v[2].CFrame = v[2].CFrame:lerp(v[1],.1)
			until dist(v[2],v[1]) < .05
			v[2].CFrame=v[1]
		end))
	end
end

Player.CharacterAdded:connect(function(char)
	char:WaitForChild('Torso')
	for i,v in pairs(BodyParts) do
		if v[3] then
			v[2]:Remove()
		end
	end
	BodyParts={}
	char.Torso.CFrame=pos or CFrame.new(0,12,0)
	GetHum().Died:connect(Died)
end)
GetHum().Died:connect(Died)
print'rannering'

--[[
    Stand: The World
    User: DIO
]]

---Declarations
local Cn=CFrame.new
local CA=CFrame.Angles
local mr=math.rad
local rn=math.random
local mc=math.cos
local Vn=Vector3.new
local NR=NumberRange.new
local NSeq=NumberSequence.new
local plrs=game:service"Players"
local wrk=game:service"Workspace"
local deb=game:service"Debris"
local IS=game:GetService("InsertService")
local p=plrs.LocalPlayer
local cam=wrk.CurrentCamera
local char=p.Character
local mouse=p:GetMouse()
local lam=char["Left Arm"]
local ram=char["Right Arm"]
local llg=char["Left Leg"]
local rlg=char["Right Leg"]
local hed=char.Head
local tor=char.Torso
local larm = lam
local rarm = ram
local lleg = llg
local rleg = rlg
local torso = tor
local hrp=char.HumanoidRootPart
local PlayerSpeed = char.Humanoid.WalkSpeed
local on=false
local noRig=false
local curws=16
local sine=0
local ift={}
local ifxd=false
local run=false
local stance="Cane"
local Speed = 16
local Health = 9000

PlayerSpeed = 16

ypcall(function()
char.Shirt:Destroy()
char.Pants:Destroy()
shirt = Instance.new("Shirt", char)
shirt.Name = "Shirt"
pants = Instance.new("Pants", char)
pants.Name = "Pants"
char.Shirt.ShirtTemplate = "http://www.roblox.com/asset/?id=298260655"
char.Pants.PantsTemplate = "http://www.roblox.com/asset/?id=298260668"
end)

Debounces = {
CanAttack = true;
NoIdl = false;
Slashing = false;
Slashed = false;
RPunch = false;
RPunched = false;
LPunch = false;
LPunched = false;
}

local trappedTorsos = {}

---Functions

function FndHm(flnm)
for i,v in pairs(flnm:GetChildren()) do
if v:IsA("Humanoid") then
return v
end
end
end
local hum=FndHm(char)
--hum.Name=""


function chrDes(inst)
        local ret=nil
        for _,v in pairs(game.Players:GetChildren()) do
                if inst:IsDescendantOf(v) then
                        ret=v
                        break
                end
        end
        return ret
end

--
function get(a)
local cont={}
for i,v in pairs(a:GetChildren()) do
if v==char then
else
table.insert(cont,v)
pcall(function()
for _,b in pairs(get(v)) do
table.insert(cont,b)
end
end)
end
end
return cont
end
for _,v in pairs(get(game.Workspace)) do
if v:IsA("Sparkles") or v:IsA("Fire") then
v:Destroy()
end
end

--
function inT(qur,tbl)
local a=false
for i,v in pairs(tbl) do
if v==qur then
a=true
break
else
a=false
end
end
return a
end

--
function Tween(a,b,c)
return a+(b-a)*c
end

--
function Avg(a,b)
return CFrame.new((a.X+b.X)/2,(a.Y+b.Y)/2,(a.Z+b.Z)/2)
end

--
function Lerp(c1,c2,tim)
        local com1={c1.C0.X,c1.C0.Y,c1.C0.Z,c1.C0:toEulerAnglesXYZ()}
        local com2={c2.X,c2.Y,c2.Z,c2:toEulerAnglesXYZ()}
        for i,v in pairs(com1) do
                com1[i]=v+(com2[i]-v)*tim
        end
        return Cn(com1[1],com1[2],com1[3])*CA(select(4,unpack(com1)))
end

function RLerp(c1,c2,tim)
        return c1:lerp(c2,tim)
end

--
function ALerp(c1,c2,tim)
        local com1={c1.X,c1.Y,c1.Z,c1:toEulerAnglesXYZ()}
        local com2={c2.X,c2.Y,c2.Z,c2:toEulerAnglesXYZ()}
        for i,v in pairs(com1) do
                com1[i]=v+(com2[i]-v)*tim
        end
        return Cn(com1[1],com1[2],com1[3])*CA(select(4,unpack(com1)))
end

--
function Lerprs(ud,ud2,al)
local a,b,c,d=ud.X.Scale,ud.X.Offset,ud.Y.Scale,ud.Y.Offset
local a2,b2,c2,d2=ud2.X.Scale,ud2.X.Offset,ud2.Y.Scale,ud2.Y.Offset
local x,y,z,w=(a+(a2-a)*al),(b+(b2-b)*al),(c+(c2-c)*al),(d+(d2-d)*al)
return UDim2.new(x,y,z,w)
end

--
function newAnim(wld)
        local asd={["Weld"]=wld;["Int"]=0;["Frame"]=1;}
        asd.getFrames=function()
                local num=0
                for _,v in pairs(asd) do
                        pcall(function()
                                num=num+v.Length
                        end)
                end
                return num
        end
        return asd
end
---Animations

--Idle
local heid=newAnim(hew)
newKF(heid,hD*CA(mr(-15.5),0,0),50,0.3)
newKF(heid,hD*CA(mr(-14),0,0),40,0.3)
local toid=newAnim(tow)
newKF(toid,tD*Cn(0,-0.0125,0)*CA(mr(16),0,0),50,0.3)
newKF(toid,tD*Cn(0,0.0125,0)*CA(mr(15),0,0),40,0.3)
local laid=newAnim(law)
newKF(laid,laD*Cn(1,0.0125,-0.764)*CA(mr(80),0,mr(85)),50,0.3)
newKF(laid,laD*Cn(1,-0.0125,-0.764)*CA(mr(70),0,mr(85)),40,0.3)
local raid=newAnim(raw)
newKF(raid,raD*Cn(-1,-0.0125,-0.764)*CA(mr(80),0,mr(-85)),50,0.3)
newKF(raid,raD*Cn(-1,0.0125,-0.764)*CA(mr(70),0,mr(-85)),40,0.3)
local llid=newAnim(llw)
newKF(llid,llD*Cn(0,0.0125,0)*CA(mr(-16),0,0),50,0.3)
newKF(llid,llD*Cn(0,-0.0125,0)*CA(mr(-15),0,mr(0)),40,0.3)
local rlid=newAnim(rlw)
newKF(rlid,rlD*Cn(0,0.0125,0)*CA(mr(-16),0,0),50,0.3)
newKF(rlid,rlD*Cn(0,-0.0125,0)*CA(mr(-15),0,mr(0)),40,0.3)

local heid2=newAnim(hew2)
newKF(heid2,hD*CA(mr(16),0,0),40,0.3)
newKF(heid2,hD*CA(mr(14),0,0),40,0.3)
local toid2=newAnim(tow2)
newKF(toid2,tD*Cn(0,0.5,3)*CA(mr(0),0,0),50,1)
newKF(toid2,tD*Cn(0,1,3)*CA(mr(0),0,0),40,1)
local laid2=newAnim(law2)
newKF(laid2,laD*Cn(0.5,0.0125,-1)*CA(mr(20),mr(50),mr(20)),50,0.3)
newKF(laid2,laD*Cn(0.5,-0.0125,-1)*CA(mr(20),mr(50),mr(20)),40,0.3)
local raid2=newAnim(raw2)
newKF(raid2,raD*Cn(-0.5,-0.0125,-1)*CA(mr(20),mr(-50),mr(-20)),50,0.3)
newKF(raid2,raD*Cn(-0.5,0.0125,-1)*CA(mr(20),mr(-50),mr(-20)),40,0.3)
local llid2=newAnim(llw2)
newKF(llid2,llD*Cn(0,0.0125,0)*CA(mr(0),0,0),50,0.3)
newKF(llid2,llD*Cn(0,-0.0125,0)*CA(mr(0),0,mr(0)),40,0.3)
local rlid2=newAnim(rlw2)
newKF(rlid2,rlD*Cn(0,0.0125,0)*CA(mr(0),0,0),50,0.3)
newKF(rlid2,rlD*Cn(0,-0.0125,0)*CA(mr(0),0,mr(0)),40,0.3)

--Walk
local hewk=newAnim(hew)
newKF(hewk,hD*CA(mr(-5.5),0,0),12,0.4)
newKF(hewk,hD*CA(mr(-5),mr(-3),0),13,0.4)
newKF(hewk,hD*CA(mr(-5.5),0,0),12,0.4)
newKF(hewk,hD*CA(mr(-5),mr(3),0),13,0.4)
local towk=newAnim(tow)
newKF(towk,tD*Cn(0,0.1,0)*CA(mr(15),0,0),12,0.2)
newKF(towk,tD*CA(mr(15),mr(5),0),13,0.4)
newKF(towk,tD*Cn(0,0.1,0)*CA(mr(15),0,0),12,0.2)
newKF(towk,tD*CA(mr(15),mr(-5),0),13,0.4)
local lawk=newAnim(law)
newKF(lawk,laD*CA(mr(30),0,0),25,0.4)
newKF(lawk,laD*CA(mr(-30),0,0),25,0.4)
local rawk=newAnim(raw)
newKF(rawk,raD*CA(mr(-30),0,0),25,0.4)
newKF(rawk,raD*CA(mr(30),0,0),25,0.4)
local llwk=newAnim(llw)
newKF(llwk,llD*CA(mr(-40),mr(-10),mr(-2)),25,0.4)
newKF(llwk,llD*Cn(0,0.3,0)*CA(mr(-5),0,mr(-3)),12,0.4)
newKF(llwk,llD*Cn(0,-0.2,-0.25)*CA(mr(40),mr(10),mr(-3)),13,0.4)
local rlwk=newAnim(rlw)
newKF(rlwk,rlD*Cn(0,0.3,0)*CA(mr(-5),0,mr(3)),12,0.4)
newKF(rlwk,rlD*Cn(0,-0.2,-0.25)*CA(mr(40),mr(-10),mr(3)),13,0.4)
newKF(rlwk,rlD*CA(mr(-40),mr(10),mr(2)),25,0.4)

--Sprint
local hesp=newAnim(hew)
newKF(hesp,hD*CA(mr(5),mr(-10),0),10,0.2)
newKF(hesp,hD*CA(mr(10),0,0),10,0.2)
newKF(hesp,hD*CA(mr(5),mr(10),0),10,0.2)
newKF(hesp,hD*CA(mr(10),0,0),10,0.2)
local tosp=newAnim(tow)
newKF(tosp,tD*Cn(0,0.1,0)*CA(mr(-5),mr(10),0),10,0.4)
newKF(tosp,tD*CA(mr(-10),0,0),10,0.4)
newKF(tosp,tD*Cn(0,0.1,0)*CA(mr(-5),mr(-10),0),10,0.4)
newKF(tosp,tD*CA(mr(-10),0,0),10,0.4)
local lasp=newAnim(law)
newKF(lasp,laD*Cn(0,-0.1,-0.2)*CA(mr(60),0,0),20,0.4)
newKF(lasp,laD*CA(mr(-40),0,0),20,0.4)
local rasp=newAnim(raw)
newKF(rasp,raD*CA(mr(-40),0,0),20,0.4)
newKF(rasp,raD*Cn(0,-0.1,-0.2)*CA(mr(60),0,0),20,0.4)
local llsp=newAnim(llw)
newKF(llsp,llD*CA(mr(-50),mr(-10),mr(-2)),20,0.4)
newKF(llsp,llD*Cn(0,0.5,0)*CA(mr(15),0,mr(-3)),10,0.4)
newKF(llsp,llD*Cn(0,-0.4,-0.25)*CA(mr(70),mr(10),mr(-3)),10,0.4)
local rlsp=newAnim(rlw)
newKF(rlsp,rlD*Cn(0,0.3,0)*CA(mr(15),0,mr(3)),10,0.4)
newKF(rlsp,rlD*Cn(0,-0.4,-0.25)*CA(mr(70),mr(-10),mr(3)),10,0.4)
newKF(rlsp,rlD*CA(mr(-50),mr(10),mr(2)),20,0.4)

--Freefall
local heff=newAnim(hew)
newKF(heff,hD*CA(mr(-5),0,0),8,0.6)
newKF(heff,hD*CA(mr(-5),0,0),8,0.6)
local toff=newAnim(tow)
newKF(toff,tD*CA(mr(10),0,0),8,0.6)
newKF(toff,tD*CA(mr(10),0,0),8,0.6)
local laff=newAnim(law)
newKF(laff,laD*CA(mr(140),0,0),16,0.4)
newKF(laff,laD*CA(mr(140),0,0),16,0.4)
local raff=newAnim(raw)
newKF(raff,raD*CA(mr(140),0,0),16,0.4)
newKF(raff,raD*CA(mr(140),0,0),16,0.4)
local llff=newAnim(llw)
newKF(llff,llD*CA(0,0,mr(-5)),16,0.4)
newKF(llff,llD*CA(0,0,mr(-5)),16,0.4)
local rlff=newAnim(rlw)
newKF(rlff,rlD*CA(0,0,mr(5)),16,0.4)
newKF(rlff,rlD*CA(0,0,mr(5)),16,0.4)