--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

--Hey guys, Spark Here! This time actually credits. Look below!
--[[
PROJECT: Horse
STARTDATE: 18/08/13
CREDITS: Penjuin3 and AntiBoomz0r
]]

Breeds = {

    {
        fur=BrickColor.new("Reddish brown"),
        mane=BrickColor.new("Really black"),
        saddle=BrickColor.new("Really black"),
        reins=BrickColor.new("Really black"),
        hoof=BrickColor.new("Really black")
    },
{
        fur=BrickColor.new ("Institutional white"),
        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
--pcall(function() ModelParent[ModelName]:Destroy() end)

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("Really black")
local ManeColor = Breed.mane
local SaddleColor = Breed.saddle
local ReinsColor = Breed.reins
local HoofColor = Breed.hoof
local oc = oc or function(...) return ... end
local ModelScale = .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)--script.Parent:IsA("BasePart") and script.Parent.CFrame * CFrame.new(0,Height,0) or CFrame.new(0,Height+1,20)

math.randomseed(tick()+215819240)
math.random() math.random() math.random()
aran = function() return math.random() end
ran = function() return (math.random()-.5)*2 end

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


do  -- Ignore my clerp stuff stolen from stravvy
        local 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
        local 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
        local 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
        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
end

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

function ctlerp(c1,c2,al) -- Older, "worse" clerp if the other one fails..
        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,BasePart.BottomSurface,BasePart.LeftSurface,BasePart.RightSurface,BasePart.FrontSurface,BasePart.BackSurface = 10,10,10,10,10,10
BasePart:BreakJoints()
BasePart.CFrame = startpos

function NP()
    local p = BasePart:Clone()
    p.Parent = Model
    return p
end

function Sphere(parent,scale)
    local sm = Instance.new("SpecialMesh",parent)
    sm.MeshType = "Sphere"
    sm.Scale = scale or Vector3.new(1,1,1)
    return sm
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,.5)*CFrame.Angles(-.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,-.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

local EyeR = NP()
EyeR.BrickColor = EyeColor
EyeR.Reflectance = .1
EyeR.Size = Vector3.new(.2,.2,.2)
Weld(Head,EyeR,CFrame.new(.631,.23,.11)*CFrame.Angles(-0.2,0.1,0))
Sphere(EyeR,Vector3.new(.9,2.1,2.1))

local EyeL = NP()
EyeL.BrickColor = EyeColor
EyeL.Reflectance = .1
EyeL.Size = Vector3.new(.2,.2,.2)
Weld(Head,EyeL,CFrame.new(-.631,.23,.11)*CFrame.Angles(-0.2,-0.1,0))
Sphere(EyeL,Vector3.new(.9,2.1,2.1))

BasePart.Name = "Reins"

local RPart = NP() -- rs1
RPart.BrickColor = ReinsColor
RPart.Size = Vector3.new(.2,.7,.25)
Weld(Head,RPart,CFrame.new(.4,-.5,-1.05)*CFrame.Angles(-.25,0,0))

local Cyl = NP()
Cyl.BrickColor = ReinsColor
Cyl.Size = Vector3.new(.2495,.2,.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() -- rs2
RPart.BrickColor = ReinsColor
RPart.Size = Vector3.new(.2,.4,.25)
Weld(Head,RPart,CFrame.new(.4,-.5,-1.05)*CFrame.Angles(-.25,0,0)*CFrame.new(0,-.35,0)*CFrame.Angles(0,0,-.5)*CFrame.new(0,-.2,0))

local Cyl = NP()
Cyl.BrickColor = ReinsColor
Cyl.Size = Vector3.new(.2495,.2,.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() -- ls1
RPart.BrickColor = ReinsColor
RPart.Size = Vector3.new(.2,.7,.25)
Weld(Head,RPart,CFrame.new(-.4,-.5,-1.05)*CFrame.Angles(-.25,0,0))

local Cyl = NP()
Cyl.BrickColor = ReinsColor
Cyl.Size = Vector3.new(.2495,.2,.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() -- ls2
RPart.BrickColor = ReinsColor
RPart.Size = Vector3.new(.2,.4,.25)
Weld(Head,RPart,CFrame.new(-.4,-.5,-1.05)*CFrame.Angles(-.25,0,0)*CFrame.new(0,-.35,0)*CFrame.Angles(0,0,.5)*CFrame.new(0,-.2,0))

local Cyl = NP()
Cyl.BrickColor = ReinsColor
Cyl.Size = Vector3.new(.2495,.2,.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() -- mb
RPart.BrickColor = ReinsColor
RPart.Size = Vector3.new(.5,.2,.249)
Weld(Head,RPart,CFrame.new(0,-.5,-1.05)*CFrame.Angles(-.25,0,0)*CFrame.new(0,-.65,0))

local Cyl = NP()
Cyl.BrickColor = ReinsColor
Cyl.Size = Vector3.new(.2495,.2,.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(.2495,.2,.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() -- mt
RPart.BrickColor = ReinsColor
RPart.Size = Vector3.new(.8,.2,.249)
Weld(Head,RPart,CFrame.new(0,-.5,-1.05)*CFrame.Angles(-.25,0,0)*CFrame.new(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,.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(.4+aran()*.2,5.5-i*.1,.4+aran()*.2)
        local tw = Weld(Tail,t,CFrame.new(0,-Tail.Size.Y/2,0)*CFrame.Angles(ran()*.15,ran()*.5,ran()*.15)*CFrame.new(ran()*.1,0,ran()*.1),CFrame.new(0,-t.Size.Y/2+.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(.6+aran()*.2+math.sin(x*2.7)*.5,.9+ran()*.1,.9+ran()*.1)
        if i<1 then    m.Size = m.Size*0.7    end
        local tw = Weld(Main,m,CFrame.new(0,.9+math.sin(x*2.8)*1.2,3.4-x*6),CFrame.Angles(ran()*.1,aran()*.1,ran()*.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(.8+ran()*.2,.7+ran()*.1,.9+ran()*.1)
    local tw = Weld(Neck,m,CFrame.new(0,-1.3+x*3.5,1+math.sin(.55+x*3.7)*.5),CFrame.Angles(ran()*.08,aran()*.15,ran()*.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(.95+ran()*.2,1,.4)
        local tw = Weld(Head,m,CFrame.new(0,-.8+x*1.6,2.02-i*.23)*CFrame.Angles(-.2-i*.3,0,0),CFrame.Angles(ran()*.08,aran()*.03,ran()*.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,-.5,2.2)*CFrame.Angles(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(-.05,.3,-.5)*CFrame.Angles(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+.4,-.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-.1,0))

local LBHoof = NP()
LBHoof.BrickColor = HoofColor
LBHoof.CanCollide = false
LBHoof.Size = Vector3.new(1,.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,.12,.2))

local Hoof = NP()
Hoof.BrickColor = HoofColor
Hoof.CanCollide = false
Hoof.Size = Vector3.new(.2,.699,.5)
Weld(LBHoof,Hoof,CFrame.new(.4,0,.25))
local Hoof = NP()
Hoof.BrickColor = HoofColor
Hoof.CanCollide = false
Hoof.Size = Vector3.new(.2,.699,.5)
Weld(LBHoof,Hoof,CFrame.new(-.4,0,.25))

local RHip = NP()
RHip.Size = Vector3.new(1.5,3.7,3.5)
Weld(Main,RHip,CFrame.new(1,-.5,2.2)*CFrame.Angles(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(.05,.3,-.4)*CFrame.Angles(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+.4,-.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-.1,0))

local RBHoof = NP()
RBHoof.BrickColor = HoofColor
RBHoof.CanCollide = false
RBHoof.Size = Vector3.new(1,.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,.12,.2))

local Hoof = NP()
Hoof.BrickColor = HoofColor
Hoof.CanCollide = false
Hoof.Size = Vector3.new(.2,.699,.5)
Weld(RBHoof,Hoof,CFrame.new(.4,0,.25))
local Hoof = NP()
Hoof.BrickColor = HoofColor
Hoof.CanCollide = false
Hoof.Size = Vector3.new(.2,.699,.5)
Weld(RBHoof,Hoof,CFrame.new(-.4,0,.25))

local LShoulder = NP()
LShoulder.Size = Vector3.new(1.5,2.5,2)
Weld(Main,LShoulder,CFrame.new(-.9,-.5,-2.4)*CFrame.Angles(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(-.1,.2,.1)*CFrame.Angles(0,0,0),CFrame.new(0,1.45,0))
Sphere(LForearm)

local LFCannon = NP()
LFCannon.CanCollide = false
LFCannon.Size = Vector3.new(.8,2.8,.8)
local sm = Instance.new("SpecialMesh",LFCannon)
sm.MeshType = "Head"
local FL2 = Weld(LForearm,LFCannon,CFrame.new(0,-LForearm.Size.Y/2+.4,-.05)*CFrame.Angles(0,0,0),CFrame.new(0,1.3,0))

local LFKnee= NP()
LFKnee.CanCollide = false
LFKnee.Size = Vector3.new(.8,.8,.8)
local sm = Instance.new("SpecialMesh",LFKnee)
sm.MeshType = "Sphere"
Weld(LFCannon,LFKnee,CFrame.new(0,LFCannon.Size.Y/2-.1,0))

local LFHoof = NP()
LFHoof.BrickColor = HoofColor
LFHoof.CanCollide = false
LFHoof.Size = Vector3.new(.8,.6,.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,.12,.2))

local Hoof = NP()
Hoof.BrickColor = HoofColor
Hoof.CanCollide = false
Hoof.Size = Vector3.new(.2,.599,.4)
Weld(LFHoof,Hoof,CFrame.new(.3,0,.2))
local Hoof = NP()
Hoof.BrickColor = HoofColor
Hoof.CanCollide = false
Hoof.Size = Vector3.new(.2,.599,.4)
Weld(LFHoof,Hoof,CFrame.new(-.3,0,.2))

local RShoulder = NP()
RShoulder.Size = Vector3.new(1.5,2.5,2)
Weld(Main,RShoulder,CFrame.new(.9,-.5,-2.4)*CFrame.Angles(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(.1,.2,-.1)*CFrame.Angles(0,0,0),CFrame.new(0,1.45,0))
Sphere(RForearm)

local RFCannon = NP()
RFCannon.CanCollide = false
RFCannon.Size = Vector3.new(.8,2.8,.8)
local sm = Instance.new("SpecialMesh",RFCannon)
sm.MeshType = "Head"
local FR2 = Weld(RForearm,RFCannon,CFrame.new(0,-RForearm.Size.Y/2+.4,-.05)*CFrame.Angles(0,0,0),CFrame.new(0,1.3,0))

local RFKnee= NP()
RFKnee.CanCollide = false
RFKnee.Size = Vector3.new(.8,.8,.8)
local sm = Instance.new("SpecialMesh",RFKnee)
sm.MeshType = "Sphere"
Weld(RFCannon,RFKnee,CFrame.new(0,RFCannon.Size.Y/2-.1,0))

local RFHoof = NP()
RFHoof.BrickColor = HoofColor
RFHoof.CanCollide = false
RFHoof.Size = Vector3.new(.8,.6,.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,.12,.2))

local Hoof = NP()
Hoof.BrickColor = HoofColor
Hoof.CanCollide = false
Hoof.Size = Vector3.new(.2,.599,.4)
Weld(RFHoof,Hoof,CFrame.new(.3,0,.2))
local Hoof = NP()
Hoof.BrickColor = HoofColor
Hoof.CanCollide = false
Hoof.Size = Vector3.new(.2,.599,.4)
Weld(RFHoof,Hoof,CFrame.new(-.3,0,.2))



Seat = Instance.new("VehicleSeat",Model)
Seat.TopSurface,Seat.BottomSurface,Seat.LeftSurface,Seat.RightSurface,Seat.FrontSurface,Seat.BackSurface = 10,10,10,10,10,10
Seat.Size = Vector3.new(2,1.2,.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,-.5),CFrame.new(0,0,0))
local SeatWeld0 = SeatWeld.C0

Seat2 = Instance.new("Seat",Model)
Seat2.TopSurface,Seat2.BottomSurface,Seat2.LeftSurface,Seat2.RightSurface,Seat2.FrontSurface,Seat2.BackSurface = 10,10,10,10,10,10
Seat2.Size = Vector3.new(2,1.2,.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;

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,.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,lhipr.Part1 = nil,nil
        rhipr.Part0,rhipr.Part1 = nil,nil
        local lhip = lhipr:Clone()
        lhip.Name = "LH"
        lhip.Parent = lhipr.Parent
        lhip.Part0,lhip.Part1 = lh0,lh1
        local rhip = rhipr:Clone()
        rhip.Name = "RH"
        rhip.Parent = rhipr.Parent
        rhip.Part0,rhip.Part1 = rh0,rh1
        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;
        local toolChan;
        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+.2)
                        obj.C0 = CFrame.new(toolAn*1.8,toolAn*-1.1,0)*CFrame.Angles(0,0,-toolAn*.9)*oc0
                    end
                    while not toolOn and game:service'RunService'.Stepped:wait() do
                        toolAn = math.max(0,toolAn-.2)
                        obj.C0 = CFrame.new(toolAn*1.8,toolAn*-1.1,0)*CFrame.Angles(0,0,-toolAn*.9)*oc0
                        if toolAn == 0 then break end
                    end
                    ReinsHold = nil
                end)
            end
        end
        local ctrlgui;
        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,.9,0)
                fr.Size = UDim2.new(-.07,0,.02,0)
                fr.BackgroundTransparency = 1
                local function nbtn(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 = .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,.7,0)
                gal.MouseButton1Down:connect(function()
                    gal.BackgroundColor3 = Color3.new(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,.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,.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,lhipr.Part1 = lh0,lh1
            rhipr.Part0,rhipr.Part1 = rh0,rh1
            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,.5,-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,.1) return end
        local lh0,lh1 = lhipr.Part0,lhipr.Part1
        local rh0,rh1 = rhipr.Part0,rhipr.Part1
        lhipr.Part0,lhipr.Part1 = nil,nil
        rhipr.Part0,rhipr.Part1 = nil,nil
        local lhip = lhipr:Clone()
        lhip.Name = "LH"
        lhip.Parent = lhipr.Parent
        lhip.Part0,lhip.Part1 = lh0,lh1
        local rhip = rhipr:Clone()
        rhip.Name = "RH"
        rhip.Parent = rhipr.Parent
        rhip.Part0,rhip.Part1 = rh0,rh1
        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;
        local toolChan;
        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+.2)
                        obj.C0 = CFrame.new(toolAn*1.8,toolAn*-1.1,0)*CFrame.Angles(0,0,-toolAn*.9)*oc0
                    end
                    while not toolOn and game:service'RunService'.Stepped:wait() do
                        toolAn = math.max(0,toolAn-.2)
                        obj.C0 = CFrame.new(toolAn*1.8,toolAn*-1.1,0)*CFrame.Angles(0,0,-toolAn*.9)*oc0
                        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
            lhip:Destroy()
            rhip:Destroy()
            lhipr.Part0,lhipr.Part1 = lh0,lh1
            rhipr.Part0,rhipr.Part1 = rh0,rh1
            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)*4e6

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)*4e6
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

function RayCast(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


--Model:MoveTo(startpos.p)

local climbangle = 0
local blinktimer = 0

--while game:GetService("RunService").Stepped:wait() do
local connection
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 .5+Speed/MaxSpeed*6 or 2))
    local BreathSin = math.sin(tick()*(th==1 and (Speed<=WalkSpeed and WalkSin/2 or Speed<=TrotSpeed and TrotSin/2 or 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*.3),.15)

    local d,un = 10;
    if th == 0 and st == 0 then
        for i,v in pairs(game:GetService("Players"):GetPlayers()) 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,un = dis,u
                    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*.1-(un and math.sin(un.X)/2 or 0),-st*.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),.15)
    HeadWeld.C0 = clerp(HeadWeld.C0,CFrame.Angles(0,-st*.3-(un and math.sin(un.X)/2 or 0),-st*.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),.15)
    MainMesh.Scale = Vector3.new(1,1+(BreathSin*.025),1)
    SeatWeld.C0 = SeatWeld0 + Vector3.new(0,BreathSin*.05,0)
    bgcf = bgcf * CFrame.Angles(0,-st*.05,0)
    BG.cframe = clerp(bgcf,bgcf * CFrame.Angles(0,0,th==1 and -st*(.1+Speed/MaxSpeed*.1) or 0),.1)*CFrame.Angles(climbangle,0,-st*.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 .25 or -3)))
    updown = th==1 and Speed > TrotSpeed and math.abs(math.sin((tick()-.1)*3)) or math.max(0,(updown or 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 fDiff > Height*2 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 bDiff > Height*2 then
        bHit = nil
    end
    local bY = math.max(bP.Y,back.Y-Height)

    local diffY = (fY+bY)/2-(Main.Position.Y-Height)

    climbangle = fHit and bHit and math.asin((fP-bP).unit.Y) or climbangle*.5

    bvvel = Main.CFrame.lookVector.unit * Speed
    BV.velocity = (fP-bP).unit*Speed + Vector3.new(0,-(math.min(fDiff-Height,bDiff-Height)+updown*.8)*3,0)
    BV.maxForce = Vector3.new(1,1,1)*4e6
    BBW.C0 = BBW0 + Vector3.new(0,updown*.8,-1.4)
    FBW.C0 = FBW0 + Vector3.new(0,updown*.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 -- front
            if i%6 == 1 then -- Right
                if th == 1 then
                    if Speed <= WalkSpeed then -- walky
                        ang = math.sin(time*WalkSin)*.15 + .05
                        ang2 = -math.abs(math.cos(time*WalkSin/2))*.4
                    elseif Speed <= TrotSpeed then
                        ang = math.sin(time*TrotSin)*.5 + .4
                        ang2 = -math.abs(math.cos(time*TrotSin/2))*1.7
                    else
                        ang = math.sin(time*6)*.8 + .35
                        ang2 = -math.abs(math.cos(time*3))*1.8
                    end
                elseif th == -1 then
                    ang = math.sin(time*6)*.3 +.25
                    time = time -.1
                    ang2 = -math.abs(math.sin(time*3))*1.3 +.2
                else
                    ang = math.sin(tick()*2)*.5 + .5
                    ang2 = -math.abs(math.cos(tick()*1) )*1.5
                    ang3 = ang2
                end
            else -- left
                if th == 1 then
                    if Speed <= WalkSpeed then -- walky
                        time = time + math.pi/WalkSin
                        ang = math.sin(time*WalkSin)*.15 + .05
                        ang2 = -math.abs(math.cos(time*WalkSin/2))*.4
                    elseif Speed <= TrotSpeed then
                        time = time + math.pi/TrotSin
                        ang = math.sin(time*TrotSin)*.5 + .4
                        ang2 = -math.abs(math.cos(time*TrotSin/2))*1.7
                    else
                        time = time + .15
                        ang = math.sin(time*6)*.8 + .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)*.3 +.25
                    time = time -.1
                    ang2 = -math.abs(math.sin(time*3))*1.3 +.2
                else
                end
            end
        else -- back
            if i%6 == 1 then -- Right
                if th == 1 then
                    if Speed <= WalkSpeed then -- walky
                        ang = math.sin(time*WalkSin)*.1 - .6
                        ang2 = math.abs(math.cos(time*WalkSin/2))*.5 + .4
                    elseif Speed <= TrotSpeed then
                        ang = math.sin(time*TrotSin)*.5 - .8
                        ang2 = math.abs(math.cos(time*TrotSin/2))*1.4 - .1
                        ang3 = ang2-1
                    else
                        time = time + math.pi/2
                        ang = math.sin(time*6)*.5 - .8
                        ang2 = math.abs(math.cos(time*3))*1.4 - .1
                        ang3 = ang2-1
                    end
                elseif th == -1 then
                    ang = math.sin(time*6)*.2 - .6
                    time = time -.5
                    ang2 = math.abs(math.cos(time*3))*1.4 - .1
                    ang3 = math.sin(time*6)*.2
                else
                    ang = -.5
                    ang2 = .65
                    ang3 = -.15
                end
            else -- left
                if th == 1 then
                    if Speed <= WalkSpeed then -- walky
                        time = time + math.pi/WalkSin
                        ang = math.sin(time*WalkSin)*.1 - .7
                        ang2 = math.abs(math.cos(time*WalkSin/2))*.5 + .4
                    elseif Speed <= TrotSpeed then
                        time = time - math.pi/TrotSin
                        ang = math.sin(time*TrotSin)*.5 - .8
                        ang2 = math.abs(math.cos(time*TrotSin/2))*1.4 - .1
                        ang3 = ang2-1
                    else
                        time = time + math.pi/2 - .15
                        ang = math.sin(time*6)*.5 - .8
                        ang2 = math.abs(math.cos(time*3))*1.4 - .1
                        ang3 = ang2-1
                    end
                elseif th == -1 then
                    time = time + math.pi/2
                    ang = math.sin(time*6)*.2 - .6
                    time = time -.5
                    ang2 = math.abs(math.cos(time*3))*1.4 - .1
                    ang3 = math.sin(time*6)*.2
                else
                    ang = -.55
                    ang2 = .65
                    ang3 = -.1
                end
            end
        end
        Legs[i].C0 = clerp(Legs[i].C0,Legs0[i] * CFrame.Angles(ang,0,0), .2)
        Legs[i+1].C0 =clerp(Legs[i+1].C0, Legs0[i+1] * CFrame.Angles(ang2,0,0), .2)
        Legs[i+2].C0 = clerp(Legs[i+2].C0, Legs0[i+2] * CFrame.Angles(ang3,0,0), .2)
    end

    -- Reins
    if ReinLineM and ReinLineM.Part1 and ReinLineM.Part1.Transparency < 1 then
        local rHold = ReinsHold or CFrame.new(0,3.5,-2)
        ReinSphereL.C0 = rHold*CFrame.new(-1.8,0,0) + Vector3.new(0,BreathSin*.05,0)
        ReinSphereR.C0 = rHold*CFrame.new(1.8,0,0) + Vector3.new(0,BreathSin*.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,.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,.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,.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
    for i,v in pairs(BackHairs) do
        v.w.C0 = v.c0 * CFrame.Angles(math.sin(BreathSin+i)*.05,math.sin(BreathSin+i^2)*.05,math.sin(BreathSin+i^3)*.05) + Vector3.new(0,BreathSin*.05,0)
    end
    --[[
    for i,v in pairs(TailHairs) do
        v.w.C0 = v.c0 * CFrame.Angles(math.sin(TailSin+i)*.05,math.sin(TailSin+i^2)*.05,math.sin(TailSin+i^3)*.05)
    end
    for i,v in pairs(NeckHairs) do
        v.w.C0 = v.c0 * CFrame.Angles(math.sin(BreathSin+i)*.05,math.sin(BreathSin+i^2)*.05,math.sin(BreathSin+i^3)*.05)
    end
    for i,v in pairs(HeadHairs) do
        v.w.C0 = v.c0 * CFrame.Angles(math.sin(BreathSin+i)*.08,math.sin(BreathSin+i^2)*.08,math.sin(BreathSin+i^3)*.08)
    end]]
end))