Advertisement
Not a member of Pastebin yet?
Sign Up,
it unlocks many cool features!
- if game:GetService("RunService"):IsClient() then error("Please run as a server script. Use h/ instead of hl/.") end
- print("FE Compatibility: by WaverlyCole & Mokiros")
- InternalData = {}
- do
- script.Parent = owner.Character
- local Event = Instance.new("RemoteEvent")
- Event.Name = "UserInput"
- local function NewFakeEvent()
- local Fake = {fakeEvent=true,Connect=function(self,Func)self.Function=Func end}Fake.connect = Fake.Connect
- return Fake
- end
- local Mouse = {Target=nil,Hit=CFrame.new(),KeyUp=NewFakeEvent(),KeyDown=NewFakeEvent(),Button1Up=NewFakeEvent(),Button1Down=NewFakeEvent()}
- local UserInputService = {InputBegan=NewFakeEvent(),InputEnded=NewFakeEvent()}
- local ContextActionService = {Actions={},BindAction = function(self,actionName,Func,touch,...)
- self.Actions[actionName] = Func and {Name=actionName,Function=Func,Keys={...}} or nil
- end};ContextActionService.UnBindAction = ContextActionService.BindAction
- local function TriggerEvent(self,Event,...)
- local Trigger = Mouse[Event]
- if Trigger and Trigger.fakeEvent and Trigger.Function then
- Trigger.Function(...)
- end
- end
- Mouse.TrigEvent = TriggerEvent
- UserInputService.TrigEvent = TriggerEvent
- Event.OnServerEvent:Connect(function(FiredBy,Input)
- if FiredBy.Name ~= owner.Name then end
- if Input.MouseEvent then
- Mouse.Target = Input.Target
- Mouse.Hit = Input.Hit
- else
- local Begin = Input.UserInputState == Enum.UserInputState.Begin
- if Input.UserInputType == Enum.UserInputType.MouseButton1 then
- return Mouse:TrigEvent(Begin and "Button1Down" or "Button1Up")
- end
- for _,Action in pairs(ContextActionService.Actions) do
- for _,Key in pairs(Action.Keys) do
- if Key==Input.KeyCode then
- Action.Function(Action.Name,Input.UserInputState,Input)
- end
- end
- end
- Mouse:TrigEvent(Begin and "KeyDown" or "KeyUp",Input.KeyCode.Name:lower())
- UserInputService:TrigEvent(Begin and "InputBegan" or "InputEnded",Input,false)
- end
- end)
- InternalData["Mouse"] = Mouse
- InternalData["ContextActionService"] = ContextActionService
- InternalData["UserInputService"] = UserInputService
- Event.Parent = NLS([[
- local Player = owner
- local Event = script:WaitForChild("UserInput")
- local UserInputService = game:GetService("UserInputService")
- local Mouse = Player:GetMouse()
- local Input = function(Input,gameProcessedEvent)
- if gameProcessedEvent then return end
- Event:FireServer({KeyCode=Input.KeyCode,UserInputType=Input.UserInputType,UserInputState=Input.UserInputState})
- end
- UserInputService.InputBegan:Connect(Input)
- UserInputService.InputEnded:Connect(Input)
- local Hit,Target
- while wait(1/30) do
- if Hit ~= Mouse.Hit or Target ~= Mouse.Target then
- Hit,Target = Mouse.Hit,Mouse.Target
- Event:FireServer({["MouseEvent"]=true,["Target"]=Target,["Hit"]=Hit})
- end
- end
- ]],owner.Character)
- end
- RealGame = game;game = setmetatable({},{
- __index = function (self,Index)
- local Sandbox = function (Thing)
- if Thing:IsA("Player") then
- local RealPlayer = Thing
- return setmetatable({},{
- __index = function (self,Index)
- local Type = type(RealPlayer[Index])
- if Type == "function" then
- if Index:lower() == "getmouse" or Index:lower() == "mouse" then
- return function (self)
- return InternalData["Mouse"]
- end
- end
- return function (self,...)
- return RealPlayer[Index](RealPlayer,...)
- end
- else
- if Index == "PlrObj" then
- return RealPlayer
- end
- return RealPlayer[Index]
- end
- end;
- __tostring = function(self)
- return RealPlayer.Name
- end
- })
- end
- end
- if RealGame[Index] then
- local Type = type(RealGame[Index])
- if Type == "function" then
- if Index:lower() == "getservice" or Index:lower() == "service" then
- return function (self,Service)
- if Service:lower() == "players" then
- return setmetatable({},{
- __index = function (self2,Index2)
- local RealService = RealGame:GetService(Service)
- local Type2 = type(Index2)
- if Type2 == "function" then
- return function (self,...)
- return RealService[Index2](RealService,...)
- end
- else
- if Index2:lower() == "localplayer" then
- return Sandbox(owner)
- end
- return RealService[Index2]
- end
- end;
- __tostring = function(self)
- return RealGame:GetService(Service).Name
- end
- })
- elseif Service:lower() == "contextactionservice" then
- return InternalData["ContextActionService"]
- elseif Service:lower() == "contextactionservice" then
- return InternalData["UserInputService"]
- elseif Service:lower() == "runservice" then
- return setmetatable({},{
- __index = function(self2,Index2)
- local RealService = RealGame:GetService(Service)
- local Type2 = type(Index2)
- if Type2 == "function" then
- return function (self,...)
- return RealService[Index2](RealService,...)
- end
- else
- if Index2:lower() == "bindtorenderstep" then
- return function (self,Name,Priority,Function)
- return RealGame:GetService("RunService").Stepped:Connect(Function)
- end
- end
- if Index2:lower() == "renderstepped" then
- return RealService["Stepped"]
- end
- return RealService[Index2]
- end
- end
- })
- else
- return RealGame:GetService(Service)
- end
- end
- end
- return function (self,...)
- return RealGame[Index](RealGame,...)
- end
- else
- if game:GetService(Index) then
- return game:GetService(Index)
- end
- return RealGame[Index]
- end
- else
- return nil
- end
- end
- });Game = game;owner = game:GetService("Players").LocalPlayer;script = {}
- print("Complete! Running...")
- --//Paste script below this line.
- 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 = "Really black",
- Trim = "Burnt Sienna",
- },
- 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.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,"Burnt Sienna","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)
Advertisement
Add Comment
Please, Sign In to add comment
Advertisement