local Services = setmetatable({},{__index = function(t,i)
    return game:service(i) or nil
end})
local Player = Services.Players.LocalPlayer
local Mouse = Player:GetMouse()
local Character = Player.Character
local Human = Character:findFirstChild("Humanoid")
local Backpack = Player:WaitForChild("Backpack")
local Mouse = Player:GetMouse()
local Count = false
local Breathing = 0
local Transition = false
local Stance = "Standby"
ScriptData = {
	Colors = {
		Base = "Grey",
		Trim = "White",
	},
	Surfaces = {
		"Top",
		"Bottom",
		"Left",
		"Right",
		"Front",
		"Back",
	},
	Rotation = 0,
	Rotors = {},
	Keys = {
		W = false,
		A = false,
		S = false,
		D = false,
		Space = false,
	},
	Lift = 2, --Studs off ground
	TurnAngle = 0,
	Last = 0,
	Acceleration = 0,
}

for _,v in pairs(Character:children()) do
	if v.Name == "Hover" then
		v:Destroy()
	end
end
local MainModel = Instance.new("Model",Character)
MainModel.Name = "Hover"

local function CreatePart(StringName,ObjectParent,VectorX,VectorY,VectorZ,StringColor,StringMaterial)
	local New_Part = Instance.new("Part",ObjectParent)
	New_Part.Name = StringName
	New_Part.Transparency = 1
	New_Part.formFactor = 3
	New_Part.Anchored = false
	New_Part.CanCollide = false
	New_Part.Locked = true
	New_Part.BrickColor = BrickColor.new(StringColor)
	New_Part.Size = Vector3.new(VectorX,VectorY,VectorZ)
	New_Part.Material = StringMaterial
	for _,S in pairs(ScriptData.Surfaces) do
		New_Part[S.."Surface"] = 10
	end
	New_Part:BreakJoints()
	Instance.new("BlockMesh",New_Part).Name = "Mesh"
	return New_Part
end

local function UD(a,b)
	return UDim2.new(a,0,b,0)
end

local function Thread(_F)
	return coroutine.resume(coroutine.create(_F))
end

local function CreateWeld(StringName,ObjectParent,Part1,Part0,CFrame1,CFrame0)
	local New_Weld = Instance.new("Weld",ObjectParent)
	New_Weld.Name = StringName
	New_Weld.Part1 = Part1
	New_Weld.Part0 = Part0
	New_Weld.C1 = CFrame0
	New_Weld.C0 = CFrame1
	return New_Weld
end

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

local function AnimLerp(c1, c2, al)
    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] = lerp(v,com2[i],al) 
   	end
    return CFrame.new(com1[1],com1[2],com1[3]) * CFrame.Angles(select(4,unpack(com1)))
end

local Stance = "None"

