horsey

--https://github.com/Mokiros/roblox-FE-compatibility
if game:GetService("RunService"):IsClient() then error("Script must be server-side in order to work; use h/ and not hl/") end
local Player,game,owner = owner,game
local RealPlayer = Player
do print("FE Compatibility code V2 by Mokiros")local RealPlayer=RealPlayer;script.Parent=RealPlayer.Character;local a=function(b)b[1].f[b[2]]=nil end;local c={__index={disconnect=a,Disconnect=a}}local d={__index={Connect=function(b,e)local f=tostring(math.random(0,10000))while b.f[f]do f=tostring(math.random(0,10000))end;b.f[f]=e;return setmetatable({b,f},c)end}}d.__index.connect=d.__index.Connect;local function g()return setmetatable({f={}},d)end;local h={Hit=CFrame.new(),KeyUp=g(),KeyDown=g(),Button1Up=g(),Button1Down=g(),Button2Up=g(),Button2Down=g()}h.keyUp=h.KeyUp;h.keyDown=h.KeyDown;local i={InputBegan=g(),InputEnded=g()}local CAS={Actions={},BindAction=function(self,j,k,l,...)CAS.Actions[j]=k and{Name=j,Function=k,Keys={...}}or nil end}CAS.UnbindAction=CAS.BindAction;local function m(self,n,...)for o,e in pairs(self[n].f)do e(...)end end;h.T=m;i.T=m;local p=Instance.new("RemoteEvent")p.Name="UserInput_Event"p.OnServerEvent:Connect(function(q,r)if q~=RealPlayer then return end;h.Target=r.e;h.Hit=r.d;if not r.f then local s=r.c==Enum.UserInputState.Begin;if r.b==Enum.UserInputType.MouseButton1 then return h:T(s and"Button1Down"or"Button1Up")end;if r.b==Enum.UserInputType.MouseButton2 then return h:T(s and"Button2Down"or"Button2Up")end;for o,t in pairs(CAS.Actions)do for o,u in pairs(t.Keys)do if u==r.a then t.Function(t.Name,r.c,r)end end end;h:T(s and"KeyDown"or"KeyUp",r.a.Name:lower())i:T(s and"InputBegan"or"InputEnded",r,false)end end)p.Parent=NLS([==[local a=script:WaitForChild("UserInput_Event")local b=owner:GetMouse()local c=game:GetService("UserInputService")local d=function(e,f)if f then return end;a:FireServer({a=e.KeyCode,b=e.UserInputType,c=e.UserInputState,d=b.Hit,e=b.Target})end;c.InputBegan:Connect(d)c.InputEnded:Connect(d)local g,h;local i=game:GetService("RunService").Heartbeat;while true do if g~=b.Hit or h~=b.Target then g,h=b.Hit,b.Target;a:FireServer({f=1,Target=h,d=g})end;for j=1,2 do i:Wait()end end]==],script)local v=game;local w={__index=function(self,u)local x=rawget(self,"_RealService")if x then return typeof(x[u])=="function"and function(o,...)return x[u](x,...)end or x[u]end end,__newindex=function(self,u,y)local x=rawget(self,"_RealService")if x then x[u]=y end end}local function z(t,A)t._RealService=typeof(A)=="string"and v:GetService(A)or A;return setmetatable(t,w)end;local B={GetService=function(self,x)return rawget(self,x)or v:GetService(x)end,Players=z({LocalPlayer=z({GetMouse=function(self)return h end},Player)},"Players"),UserInputService=z(i,"UserInputService"),ContextActionService=z(CAS,"ContextActionService"),RunService=z({_btrs={},RenderStepped=v:GetService("RunService").Heartbeat,BindToRenderStep=function(self,j,o,k)self._btrs[j]=self.Heartbeat:Connect(k)end,UnbindFromRenderStep=function(self,j)self._btrs[j]:Disconnect()end},"RunService")}rawset(B.Players,"localPlayer",B.Players.LocalPlayer)B.service=B.GetService;z(B,game)game,owner=B,B.Players.LocalPlayer end

