Advertisement
tomonaoboys

MiH

Sep 16th, 2017
421
0
Never
Not a member of Pastebin yet? Sign Up, it unlocks many cool features!
Lua 5.92 KB | None | 0 0
  1. --[[
  2.     Made in Heaven (Stairway to Heaven)
  3.     (Made in Heaven is Jojo's bizzare adventure stands owner is Enrico Pucci)
  4.     by tomonaoboys
  5. --]]
  6. --<< The 'time for Heaven'. It has finally arrived... >>
  7. --------How to use--------
  8. --5(Keyboard):Toogle work to Humnanoid
  9. --6(Keyboard):Reverse working to Projectiles
  10. --7(Keyboard):Enable or Disable Made in Heaven
  11. --Chat"!spd (Number)" : Change speed
  12. --------This does happen what?--------
  13. --Changes many object speeds that makes to be faster,or to be slower except user.
  14. --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
  15. --This is not for become a most strongest,it's for making the Heaven.
  16. --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)
  17. wait(1)
  18.  
  19. if script.ClassName=="Script"then
  20. if game:GetService("RunService"):IsClient() then error("Please run as a server script. Use h/ instead of hl/.") end
  21. print("FE Compatibility: by WaverlyCole & Mokiros")
  22. InternalData = {}
  23. do
  24.     script.Parent = owner.Character
  25.     local Event = Instance.new("RemoteEvent")
  26.     Event.Name = "UserInput"
  27.     local function NewFakeEvent()
  28.         local Fake = {fakeEvent=true,Connect=function(self,Func)self.Function=Func end}Fake.connect = Fake.Connect
  29.         return Fake
  30.     end
  31.     local Mouse = {Target=nil,Hit=CFrame.new(),KeyUp=NewFakeEvent(),KeyDown=NewFakeEvent(),Button1Up=NewFakeEvent(),Button1Down=NewFakeEvent()}
  32.     local UserInputService = {InputBegan=NewFakeEvent(),InputEnded=NewFakeEvent()}
  33.     local ContextActionService = {Actions={},BindAction = function(self,actionName,Func,touch,...)
  34.         self.Actions[actionName] = Func and {Name=actionName,Function=Func,Keys={...}} or nil
  35.     end};ContextActionService.UnBindAction = ContextActionService.BindAction
  36.     local function TriggerEvent(self,Event,...)
  37.         local Trigger = Mouse[Event]
  38.         if Trigger and Trigger.fakeEvent and Trigger.Function then
  39.             Trigger.Function(...)
  40.         end
  41.     end
  42.     Mouse.TrigEvent = TriggerEvent
  43.     UserInputService.TrigEvent = TriggerEvent
  44.     Event.OnServerEvent:Connect(function(FiredBy,Input)
  45.         if FiredBy.Name ~= owner.Name then end
  46.         if Input.MouseEvent then
  47.             Mouse.Target = Input.Target
  48.             Mouse.Hit = Input.Hit
  49.         else
  50.             local Begin = Input.UserInputState == Enum.UserInputState.Begin
  51.             if Input.UserInputType == Enum.UserInputType.MouseButton1 then
  52.                 return Mouse:TrigEvent(Begin and "Button1Down" or "Button1Up")
  53.             end
  54.             for _,Action in pairs(ContextActionService.Actions) do
  55.                 for _,Key in pairs(Action.Keys) do
  56.                     if Key==Input.KeyCode then
  57.                         Action.Function(Action.Name,Input.UserInputState,Input)
  58.                     end
  59.                 end
  60.             end
  61.             Mouse:TrigEvent(Begin and "KeyDown" or "KeyUp",Input.KeyCode.Name:lower())
  62.             UserInputService:TrigEvent(Begin and "InputBegan" or "InputEnded",Input,false)
  63.         end
  64.     end)
  65.     InternalData["Mouse"] = Mouse
  66.     InternalData["ContextActionService"] = ContextActionService
  67.     InternalData["UserInputService"] = UserInputService
  68.     Event.Parent = NLS([[
  69.         local Player = owner
  70.         local Event = script:WaitForChild("UserInput")
  71.         local UserInputService = game:GetService("UserInputService")
  72.         local Mouse = Player:GetMouse()
  73.         local Input = function(Input,gameProcessedEvent)
  74.             if gameProcessedEvent then return end
  75.             Event:FireServer({KeyCode=Input.KeyCode,UserInputType=Input.UserInputType,UserInputState=Input.UserInputState})
  76.         end
  77.         UserInputService.InputBegan:Connect(Input)
  78.         UserInputService.InputEnded:Connect(Input)
  79.         local Hit,Target
  80.         while wait(1/30) do
  81.             if Hit ~= Mouse.Hit or Target ~= Mouse.Target then
  82.                 Hit,Target = Mouse.Hit,Mouse.Target
  83.                 Event:FireServer({["MouseEvent"]=true,["Target"]=Target,["Hit"]=Hit})
  84.             end
  85.         end
  86.     ]],owner.Character)
  87. end
  88. RealGame = game;game = setmetatable({},{
  89.     __index = function (self,Index)
  90.         local Sandbox = function (Thing)
  91.             if Thing:IsA("Player") then
  92.                 local RealPlayer = Thing
  93.                 return setmetatable({},{
  94.                     __index = function (self,Index)
  95.                         local Type = type(RealPlayer[Index])
  96.                         if Type == "function" then
  97.                             if Index:lower() == "getmouse" or Index:lower() == "mouse" then
  98.                                 return function (self)
  99.                                     return InternalData["Mouse"]
  100.                                 end
  101.                             end
  102.                             return function (self,...)
  103.                                 return RealPlayer[Index](RealPlayer,...)
  104.                             end
  105.                         else
  106.                             if Index == "PlrObj" then
  107.                                 return RealPlayer
  108.                             end
  109.                             return RealPlayer[Index]
  110.                         end
  111.                     end;
  112.                     __tostring = function(self)
  113.                         return RealPlayer.Name
  114.                     end
  115.                 })
  116.             end
  117.         end
  118.         if RealGame[Index] then
  119.             local Type = type(RealGame[Index])
  120.             if Type == "function" then
  121.                 if Index:lower() == "getservice" or Index:lower() == "service" then
  122.                     return function (self,Service)
  123.                         if Service:lower() == "players" then
  124.                             return setmetatable({},{
  125.                                 __index = function (self2,Index2)
  126.                                     local RealService = RealGame:GetService(Service)
  127.                                     local Type2 = type(Index2)
  128.                                     if Type2 == "function" then
  129.                                         return function (self,...)
  130.                                             return RealService[Index2](RealService,...)
  131.                                         end
  132.                                     else
  133.                                         if Index2:lower() == "localplayer" then
  134.                                             return Sandbox(owner)
  135.                                         end
  136.                                         return RealService[Index2]
  137.                                     end
  138.                                 end;
  139.                                 __tostring = function(self)
  140.                                     return RealGame:GetService(Service).Name
  141.                                 end
  142.                             })
  143.                         elseif Service:lower() == "contextactionservice" then
  144.                             return InternalData["ContextActionService"]
  145.                         elseif Service:lower() == "contextactionservice" then
  146.                             return InternalData["UserInputService"]
  147.                         elseif Service:lower() == "runservice" then
  148.                             return setmetatable({},{
  149.                                 __index = function(self2,Index2)
  150.                                     local RealService = RealGame:GetService(Service)
  151.                                     local Type2 = type(Index2)
  152.                                     if Type2 == "function" then
  153.                                         return function (self,...)
  154.                                             return RealService[Index2](RealService,...)
  155.                                         end
  156.                                     else
  157.                                         if Index2:lower() == "bindtorenderstep" then
  158.                                             return function (self,Name,Priority,Function)
  159.                                                 return RealGame:GetService("RunService").Stepped:Connect(Function)
  160.                                             end
  161.                                         end
  162.                                         if Index2:lower() == "renderstepped" then
  163.                                             return RealService["Stepped"]
  164.                                         end
  165.                                         return RealService[Index2]
  166.                                     end
  167.                                 end
  168.                             })
  169.                         else
  170.                             return RealGame:GetService(Service)
  171.                         end
  172.                     end
  173.                 end
  174.                 return function (self,...)
  175.                     return RealGame[Index](RealGame,...)
  176.                 end
  177.             else
  178.                 if game:GetService(Index) then
  179.                     return game:GetService(Index)
  180.                 end
  181.                 return RealGame[Index]
  182.             end
  183.         else
  184.             return nil
  185.         end
  186.     end
  187. });Game = game;owner = game:GetService("Players").LocalPlayer;script = {}
  188. print("Complete! Running...")
  189. end
  190.  
  191. speedl=5
  192. if math.random(2)==1 then script.Name="Stairway to Heaven"else script.Name="Made in Heaven"end
  193. script.Parent=workspace.CurrentCamera
  194. MiHActive=false DoToHumanoid=true
  195. Players=game:FindFirstChildOfClass("Players")Lighting=game:FindFirstChildOfClass("Lighting")
  196. ReverseObjectSpeedDown=true
  197. ReversePRJCSpeedDown=true
  198. PL=owner or Players.LocalPlayer if PL.Character then PC=PL.Character
  199.  
  200. function sidk(text)
  201.     print(text)
  202. --[[
  203.     local a=Instance.new("ScreenGui",PL:FindFirstChildOfClass("PlayerGui"))
  204.     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
  205.     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)]]
  206. end
  207. 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
  208. 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
  209. spawn(function()nbt.Text="The 'time for Heaven'. It has finally arrived..."wait(5)nbt.Text=""end)end
  210. function Boost(ch)
  211.     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
  212.     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
  213.     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
  214.     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
  215.     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
  216.     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
  217.     local cc=ch:GetChildren()
  218.     for i=1,#cc do
  219.         Boost(cc[i])
  220.     end
  221. end
  222. spawn(function()while wait()do Boost(workspace)wait()end end)
  223. local Mouse=PL:GetMouse()
  224. Mouse.KeyDown:connect(function(Key)
  225. --  if not Gpe then
  226.         if Key=="7" then
  227.             if MiHActive
  228.             then
  229.                 MiHActive=false
  230.                 sidk("Made in Heaven Disabled")
  231.             else
  232.                 MiHActive=true
  233.                 sidk("Made in Heaven Enabled")
  234.             end
  235.         end
  236.         if Key=="6" then
  237.             if ReversePRJCSpeedDown
  238.             then
  239.                 ReversePRJCSpeedDown=false
  240.                 sidk("Projectile Speed:Normal")print("projectile speed normal")
  241.             else
  242.                 ReversePRJCSpeedDown=true
  243.                 sidk("Projectile Speed:Reverse")print("projectile speed normal")
  244.             end
  245.         end
  246.         if Key=="5" then
  247.             if DoToHumanoid
  248.             then
  249.                 DoToHumanoid=false
  250.                 sidk("Work to Humanoid:Disabled")print("projectile speed normal")
  251.             else
  252.                 DoToHumanoid=true
  253.                 sidk("Work to Humanoid:Enabled")
  254.             end
  255.         end
  256. --  end
  257. end)
  258. function idk5(txt)
  259.     if tonumber(txt)~=nil then speedl=tonumber(txt)sidk("Speed:"..txt)else sidk("Invalid type or too much")end
  260. end
  261. 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
  262. t.TextStrokeTransparency=0 t.TextColor3=Color3.new(1,1,1)t.TextScaled=false t.TextSize=10 idk.Name="MiHGUI"
  263. t.InputEnded:connect(function(m)idk5(t.Text)t.Text="Put number here(Changes speed)"end)end end end)
Advertisement
Add Comment
Please, Sign In to add comment
Advertisement