View difference between Paste ID: 8J9REZck and ttH9CWwY
SHOW: | | - or go back to the newest paste.
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-
18+
19-
if script.ClassName=="Script"then
19+
20-
if game:GetService("RunService"):IsClient() then error("Please run as a server script. Use h/ instead of hl/.") end
20+
21-
print("FE Compatibility: by WaverlyCole & Mokiros")
21+
22-
InternalData = {}
22+
23-
do
23+
24-
	script.Parent = owner.Character
24+
25-
	local Event = Instance.new("RemoteEvent")
25+
PL=Players.LocalPlayer if PL.Character then PC=PL.Character
26-
	Event.Name = "UserInput"
26+
27-
	local function NewFakeEvent()
27+
28-
		local Fake = {fakeEvent=true,Connect=function(self,Func)self.Function=Func end}Fake.connect = Fake.Connect
28+
29-
		return Fake
29+
	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)
30
end
31-
	local Mouse = {Target=nil,Hit=CFrame.new(),KeyUp=NewFakeEvent(),KeyDown=NewFakeEvent(),Button1Up=NewFakeEvent(),Button1Down=NewFakeEvent()}
31+
32-
	local UserInputService = {InputBegan=NewFakeEvent(),InputEnded=NewFakeEvent()}
32+
33-
	local ContextActionService = {Actions={},BindAction = function(self,actionName,Func,touch,...)
33+
34-
		self.Actions[actionName] = Func and {Name=actionName,Function=Func,Keys={...}} or nil
34+
35-
	end};ContextActionService.UnBindAction = ContextActionService.BindAction
35+
36-
	local function TriggerEvent(self,Event,...)
36+
37-
		local Trigger = Mouse[Event]
37+
38-
		if Trigger and Trigger.fakeEvent and Trigger.Function then
38+
39-
			Trigger.Function(...)
39+
40
	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
41
	local cc=ch:GetChildren()
42-
	Mouse.TrigEvent = TriggerEvent
42+
43-
	UserInputService.TrigEvent = TriggerEvent
43+
44-
	Event.OnServerEvent:Connect(function(FiredBy,Input)
44+
45-
		if FiredBy.Name ~= owner.Name then end
45+
46-
		if Input.MouseEvent then
46+
47-
			Mouse.Target = Input.Target
47+
game:GetService("UserInputService").InputBegan:connect(function(Key, Gpe)
48-
			Mouse.Hit = Input.Hit
48+
	if not Gpe then	
49-
		else
49+
		if Key.KeyCode==Enum.KeyCode.Seven then
50-
			local Begin = Input.UserInputState == Enum.UserInputState.Begin
50+
51-
			if Input.UserInputType == Enum.UserInputType.MouseButton1 then
51+
52-
				return Mouse:TrigEvent(Begin and "Button1Down" or "Button1Up")
52+
53
				sidk("Made in Heaven Disabled")
54-
			for _,Action in pairs(ContextActionService.Actions) do
54+
55-
				for _,Key in pairs(Action.Keys) do
55+
56-
					if Key==Input.KeyCode then
56+
57-
						Action.Function(Action.Name,Input.UserInputState,Input)
57+
58-
					end
58+
59-
				end
59+
		if Key.KeyCode==Enum.KeyCode.Six then
60
			if ReversePRJCSpeedDown
61-
			Mouse:TrigEvent(Begin and "KeyDown" or "KeyUp",Input.KeyCode.Name:lower())
61+
62-
			UserInputService:TrigEvent(Begin and "InputBegan" or "InputEnded",Input,false)
62+
63
				sidk("Projectile Speed:Normal")
64-
	end)
64+
65-
	InternalData["Mouse"] = Mouse
65+
66-
	InternalData["ContextActionService"] = ContextActionService
66+
				sidk("Projectile Speed:Reverse")
67-
	InternalData["UserInputService"] = UserInputService
67+
68-
	Event.Parent = NLS([[
68+
69-
		local Player = owner
69+
		if Key.KeyCode==Enum.KeyCode.Five then
70-
		local Event = script:WaitForChild("UserInput")
70+
71-
		local UserInputService = game:GetService("UserInputService")
71+
72-
		local Mouse = Player:GetMouse()
72+
73-
		local Input = function(Input,gameProcessedEvent)
73+
				sidk("Work to Humanoid:Disabled")
74-
			if gameProcessedEvent then return end
74+
75-
			Event:FireServer({KeyCode=Input.KeyCode,UserInputType=Input.UserInputType,UserInputState=Input.UserInputState})
75+
76
				sidk("Work to Humanoid:Enabled")
77-
		UserInputService.InputBegan:Connect(Input)
77+
78-
		UserInputService.InputEnded:Connect(Input)
78+
79-
		local Hit,Target
79+
80-
		while wait(1/30) do
80+
81-
			if Hit ~= Mouse.Hit or Target ~= Mouse.Target then
81+
82-
				Hit,Target = Mouse.Hit,Mouse.Target
82+
83-
				Event:FireServer({["MouseEvent"]=true,["Target"]=Target,["Hit"]=Hit})
83+
84
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
85
t.TextStrokeTransparency=0 t.TextColor3=Color3.new(1,1,1)t.TextScaled=false t.TextSize=10 idk.Name="MiHGUI"
86-
	]],owner.Character)
86+