--[[ By Sugerkid123]]--

--//Main
local Player = game.Players.LocalPlayer
local Character = Player.Character
local Mouse = Player:GetMouse()
local Animate = Character:FindFirstChild("Animate")
	if Animate then Animate:Destroy() end
local ShirtId = "rbxassetid://"
local PantsId = "rbxassetid://"

local State = "Idle"

local Sitting = false
local Animations = false
local Sprinting = false

local rad = math.rad
local sin = math.sin
local cos = math.cos

--//Parts
local RA = Character["Right Arm"]
local LA = Character["Left Arm"]
local RL = Character["Right Leg"]
local LL = Character["Left Leg"]
local T = Character["Torso"]
local H = Character["Head"]
local HRP = Character["HumanoidRootPart"]
local Humanoid = Character["Humanoid"]

local Broom = Instance.new('Part',Character)
Broom.Size = Vector3.new(1, 1.2, 9)
local BroomMesh = Instance.new('SpecialMesh',Broom)
BroomMesh.MeshId = "http://www.roblox.com/asset/?id=36365830"
BroomMesh.TextureId = "http://www.roblox.com/asset/?id=36365793"
BroomMesh.Scale = Vector3.new(1,1,1.2)
Broom.CanCollide = false

Humanoid.JumpPower = 0

for i,v in pairs(Character:GetChildren()) do
	if v.ClassName == "Accessory" or v.ClassName == "Hat" then v:Destroy() end
	if v.ClassName == "Shirt" or v.ClassName == "Pants" then v:Destroy() end
	if v.ClassName == "BodyColors" then v:Destroy() end
end

local Shirt = Instance.new('Shirt',Character)
local Pants = Instance.new('Pants',Character)
Shirt.ShirtTemplate = ShirtId
Pants.PantsTemplate = PantsId

if H:FindFirstChild('face') then
	H.face.Texture = "rbxassetid://8329438"
end

--//Funcs
function Weld(x,y)
	local w = Instance.new("Weld")
	w.Part0 = x
	w.Part1 = y
	w.Name = tostring(y.Name).."_Weld"
	w.Parent = x
	return w
end

function Clerp(start,destination,increment)
	local function slerp(a,b,c)return (1-c)*a+(c*b)end
    local c1 = {start.X,start.Y,start.Z,start:toEulerAnglesXYZ()}
    local c2 = {destination.X,destination.Y,destination.Z,destination:toEulerAnglesXYZ()}
    for i,v in pairs(c1)do c1[i] = slerp(v,c2[i],increment)end
    return CFrame.new(c1[1],c1[2],c1[3])*CFrame.Angles(c1[4],c1[5],c1[6])
end

function CheckState()
	local XZMagnitude = Vector3.new(HRP.Velocity.X, 0, HRP.Velocity.Z).Magnitude
	local YMagnitude = Vector3.new(0, HRP.Velocity.Y, 0).Magnitude
	if XZMagnitude > 2 then State = "Walking" elseif XZMagnitude < 2 then State = "Idle" end
	if YMagnitude > 1.5 then State = "Jumping" end
	return State
end

--//Welds
local TW = Weld(HRP,T)
local RAW = Weld(T,RA)
local LAW = Weld(T,LA)
local RLW = Weld(T,RL)
local LLW = Weld(T,LL)
local HW = Weld(T,H)
local BW = Weld(T,Broom)

Humanoid.WalkSpeed = 30


function cap(n,x,f)
	if f==nil then f=false end
	if f then if x>n then x=n end else if x<n then x = n end end
	return x
end
--//Animate!

while true do
	game:GetService('RunService').RenderStepped:wait()
	local S = CheckState()

	local lefth = (T.CFrame*CFrame.new(-.5,-2,0))
	local righth = (T.CFrame*CFrame.new(.5,-2,0))
	local speed = Vector3.new(T.Velocity.X,0,T.Velocity.Z)
	local TiltOnAxis = (HRP.CFrame-HRP.CFrame.p):inverse()*speed/100
	local AnglePR = (righth-righth.p):inverse()*speed/100
	local AnglePL = (lefth-lefth.p):inverse()*speed/100
	local AngleThetaR = (righth-righth.p):vectorToObjectSpace(speed/100)
	local AngleThetaL = (lefth-lefth.p):vectorToObjectSpace(speed/100)

	if S == "Idle" and not Animations then
		BW.C0 = Clerp(BW.C0, CFrame.new(0,-.8,-1)*CFrame.Angles(rad(20),rad(180),0), .1)
		TW.C0 = Clerp(TW.C0, CFrame.new(0,sin(tick())/20,-.3)*CFrame.Angles(-rad(20),0,0),.1)
		HW.C0 = Clerp(HW.C0, CFrame.new(0,1.5,0)*CFrame.Angles(rad(20),0,0), .1)
		RAW.C0 = Clerp(RAW.C0, CFrame.new(.7,-.1,-.8)*CFrame.Angles(rad(60),0,-rad(20)), .1)
		LAW.C0 = Clerp(LAW.C0, CFrame.new(-.7,-.1,-.8)*CFrame.Angles(rad(60),0,rad(20)), .1)
		RLW.C0 = Clerp(RLW.C0, CFrame.new(.5,-1.5,-.4+rad(20))*CFrame.Angles(-rad(20),0,0),.1)
		LLW.C0 = Clerp(LLW.C0, CFrame.new(-.5,-1.5,-.4+rad(30))*CFrame.Angles(-rad(30),0,0),.1)
	elseif S == "Walking" and not Animations then

		local RV = sin(HRP.RotVelocity.Y/15)*2

		BW.C0 = Clerp(BW.C0, CFrame.new(0,-.8,-1)*CFrame.Angles(rad(20),rad(180),0), .1)
		TW.C0 = Clerp(TW.C0, CFrame.new(0,0,-.3)*CFrame.Angles(-rad(20)+sin(AnglePR.Z)*2,0,-sin(AnglePR.X)+RV),.1)
	end
end