View difference between Paste ID: fzi3XYdw and k1BPHcRw

 -----------------------------------------------------------------------------------------------------------------------------------------------------------------------------------------------------------------------------------------------------------------------
 --https://github.com/Mokiros/roblox-FE-compatibility
 if game:GetService("RunService"):IsClient() then error("Script must be server-side in order to work; use h/ and not hl/") end
 local Player,game,owner = owner,game
 local RealPlayer = Player
 do
 	print("FE Compatibility code V2 by Mokiros")
 	local RealPlayer = RealPlayer
 	script.Parent = RealPlayer.Character
 
 	--Fake event to make stuff like Mouse.KeyDown work
 	local Disconnect_Function = function(this)
 		this[1].Functions[this[2]] = nil
 	end
 	local Disconnect_Metatable = {__index={disconnect=Disconnect_Function,Disconnect=Disconnect_Function}}
 	local FakeEvent_Metatable = {__index={
 		Connect = function(this,f)
 			local i = tostring(math.random(0,10000))
 			while this.Functions[i] do
 				i = tostring(math.random(0,10000))
 			end
 			this.Functions[i] = f
 			return setmetatable({this,i},Disconnect_Metatable)
 		end
 	}}
 	FakeEvent_Metatable.__index.connect = FakeEvent_Metatable.__index.Connect
 	local function fakeEvent()
 		return setmetatable({Functions={}},FakeEvent_Metatable)
 	end
 
 	--Creating fake input objects with fake variables
     local FakeMouse = {Hit=CFrame.new(),KeyUp=fakeEvent(),KeyDown=fakeEvent(),Button1Up=fakeEvent(),Button1Down=fakeEvent(),Button2Up=fakeEvent(),Button2Down=fakeEvent()}
     FakeMouse.keyUp = FakeMouse.KeyUp
     FakeMouse.keyDown = FakeMouse.KeyDown
 	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 TriggerEvent(self,ev,...)
 		for _,f in pairs(self[ev].Functions) do
 			f(...)
 		end
 	end
 	FakeMouse.TriggerEvent = TriggerEvent
 	UIS.TriggerEvent = TriggerEvent
 
 	--Client communication
 	local Event = Instance.new("RemoteEvent")
 	Event.Name = "UserInput_Event"
 	Event.OnServerEvent:Connect(function(plr,io)
 	    if plr~=RealPlayer then return end
 		FakeMouse.Target = io.Target
 		FakeMouse.Hit = io.Hit
 		if not io.isMouse then
 			local b = io.UserInputState == Enum.UserInputState.Begin
 			if io.UserInputType == Enum.UserInputType.MouseButton1 then
 				return FakeMouse:TriggerEvent(b and "Button1Down" or "Button1Up")
 			end
 			if io.UserInputType == Enum.UserInputType.MouseButton2 then
 				return FakeMouse:TriggerEvent(b and "Button2Down" or "Button2Up")
 			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
 			FakeMouse:TriggerEvent(b and "KeyDown" or "KeyUp",io.KeyCode.Name:lower())
 			UIS:TriggerEvent(b and "InputBegan" or "InputEnded",io,false)
 	    end
 	end)
 	Event.Parent = NLS([==[local Event = script:WaitForChild("UserInput_Event")
 	local Mouse = owner:GetMouse()
 	local UIS = game:GetService("UserInputService")
 	local input = function(io,RobloxHandled)
 		if RobloxHandled 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,Hit=Mouse.Hit,Target=Mouse.Target})
 	end
 	UIS.InputBegan:Connect(input)
 	UIS.InputEnded:Connect(input)
 	local h,t
 	--Give the server mouse data every second frame, but only if the values changed
 	--If player is not moving their mouse, client won't fire events
 	local HB = game:GetService("RunService").Heartbeat
 	while true 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
 		--Wait 2 frames
 		for i=1,2 do
 			HB:Wait()
 		end
 	end]==],script)
 
 	----Sandboxed game object that allows the usage of client-side methods and services
 	--Real game object
 	local RealGame = game
 
 	--Metatable for fake service
 	local FakeService_Metatable = {
 		__index = function(self,k)
 			local s = rawget(self,"_RealService")
 			if s then
 				return typeof(s[k])=="function"
 				and function(_,...)return s[k](s,...)end or s[k]
 			end
 		end,
 		__newindex = function(self,k,v)
 			local s = rawget(self,"_RealService")
 			if s then s[k]=v end
 		end
 	}
 	local function FakeService(t,RealService)
 		t._RealService = typeof(RealService)=="string" and RealGame:GetService(RealService) or RealService
 		return setmetatable(t,FakeService_Metatable)
 	end
 
 	--Fake game object
 	local FakeGame = {
 		GetService = function(self,s)
 			return rawget(self,s) or RealGame:GetService(s)
 		end,
 		Players = FakeService({
 			LocalPlayer = FakeService({GetMouse=function(self)return FakeMouse end},Player)
 		},"Players"),
 		UserInputService = FakeService(UIS,"UserInputService"),
 		ContextActionService = FakeService(CAS,"ContextActionService"),
 		RunService = FakeService({
 			_btrs = {},
 			RenderStepped = RealGame:GetService("RunService").Heartbeat,
 			BindToRenderStep = function(self,name,_,fun)
 				self._btrs[name] = self.Heartbeat:Connect(fun)
 			end,
 			UnbindFromRenderStep = function(self,name)
 				self._btrs[name]:Disconnect()
 			end,
 		},"RunService")
 	}
 	rawset(FakeGame.Players,"localPlayer",FakeGame.Players.LocalPlayer)
 	FakeGame.service = FakeGame.GetService
 	FakeService(FakeGame,game)
 	--Changing owner to fake player object to support owner:GetMouse()
 	game,owner = FakeGame,FakeGame.Players.LocalPlayer
 end
 
 local modelname="DeLoreanTimeMachine"
 pcall(function() workspace.Base.CFrame=CFrame.new(0,-2,0) end)
 print(modelname.."_LOADED")
 local plr=game:service("Players")["LocalPlayer"]
 local char=plr.Character
 local T=char.Torso
 local c=function(f) coroutine.resume(coroutine.create(f)) end
 local pc=pcall
 pc(function() workspace:findFirstChild(modelname):remove() end)
 local mouse=nil
 local pi=math.pi
 local rd=math.rad
 local sn=math.sin
 local cs=math.cos
 local rn=math.random
 local ti=table.insert
 local tr=table.remove
 local inf=math.huge
 local cn=CFrame.new
 local vc=Vector3.new
 local ca=CFrame.Angles
 local delorean=Instance.new("Model", workspace) delorean.Name=modelname
 local screengui=Instance.new("ScreenGui") screengui.Name=modelname
 part=function(par, a, c, s, col, t, cf, ms)
 local p=Instance.new("Part", par) pcall(function() p.TopSurface="Smooth" p.BottomSurface="Smooth" p.formFactor="Custom" p.Anchored=a p.CanCollide=c p.Size=s p.BrickColor=BrickColor.new(col) p.Transparency=t p.CFrame=cf or cn()  end)
 local m=Instance.new("BlockMesh", p) pcall(function() m.Scale=ms or Vector3.new(1, 1, 1) end)
 return p
 end
 cylinder=function(par, a, c, s, col, t, cf, ms)
 local p=Instance.new("Part", par) pcall(function() p.TopSurface="Smooth" p.BottomSurface="Smooth" p.formFactor="Custom" p.Anchored=a p.CanCollide=c p.Size=s p.BrickColor=BrickColor.new(col) p.Transparency=t p.CFrame=cf or cn()  end)
 local m=Instance.new("CylinderMesh", p) pcall(function() m.Scale=ms or Vector3.new(1, 1, 1) end)
 return p
 end
 wedge=function(par, a, c, s, col, t, cf, ms)
 local p=Instance.new("Part", par) pcall(function() p.TopSurface="Smooth" p.BottomSurface="Smooth" p.formFactor="Custom" p.Anchored=a p.CanCollide=c p.Size=s p.BrickColor=BrickColor.new(col) p.Transparency=t p.CFrame=cf or cn()  end)
 local m=Instance.new("SpecialMesh", p) pcall(function() m.Scale=ms or Vector3.new(1, 1, 1) m.MeshType="Wedge" end)
 return p
 end
 gui=function(ins, par, bc, bg, tc, fs, text, t, s, pos)
 local g=Instance.new(ins, par)  g.BorderColor=BrickColor.new(bc) g.BackgroundColor=BrickColor.new(bg) g.TextColor=BrickColor.new(tc) g.FontSize=fs g.Font="ArialBold" g.Text=text g.BackgroundTransparency=t g.Size=s g.Position=pos
 return g
 end
 weld=function(par, p1, cf)
 local w=Instance.new("Weld", par) pcall(function() w.Part0=w.Parent or par w.Part1=p1 w.C1=cf or cn() end)
 return w
 end
 mesh=function(ins, par, s, t, id, tid, of)
 pcall(function() for i, v in pairs(par:children()) do if v:isA("BlockMesh") or v:isA("CylinderMesh") or v:isA("SpecialMesh") then v:remove() end end end)
 local m=Instance.new(ins, par) pcall(function() m.Scale=s or Vector3.new(1, 1, 1) m.Offset=of or Vector3.new() m.MeshId=id or "" m.TextureId=tid or "" m.MeshType=t end)
 return m
 end
 sound=function(parent, id, pitch, volume)
 local s=Instance.new("Sound", parent) pcall(function() s.SoundId=id s.Volume=volume or 1 s.Pitch=pitch or 1 end)
 return s
 end
 
 function stick(from, to)
 local stickW=weld(from, to, to.CFrame:inverse()*from.CFrame)
 stickW.C0=from.CFrame:inverse()*from.CFrame
 return stickW
 end
 bp=Instance.new("BodyPosition") bp.D=200 bp.maxForce=vc(inf,inf,inf)
 base=part(delorean, false, true, vc(5, .5, 14), "Really black", 0, cn(0, 200, 0))
 wait()
 bp.Parent=base
 bp.position=(T.CFrame+T.CFrame.lookVector*20).p
 base.Name="BASE"
 bc=part(delorean, false, true, vc(7, .5, 6), "Really black")
 bcw=weld(bc, base, cn())
 bf=part(delorean, false, true, vc(7, .5, 2), "Really black")
 bfw=weld(bf, base, cn(0, 0, -7))
 local bb=part(delorean, false, true, vc(7, .5, 2), "Really black")
 local bbw=weld(bb, base, cn(0, 0, 7))
 local bf2=part(delorean, false, true, vc(6.8, 1, 1.5), "Really black")
 local bf2w=weld(bf2, bf, cn(0, .5, 0))
 local bc2=part(delorean, false, true, vc(5, 1, 5), "Really black")
 local bc2w=weld(bc2, base, cn(0, .75, -4.5))
 local bf3=part(delorean, false, true, vc(7, .5, 3), "Really black")
 local bf3w=weld(bf3, bf2, cn(0, .5, -.5))
 local enginesmoke=cylinder(delorean, false, true, vc(.5, 2, .5), "Hot pink")
 local enginesmokew=weld(enginesmoke, bb, cn(2, 0, .75)*ca(-rd(90), 0, 0))
 local enginesmoke=cylinder(delorean, false, true, vc(.5, 2, .5), "Hot pink")
 local enginesmokew=weld(enginesmoke, bb, cn(-2, 0, .75)*ca(-rd(90), 0, 0))
 
 local bf4=part(delorean, false, true, vc(7, .7, 3.5), "Really black")
 local bf4w=weld(bf4, bf3, cn(0, .6, .75))
 local bf5=part(delorean, false, true, vc(6, .7, 3), "Really black")
 local bf5w=weld(bf5, bf4, cn(0, 0, 3))
 
 local mprt=part(delorean, false, true, vc(7, 1, .5), "Really black", 0, cn(), vc(1, .1, 1))
 local mprtw=weld(mprt, bf4, cn(0, -.3, -2))
 local mprt=part(delorean, false, true, vc(7, 1, .35), "Really black", 0, cn(), vc(1, .1, 1))
 local mprtw=weld(mprt, bf4, cn(0, .3, -1.9))
 local mprt=part(delorean, false, true, vc(.2, .65, .5), "Really black", 0, cn(), vc(1, 1, 1))
 local mprtw=weld(mprt, bf4, cn(3.4, -.03, -1.9)*ca(rd(15), 0, 0))
 local mprt=part(delorean, false, true, vc(.2, .65, .5), "Really black", 0, cn(), vc(1, 1, 1))
 local mprtw=weld(mprt, bf4, cn(-3.4, -.03, -1.9)*ca(rd(15), 0, 0))
 local dmc=part(delorean, false, true, vc(2, .65, .5), "Really black", 0, cn(), vc(1, 1, 1))
 local dmcw=weld(dmc, bf4, cn(0, -.03, -1.9)*ca(rd(15), 0, 0))
 decal=Instance.new("Decal", dmc)
 decal.Texture="http://www.roblox.com/asset/?id=28924870"
 decal.Face="Front"
 local prt=part(delorean, false, true, vc(.5, 2, 1), "Really black")
 local prtw=weld(prt, bc, cn(3.25, 1.25, -2.5)*ca(0, 0, 0))
 local w=wedge(delorean, false, false, vc(.5, 1, .5), "Really black")
 local w2=weld(w, prt, cn(0, -.5, .75)*ca(0,pi,0))
 local prt=part(delorean, false, true, vc(.5, 2, 1), "Really black")
 local prtw=weld(prt, bc, cn(3.25, 1.25, -3)*ca(rd(-45), 0, 0))
 
 local prt=part(delorean, false, true, vc(.5, 2, 1), "Really black")
 local prtw=weld(prt, bc, cn(-3.25, 1.25, -2.5)*ca(0, 0, 0))
 local w=wedge(delorean, false, false, vc(.5, 1, .5), "Really black")
 local w2=weld(w, prt, cn(0, -.5, .75)*ca(0,pi,0))
 local prt=part(delorean, false, true, vc(.5, 2, 1), "Really black")
 local prtw=weld(prt, bc, cn(-3.25, 1.25, -3)*ca(rd(-45), 0, 0))
 
 local prt=part(delorean, false, true, vc(.5, 2, 1), "Really black")
 local prtw=weld(prt, bc, cn(3.25, 1.25, 2.5)*ca(0, 0, 0))
 local prt2=part(delorean, false, true, vc(.5, 2.2, 1.5), "Really black")
 local prt2w=weld(prt2, prt, cn(-.25, 1.85, .25)*ca(0, 0, rd(10)))
 local w=wedge(delorean, false, false, vc(.5, 2, 1), "Really black")
 local w2=weld(w, prt, cn(0, 0, -1))
 local prt=part(delorean, false, true, vc(.5, 2, 1), "Really black")
 local prtw=weld(prt, bc, cn(3.25, 1.25, 3)*ca(rd(45), 0, 0))
 
 local prt=part(delorean, false, true, vc(.5, 2, 1), "Really black")
 local prtw=weld(prt, bc, cn(-3.25, 1.25, 2.5)*ca(0, 0, 0))
 local prt2=part(delorean, false, true, vc(.5, 2.2, 1.5), "Really black")
 local prt2w=weld(prt2, prt, cn(.25, 1.85, .25)*ca(0, 0, rd(-10)))
 local w=wedge(delorean, false, false, vc(.5, 2, 1), "Really black")
 local w2=weld(w, prt, cn(0, 0, -1))
 local prt=part(delorean, false, true, vc(.5, 2, 1), "Really black")
 local prtw=weld(prt, bc, cn(-3.25, 1.25, 3)*ca(rd(45), 0, 0))
 local main=part(delorean, false, true, vc(6, .5, 1.5), "Really black")
 local mainw=weld(main, base, cn(0, 4, 2.75))
 local stand=part(delorean, false, true, vc(.5, .5, 5.5), "Really black")
 local standw=weld(stand, base, cn(3,3,5.5)*ca(rd(22),rd(5),0))
 local stand=part(delorean, false, true, vc(.5, .5, 5.5), "Really black")
 local standw=weld(stand, base, cn(-3,3,5.5)*ca(rd(22),rd(-5),0))
 local backprt=part(delorean, false, true, vc(6, 2, .5), "Hot pink")
 local backprt=weld(backprt, base, cn(0, 3, 2))
 
 local window=part(delorean, false, true, vc(5, 2.5, .25), "Hot pink", .5)
 local windoww=weld(window, base, cn(0, 3, -1.25)*ca(rd(45), 0, 0))
 local border=part(delorean, false, false, vc(5, .5, .5), "Really black")
 local borderw=weld(border, window, cn(0, 1.5, 0))
 local border=part(delorean, false, false, vc(.5, 3, .5), "Really black")
 local borderw=weld(border, window, cn(2.5, 0, 0)*ca(0, 0, rd(10)))
 local border=part(delorean, false, false, vc(.5, 3, .5), "Really black")
 local borderw=weld(border, window, cn(-2.5, 0, 0)*ca(0, 0, rd(-10)))
 local prt=weld()
 local mainjoint=part(delorean, false, true, vc(2, .5, 2), "Really black")
 local mainjointw=weld(mainjoint, base, cn(0, 4, 1))
 
 local seat=part(delorean, false, false, vc(2, .5, 2), "Hot pink")
 local seatw=weld(seat, base, cn(1.5, .25, 1))
 local backseat=part(delorean, false, false, vc(2, 2, .5), "Hot pink")
 local backseatw=weld(backseat, seat, cn(0, 1, 1)*ca(rd(10), 0, 0))
 local headseat=part(delorean, false, false, vc(1.5, 1.25, .5), "Hot pink")
 local headseatw=weld(headseat, seat, cn(0, 2.5, 1.15))
 local seat=part(delorean, false, false, vc(2, .5, 2), "Hot pink")
 local seatw=weld(seat, base, cn(-1.5, .25, 1))
 local backseat=part(delorean, false, false, vc(2, 2, .5), "Hot pink")
 local backseatw=weld(backseat, seat, cn(0, 1, 1)*ca(rd(10), 0, 0))
 local headseat=part(delorean, false, false, vc(1.5, 1.25, .5), "Hot pink")
 local headseatw=weld(headseat, seat, cn(0, 2.5, 1.15))
 local line=part(delorean, false, false, vc(1, 1, 14), "Hot pink")
 local linew=weld(line, base, cn(0, .5, 0))
 
 local back=part(delorean, false, true, vc(5, 1.5, 6), "Really black")
 local backw=weld(back, base, cn(0, 1, 5))
 local bb33s=part(delorean, false, true, vc(7, 1.5, 2), "Really black")
 local bb33sw=weld(bb33s, base, cn(0, 1, 7))
 local bbs=part(delorean, false, true, vc(7, .5, 1), "Really black")
 local bbsw=weld(bbs, base, cn(0, .25, 8.25)*ca(-rd(35), 0, 0))
 local bbs=part(delorean, false, true, vc(7, 1.5, .5), "Really black")
 local bbsw=weld(bbs, base, cn(0, 1, 8.25))
 local bb3s=part(delorean, false, true, vc(7, .5, .5), "Really black")
 local bb3sw=weld(bb3s, bb33s, cn(0, 1, 1.25))
 local bb3s=part(delorean, false, true, vc(7, .5, 6), "Really black")
 local bb3sw=weld(bb3s, bb33s, cn(0, 1, -2))
 decal=Instance.new("Decal", bb3s)
 decal.Texture="http://www.roblox.com/asset/?id=27893351"
 decal.Face="Top"
 rocket=wedge(delorean, false, true, vc(2,2,4), "Hot pink")
 rocketw=weld(rocket, bb3s, cn(2,1,1.5))
 r2=wedge(delorean, false, true, vc(2,1,2), "Really black")
 r2w=weld(r2,rocket,cn(0,0,2.5)*ca(pi/2,pi,0))
 rocket=wedge(delorean, false, true, vc(2,2,4), "Hot pink")
 rocketw=weld(rocket, bb3s, cn(-2,1,1.5))
 r2=wedge(delorean, false, true, vc(2,1,2), "Really black")
 r2w=weld(r2,rocket,cn(0,0,2.5)*ca(pi/2,pi,0))
 pp=part(delorean, false, true, vc(2,1,5), "Hot pink")
 ppw=weld(pp,bb3s,cn(0,.5,0))
 reactor=part(delorean, false, true, vc(2,1.5,2), "Hot pink")
 reactorw=weld(reactor,pp,cn(0,-.25,1.5))
 reactorm=mesh("SpecialMesh", reactor, vc(.4,.1,.4), "FileMesh", "http://www.roblox.com/Asset/?id=10207677")
 cyl=cylinder(delorean,false,true,vc(.8,1.5,.8),"Hot pink")
 cylw=weld(cyl,reactor,cn(0,1.5,0))
 decal=Instance.new("Decal", cyl)
 decal.Texture="http://www.roblox.com/asset/?id=37389443"
 decal.Face="Front"
 decal=Instance.new("Decal", cyl)
 decal.Texture="http://www.roblox.com/asset/?id=37389443"
 decal.Face="Back"
 decal=Instance.new("Decal", cyl)
 decal.Texture="http://www.roblox.com/asset/?id=37389443"
 decal.Face="Right"
 decal=Instance.new("Decal", cyl)
 decal.Texture="http://www.roblox.com/asset/?id=37389319"
 decal.Face="Left"
 
 cyl2=cylinder(delorean,false,true,vc(.5,.5,.5),"Really black")
 cyl2w=weld(cyl2,cyl,cn(0,.75,0))
 but=part(delorean,false,true,vc(.4,.3,1),"Bright red")
 butw=weld(but,cyl,cn(0,-.5,.5))
 
 local wed=wedge(delorean, false, true, vc(7, .5, 3), "Really black")
 local wedw=weld(wed, bf2, cn(0, 0, -.5)*ca(0, 0, pi))
 local trunk=wedge(delorean, false, true, vc(7, .5, 6.35), "Really black")
 local trunkw=weld(trunk, bf4, cn(0, .6, 1.5))
 
 --TIRE
 local prts=6
 local rad=1.6
 local tfr=cylinder(delorean, false, true, vc(2.5, 1, 2.5), "Really black")
 local tfrw=weld(tfr, base, cn(3,.25,-4.5)*ca(0,0,pi/2))
 local met=cylinder(delorean, false, true, vc(1.5, 1.1, 1.5), "Hot pink")
 local metw=weld(met, tfr, cn())
 for i=0,pi,pi/prts do
 local p=part(delorean, false, false, vc(1.1,1.1,.5), "Hot pink")
 p.CFrame=tfr.CFrame*cn(rad*sn(i), 0, rad*cs(i))
 p.CFrame=CFrame.new(p.CFrame.p, tfr.CFrame.p)
 stick(p, base)
 end
 
 local tfl=cylinder(delorean, false, true, vc(2.5, 1, 2.5), "Really black")
 local tflw=weld(tfl, base, cn(-3,.25,-4.5)*ca(0,0,pi/2))
 local met=cylinder(delorean, false, true, vc(1.5, 1.1, 1.5), "Hot pink")
 local metw=weld(met, tfl, cn())
 for i=0,pi,pi/prts do
 local p=part(delorean, false, false, vc(1.1,1.1,.5), "Hot pink")
 p.CFrame=tfl.CFrame*cn(rad*sn(i), 0, rad*cs(i))
 p.CFrame=CFrame.new(p.CFrame.p, tfl.CFrame.p)
 stick(p, base)
 end
 
 local tbr=cylinder(delorean, false, true, vc(2.5, 1, 2.5), "Really black")
 local tbrw=weld(tbr, base, cn(3,.25,4.5)*ca(0,0,pi/2))
 local met=cylinder(delorean, false, true, vc(1.5, 1.1, 1.5), "Hot pink")
 local metw=weld(met, tbr, cn())
 for i=0,pi,pi/prts do
 local p=part(delorean, false, false, vc(1.1,1.1,.5), "Hot pink")
 p.CFrame=tbr.CFrame*cn(rad*sn(i), 0, rad*cs(i))
 p.CFrame=CFrame.new(p.CFrame.p, tbr.CFrame.p)
 stick(p, base)
 end
 
 local tbl=cylinder(delorean, false, true, vc(2.5, 1, 2.5), "Really black")
 local tblw=weld(tbl, base, cn(-3,.25,4.5)*ca(0,0,pi/2))
 local met=cylinder(delorean, false, true, vc(1.5, 1.1, 1.5), "Hot pink")
 local metw=weld(met, tbl, cn())
 for i=0,pi,pi/prts do
 local p=part(delorean, false, false, vc(1.1,1.1,.5), "Hot pink")
 p.CFrame=tbl.CFrame*cn(rad*sn(i), 0, rad*cs(i))
 p.CFrame=CFrame.new(p.CFrame.p, tbl.CFrame.p)
 stick(p, base)
 end
 atfr=function(cf)
 tfrw.C1=cn(3,.25,-4.5)*ca(0,0,pi/2)*cf
 end
 atfl=function(cf)
 tflw.C1=cn(-3,.25,-4.5)*ca(0,0,pi/2)*cf
 end
 atbr=function(cf)
 tblw.C1=cn(3,.25,4.5)*ca(0,0,pi/2)*cf
 end
 atbl=function(cf)
 tblw.C1=cn(-3,.25,4.5)*ca(0,0,pi/2)*cf
 end
 local trunkw=weld(trunk, bf4, cn(0, .6, 1.25))
 --SEATS
 --DOOR
 local DoorRight=Instance.new("Model", delorean)
 local djr=part(DoorRight, false, false, vc(1, 1, 1), "Really black", 1)
 local djrw=weld(djr, mainjoint, cn(1,0,0)*ca(0,0,0))
 local dp=part(DoorRight, false, true, vc(2, .5, 2), "Really black")
 local dpw=weld(dp, djr, cn(1, 0, 0))
 local dp2=part(DoorRight, false, true, vc(.5, .5, 3.25), "Really black")
 local dp2w=weld(dp2, dp, cn(1, -1, -2)*ca(rd(-45),rd(-10),0))
 local dp3=part(DoorRight, false, true, vc(.5, 2.2, .5), "Really black")
 local dp3w=weld(dp3, dp, cn(1, -.85, .75)*ca(0, 0, rd(15)))
 local dw=wedge(DoorRight, false, true, vc(.5, 2, 1), "Really black")
 local dww=weld(dw, dp, cn(1.25, -2.75, .5)*ca(pi,0,0))
 local dw=wedge(DoorRight, false, true, vc(.5,1,.5), "Really black")
 local dww=weld(dw, dp, cn(1.25, -3.25, -2.75)*ca(pi, pi, 0))
 local dp4=part(DoorRight, false, true, vc(.5,1,.5), "Really black")
 local dp4w=weld(dp4, dp, cn(1.25, -2.25, -2.75))
 local dp5=part(DoorRight, false, true, vc(.5,2,2.5), "Really black")
 local dp5w=weld(dp5, dp, cn(1.25, -2.75, -1.25))
 local dwindow=wedge(DoorRight, false, true, vc(.25, 2, 2), "Really black", .5)
 local dwindoww=weld(dwindow, dp, cn(1, -1, -1.75)*ca(0, 0, rd(15)))
 local dwindow=part(DoorRight, false, true, vc(.25, 2, 1.5), "Really black", .5)
 local dwindoww=weld(dwindow, dp, cn(1, -1, 0)*ca(0, 0, rd(15)))
 local glass=part(DoorRight, false, true, vc(1, .5, .2), "Hot pink")
 local glassw=weld(glass, dp, cn(1.5, -1.5, -2)*ca(0, rd(-35), 0))
 
 local actr=false
 local debr=false
 function clickr()
 if actr==false then
 if debr==false then
 debr=true
 for i=0, 1, .1 do
 djrw.C1=cn(1,0,0)*ca(0,0,rd(90)*i)
 wait()
 end
 debr=false
 actr=true
 end
 elseif actr==true then
 if debr==false then
 debr=true
 for i=1, 0, -.1 do
 djrw.C1=cn(1,0,0)*ca(0,0,rd(90)*i)
 wait()
 end
 debr=false
 actr=false
 end
 end
 end
 
 for i, v in pairs(DoorRight:children()) do
 local cdetector=Instance.new("ClickDetector", v)
 cdetector.MouseClick:connect(clickr)
 end
 
 local DoorLeft=Instance.new("Model", delorean)
 local djl=part(DoorLeft, false, false, vc(1, 1, 1), "Really black", 1)
 local djlw=weld(djl, mainjoint, cn(-1,0,0))
 local dp=part(DoorLeft, false, true, vc(2, .5, 2), "Really black")
 local dpw=weld(dp, djl, cn(-1, 0, 0))
 local dp2=part(DoorLeft, false, true, vc(.5, .5, 3.25), "Really black")
 local dp2w=weld(dp2, dp, cn(-1, -1, -2)*ca(rd(-45),rd(10),0))
 local dp3=part(DoorLeft, false, true, vc(.5, 2.2, .5), "Really black")
 local dp3w=weld(dp3, dp, cn(-1, -.85, .75)*ca(0, 0, rd(-15)))
 local dw=wedge(DoorLeft, false, true, vc(.5, 2, 1), "Really black")
 local dww=weld(dw, dp, cn(-1.25, -2.75, .5)*ca(pi,0,0))
 local dw=wedge(DoorLeft, false, true, vc(.5,1,.5), "Really black")
 local dww=weld(dw, dp, cn(-1.25, -3.25, -2.75)*ca(pi, pi, 0))
 local dp4=part(DoorLeft, false, true, vc(.5,1,.5), "Really black")
 local dp4w=weld(dp4, dp, cn(-1.25, -2.25, -2.75))
 local dp5=part(DoorLeft, false, true, vc(.5,2,2.5), "Really black")
 local dp5w=weld(dp5, dp, cn(-1.25, -2.75, -1.25))
 local dwindow=wedge(DoorLeft, false, true, vc(.25, 2, 2), "Really black", .5)
 local dwindoww=weld(dwindow, dp, cn(-1, -1, -1.75)*ca(0, 0, rd(-15)))
 local dwindow=part(DoorLeft, false, true, vc(.25, 2, 1.5), "Really black", .5)
 local dwindoww=weld(dwindow, dp, cn(-1, -1, 0)*ca(0, 0, rd(-15)))
 local glass=part(DoorLeft, false, true, vc(1, .5, .2), "Hot pink")
 local glassw=weld(glass, dp, cn(-1.5, -1.5, -2)*ca(0, rd(35), 0))
 
 local actl=false
 local debl=false
 function clickl()
 if actl==false then
 if debl==false then
 debl=true
 for i=0, 1, .1 do
 djlw.C1=cn(-1,0,0)*ca(0,0,rd(-90)*i)
 wait()
 end
 debl=false
 actl=true
 end
 elseif actl==true then
 if debl==false then
 debl=true
 for i=1, 0, -.1 do
 djlw.C1=cn(-1,0,0)*ca(0,0,rd(-90)*i)
 wait()
 end
 debl=false
 actl=false
 end
 end
 end
 
 for i, v in pairs(DoorLeft:children()) do
 local cdetector=Instance.new("ClickDetector", v)
 cdetector.MouseClick:connect(clickl)
 end
 
 local bf=Instance.new("BodyForce")
 local bav=Instance.new("BodyAngularVelocity") bav.angularvelocity=vc(0,0,0) bav.maxTorque=vc(math.huge,math.huge,math.huge)
 local vs=Instance.new("VehicleSeat", delorean)
 vs.HeadsUpDisplay=false
 vs.CanCollide=false
 vs.Transparency=1
 vs.Size=Vector3.new(2, .5, 2)
 weld(vs, base, cn(-1.5, 0, 1))
 local ps=Instance.new("VehicleSeat", delorean)
 ps.HeadsUpDisplay=false
 ps.CanCollide=false
 ps.Size=Vector3.new(2, .5, 2)
 ps.Transparency=1
 weld(ps, base, cn(1.5, 0, 1))
 torsos={}
 ps.ChildAdded:connect(function(w)
 if w.Name=="SeatWeld" then
 torso=w.Part1
 if torso then
         for i, v2 in pairs(torso.Parent:children()) do
                 if v2:isA("BasePart") then
                         for i, v3 in pairs(v2:children()) do
                                 if v3:isA("CFrameValue") then
                                         v3:remove()
                                 end
                         end
                 end
         end
 end
 table.insert(torsos, torso)
 w.C1=w.C1*CFrame.new(0, 0, .5)
 end
 end)
 running=false
 vs.ChildAdded:connect(function(w)
 if w.Name=="SeatWeld" then
 torso=w.Part1
 w.C1=w.C1*CFrame.new(0, 0, .5)
 if torso then
         for i, v2 in pairs(torso.Parent:children()) do
                 if v2:isA("BasePart") then
                         for i, v3 in pairs(v2:children()) do
                                 if v3:isA("CFrameValue") then
                                         v3:remove()
                                 end
                         end
                 end
         end
 table.insert(torsos, torso)
 local player=game.Players:getPlayerFromCharacter(torso.Parent)
 screengui=Instance.new("ScreenGui", player.PlayerGui) screengui.Name=modelname
 speedometer=gui("TextLabel", screengui, "Black", "Black", "Really black", "Size48", "0", 1, UDim2.new(0, 100, 0, 100), UDim2.new(0, 50, .85, 0))
 hourlabel=gui("TextLabel", screengui, "Black", "Black", "Really black", "Size48", "HH", 1, UDim2.new(0, 100, 0, 50), UDim2.new(.7, 0, .8, 0))
 minutelabel=gui("TextLabel", hourlabel, "Black", "Black", "Really black", "Size48", "MM", 1, UDim2.new(1, 0, 1, 0), UDim2.new(1, 0, 0, 0))
 secondlabel=gui("TextLabel", minutelabel, "Black", "Black", "Really black", "Size48", "SS", 1, UDim2.new(1, 0, 1, 0), UDim2.new(1, 0, 0, 0))
 hourbox=gui("TextBox", hourlabel, "Black", "Black", "Really red", "Size48", "24", 1, UDim2.new(1, 0, 1, 0), UDim2.new(0, 0, 1, 0))
 minutebox=gui("TextBox", minutelabel, "Black", "Black", "Really red", "Size48", "00", 1, UDim2.new(1, 0, 1, 0), UDim2.new(0, 0, 1, 0))
 secondbox=gui("TextBox", secondlabel, "Black", "Black", "Really red", "Size48", "00", 1, UDim2.new(1, 0, 1, 0), UDim2.new(0, 0, 1, 0))
 running=true
 run()
 end
 end
 end)
 vs.ChildRemoved:connect(function(w)
 if w.Name=="SeatWeld" then
 torso=w.Part1
 if torso then
 for i, v in pairs(torsos) do
         if v==torso then
                 table.remove(torsos,i)
         end
 end
 local player=game.Players:getPlayerFromCharacter(torso.Parent)
 player.PlayerGui[modelname]:remove()
 running=false
 end
 end
 end)
 ps.ChildRemoved:connect(function(w)
 if w.Name=="SeatWeld" then
 torso=w.Part1
 if torso then
 for i, v in pairs(torsos) do
         if v==torso then
                 table.remove(torsos,i)
         end
 end
 end
 end
 end)
 c(function()wait(.5) bp:remove()end)
 function makelightning(from, to, thick, col)
 local magnitude=(from.p-to.p).magnitude
 local distance=(from.p+to.p)/2
 local pattern=part(workspace, true, false, vc(.2, .2, magnitude), "Hot pink", 1, cn(distance, from.p))
 local fromPosProx=from.p
 for i=1, 4 do
 local fromPosProx2=fromPosProx
 local random=vc(rn(-1, 1), rn(-1, 1), rn(-1, 1))
 local findSize=pattern.Size.z/3
 local findOffSet=pattern.CFrame.lookVector*-1
 local compute=i*findSize*findOffSet
 local newfromPos=from.p
 local newEndPos=cn(random+compute+newfromPos).p
 local magnitude=(fromPosProx2-newEndPos).magnitude
 local distance=(fromPosProx2+newEndPos)/2
 local lightning=part(workspace, true, false, vc(1, 1, 1), col or "Bright yellow", 0, cn(distance, fromPosProx2), vc(thick, thick, magnitude))
 fromPosProx=newEndPos
 game.Debris:addItem(lightning, .5)
 end
 pattern:remove()
 end
 function play(soundid, pitch, volume)
 local sound=sound(workspace, soundid, pitch, volume)
 sound:play()
 c(function() wait(5) sound:remove() end)
 end
 
 
 trm=Instance.new("Model", delorean)
 function trail(prt, cf, thick, col)
 local old=(prt.CFrame*(cf or cn())).p
 local trail=part(trm, true, false, vc(1, 1, 1), col or "Hot pink", 0, cn(old)*ca(rn(-360, 360),rn(-360, 360),rn(-360, 360)), vc(thick, thick, thick))
 c(function()
 for i=1, 0, -.001 do pc(function() trail.Mesh.Scale=trail.Mesh.Scale*vc(i, i, i) end) wait() end
 trail:remove()
 end)
 end
 
 Targets={}
 timedeb=false
 num=0
 maxnum=400
 origin=0
 function stick(from, to)
 local stickW=weld(from, to, to.CFrame:inverse()*from.CFrame)
 stickW.C0=from.CFrame:inverse()*from.CFrame
 return stickW
 end
 local bp=Instance.new("BodyPosition") bp.D=100 bp.maxForce=vc(inf,inf,inf)
 timedeb=false
 
 function run()
 num=0
 c(function()
 for i, v in pairs(workspace:children()) do
         if v:isA("Model") then
                 for i, v2 in pairs(v:children()) do
                         if v2:isA("BasePart") then
                                 for i, v3 in pairs(v2:children()) do
                                         if v3:isA("CFrameValue") then
                                                 v3:remove()
                                         end
                                 end
                         end
                 end
         end
 end
 timedeb=true
 while true do
 --TimeContinium-----------------------------
 if num<=0 and timedeb==true then
         for i, v in pairs(workspace:children()) do
                 if v:isA("BasePart") then
                         if v.Anchored==false then
                                 table.insert(Targets, v)
                                 local Origin = Instance.new("CFrameValue")
                                 Origin.Parent = v
                                 Origin.Name = "Origin CFrame"
                                 Origin.Value = v.CFrame
                         end
                 end
                 for i, t in pairs(torsos) do
                         if v:isA("Model") and v~=t.Parent and v~=delorean then
                                 for i, v2 in pairs(v:children()) do
                                         if v2:isA("BasePart") then
                                                 table.insert(Targets, v2)
                                                 local Origin = Instance.new("CFrameValue")
                                                 Origin.Parent = v2
                                                 Origin.Name = "Origin CFrame"
                                                 Origin.Value = v2.CFrame
                                         end
                                 end
                         end
                 end
         end
 ---------
 while num<maxnum and timedeb==true do ---print(num)
         for i, v in pairs(workspace:children()) do
                 if v:isA("BasePart") and v:findFirstChild("Origin CFrame")==nil then
                         if v.Anchored==false then
                                 table.insert(Targets, v)
                                 local Origin = Instance.new("CFrameValue")
                                 Origin.Parent = v
                                 Origin.Name = "Origin CFrame"
                                 Origin.Value = v.CFrame
                         end
                 end
                 for i, t in pairs(torsos) do
                         if v:isA("Model") and v~=t.Parent and v~=delorean then
                                 for i, v2 in pairs(v:children()) do
                                         if v2:isA("BasePart") and v2:findFirstChild("Origin CFrame")==nil then
                                                 table.insert(Targets, v2)
                                                 local Origin = Instance.new("CFrameValue")
                                                 Origin.Parent = v2
                                                 Origin.Name = "Origin CFrame"
                                                 Origin.Value = v2.CFrame
                                         end
                                 end
                         end
                 end
         end
 for i, v in pairs(Targets) do
 local History = Instance.new("CFrameValue")
 History.Parent = v
 History.Name = num
 History.Value = v.CFrame
 end
 num = num + 30
 wait()
 end
 end
 wait()
 end
 end)
 while running do
 local speed=base.Velocity.magnitude
 speedometer.Text=math.floor(speed)
 if speed>65 and speed<80 then play("http://www.roblox.com/asset/?id=2800815", 1, .5)
 makelightning(base.CFrame*CFrame.new(0,0,10), base.CFrame*CFrame.new(rn(-10,10),rn(-10,10),rn(-2,10)), 1)
 trail(tbr,cn(-1.5, 0, -10),2.5,"Bright orange")
 trail(tbl,cn(-1.9, 0, -10),2.5,"Bright orange")
 end
 if speed>80 and speed<88 then play("http://roblox.com/asset/?id=10209481")
 local trm2=trm:clone() trm2.Parent=workspace
 origin=base.Position
 print(origin)
 game.Debris:addItem(trm2, 5)
 bp.position=vc(0,0,-99999)
 bp.Parent=base
 timedeb=false
 c(function()
 for i=0,1,.005 do
 game.Lighting.TimeOfDay=math.floor(hourbox.Text*i)..":"..math.floor(minutebox.Text*i)..":"..math.floor(secondbox.Text*i)
 wait()
 end
 end)
 while num > 0 do --print(num)
 wait()
 num = num - 1
 for i, v in pairs(Targets) do
 v.Anchored=true
 local History = v:findFirstChild(num)
 if History ~= nil then
 v.CFrame = History.Value
 History:remove()
 end
 end
 end
 for i, v in pairs(Targets) do
 local Origin = v:findFirstChild("Origin CFrame")
 if Origin ~= nil then
 v.CFrame = Origin.Value
 v:makeJoints()
 Origin:remove()
 end
 end
 for i, v in pairs(Targets) do
 v.Anchored=false
 end
 play("http://www.roblox.com/asset/?id=2101148", 1, 1)
 exp=Instance.new("Explosion", workspace)
 exp.BlastPressure=0
 exp.Position=origin
 Targets = {}
 timedeb=true
 bp.position=origin
 origin=0
 base.Velocity=vc(0,0,0)
 bf.force=base.CFrame.lookVector*0
 wait(1)
 bp:remove()
 end
 if vs.Steer==0 then bav.angularvelocity=vc(0,0,0) atfr(ca(0, 0, 0)) atfl(ca(0, 0, 0)) end
 if vs.Steer==1 then atfr(ca(rd(-25), 0, 0)) atfl(ca(rd(-25), 0, 0)) end
 if vs.Steer==-1 then atfr(ca(rd(25), 0, 0)) atfl(ca(rd(25), 0, 0)) end
 if vs.Throttle==1 then bav.Parent=base bf.Parent=base
 if vs.Steer==1 then bav.angularvelocity=vc(0,-2,0) end
 if vs.Steer==-1 then bav.angularvelocity=vc(0,2,0) end
 bf.force=base.CFrame.lookVector*40000
 end
 if vs.Throttle==0 then bav.Parent=base bf.Parent=base
 bf.force=base.CFrame.lookVector*0
 end
 if vs.Throttle==-1 then bav.Parent=base bf.Parent=base
 if vs.Steer==1 then bav.angularvelocity=vc(0,2,0) end
 if vs.Steer==-1 then bav.angularvelocity=vc(0,-2,0) end
 bf.force=base.CFrame.lookVector*-40000
 end
 wait()
 end
 end