local Head = Character:findFirstChild("Head")
local Torso = Character:findFirstChild("Torso")
local Root = Character:findFirstChild("HumanoidRootPart")
local MotorHolder = Instance.new("Model",MainModel)
MotorHolder.Name = "Motors"
local Sides = {"Left","Right"}
local Arms = {Character["Left Arm"],Character["Right Arm"]}
local Legs = {Character["Left Leg"],Character["Right Leg"]}
local Welds = {
	ArmW = {
		Left = Instance.new("Weld",MotorHolder);
		Right = Instance.new("Weld",MotorHolder);
	};
	LegW = {
		Left = Instance.new("Weld",MotorHolder);
		Right = Instance.new("Weld",MotorHolder);
	};
	HeadW = {
		Middle = Instance.new("Weld",MotorHolder);
	};
}
local RWelds = {
	ArmW = {
		Left = Torso["Left Shoulder"];
		Right = Torso["Right Shoulder"];
	};
	LegW = {
		Left = Torso["Left Hip"];
		Right = Torso["Right Hip"];
	};
	HeadW = {
		Middle = Torso["Neck"];
	};
}
local LA,RA = Welds.ArmW.Left,Welds.ArmW.Right
local LL,LR = Welds.LegW.Left,Welds.LegW.Right
local HD = Welds.HeadW.Middle
local LAD = CFrame.new(-1.5,0.5,0)
local RAD = CFrame.new(1.5,0.5,0)
local HDD = CFrame.new(0,-0.8,0)
Welds.ArmW.Left.C1,Welds.ArmW.Left.C0,Welds.ArmW.Left.Part0 = CFrame.new(0, 0.5, 0),CFrame.new(-1.5, 0.5, 0),Torso
Welds.ArmW.Right.C1,Welds.ArmW.Right.C0,Welds.ArmW.Right.Part0 = CFrame.new(0, 0.5, 0),CFrame.new(1.5, 0.5, 0),Torso
Welds.LegW.Left.C1,Welds.LegW.Left.Part0 = CFrame.new(.5,2,0),Torso
Welds.LegW.Right.C1,Welds.LegW.Right.Part0 = CFrame.new(-.5,2,0),Torso 
Welds.HeadW.Middle.C1,Welds.HeadW.Middle.Part0 = CFrame.new(0,-1.5,0),Torso
local _Arm = function(side,tf)
	local Arm = nil
	local Weld = nil
	local RWeld = nil
	for _,S in pairs(Sides) do
		if side:lower() == S:lower() then
			for _,A in pairs(Arms) do
				if A.Name:lower():find(side:lower()) then
					Arm = A
					Weld = Welds.ArmW[S]
					RWeld = RWelds.ArmW[S]
				end
			end
		end
	end
	if Arm and Weld and RWeld then
		if tf then
			Weld.Part1 = Arm
			RWeld.Part1 = nil
		elseif not tf then
			Weld.Part1 = nil
			RWeld.Part1 = Arm
		else
			print("Error")
		end
	end
end

local _Leg = function(side,tf)
	local Leg = nil
	local Weld = nil
	local RWeld = nil
	for _,S in pairs(Sides) do
		if side:lower() == S:lower() then
			for _,A in pairs(Legs) do
				if A.Name:lower():find(side:lower()) then
					Leg = A
					Weld = Welds.LegW[S]
					RWeld = RWelds.LegW[S]
				end
			end
		end
	end
	if Leg and Weld and RWeld then
		if tf then
			Weld.Part1 = Leg
			RWeld.Part1 = nil
		elseif not tf then
			Weld.Part1 = nil
			RWeld.Part1 = Leg
		else
			print("Error")
		end
	end
end

local _Head = function(tf)
	local Head = nil
	local Weld = nil
	local RWeld = nil
	Head = Character["Head"]
	Weld = Welds.HeadW.Middle
	RWeld = RWelds.HeadW.Middle
	if Head and Weld and RWeld then
		if tf then
			Weld.Part1 = Head
			RWeld.Part1 = nil
		elseif not tf then
			Weld.Part1 = nil
			RWeld.Part1 = Head
		else
			print("Error")
		end
	end
end

local function Round(Number)
	return math.floor(Number+.5)
end

--[[Hover Creation]]--
local Board = CreatePart("Part",MainModel,1.5,0.25,4,ScriptData.Colors.Base,"SmoothPlastic")
local BoardEdge = CreatePart("Part",MainModel,1.505,0.2,3.995,ScriptData.Colors.Trim,"Neon")
local BEW = CreateWeld("Weld",BoardEdge,BoardEdge,Board,CFrame.new(0,0,0),CFrame.Angles(0,0,0))
--
--
local PointA = CreatePart("Part",MainModel,0.2,0.2,0.2,ScriptData.Colors.Base,"SmoothPlastic")
PointA.Transparency = 1
PointA.CanCollide = false
local PW = CreateWeld("Weld",PointA,PointA,Board,CFrame.new(0,-0.1,3),CFrame.Angles(math.rad(90),0,0))
local PointB = CreatePart("Part",MainModel,0.2,0.2,0.2,ScriptData.Colors.Base,"SmoothPlastic")
PointB.Transparency = 1
PointB.CanCollide = false
local PWB = CreateWeld("Weld",PointB,PointB,Board,CFrame.new(0,-0.1,-3),CFrame.Angles(math.rad(90),0,0))
--
--
local BodyPos = Instance.new("BodyPosition",Board)
BodyPos.maxForce = Vector3.new(1e5,1e5,1e5)
local Tilt = Instance.new("BodyGyro",Board)
Tilt.maxTorque = Vector3.new(1,1,1)/0
local Push = Instance.new("BodyForce",Board)
Push.force = Vector3.new()
--[[Player Welding]]--

