-- This script has been converted to FE by iPxter


if game:GetService("RunService"):IsClient() then error("Script must be server-side in order to work; use h/ and not hl/") end
local Player,Mouse,mouse,UserInputService,ContextActionService = owner
do
    print("FE Compatibility code by Mokiros | Translated to FE by iPxter")
    script.Parent = Player.Character

    --RemoteEvent for communicating
    local Event = Instance.new("RemoteEvent")
    Event.Name = "UserInput_Event"

    --Fake event to make stuff like Mouse.KeyDown work
    local function fakeEvent()
        local t = {_fakeEvent=true,Connect=function(self,f)self.Function=f end}
        t.connect = t.Connect
        return t
    end

    --Creating fake input objects with fake variables
    local m = {Target=nil,Hit=CFrame.new(),KeyUp=fakeEvent(),KeyDown=fakeEvent(),Button1Up=fakeEvent(),Button1Down=fakeEvent()}
    local UIS = {InputBegan=fakeEvent(),InputEnded=fakeEvent()}
    local CAS = {Actions={},BindAction=function(self,name,fun,touch,...)
        CAS.Actions[name] = fun and {Name=name,Function=fun,Keys={...}} or nil
    end}
    --Merged 2 functions into one by checking amount of arguments
    CAS.UnbindAction = CAS.BindAction

    --This function will trigger the events that have been :Connect()'ed
    local function te(self,ev,...)
        local t = m[ev]
        if t and t._fakeEvent and t.Function then
            t.Function(...)
        end
    end
    m.TrigEvent = te
    UIS.TrigEvent = te

    Event.OnServerEvent:Connect(function(plr,io)
        if plr~=Player then return end
        if io.isMouse then
            m.Target = io.Target
            m.Hit = io.Hit
        else
            local b = io.UserInputState == Enum.UserInputState.Begin
            if io.UserInputType == Enum.UserInputType.MouseButton1 then
                return m:TrigEvent(b and "Button1Down" or "Button1Up")
            end
            for _,t in pairs(CAS.Actions) do
                for _,k in pairs(t.Keys) do
                    if k==io.KeyCode then
                        t.Function(t.Name,io.UserInputState,io)
                    end
                end
            end
            m:TrigEvent(b and "KeyDown" or "KeyUp",io.KeyCode.Name:lower())
            UIS:TrigEvent(b and "InputBegan" or "InputEnded",io,false)
        end
    end)
    Event.Parent = NLS([==[
    local Player = owner
    local Event = script:WaitForChild("UserInput_Event")

    local UIS = game:GetService("UserInputService")
    local input = function(io,a)
        if a then return end
        --Since InputObject is a client-side instance, we create and pass table instead
        Event:FireServer({KeyCode=io.KeyCode,UserInputType=io.UserInputType,UserInputState=io.UserInputState})
    end
    UIS.InputBegan:Connect(input)
    UIS.InputEnded:Connect(input)

    local Mouse = Player:GetMouse()
    local h,t
    --Give the server mouse data 30 times every second, but only if the values changed
    --If player is not moving their mouse, client won't fire events
    while wait(1/30) do
        if h~=Mouse.Hit or t~=Mouse.Target then
            h,t=Mouse.Hit,Mouse.Target
            Event:FireServer({isMouse=true,Target=t,Hit=h})
        end
    end]==],Player.Character)
    Mouse,mouse,UserInputService,ContextActionService = m,m,UIS,CAS
end

--[[
    Made in Heaven (Stairway to Heaven)
    (Made in Heaven is Jojo's bizzare adventure stands owner is Enrico Pucci)
    by tomonaoboys
--]]
--<< The 'time for Heaven'. It has finally arrived... >>
--------How to use--------
--5(Keyboard):Toogle work to Humnanoid
--6(Keyboard):Reverse working to Projectiles
--7(Keyboard):Enable or Disable Made in Heaven
--Chat"!spd (Number)" : Change speed
--------This does happen what?--------
--Changes many object speeds that makes to be faster,or to be slower except user.
--If you really want to do,It can reverse time,but don't work to Humanoids(Speed become 0). and this is actuary not Made in Heaven
--This is not for become a most strongest,it's for making the Heaven.
--Updated(2017/09/20) Now you don't need to say !spd (number). use added gui.(and now script don't with wrong text maybe)
wait(1)
speedl=5
if math.random(2)==1 then script.Name="Stairway to Heaven"else script.Name="Made in Heaven"end
script.Parent=workspace.CurrentCamera
MiHActive=false DoToHumanoid=true
Players=game:FindFirstChildOfClass("Players")Lighting=game:FindFirstChildOfClass("Lighting")
ReverseObjectSpeedDown=true
ReversePRJCSpeedDown=true
PL=owner if PL.Character then PC=PL.Character
function sidk(text)
    local a=Instance.new("ScreenGui",PL:FindFirstChildOfClass("PlayerGui"))
    local b=Instance.new("TextLabel",a)b.Size=UDim2.new(1,0,0,30)b.BackgroundTransparency=1 b.TextStrokeTransparency=1 b.TextTransparency=1 b.TextColor3=Color3.new(1,1,1)b.Text=text b.TextScaled=false b.TextSize=20
    spawn(function()for i=1,10,.2 do b.Position=UDim2.new(0,0,1,-i*15-60)b.TextTransparency=i/10 b.TextStrokeTransparency=i/10 wait()end a:Remove()end)