--Fixed By Kent and buggy
Breeds = {
{fur = BrickColor.new("Black"), mane = BrickColor.new("Really black"), saddle = BrickColor.new("Really black"), reins = BrickColor.new("Really black"), hoof = BrickColor.new("Really black")}
,
{fur = BrickColor.new("Alder"), mane = BrickColor.new("Dark stone grey"), saddle = BrickColor.new("Really black"), reins = BrickColor.new("Really black"), hoof = BrickColor.new("Really black")}
}
Ply = game.Players.LocalPlayer
Cha = Ply.Character
local Breed = Breeds[math.random(1, #Breeds)]
local ModelName = "Stallion"
local ModelParent = Cha
local ReinsHold = nil
local Height = 6.2
local rHeight = Height
local HasHat = false
local HatMeshId = "rbxassetid://111898512"
local HatTexId = ""
local HorseColor = Breed.fur
local EyeColor = BrickColor.new("Lavender")
local ManeColor = Breed.mane
local SaddleColor = Breed.saddle
local ReinsColor = Breed.reins
local HoofColor = Breed.hoof
local oc = function(...)
	return ...
end
local ModelScale = 0.6
local Speed = 0
local WalkSpeed = 15
local WalkSin = 6
local TrotSpeed = 30
local TrotSin = 4
local GallopSin = 18
local MaxSpeed = 70
local SpeedLimit = 70
local startpos = Cha.Head.CFrame * CFrame.new(0, Height + 1.5, 10)
math.randomseed(tick() + 215819240)
math.random()
math.random()
math.random()
aran = function()
	return math.random()
end

ran = function()
	return (math.random() - 0.5) * 2
end

Weld = function(a, b, c, d)
	local w = Instance.new("Weld", a)
	w.Part0 = a
	w.Part1 = b
	if not c then
		w.C0 = CFrame.new()
	else
		w.C0 = c
	end
	if not d then
		w.C1 = CFrame.new()
	else
		w.C1 = d
	end
	return w
end

function clerp(a,b,t)
local qa = {QuaternionFromCFrame(a)}
local qb = {QuaternionFromCFrame(b)}
local ax, ay, az = a.x, a.y, a.z
local bx, by, bz = b.x, b.y, b.z
local _t = 1-t
return QuaternionToCFrame(_t*ax + t*bx, _t*ay + t*by, _t*az + t*bz,QuaternionSlerp(qa, qb, t))
end

function QuaternionFromCFrame(cf)
local mx, my, mz, m00, m01, m02, m10, m11, m12, m20, m21, m22 = cf:components()
local trace = m00 + m11 + m22
if trace > 0 then
local s = math.sqrt(1 + trace)
local recip = 0.5/s
return (m21-m12)*recip, (m02-m20)*recip, (m10-m01)*recip, s*0.5
else
local i = 0
if m11 > m00 then
i = 1
end
if m22 > (i == 0 and m00 or m11) then
i = 2
end
if i == 0 then
local s = math.sqrt(m00-m11-m22+1)
local recip = 0.5/s
return 0.5*s, (m10+m01)*recip, (m20+m02)*recip, (m21-m12)*recip
elseif i == 1 then
local s = math.sqrt(m11-m22-m00+1)
local recip = 0.5/s
return (m01+m10)*recip, 0.5*s, (m21+m12)*recip, (m02-m20)*recip
elseif i == 2 then
local s = math.sqrt(m22-m00-m11+1)
local recip = 0.5/s return (m02+m20)*recip, (m12+m21)*recip, 0.5*s, (m10-m01)*recip
end
end
end

function QuaternionToCFrame(px, py, pz, x, y, z, w)
local xs, ys, zs = x + x, y + y, z + z
local wx, wy, wz = w*xs, w*ys, w*zs
local xx = x*xs
local xy = x*ys
local xz = x*zs
local yy = y*ys
local yz = y*zs
local zz = z*zs
return CFrame.new(px, py, pz,1-(yy+zz), xy - wz, xz + wy,xy + wz, 1-(xx+zz), yz - wx, xz - wy, yz + wx, 1-(xx+yy))
end

function QuaternionSlerp(a, b, t)
local cosTheta = a[1]*b[1] + a[2]*b[2] + a[3]*b[3] + a[4]*b[4]
local startInterp, finishInterp;
if cosTheta >= 0.0001 then
if (1 - cosTheta) > 0.0001 then
local theta = math.acos(cosTheta)
local invSinTheta = 1/math.sin(theta)
startInterp = math.sin((1-t)*theta)*invSinTheta
finishInterp = math.sin(t*theta)*invSinTheta
else
startInterp = 1-t
finishInterp = t
end
else
if (1+cosTheta) > 0.0001 then
local theta = math.acos(-cosTheta)
local invSinTheta = 1/math.sin(theta)
startInterp = math.sin((t-1)*theta)*invSinTheta
finishInterp = math.sin(t*theta)*invSinTheta
else
startInterp = t-1
finishInterp = t
end
end
return a[1]*startInterp + b[1]*finishInterp, a[2]*startInterp + b[2]*finishInterp, a[3]*startInterp + b[3]*finishInterp, a[4]*startInterp + b[4]*finishInterp
end

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

ctlerp = function(c1, c2, al)
	local com1 = {c1:components()}
	local com2 = {c2:components()}
	for i,v in pairs(com1) do
		com1[i] = lerp(v, com2[i], al)
	end
	return CFrame.new(unpack(com1))
end

local Model = Instance.new("Model", ModelParent)
Model.Name = ModelName
local BasePart = Instance.new("Part")
BasePart.Material = "SmoothPlastic"
BasePart.FormFactor = "Custom"
BasePart.Size = Vector3.new()
BasePart.TopSurface = 10
BasePart:BreakJoints()
BasePart.CFrame = startpos
NP = function()
	local p = BasePart:Clone()
	p.Parent = Model
	return p
end

Sphere = function(parent, scale)

	local sm = Instance.new("SpecialMesh", parent)
	sm.MeshType = "Sphere"
	if not scale then
		sm.Scale = Vector3.new(1, 1, 1)
		return sm
	end
end

BasePart.BrickColor = HorseColor
local Main = NP()
Main.Size = Vector3.new(3.5, 4.5, 8)
Main.CFrame = startpos
MainMesh = Sphere(Main)
local Neck = NP()
Neck.Size = Vector3.new(2, 5, 2.5)
local NeckWeld = Weld(Main, Neck, CFrame.new(0, 0.5, -3.2) * CFrame.Angles(math.rad(-20), 0, 0), CFrame.new(0, -1.5, 0))
local NeckWeld0 = NeckWeld.C0
Sphere(Neck, Vector3.new(1, 1, 1))
local NeckBonus = NP()
NeckBonus.Size = Vector3.new(1.9, 3, 2)
Weld(Neck, NeckBonus, CFrame.new(0, -1.1, 0.5) * CFrame.Angles(-0.5, 0, 0))
Sphere(NeckBonus)
local Head = NP()
Head.Size = Vector3.new(2, 3, 3)
local HeadWeld = Weld(Neck, Head, CFrame.new(0, 2.5, -0.4), CFrame.new(0, 0, 1))
local HeadWeld0 = HeadWeld.C0
local HeadMesh = Instance.new("SpecialMesh", Head)
HeadMesh.Scale = Vector3.new(0.7, 1, 1) * 1.6
HeadMesh.MeshId = "http://www.roblox.com/asset/?id=114690930"
if HasHat then
	local Hat = NP()
	Hat.Size = Vector3.new()
	Hat.BrickColor = SaddleColor
	local HatWeld = Weld(Head, Hat, CFrame.new(0, 0.7, 1.3), CFrame.Angles(math.rad(-20), 0, 0))
	local HatMesh = Instance.new("SpecialMesh", Hat)
	HatMesh.Scale = Vector3.new(1.5, 1.5, 1.5)
	HatMesh.MeshId = HatMeshId or "rbxassetid://42157240"
	HatMesh.TextureId = HatTexId or ""
end
do
	local EyeR = NP()
	EyeR.BrickColor = EyeColor
	EyeR.Reflectance = 0.1
	EyeR.Size = Vector3.new(0.2, 0.2, 0.2)
	Weld(Head, EyeR, CFrame.new(0.631, 0.23, 0.11) * CFrame.Angles(-0.2, 0.1, 0))
	Sphere(EyeR, Vector3.new(0.9, 2.1, 2.1))
	local EyeL = NP()
	EyeL.BrickColor = EyeColor
	EyeL.Reflectance = 0.1
	EyeL.Size = Vector3.new(0.2, 0.2, 0.2)
	Weld(Head, EyeL, CFrame.new(-0.631, 0.23, 0.11) * CFrame.Angles(-0.2, -0.1, 0))
	Sphere(EyeL, Vector3.new(0.9, 2.1, 2.1))
	BasePart.Name = "Reins"
	local RPart = NP()
	RPart.BrickColor = ReinsColor
	RPart.Size = Vector3.new(0.2, 0.7, 0.25)
	Weld(Head, RPart, CFrame.new(0.4, -0.5, -1.05) * CFrame.Angles(-0.25, 0, 0))
	local Cyl = NP()
	Cyl.BrickColor = ReinsColor
	Cyl.Size = Vector3.new(0.2495, 0.2, 0.2)
	Instance.new("SpecialMesh", Cyl).MeshType = "Cylinder"
	Weld(RPart, Cyl, CFrame.new(0, RPart.Size.Y / 2, 0) * CFrame.Angles(0, math.pi / 2, 0))
	local RPart = NP()
	RPart.BrickColor = ReinsColor
	RPart.Size = Vector3.new(0.2, 0.4, 0.25)
	Weld(Head, RPart, CFrame.new(0.4, -0.5, -1.05) * CFrame.Angles(-0.25, 0, 0) * CFrame.new(0, -0.35, 0) * CFrame.Angles(0, 0, -0.5) * CFrame.new(0, -0.2, 0))
	local Cyl = NP()
	Cyl.BrickColor = ReinsColor
	Cyl.Size = Vector3.new(0.2495, 0.2, 0.2)
	Instance.new("SpecialMesh", Cyl).MeshType = "Cylinder"
	Weld(RPart, Cyl, CFrame.new(0, RPart.Size.Y / 2, 0) * CFrame.Angles(0, math.pi / 2, 0))
	local ReinAnchorR = Cyl
	local RPart = NP()
	RPart.BrickColor = ReinsColor
	RPart.Size = Vector3.new(0.2, 0.7, 0.25)
	Weld(Head, RPart, CFrame.new(-0.4, -0.5, -1.05) * CFrame.Angles(-0.25, 0, 0))
	local Cyl = NP()
	Cyl.BrickColor = ReinsColor
	Cyl.Size = Vector3.new(0.2495, 0.2, 0.2)
	Instance.new("SpecialMesh", Cyl).MeshType = "Cylinder"
	Weld(RPart, Cyl, CFrame.new(0, RPart.Size.Y / 2, 0) * CFrame.Angles(0, math.pi / 2, 0))
	local RPart = NP()
	RPart.BrickColor = ReinsColor
	RPart.Size = Vector3.new(0.2, 0.4, 0.25)
	Weld(Head, RPart, CFrame.new(-0.4, -0.5, -1.05) * CFrame.Angles(-0.25, 0, 0) * CFrame.new(0, -0.35, 0) * CFrame.Angles(0, 0, 0.5) * CFrame.new(0, -0.2, 0))
	local Cyl = NP()
	Cyl.BrickColor = ReinsColor
	Cyl.Size = Vector3.new(0.2495, 0.2, 0.2)
	Instance.new("SpecialMesh", Cyl).MeshType = "Cylinder"
	Weld(RPart, Cyl, CFrame.new(0, RPart.Size.Y / 2, 0) * CFrame.Angles(0, math.pi / 2, 0))
	local ReinAnchorL = Cyl
	local RPart = NP()
	RPart.BrickColor = ReinsColor
	RPart.Size = Vector3.new(0.5, 0.2, 0.249)
	Weld(Head, RPart, CFrame.new(0, -0.5, -1.05) * CFrame.Angles(-0.25, 0, 0) * CFrame.new(0, -0.65, 0))
	local Cyl = NP()
	Cyl.BrickColor = ReinsColor
	Cyl.Size = Vector3.new(0.2495, 0.2, 0.2)
	Instance.new("SpecialMesh", Cyl).MeshType = "Cylinder"
	Weld(RPart, Cyl, CFrame.new(RPart.Size.X / 2, 0, 0) * CFrame.Angles(0, math.pi / 2, 0))
	local Cyl = NP()
	Cyl.BrickColor = ReinsColor
	Cyl.Size = Vector3.new(0.2495, 0.2, 0.2)
	Instance.new("SpecialMesh", Cyl).MeshType = "Cylinder"
	Weld(RPart, Cyl, CFrame.new(-RPart.Size.X / 2, 0, 0) * CFrame.Angles(0, math.pi / 2, 0))
	local RPart = NP()
	RPart.BrickColor = ReinsColor
	RPart.Size = Vector3.new(0.8, 0.2, 0.249)
	Weld(Head, RPart, CFrame.new(0, -0.5, -1.05) * CFrame.Angles(-0.25, 0, 0) * CFrame.new(0, 0.35, 0))
	local RPart = NP()
	RPart.BrickColor = ReinsColor
	local sm = Instance.new("SpecialMesh", RPart)
	sm.MeshType = "Sphere"
	local ReinSphereL = Weld(Main, RPart, CFrame.new(-1, 3, 0))
	local RPart = NP()
	RPart.BrickColor = ReinsColor
	local sm = Instance.new("SpecialMesh", RPart)
	sm.MeshType = "Cylinder"
	local ReinLineL = Weld(Main, RPart, CFrame.new(-1, 3, -1))
	local RPart = NP()
	RPart.BrickColor = ReinsColor
	local sm = Instance.new("SpecialMesh", RPart)
	sm.MeshType = "Sphere"
	local ReinSphereR = Weld(Main, RPart, CFrame.new(1, 3, 0))
	local RPart = NP()
	RPart.BrickColor = ReinsColor
	local sm = Instance.new("SpecialMesh", RPart)
	sm.MeshType = "Cylinder"
	local ReinLineR = Weld(Main, RPart, CFrame.new(1, 3, -1))
	local RPart = NP()
	RPart.BrickColor = ReinsColor
	local sm = Instance.new("SpecialMesh", RPart)
	sm.MeshType = "Cylinder"
	local ReinLineM = Weld(Main, RPart, CFrame.new(0, 3, 0))
	BasePart.Name = "Part"
	local Tail = NP()
	Tail.BrickColor = ManeColor
	Tail.CanCollide = false
	Tail.Transparency = 1
	Tail.Size = Vector3.new(0.8, 4.5, 0.8)
	local TailWeld = Weld(Main, Tail, CFrame.new(0, 0.88, 3.4) * CFrame.Angles(0, math.rad(10), 0), CFrame.new(0, -2.3, 0) * CFrame.Angles(math.rad(-130), 0, 0))
	local TailWeld0 = TailWeld.C0
	local TailHairs = {}
	for i = 1, 8 do
		local t = NP()
		t.CanCollide = false
		t.BrickColor = Tail.BrickColor
		t.Size = Vector3.new(0.4 + aran() * 0.2, 5.5 - i * 0.1, 0.4 + aran() * 0.2)
		local tw = Weld(Tail, t, CFrame.new(0, -Tail.Size.Y / 2, 0) * CFrame.Angles(ran() * 0.15, ran() * 0.5, ran() * 0.15) * CFrame.new(ran() * 0.1, 0, ran() * 0.1), CFrame.new(0, -t.Size.Y / 2 + 0.05, 0))
		table.insert(TailHairs, {w = tw, c0 = tw.C0})
	end
	local BackHairs = {}
	for i = 0, 10 do
		if i < 1 or i > 7 then
			local x = i / 10
			local m = NP()
			m.CanCollide = false
			m.BrickColor = ManeColor
			m.Size = Vector3.new(0.6 + aran() * 0.2 + math.sin(x * 2.7) * 0.5, 0.9 + ran() * 0.1, 0.9 + ran() * 0.1)
			if i < 1 then
				m.Size = m.Size * 0.7
			end
			local tw = Weld(Main, m, CFrame.new(0, 0.9 + math.sin(x * 2.8) * 1.2, 3.4 - x * 6), CFrame.Angles(ran() * 0.1, aran() * 0.1, ran() * 0.2))
			table.insert(BackHairs, {w = tw, c0 = tw.C0})
		end
	end
	local NeckHairs = {}
	for i = 0, 6 do
		local x = i / 6
		local m = NP()
		m.CanCollide = false
		m.BrickColor = ManeColor
		m.Size = Vector3.new(0.8 + ran() * 0.2, 0.7 + ran() * 0.1, 0.9 + ran() * 0.1)
		local tw = Weld(Neck, m, CFrame.new(0, -1.3 + x * 3.5, 1 + math.sin(0.55 + x * 3.7) * 0.5), CFrame.Angles(ran() * 0.08, aran() * 0.15, ran() * 0.08))
		table.insert(NeckHairs, {w = tw, c0 = tw.C0})
	end
	local HeadHairs = {}
	for i = 0, 6 do
		local x = math.min(1, i / 3)
		local m = NP()
		m.CanCollide = false
		m.BrickColor = ManeColor
		if HasHat then
			m.Transparency = 1
		end
		m.Size = Vector3.new(0.95 + ran() * 0.2, 1, 0.4)
		local tw = Weld(Head, m, CFrame.new(0, -0.8 + x * 1.6, 2.02 - i * 0.23) * CFrame.Angles(-0.2 - i * 0.3, 0, 0), CFrame.Angles(ran() * 0.08, aran() * 0.03, ran() * 0.08))
		table.insert(HeadHairs, {w = tw, c0 = tw.C0})
	end
	local LHip = NP()
	LHip.Size = Vector3.new(1.5, 3.7, 3.5)
	Weld(Main, LHip, CFrame.new(-1, -0.5, 2.2) * CFrame.Angles(0, 0.35, 0))
	Sphere(LHip)
	local LThigh = NP()
	LThigh.CanCollide = false
	LThigh.Size = Vector3.new(1.6, 4, 2.2)
	local BL1 = Weld(LHip, LThigh, CFrame.new(-0.05, 0.3, -0.5) * CFrame.Angles(0, -0.35, 0) * CFrame.Angles(0, 0, 0), CFrame.new(0, 1.7, 0))
	Sphere(LThigh)
	local LBCannon = NP()
	LBCannon.CanCollide = false
	LBCannon.Size = Vector3.new(1, 2.8, 1)
	local sm = Instance.new("SpecialMesh", LBCannon)
	sm.MeshType = "Head"
	local BL2 = Weld(LThigh, LBCannon, CFrame.new(0, -LThigh.Size.Y / 2 + 0.4, -0.05) * CFrame.Angles(0, 0, 0), CFrame.new(0, 1.3, 0))
	local LBKnee = NP()
	LBKnee.CanCollide = false
	LBKnee.Size = Vector3.new(1, 1, 1)
	local sm = Instance.new("SpecialMesh", LBKnee)
	sm.MeshType = "Sphere"
	Weld(LBCannon, LBKnee, CFrame.new(0, LBCannon.Size.Y / 2 - 0.1, 0))
	local LBHoof = NP()
	LBHoof.BrickColor = HoofColor
	LBHoof.CanCollide = false
	LBHoof.Size = Vector3.new(1, 0.7, 1)
	Instance.new("CylinderMesh", LBHoof)
	local BL3 = Weld(LBCannon, LBHoof, CFrame.new(0, -LBCannon.Size.Y / 2, 0) * CFrame.Angles(0, 0, 0), CFrame.new(0, 0.12, 0.2))
	local Hoof = NP()
	Hoof.BrickColor = HoofColor
	Hoof.CanCollide = false
	Hoof.Size = Vector3.new(0.2, 0.699, 0.5)
	Weld(LBHoof, Hoof, CFrame.new(0.4, 0, 0.25))
	local Hoof = NP()
	Hoof.BrickColor = HoofColor
	Hoof.CanCollide = false
	Hoof.Size = Vector3.new(0.2, 0.699, 0.5)
	Weld(LBHoof, Hoof, CFrame.new(-0.4, 0, 0.25))
	local RHip = NP()
	RHip.Size = Vector3.new(1.5, 3.7, 3.5)
	Weld(Main, RHip, CFrame.new(1, -0.5, 2.2) * CFrame.Angles(0, -0.35, 0))
	Sphere(RHip)
	local RThigh = NP()
	RThigh.CanCollide = false
	RThigh.Size = Vector3.new(1.6, 4, 2.2)
	local BR1 = Weld(RHip, RThigh, CFrame.new(0.05, 0.3, -0.4) * CFrame.Angles(0, 0.35, 0) * CFrame.Angles(0, 0, 0), CFrame.new(0, 1.7, 0))
	Sphere(RThigh)
	local RBCannon = NP()
	RBCannon.CanCollide = false
	RBCannon.Size = Vector3.new(1, 2.8, 1)
	local sm = Instance.new("SpecialMesh", RBCannon)
	sm.MeshType = "Head"
	local BR2 = Weld(RThigh, RBCannon, CFrame.new(0, -RThigh.Size.Y / 2 + 0.4, -0.05) * CFrame.Angles(0, 0, 0), CFrame.new(0, 1.3, 0))
	local RBKnee = NP()
	RBKnee.CanCollide = false
	RBKnee.Size = Vector3.new(1, 1, 1)
	local sm = Instance.new("SpecialMesh", RBKnee)
	sm.MeshType = "Sphere"
	Weld(RBCannon, RBKnee, CFrame.new(0, RBCannon.Size.Y / 2 - 0.1, 0))
	local RBHoof = NP()
	RBHoof.BrickColor = HoofColor
	RBHoof.CanCollide = false
	RBHoof.Size = Vector3.new(1, 0.7, 1)
	Instance.new("CylinderMesh", RBHoof)
	local BR3 = Weld(RBCannon, RBHoof, CFrame.new(0, -RBCannon.Size.Y / 2, 0) * CFrame.Angles(0, 0, 0), CFrame.new(0, 0.12, 0.2))
	local Hoof = NP()
	Hoof.BrickColor = HoofColor
	Hoof.CanCollide = false
	Hoof.Size = Vector3.new(0.2, 0.699, 0.5)
	Weld(RBHoof, Hoof, CFrame.new(0.4, 0, 0.25))
	local Hoof = NP()
	Hoof.BrickColor = HoofColor
	Hoof.CanCollide = false
	Hoof.Size = Vector3.new(0.2, 0.699, 0.5)
	Weld(RBHoof, Hoof, CFrame.new(-0.4, 0, 0.25))
	local LShoulder = NP()
	LShoulder.Size = Vector3.new(1.5, 2.5, 2)
	Weld(Main, LShoulder, CFrame.new(-0.9, -0.5, -2.4) * CFrame.Angles(0, 0.15, 0))
	Sphere(LShoulder)
	local LForearm = NP()
	LForearm.CanCollide = false
	LForearm.Size = Vector3.new(1.2, 3.5, 1.5)
	local FL1 = Weld(LShoulder, LForearm, CFrame.new(-0.1, 0.2, 0.1) * CFrame.Angles(0, 0, 0), CFrame.new(0, 1.45, 0))
	Sphere(LForearm)
	local LFCannon = NP()
	LFCannon.CanCollide = false
	LFCannon.Size = Vector3.new(0.8, 2.8, 0.8)
	local sm = Instance.new("SpecialMesh", LFCannon)
	sm.MeshType = "Head"
	local FL2 = Weld(LForearm, LFCannon, CFrame.new(0, -LForearm.Size.Y / 2 + 0.4, -0.05) * CFrame.Angles(0, 0, 0), CFrame.new(0, 1.3, 0))
	local LFKnee = NP()
	LFKnee.CanCollide = false
	LFKnee.Size = Vector3.new(0.8, 0.8, 0.8)
	local sm = Instance.new("SpecialMesh", LFKnee)
	sm.MeshType = "Sphere"
	Weld(LFCannon, LFKnee, CFrame.new(0, LFCannon.Size.Y / 2 - 0.1, 0))
	local LFHoof = NP()
	LFHoof.BrickColor = HoofColor
	LFHoof.CanCollide = false
	LFHoof.Size = Vector3.new(0.8, 0.6, 0.8)
	Instance.new("CylinderMesh", LFHoof)
	local FL3 = Weld(LFCannon, LFHoof, CFrame.new(0, -LFCannon.Size.Y / 2, 0) * CFrame.Angles(0, 0, 0), CFrame.new(0, 0.12, 0.2))
	local Hoof = NP()
	Hoof.BrickColor = HoofColor
	Hoof.CanCollide = false
	Hoof.Size = Vector3.new(0.2, 0.599, 0.4)
	Weld(LFHoof, Hoof, CFrame.new(0.3, 0, 0.2))
	local Hoof = NP()
	Hoof.BrickColor = HoofColor
	Hoof.CanCollide = false
	Hoof.Size = Vector3.new(0.2, 0.599, 0.4)
	Weld(LFHoof, Hoof, CFrame.new(-0.3, 0, 0.2))
	local RShoulder = NP()
	RShoulder.Size = Vector3.new(1.5, 2.5, 2)
	Weld(Main, RShoulder, CFrame.new(0.9, -0.5, -2.4) * CFrame.Angles(0, -0.15, 0))
	Sphere(RShoulder)
	local RForearm = NP()
	RForearm.CanCollide = false
	RForearm.Size = Vector3.new(1.2, 3.5, 1.5)
	local FR1 = Weld(RShoulder, RForearm, CFrame.new(0.1, 0.2, -0.1) * CFrame.Angles(0, 0, 0), CFrame.new(0, 1.45, 0))
	Sphere(RForearm)
	local RFCannon = NP()
	RFCannon.CanCollide = false
	RFCannon.Size = Vector3.new(0.8, 2.8, 0.8)
	local sm = Instance.new("SpecialMesh", RFCannon)
	sm.MeshType = "Head"
	local FR2 = Weld(RForearm, RFCannon, CFrame.new(0, -RForearm.Size.Y / 2 + 0.4, -0.05) * CFrame.Angles(0, 0, 0), CFrame.new(0, 1.3, 0))
	local RFKnee = NP()
	RFKnee.CanCollide = false
	RFKnee.Size = Vector3.new(0.8, 0.8, 0.8)
	local sm = Instance.new("SpecialMesh", RFKnee)
	sm.MeshType = "Sphere"
	Weld(RFCannon, RFKnee, CFrame.new(0, RFCannon.Size.Y / 2 - 0.1, 0))
	local RFHoof = NP()
	RFHoof.BrickColor = HoofColor
	RFHoof.CanCollide = false
	RFHoof.Size = Vector3.new(0.8, 0.6, 0.8)
	Instance.new("CylinderMesh", RFHoof)
	local FR3 = Weld(RFCannon, RFHoof, CFrame.new(0, -RFCannon.Size.Y / 2, 0) * CFrame.Angles(0, 0, 0), CFrame.new(0, 0.12, 0.2))
	local Hoof = NP()
	Hoof.BrickColor = HoofColor
	Hoof.CanCollide = false
	Hoof.Size = Vector3.new(0.2, 0.599, 0.4)
	Weld(RFHoof, Hoof, CFrame.new(0.3, 0, 0.2))
	local Hoof = NP()
	Hoof.BrickColor = HoofColor
	Hoof.CanCollide = false
	Hoof.Size = Vector3.new(0.2, 0.599, 0.4)
	Weld(RFHoof, Hoof, CFrame.new(-0.3, 0, 0.2))
	Seat = Instance.new("VehicleSeat", Model)
	Seat.TopSurface = 10
	Seat.Size = Vector3.new(2, 1.2, 0.5)
	Seat.HeadsUpDisplay = false
	Seat.CanCollide = false
	Seat:BreakJoints()
	Seat.Transparency = 1
	Seat.CFrame = Main.CFrame
	SeatWeld = Weld(Main, Seat, CFrame.new(0, 2.5, -0.5), CFrame.new(0, 0, 0))
	local SeatWeld0 = SeatWeld.C0
	Seat2 = Instance.new("Seat", Model)
	Seat2.TopSurface = 10
	Seat2.Size = Vector3.new(2, 1.2, 0.5)
	Seat2.CanCollide = false
	Seat2.CFrame = Main.CFrame
	Seat2:BreakJoints()
	Seat2.Transparency = 1
	Weld(Seat2, Seat, CFrame.new(0, 0, -1.8))
	SaddleMain = NP()
	SaddleMain.Size = Vector3.new(2, 1, 3.5)
	SaddleMain.BrickColor = SaddleColor
	Sphere(SaddleMain)
	Weld(Seat, SaddleMain, CFrame.new(0, -0.5, 0.6))
	SaddleFront = NP()
	SaddleFront.Size = Vector3.new(1.6, 1, 0.3)
	SaddleFront.BrickColor = SaddleColor
	Sphere(SaddleFront)
	Weld(SaddleMain, SaddleFront, CFrame.new(0, 0.4, -1.4) * CFrame.Angles(math.rad(-30), 0, 0))
	SaddleBack = NP()
	SaddleBack.Size = Vector3.new(1.6, 1, 0.5)
	SaddleBack.BrickColor = SaddleColor
	Sphere(SaddleBack)
	Weld(SaddleMain, SaddleBack, CFrame.new(0, 0.3, 1.4) * CFrame.Angles(math.rad(30), 0, 0))
	SaddleFlankR = NP()
	SaddleFlankR.Size = Vector3.new(0.3, 1.7, 1.8)
	SaddleFlankR.BrickColor = SaddleColor
	Sphere(SaddleFlankR)
	Weld(SaddleMain, SaddleFlankR, CFrame.new(1.5, -0.8, 0), CFrame.new(0.1, -0.7, 0) * CFrame.Angles(0, 0, math.rad(-30)))
	SaddleFlankL = NP()
	SaddleFlankL.Size = Vector3.new(0.3, 1.7, 1.8)
	SaddleFlankL.BrickColor = SaddleColor
	Sphere(SaddleFlankL)
	Weld(SaddleMain, SaddleFlankL, CFrame.new(-1.5, -0.8, 0), CFrame.new(-0.1, -0.7, 0) * CFrame.Angles(0, 0, math.rad(30)))
	local sWeld1, sWeld2 = nil, nil
	Seat.DescendantAdded:connect(function(obj)

	if obj.Name == "SeatWeld" then
		sWeld1 = obj
		torso2 = obj.Part1.Parent.Torso
		local Torso = obj.Part1.Parent.Torso
			obj.C0 = obj.C0 * CFrame.new(0, 0, -1.5)
			local lhipr = Torso:FindFirstChild("Left Hip")
			local rhipr = Torso:FindFirstChild("Right Hip")
			if not lhipr or not rhipr then
				game:service("Debris"):addItem(obj, 0.1)
				return
			end
			for i,v in pairs(Model:GetChildren()) do
				if v.Name == "Reins" and v:IsA("BasePart") then
					v.Transparency = Main.Transparency
				end
			end
			local lh0, lh1 = lhipr.Part0, lhipr.Part1
			local rh0, rh1 = rhipr.Part0, rhipr.Part1
			lhipr.Part0 = nil
			rhipr.Part0 = nil
			local lhip = lhipr:Clone()
			lhip.Name = "LH"
			lhip.Parent = lhipr.Parent
			lhip.Part0 = lh0
			local rhip = rhipr:Clone()
			rhip.Name = "RH"
			rhip.Parent = rhipr.Parent
			rhip.Part0 = rh0
			lhip.DesiredAngle = 0
			rhip.DesiredAngle = 0
			local lhip0, lhip1, rhip0, rhip1 = lhip.C0, lhip.C1, rhip.C0, rhip.C1
			lhip.C0 = lhip0 * CFrame.new(0, 0.5, 0) * CFrame.Angles(math.rad(-45), 0, math.rad(-40))
			lhip.C1 = lhip1 * CFrame.new(0.1, -0.2, 0)
			rhip.C0 = rhip0 * CFrame.new(0, 0.5, 0) * CFrame.Angles(math.rad(-45), 0, math.rad(40))
			rhip.C1 = rhip1 * CFrame.new(-0.1, -0.2, 0)
			local toolOn = false
			local toolAn = 0
			local toolCon, toolChan = nil, nil
				local oc0 = obj.C0
				local newChild = function(d)

		local md = d:FindFirstChild("MouseDown")
		if d:IsA("Tool") and md and md:IsA("BoolValue") then
			pcall(function()

			toolChan:disconnect()
		end
)
			toolOn = false
			toolChan = md.Changed:connect(function()

			toolOn = md.Value
			if not toolOn then
				return
			end
			pcall(function()

				ReinsHold = CFrame.new(0, 2, -1.7)
			end
)
			while toolOn and game:service("RunService").Stepped:wait() do
				toolAn = math.min(1, toolAn + 0.2)
				obj.C0 = CFrame.new(toolAn * 1.8, toolAn * -1.1, 0) * CFrame.Angles(0, 0, -toolAn * 0.9) * oc0
			end
			while true do
				if not toolOn and game:service("RunService").Stepped:wait() then
					toolAn = math.max(0, toolAn - 0.2)
					obj.C0 = CFrame.new(toolAn * 1.8, toolAn * -1.1, 0) * CFrame.Angles(0, 0, -toolAn * 0.9) * oc0
				end
				if toolAn == 0 then
					break
				end
			end
			ReinsHold = nil
		end
)
		end
	end

				local ctrlgui = nil
				if Torso.Parent then
					toolCon = Torso.Parent.ChildAdded:connect(newChild)
					for i,v in pairs(Torso.Parent:GetChildren()) do
						newChild(v)
					end
					local plr = game.Players:GetPlayerFromCharacter(Torso.Parent)
					if plr then
						ctrlgui = Instance.new("ScreenGui")
						local fr = Instance.new("Frame", ctrlgui)
						fr.Position = UDim2.new(1, 0, 0.9, 0)
						fr.Size = UDim2.new(-0.07, 0, 0.02, 0)
						fr.BackgroundTransparency = 1
						local nbtn = function(text, indent)

		for i,v in pairs(fr:GetChildren()) do
			v.Position = v.Position - UDim2.new(0, 0, 1, 1)
		end
		local tb = Instance.new("TextButton", fr)
		tb.Size = UDim2.new(-1, 4 + (indent - 1) * 3, 1, -4)
		tb.Position = UDim2.new(1, 2, 0, 2)
		tb.BorderSizePixel = 3
		tb.BackgroundColor3 = HorseColor.Color
		tb.BorderColor3 = ManeColor.Color
		tb.Text = " " .. text .. "   "
		tb.TextXAlignment = "Left"
		tb.TextColor3 = Color3.new(1, 1, 1)
		tb.TextStrokeTransparency = 0.6
		tb.TextScaled = true
		tb.ZIndex = 10
		local il = Instance.new("ImageLabel", tb)
		il.Size = UDim2.new(-1, 2, 1, -2)
		il.Image = "rbxassetid://129465985"
		il.SizeConstraint = "RelativeYY"
		il.BackgroundTransparency = 1
		il.Position = UDim2.new(1, 0, 0, 2)
		il.ZIndex = 10
		return tb
	end

						nbtn("| Horse menu", 1).AutoButtonColor = false
						nbtn("- Max speed", 2).AutoButtonColor = false
						local gal = nbtn("~ Gallop", 3)
						local trot = nbtn("~ Trot", 3)
						local walk = nbtn("~ Walk", 3)
						local tar = (SpeedLimit == MaxSpeed and gal) or (SpeedLimit == TrotSpeed and trot) or walk
						tar.BackgroundColor3 = Color3.new(0, 0.7, 0)
						gal.MouseButton1Down:connect(function()

		gal.BackgroundColor3 = Color3.new(0, 0.7, 0)
		trot.BackgroundColor3 = HorseColor.Color
		walk.BackgroundColor3 = HorseColor.Color
		SpeedLimit = MaxSpeed
	end
)
						trot.MouseButton1Down:connect(function()

		gal.BackgroundColor3 = HorseColor.Color
		trot.BackgroundColor3 = Color3.new(0, 0.7, 0)
		walk.BackgroundColor3 = HorseColor.Color
		SpeedLimit = TrotSpeed
	end
)
						walk.MouseButton1Down:connect(function()

		gal.BackgroundColor3 = HorseColor.Color
		trot.BackgroundColor3 = HorseColor.Color
		walk.BackgroundColor3 = Color3.new(0, 0.7, 0)
		SpeedLimit = WalkSpeed
	end
)
						pcall(function()

		for i,v in pairs(plr:GetChildren()) do
				pcall(function()

			if v:IsA("PlayerGui") then
				ctrlgui.Parent = v
			end
		end
)
			end
		end
)
					end
				end
					obj.AncestryChanged:connect(function(c, p)

		if c ~= obj or p == Seat then
			return
		end
		lhip:Destroy()
		rhip:Destroy()
		lhipr.Part0 = lh0
		rhipr.Part0 = rh0
		obj:Destroy()
		ReinsHold = nil
		for i,v in pairs(Model:GetChildren()) do
			if v.Name == "Reins" and v:IsA("BasePart") then
				v.Transparency = 1
			end
		end
		pcall(function()

			toolCon:disconnect()
		end
)
		pcall(function()

			toolChan:disconnect()
		end
)
		pcall(game.Destroy, ctrlgui)
	end
)
				end
end
)
	Seat2.DescendantAdded:connect(function(obj)
	if obj.Name == "SeatWeld" then
		sWeld2 = obj
		local Torso = obj.Part1.Parent.Torso
			obj.C0 = obj.C0 * CFrame.new(0, 0.5, -1.5)
			local lhipr = Torso:FindFirstChild("Left Hip")
			local rhipr = Torso:FindFirstChild("Right Hip")
			--local animate = Torso.Parent:FindFirstChild("Animate")
			if not lhipr or not rhipr then
				game:service("Debris"):addItem(obj, 0.1)
				return
			end
			local lh0, lh1 = lhipr.Part0, lhipr.Part1
			local rh0, rh1 = rhipr.Part0, rhipr.Part1
			lhipr.Part0 = nil
			rhipr.Part0 = nil
--			animate.Parent = nil
			local lhip = lhipr:Clone()
			lhip.Name = "LH"
			lhip.Parent = lhipr.Parent
			lhip.Part0 = lh0
			local rhip = rhipr:Clone()
			rhip.Name = "RH"
			rhip.Parent = rhipr.Parent
			rhip.Part0 = rh0
			lhip.DesiredAngle = 0
			rhip.DesiredAngle = 0
			local lhip0, lhip1, rhip0, rhip1 = lhip.C0, lhip.C1, rhip.C0, rhip.C1
			lhip.C0 = lhip0 * CFrame.new(0, 0.5, 0) * CFrame.Angles(math.rad(-45), 0, math.rad(-40))
			lhip.C1 = lhip1 * CFrame.new(0.1, -0.2, 0)
			rhip.C0 = rhip0 * CFrame.new(0, 0.5, 0) * CFrame.Angles(math.rad(-45), 0, math.rad(40))
			rhip.C1 = rhip1 * CFrame.new(-0.1, -0.2, 0)
			local toolOn = false
			local toolAn = 0
			local toolCon, toolChan = nil, nil
			local oc0 = obj.C0
			local newChild = function(d)

		local md = d:FindFirstChild("MouseDown")
		if d:IsA("Tool") and md and md:IsA("BoolValue") then
			pcall(function()

			toolChan:disconnect()
		end
)
			toolOn = false
			toolChan = md.Changed:connect(function()

			toolOn = md.Value
			if not toolOn then
				return
			end
			while toolOn and game:service("RunService").Stepped:wait() do
				toolAn = math.min(1, toolAn + 0.2)
				obj.C0 = CFrame.new(toolAn * 1.8, toolAn * -1.1, 0) * CFrame.Angles(0, 0, -toolAn * 0.9) * oc0
			end
			while 1 do
				if not toolOn and game:service("RunService").Stepped:wait() then
					toolAn = math.max(0, toolAn - 0.2)
					obj.C0 = CFrame.new(toolAn * 1.8, toolAn * -1.1, 0) * CFrame.Angles(0, 0, -toolAn * 0.9) * oc0
				end
				if toolAn == 0 then
					break
				end
			end
		end
)
		end
	end

			toolCon = Torso.Parent.ChildAdded:connect(newChild)
			for i,v in pairs(Torso.Parent:GetChildren()) do
				newChild(v)
			end
			obj.AncestryChanged:connect(function(c, p)

		if c ~= obj or p == Seat2 then
			return
		end
		--animate.Parent = Torso.Parent
		lhip:Destroy()
		rhip:Destroy()
		lhipr.Part0 = lh0
		rhipr.Part0 = rh0
		obj:Destroy()
	end
)
		end
end
)
	for i,v in pairs(Model:GetChildren()) do
		if v.Name == "Reins" and v:IsA("BasePart") then
			v.Transparency = 1
		end
	end
	local Filler = NP()
	Filler.Size = Vector3.new(3, 4, 7)
	Filler.Transparency = 1
	Weld(Main, Filler, CFrame.new(0, -2, 0))
	local BallB = NP()
	BallB.CanCollide = true
	BallB.Shape = "Ball"
	BallB.Size = Vector3.new(3, 3, 3)
	BallB.Transparency = 1
	local BBW = Weld(Main, BallB, CFrame.new(0, -Height + BallB.Size.Y / 2, 3))
	BBW0 = BBW.C0
	local BallF = NP()
	BallF.CanCollide = true
	BallF.Shape = "Ball"
	BallF.Size = Vector3.new(3, 3, 3)
	BallF.Transparency = 1
	local FBW = Weld(Main, BallF, CFrame.new(0, -Height + BallB.Size.Y / 2, -3))
	FBW0 = FBW.C0
	local BG = Instance.new("BodyGyro", Main)
	BG.cframe = Main.CFrame
	local bgcf = BG.cframe
	BG.maxTorque = Vector3.new(1, 1, 1) * 4000000
	local BF = Instance.new("BodyForce", Main)
	BF.force = Vector3.new(0, 10000, 0)
	local BV = Instance.new("BodyVelocity", Main)
	BV.maxForce = Vector3.new(1, 1, 1) * 4000000
	BV.velocity = Vector3.new()
	local bvvel = Vector3.new()
	local Legs = {FR1, FR2, FR3, FL1, FL2, FL3, BR1, BR2, BR3, BL1, BL2, BL3}
	local Legs0 = {}
	for i,v in pairs(Legs) do
		Legs0[i] = v.C0
	end
	RayCast = function(Ray, Ignore)

	local hit, p = workspace:FindPartOnRayWithIgnoreList(Ray, Ignore)
	if not hit or hit.CanCollide then
		return hit, p
	elseif hit then
			table.insert(Ignore, hit)
			return RayCast(Ray, Ignore)
	end
end

	local climbangle = 0
	local blinktimer = 0
	local connection = nil
	connection = game:GetService("RunService").Stepped:connect(oc(function()

	if not Model:IsDescendantOf(workspace) then
		pcall(game.Destroy, Model)
		pcall(game.Destroy, script)
		connection:disconnect()
	end
	local th = Seat.Throttle
	local st = Seat.Steer
	local TailSin = math.sin(tick() * (th == 1 and 0.5 + Speed / MaxSpeed * 6 or 2))
local BreathSin = math.sin(tick() * 2)--(((th == 1 and (Speed > WalkSpeed or not WalkSin / 2) and (Speed > TrotSpeed or not TrotSin / 2) and GallopSin / 2)) or 2))
	TailWeld.C0 = clerp(TailWeld.C0, TailWeld0 * CFrame.Angles(math.rad((th == 1 and 20 + math.min(1, Speed / MaxSpeed) * (-50 + TailSin * 10)) or (th == -1 and 25) or 20), 0, TailSin * 0.3), 0.15)
	local d, un = 10, nil
	if th == 0 and st == 0 then
		for i,v in pairs(game:GetService("Players"):GetPlayers()) do
			do
				pcall(function()

		local dis = v:DistanceFromCharacter(Head.Position)
		if dis < d then
			local u = Main.CFrame:vectorToObjectSpace((v.Character.Head.Position - Head.Position).unit)
			if u.Z < 0 then
				d = dis
			end
		end
	end
)
			end
		end
	end
		if math.random(1, 150) == 1 then
			blinktimer = 4
		end
		if blinktimer > 0 then
			EyeR.BrickColor = HorseColor
			EyeL.BrickColor = HorseColor
			blinktimer = blinktimer - 1
		else
			EyeR.BrickColor = EyeColor
			EyeL.BrickColor = EyeColor
		end
		NeckWeld.C0 = clerp(NeckWeld.C0, CFrame.Angles(0, -st * 0.1 - (un and math.sin(un.X) / 2 or 0), -st * 0.1) * NeckWeld0 * CFrame.Angles(math.rad(BreathSin * 2 + ((th == 1 and -math.min(1, math.max(0, Speed - 10) / (MaxSpeed - 10)) * 45) or (th == -1 and 10) or 0)) + (un and math.sin(un.Y) / 2 or 0), 0, 0), 0.15)
		HeadWeld.C0 = clerp(HeadWeld.C0, CFrame.Angles(0, -st * 0.3 - (un and math.sin(un.X) / 2 or 0), -st * 0.1) * HeadWeld0 * CFrame.Angles(math.rad(BreathSin * -4 + ((th == 1 and 10) or (th == -1 and -30) or 0)) + (un and math.sin(un.Y) / 2 or 0), 0, 0), 0.15)
		MainMesh.Scale = Vector3.new(1, 1 + BreathSin * 0.025, 1)
		SeatWeld.C0 = SeatWeld0 + Vector3.new(0, BreathSin * 0.05, 0)
		bgcf = bgcf * CFrame.Angles(0, -st * 0.05, 0)
		BG.cframe = clerp(bgcf, bgcf * CFrame.Angles(0, 0, th == 1 and -st * (0.1 + Speed / MaxSpeed * 0.1) or 0), 0.1) * CFrame.Angles(climbangle, 0, -st * 0.25 * (Speed / MaxSpeed))
		Speed = math.max((th == -1 and -WalkSpeed) or (th == 1 and math.min(SpeedLimit, 10)) or 0, math.min(SpeedLimit, Speed + (th == 1 and 0.25 or -3)))
		if --[[not updown]] 5 == 5 then
			updown = math.max(0, (th == 1 and TrotSpeed < Speed and math.abs(math.sin((tick() - 0.1) * 3)) or 0) - 0.1)
			local front = Main.CFrame * CFrame.new(0, 0, -3)
			local back = Main.CFrame * CFrame.new(0, 0, 3)
			local fHit, fP = RayCast(Ray.new(front.p, front:vectorToWorldSpace(Vector3.new(0, -Height * 6, 0))), {Model})
			local fDiff = (front.p - fP).magnitude
			if Height * 2 < fDiff then
				fHit = nil
			end
			local fY = math.max(fP.Y, front.Y - Height)
			local bHit, bP = RayCast(Ray.new(back.p, back:vectorToWorldSpace(Vector3.new(0, -Height * 6, 0))), {Model})
			local bDiff = (back.p - bP).magnitude
			if Height * 2 < bDiff then
				bHit = nil
			end
			local bY = math.max(bP.Y, back.Y - Height)
			local diffY = (fY + bY) / 2 - (Main.Position.Y - Height)
			if --[[not fHit or not bHit or not math.asin((fP - bP).unit.Y)]] 2 == 2 then
				climbangle = climbangle * 0.5
				bvvel = (Main.CFrame.lookVector).unit * Speed
				BV.velocity = (fP - bP).unit * Speed + Vector3.new(0, -(math.min(fDiff - Height, bDiff - Height) + updown * 0.8) * 3, 0)
				BV.maxForce = Vector3.new(1, 1, 1) * 4000000
				BBW.C0 = BBW0 + Vector3.new(0, updown * 0.8, -1.4)
				FBW.C0 = FBW0 + Vector3.new(0, updown * 0.8, 1.4)
				for i = 1, #Legs, 3 do
					local ang = 0
					local ang2 = 0
					local ang3 = 0
					local time = tick()
					if i < #Legs / 2 then
						if i % 6 == 1 then
							if th == 1 then
								if Speed <= WalkSpeed then
									ang = math.sin(time * WalkSin) * 0.15 + 0.05
									ang2 = -math.abs(math.cos(time * WalkSin / 2)) * 0.4
								elseif Speed <= TrotSpeed then
										ang = math.sin(time * TrotSin) * 0.5 + 0.4
										ang2 = -math.abs(math.cos(time * TrotSin / 2)) * 1.7
									else
										ang = math.sin(time * 6) * 0.8 + 0.35
										ang2 = -math.abs(math.cos(time * 3)) * 1.8
									end
							elseif th == -1 then
									ang = math.sin(time * 6) * 0.3 + 0.25
									time = time - 0.1
									ang2 = -math.abs(math.sin((time) * 3)) * 1.3 + 0.2
								else
									ang = math.sin(tick() * 2) * 0.5 + 0.5
									ang2 = -math.abs(math.cos(tick() * 1)) * 1.5
									ang3 = ang2
							end
						else
							if th == 1 then
								if Speed <= WalkSpeed then
									time = time + math.pi / WalkSin
									ang = math.sin((time) * WalkSin) * 0.15 + 0.05
									ang2 = -math.abs(math.cos((time) * WalkSin / 2)) * 0.4
								elseif Speed <= TrotSpeed then
										time = time + math.pi / TrotSin
										ang = math.sin((time) * TrotSin) * 0.5 + 0.4
										ang2 = -math.abs(math.cos((time) * TrotSin / 2)) * 1.7
									else
										time = time + 0.15
										ang = math.sin((time) * 6) * 0.8 + 0.35
										ang2 = -math.abs(math.cos((time) * 3)) * 1.8
								end
							elseif th == -1 then
									time = time + math.pi / 2
									ang = math.sin((time) * 6) * 0.3 + 0.25
									time = time - 0.1
									ang2 = -math.abs(math.sin((time) * 3)) * 1.3 + 0.2
							end
						end
					elseif i % 6 == 1 then
							if th == 1 then
								if Speed <= WalkSpeed then
									ang = math.sin((time) * WalkSin) * 0.1 - 0.6
									ang2 = math.abs(math.cos((time) * WalkSin / 2)) * 0.5 + 0.4
								elseif Speed <= TrotSpeed then
										ang = math.sin((time) * TrotSin) * 0.5 - 0.8
										ang2 = math.abs(math.cos((time) * TrotSin / 2)) * 1.4 - 0.1
										ang3 = ang2 - 1
									else
										time = time + math.pi / 2
										ang = math.sin((time) * 6) * 0.5 - 0.8
										ang2 = math.abs(math.cos((time) * 3)) * 1.4 - 0.1
										ang3 = ang2 - 1
								end
							elseif th == -1 then
									ang = math.sin((time) * 6) * 0.2 - 0.6
									time = time - 0.5
									ang2 = math.abs(math.cos((time) * 3)) * 1.4 - 0.1
									ang3 = math.sin((time) * 6) * 0.2
								else
									ang = -0.5
									ang2 = 0.65
									ang3 = -0.15
							end
						else
							if th == 1 then
								if Speed <= WalkSpeed then
									time = time + math.pi / WalkSin
									ang = math.sin((time) * WalkSin) * 0.1 - 0.7
									ang2 = math.abs(math.cos((time) * WalkSin / 2)) * 0.5 + 0.4
								elseif Speed <= TrotSpeed then
										time = time - math.pi / TrotSin
										ang = math.sin((time) * TrotSin) * 0.5 - 0.8
										ang2 = math.abs(math.cos((time) * TrotSin / 2)) * 1.4 - 0.1
										ang3 = ang2 - 1
									else
										time = time + math.pi / 2 - 0.15
										ang = math.sin((time) * 6) * 0.5 - 0.8
										ang2 = math.abs(math.cos((time) * 3)) * 1.4 - 0.1
										ang3 = ang2 - 1
								end
							elseif th == -1 then
									time = time + math.pi / 2
									ang = math.sin((time) * 6) * 0.2 - 0.6
									time = time - 0.5
									ang2 = math.abs(math.cos((time) * 3)) * 1.4 - 0.1
									ang3 = math.sin((time) * 6) * 0.2
								else
									ang = -0.55
									ang2 = 0.65
									ang3 = -0.1
							end
						end
					Legs[i].C0 = clerp(Legs[i].C0, Legs0[i] * CFrame.Angles(ang, 0, 0), 0.2)
					Legs[i + 1].C0 = clerp(Legs[i + 1].C0, Legs0[i + 1] * CFrame.Angles(ang2, 0, 0), 0.2)
					Legs[i + 2].C0 = clerp(Legs[i + 2].C0, Legs0[i + 2] * CFrame.Angles(ang3, 0, 0), 0.2)
				end
				if ReinLineM and ReinLineM.Part1 and ReinLineM.Part1.Transparency < 1 then
					if not ReinsHold then
						local rHold = CFrame.new(0, 3.5, -2)
					ReinSphereL.C0 = rHold * CFrame.new(-1.8, 0, 0) + Vector3.new(0, BreathSin * 0.05, 0)
					ReinSphereR.C0 = rHold * CFrame.new(1.8, 0, 0) + Vector3.new(0, BreathSin * 0.05, 0)
					local lp1 = Main.CFrame:pointToObjectSpace(ReinAnchorL.Position) + Vector3.new(-0.05, 0, 0)
					local lp2 = ReinSphereL.C0.p
					ReinLineL.C0 = CFrame.new(lp1:Lerp(lp2, 0.5), lp2) * CFrame.Angles(0, math.pi / 2, 0)
					ReinLineL.Part1.Mesh.Scale = Vector3.new((lp2 - lp1).magnitude / ReinLineL.Part1.Size.X, 1, 1)
					local rp1 = Main.CFrame:pointToObjectSpace(ReinAnchorR.Position) + Vector3.new(0.05, 0, 0)
					local rp2 = ReinSphereR.C0.p
					ReinLineR.C0 = CFrame.new(rp1:Lerp(rp2, 0.5), rp2) * CFrame.Angles(0, math.pi / 2, 0)
					ReinLineR.Part1.Mesh.Scale = Vector3.new((rp2 - rp1).magnitude / ReinLineR.Part1.Size.X, 1, 1)
					ReinLineM.C0 = CFrame.new(lp2:Lerp(rp2, 0.5), rp2) * CFrame.Angles(0, math.pi / 2, 0)
					ReinLineM.Part1.Mesh.Scale = Vector3.new((rp2 - lp2).magnitude / ReinLineM.Part1.Size.X, 1, 1)
					end
				end
					for i,v in pairs(BackHairs) do
						v.w.C0 = v.c0 * CFrame.Angles(math.sin(BreathSin + i) * 0.05, math.sin(BreathSin + i ^ 2) * 0.05, math.sin(BreathSin + i ^ 3) * 0.05) + Vector3.new(0, BreathSin * 0.05, 0)
				end
			end
		end
	end
))
end