if Torso and Human and Board then
	Human.PlatformStand = true
	Torso.CFrame = Torso.CFrame*CFrame.new(0,2,0)
	local TtBW = CreateWeld("Weld",Torso,Torso,Board,CFrame.new(0,3,0),CFrame.Angles(0,math.rad(90),0))
end

local function HoverPiece(CF,CFA)
	local Center = CreatePart("Part",MainModel,0.4,0.2,0.4,"Black","SmoothPlastic")
	Center:ClearAllChildren()
	Instance.new("CylinderMesh",Center).Scale = Vector3.new(1,1,1)
	local Emitter = Instance.new("ParticleEmitter", Center)
	Emitter.Enabled = true
	Emitter.Name = "Realism"
	Emitter.Acceleration = Vector3.new(0.5,0.5,0.5)
	Emitter.Transparency = NumberSequence.new(0.5,0.8)
	Emitter.Rate = NumberRange.new(1)
	local PW1 = CreateWeld("Weld",Center,Center,Board,CF,CFA)
	local Spin = Center:Clone()
	Spin.Parent = MainModel
	Spin.Size = Vector3.new(1,1,1)
	Spin.Transparency = 1
	local SPW = CreateWeld("Weld",Spin,Spin,Center,CFrame.new(0,0,0),CFrame.Angles(0,0,0))
	table.insert(ScriptData.Rotors, SPW)
	for i=0,360,45 do
		local Part = CreatePart("Part",MainModel,1,0.25,0.25,ScriptData.Colors.Base,"SmoothPlastic")
		local PW2 = CreateWeld("Weld",Part,Part,Center,CFrame.Angles(0,math.rad(i),0)*CFrame.new(0,0,1.08),CFrame.Angles(0,0,0))
		local Edge = CreatePart("Part",MainModel,1,0.2,0.2,ScriptData.Colors.Trim,"Neon")
		local EW = CreateWeld("Weld",Edge,Edge,Part,CFrame.new(0,0,0.05),CFrame.Angles(0,0,0))
	end
	for i=0,360,45 do
		local Rotor = CreatePart("Part",MainModel,2,0.2,0.25,"White","SmoothPlastic")
		Rotor:findFirstChild("Mesh").Scale = Vector3.new(1,0.125,1)
		local RW = CreateWeld("Weld",Rotor,Rotor,Spin,CFrame.Angles(0,math.rad(i),0)*CFrame.new(0,0,0.2),CFrame.Angles(math.rad(-20),0,0))
	end
end

HoverPiece(CFrame.new(0,0,-2.9),CFrame.Angles(0,0,0))
HoverPiece(CFrame.new(0,0,2.9),CFrame.Angles(0,0,0))