end
local nb=Instance.new("BillboardGui",PC.Head)nb.Size=UDim2.new(0,50,0,50)nb.ExtentsOffsetWorldSpace=Vector3.new(0,5,0)--nb.AlwaysOnTop=true
local nbt=Instance.new("TextLabel",nb)nbt.Size=UDim2.new(1,0,0,50)nbt.BackgroundTransparency=1 nbt.TextStrokeTransparency=0 nbt.TextColor3=Color3.new(1,1,1)nbt.TextSize=30
spawn(function()nbt.Text="The 'time for Heaven'. It has finally arrived..."wait(5)nbt.Text=""end)end
function Boost(ch)
    if ch:IsA("Humanoid")and tostring(ch.Parent)~=tostring(PL)then if ch:FindFirstChild("DefSpd")==nil then local j=Instance.new("NumberValue",ch)j.Name="DefSpd"j.Value=ch.WalkSpeed else if MiHActive and DoToHumanoid then if speedl~=0 then ch.WalkSpeed=ch.DefSpd.Value/speedl else ch.WalkSpeed=0 end else ch.WalkSpeed=ch.DefSpd.Value end end end
    if ch:IsA("BodyVelocity")then if ch:FindFirstChild("DefSpd")==nil then local j=Instance.new("Vector3Value",ch)j.Name="DefSpd"j.Value=ch.Velocity else if MiHActive then if ReversePRJCSpeedDown then ch.Velocity=ch.DefSpd.Value*speedl else if speedl~=0 then ch.Velocity=ch.DefSpd.Value/speedl else ch.Velocity=Vector3.new(0,0,0)end end else ch.Velocity=ch.DefSpd.Value end end end
    if ch:IsA("BodyThrust")then if ch:FindFirstChild("DefSpd")==nil then local j=Instance.new("Vector3Value",ch)j.Name="DefSpd"j.Value=ch.Force else if MiHActive then if ReversePRJCSpeedDown then ch.Force=ch.DefSpd.Value*speedl else if speedl~=0 then ch.Force=ch.DefSpd.Value/speedl else ch.Force=Vector3.new(0,0,0)end end else ch.Force=ch.DefSpd.Value end end end
    if ch:IsA("BodyAngularVelocity")then if ch:FindFirstChild("DefSpd")==nil then local j=Instance.new("Vector3Value",ch)j.Name="DefSpd"j.Value=ch.AngularVelocity else if MiHActive then if ReversePRJCSpeedDown then ch.AngularVelocity=ch.DefSpd.Value*speedl else if speedl~=0 then ch.AngularVelocity=ch.DefSpd.Value/speedl else ch.AngularVelocity=Vector3.new(0,0,0)end end else ch.AngularVelocity=ch.DefSpd.Value end end end
    if ch:IsA("RocketPropulsion")then if ch:FindFirstChild("DefSpd")==nil then local j=Instance.new("NumberValue",ch)j.Name="DefSpd"j.Value=ch.MaxSpeed else if MiHActive then if ReversePRJCSpeedDown then ch.MaxSpeed=ch.DefSpd.Value*speedl else if speedl~=0 then ch.MaxSpeed=ch.DefSpd.Value/speedl else ch.MaxSpeed=0 end end else ch.MaxSpeed=ch.DefSpd.Value end end end
    if ch:IsA("VehicleSeat")then if ch:FindFirstChild("DefSpd")==nil then local j=Instance.new("NumberValue",ch)j.Name="DefSpd"j.Value=ch.MaxSpeed else if MiHActive then if ReverseObjectSpeedDown then ch.MaxSpeed=ch.DefSpd.Value*speedl else if speedl~=0 then ch.MaxSpeed=ch.DefSpd.Value/speedl else ch.MaxSpeed=0 end end else ch.MaxSpeed=ch.DefSpd.Value end end end
    local cc=ch:GetChildren()
    for i=1,#cc do
        Boost(cc[i])
    end
end
spawn(function()while wait()do Boost(workspace)wait()end end)
game:GetService("UserInputService").InputBegan:connect(function(Key, Gpe)
    if not Gpe then
        if Key.KeyCode==Enum.KeyCode.Seven then
            if MiHActive
            then
                MiHActive=false
                sidk("Made in Heaven Disabled")
            else
                MiHActive=true
                sidk("Made in Heaven Enabled")
            end
        end
        if Key.KeyCode==Enum.KeyCode.Six then
            if ReversePRJCSpeedDown
            then
                ReversePRJCSpeedDown=false
                sidk("Projectile Speed:Normal")
            else
                ReversePRJCSpeedDown=true
                sidk("Projectile Speed:Reverse")
            end
        end
        if Key.KeyCode==Enum.KeyCode.Five then
            if DoToHumanoid
            then
                DoToHumanoid=false
                sidk("Work to Humanoid:Disabled")
            else
                DoToHumanoid=true
                sidk("Work to Humanoid:Enabled")
            end
        end
    end
end)
function idk5(txt)
    if tonumber(txt)~=nil then speedl=tonumber(txt)sidk("Speed:"..txt)else sidk("Invalid type or too much")end
end
spawn(function()while wait()do if PL:FindFirstChildOfClass("PlayerGui"):FindFirstChild("MiHGUI")==nil then local idk=Instance.new("ScreenGui",PL:FindFirstChildOfClass("PlayerGui"))idk.ResetOnSpawn=false local t=Instance.new("TextBox",idk)t.Size=UDim2.new(0,230,0,22)t.Position=UDim2.new(1,-255,.4,0)t.BackgroundColor3=Color3.new(1,1,1)t.BackgroundTransparency=.5 t.Text="Put number here(Changes speed)"t.BorderSizePixel=0
t.TextStrokeTransparency=0 t.TextColor3=Color3.new(1,1,1)t.TextScaled=false t.TextSize=10 idk.Name="MiHGUI"
t.InputEnded:connect(function(m)idk5(t.Text)t.Text="Put number here(Changes speed)"end)end end end)