MiH

--[[
    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=Players.LocalPlayer 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)