Services.RunService.Stepped:connect(function()
	pcall(function()
		for _,v in pairs(ScriptData.Rotors) do
			if v and v.Parent then
				v.C0 = v.C0 * CFrame.Angles(0,math.rad(10),0)
			end
		end
	end)
	a,b = ypcall(function()
		if Board and Torso and BodyPos and Tilt and PointA and PointB then
			local Rays = Ray.new(PointA.CFrame.p,PointA.CFrame.lookVector*(ScriptData.Lift + 4 + (ScriptData.Keys.Space==true and 5 or 0)))
			local Object,Pos = Services.Workspace:findPartOnRay(Rays,Character)
			local Rays2 = Ray.new(PointB.CFrame.p,PointB.CFrame.lookVector*(ScriptData.Lift + 4 + (ScriptData.Keys.Space==true and 5 or 0)))
			local Object2,Pos2 = Services.Workspace:findPartOnRay(Rays2,Character)
			local Left,Right,Front,Back,Space,Accept = 0,0,0,0,0,0
			local Face = Board.CFrame.lookVector

			if ScriptData.Keys.A==true then
				Left = 1
			elseif ScriptData.Keys.D==true then
				Right = -1
			end
			if ScriptData.Keys.Space==true then
				Space = 5
			else
				Space = 0
			end
			if ScriptData.Keys.S==true then
				Back,ScriptData.Last = -2,-1
				ScriptData.Acceleration = ScriptData.Acceleration >=8 and 8 or ScriptData.Acceleration + 0.1
			elseif ScriptData.Keys.W==true then
				Front,ScriptData.Last = 2,1
				ScriptData.Acceleration = ScriptData.Acceleration >=8 and 8 or ScriptData.Acceleration + 0.1
			elseif ScriptData.Acceleration ~= 0 and not ScriptData.Keys.S==true and not ScriptData.Keys.W==true then
				ScriptData.Acceleration = ScriptData.Acceleration>0 and ScriptData.Acceleration - 0.1 or 0
				Accept = ScriptData.Last
			end

			ScriptData.TurnAngle = ScriptData.TurnAngle - math.pi*(Left+Right)/32
			Tilt.cframe = CFrame.new()*CFrame.Angles(0,-ScriptData.TurnAngle,((Left+Right)/2))*CFrame.Angles(-((Front+Back)/5),0,0)

			if Object and Object:IsA("BasePart") or Object2 and Object2:IsA("BasePart") then
				local A = 0
				local B = 0

				if Object then
					A = Object.CFrame.Y + Object.Size.Y/2
				end
				if Object2 then
					B = Object2.CFrame.Y + Object2.Size.Y/2
				end
				BodyPos.maxForce = Vector3.new(1e5,1e5,1e5)
				BodyPos.position = Vector3.new(Board.CFrame.X,(((A+B)/2)+ScriptData.Lift)+Space,Board.CFrame.Z) + Vector3.new(Face.X,0,Face.Z)*ScriptData.Acceleration*(Front+Back+Accept)
			else
				BodyPos.maxForce = Vector3.new(1e5,0,1e5)
				BodyPos.position = Vector3.new(Board.CFrame.X,Board.CFrame.Y,Board.CFrame.Z) + Vector3.new(Face.X,Space,Face.Z)*ScriptData.Acceleration*(Front+Back+Accept)
			end
		end
	end)
	if not a then
		print("E: "..b)
	end
end)

Thread(function()
	while true do
		for i = 0,10,0.1 do
			ScriptData.Lift = ScriptData.Lift + (math.sin(math.pi*2/10*i)*0.1)
			wait(0.02)
		end 
	end
end)

Mouse.KeyDown:connect(function(Key)
	if Key == "w" then
		ScriptData.Keys.W = true
	end
	if Key == "a" then
		ScriptData.Keys.A = true
	end
	if Key == "s" then
		ScriptData.Keys.S = true
	end
	if Key == "d" then
		ScriptData.Keys.D = true
	end
	if Key:byte() == 32 then
		ScriptData.Keys.Space = true
	end
end)

Mouse.KeyUp:connect(function(Key)
	if Key == "w" then
		ScriptData.Keys.W = false
	end
	if Key == "a" then
		ScriptData.Keys.A = false
	end
	if Key == "s" then
		ScriptData.Keys.S = false
	end
	if Key == "d" then
		ScriptData.Keys.D = false
	end
	if Key:byte() == 32 then
		ScriptData.Keys.Space = false
	end
end)

_Arm("Left", true)
_Arm("Right", true)
_Leg("Left", true)
_Leg("Right", true)
_Head(true)

Services.RunService.RenderStepped:connect(function()
	if Transition then
		if Breathing >= 1 then
			Transition = false
		end
		Breathing = Breathing + 1/100
	else
		if Breathing <= 0 then
			Transition = true
		end
		Breathing = Breathing - 1/100
	end

	if Stance == "None" then
		LA.C0 = LAD * CFrame.Angles(math.rad(10*Breathing),0,math.rad(-20))
		RA.C0 = RAD * CFrame.Angles(math.rad(-10*Breathing),0,math.rad(20))
		LL.C0 = CFrame.new() * CFrame.Angles(0,0,math.rad(-5))
		LR.C0 = CFrame.new() * CFrame.Angles(0,0,math.rad(5))
	end
end)