View difference between Paste ID: 0ZZGUbQH and CRJaZN0z
SHOW: | | - or go back to the newest paste.
1
local modelname="DeLoreanTimeMachine"
2
pcall(function() workspace.Base.CFrame=CFrame.new(0,-2,0) end)
3
print(modelname.."_LOADED")
4-
local plr=game:service("Players")["BackFlame"]
4+
local plr=game:service("Players")["Deishuu_Kaiki"]
5
local char=plr.Character
6
local T=char.Torso
7
local c=function(f) coroutine.resume(coroutine.create(f)) end
8
local pc=pcall
9
pc(function() workspace:findFirstChild(modelname):remove() end)
10
local mouse=nil
11
local pi=math.pi
12
local rd=math.rad
13
local sn=math.sin
14
local cs=math.cos
15
local rn=math.random
16
local ti=table.insert
17
local tr=table.remove
18
local inf=math.huge
19
local cn=CFrame.new
20
local vc=Vector3.new
21
local ca=CFrame.Angles
22
local delorean=Instance.new("Model", workspace) delorean.Name=modelname
23
local screengui=Instance.new("ScreenGui") screengui.Name=modelname
24
part=function(par, a, c, s, col, t, cf, ms)
25
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)
26
local m=Instance.new("BlockMesh", p) pcall(function() m.Scale=ms or Vector3.new(1, 1, 1) end)
27
return p
28
end
29
cylinder=function(par, a, c, s, col, t, cf, ms)
30
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)
31
local m=Instance.new("CylinderMesh", p) pcall(function() m.Scale=ms or Vector3.new(1, 1, 1) end)
32
return p
33
end
34
wedge=function(par, a, c, s, col, t, cf, ms)
35
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)
36
local m=Instance.new("SpecialMesh", p) pcall(function() m.Scale=ms or Vector3.new(1, 1, 1) m.MeshType="Wedge" end)
37
return p
38
end
39
gui=function(ins, par, bc, bg, tc, fs, text, t, s, pos)
40
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 
41
return g
42
end
43
weld=function(par, p1, cf)
44
local w=Instance.new("Weld", par) pcall(function() w.Part0=w.Parent or par w.Part1=p1 w.C1=cf or cn() end)
45
return w
46
end
47
mesh=function(ins, par, s, t, id, tid, of)
48
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)
49
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)
50
return m
51
end
52
sound=function(parent, id, pitch, volume)
53
local s=Instance.new("Sound", parent) pcall(function() s.SoundId=id s.Volume=volume or 1 s.Pitch=pitch or 1 end)
54
return s
55
end
56
function stick(from, to)
57
local stickW=weld(from, to, to.CFrame:inverse()*from.CFrame)
58
stickW.C0=from.CFrame:inverse()*from.CFrame
59
return stickW
60
end
61
bp=Instance.new("BodyPosition") bp.D=200 bp.maxForce=vc(inf,inf,inf)
62
base=part(delorean, false, true, vc(5, .5, 14), "Really Really red", 0, cn(0, 200, 0))
63
wait()
64
bp.Parent=base
65
bp.position=(T.CFrame+T.CFrame.lookVector*20).p
66
base.Name="BASE"
67
bc=part(delorean, false, true, vc(7, .5, 6), "Really Really red")
68
bcw=weld(bc, base, cn())
69
bf=part(delorean, false, true, vc(7, .5, 2), "Really Really red")
70
bfw=weld(bf, base, cn(0, 0, -7))
71
local bb=part(delorean, false, true, vc(7, .5, 2), "Really Really red")
72
local bbw=weld(bb, base, cn(0, 0, 7))
73
local bf2=part(delorean, false, true, vc(6.8, 1, 1.5), "Really Really red")
74
local bf2w=weld(bf2, bf, cn(0, .5, 0))
75
local bc2=part(delorean, false, true, vc(5, 1, 5), "Really Really red")
76
local bc2w=weld(bc2, base, cn(0, .75, -4.5))
77
local bf3=part(delorean, false, true, vc(7, .5, 3), "Really Really red")
78
local bf3w=weld(bf3, bf2, cn(0, .5, -.5))
79
local enginesmoke=cylinder(delorean, false, true, vc(.5, 2, .5), "Really red")
80
local enginesmokew=weld(enginesmoke, bb, cn(2, 0, .75)*ca(-rd(90), 0, 0))
81
local enginesmoke=cylinder(delorean, false, true, vc(.5, 2, .5), "Really red")
82
local enginesmokew=weld(enginesmoke, bb, cn(-2, 0, .75)*ca(-rd(90), 0, 0))
83
local bf4=part(delorean, false, true, vc(7, .7, 3.5), "Really red")
84
local bf4w=weld(bf4, bf3, cn(0, .6, .75))
85
local bf5=part(delorean, false, true, vc(6, .7, 3), "Really red")
86
local bf5w=weld(bf5, bf4, cn(0, 0, 3))
87
local mprt=part(delorean, false, true, vc(7, 1, .5), "Really red", 0, cn(), vc(1, .1, 1))
88
local mprtw=weld(mprt, bf4, cn(0, -.3, -2))
89
local mprt=part(delorean, false, true, vc(7, 1, .35), "Really red", 0, cn(), vc(1, .1, 1))
90
local mprtw=weld(mprt, bf4, cn(0, .3, -1.9))
91
local mprt=part(delorean, false, true, vc(.2, .65, .5), "Really red", 0, cn(), vc(1, 1, 1))
92
local mprtw=weld(mprt, bf4, cn(3.4, -.03, -1.9)*ca(rd(15), 0, 0))
93
local mprt=part(delorean, false, true, vc(.2, .65, .5), "Really red", 0, cn(), vc(1, 1, 1))
94
local mprtw=weld(mprt, bf4, cn(-3.4, -.03, -1.9)*ca(rd(15), 0, 0))
95
local dmc=part(delorean, false, true, vc(2, .65, .5), "Really Really red", 0, cn(), vc(1, 1, 1))
96
local dmcw=weld(dmc, bf4, cn(0, -.03, -1.9)*ca(rd(15), 0, 0))
97
decal=Instance.new("Decal", dmc)
98
decal.Texture="http://www.roblox.com/asset/?id=28924870"
99
decal.Face="Front"
100
local prt=part(delorean, false, true, vc(.5, 2, 1), "Really Really red")
101
local prtw=weld(prt, bc, cn(3.25, 1.25, -2.5)*ca(0, 0, 0))
102
local w=wedge(delorean, false, false, vc(.5, 1, .5), "Really Really red")
103
local w2=weld(w, prt, cn(0, -.5, .75)*ca(0,pi,0))
104
local prt=part(delorean, false, true, vc(.5, 2, 1), "Really Really red")
105
local prtw=weld(prt, bc, cn(3.25, 1.25, -3)*ca(rd(-45), 0, 0))
106
local prt=part(delorean, false, true, vc(.5, 2, 1), "Really Really red")
107
local prtw=weld(prt, bc, cn(-3.25, 1.25, -2.5)*ca(0, 0, 0))
108
local w=wedge(delorean, false, false, vc(.5, 1, .5), "Really Really red")
109
local w2=weld(w, prt, cn(0, -.5, .75)*ca(0,pi,0))
110
local prt=part(delorean, false, true, vc(.5, 2, 1), "Really Really red")
111
local prtw=weld(prt, bc, cn(-3.25, 1.25, -3)*ca(rd(-45), 0, 0))
112
local prt=part(delorean, false, true, vc(.5, 2, 1), "Really Really red")
113
local prtw=weld(prt, bc, cn(3.25, 1.25, 2.5)*ca(0, 0, 0))
114
local prt2=part(delorean, false, true, vc(.5, 2.2, 1.5), "Really Really red")
115
local prt2w=weld(prt2, prt, cn(-.25, 1.85, .25)*ca(0, 0, rd(10)))
116
local w=wedge(delorean, false, false, vc(.5, 2, 1), "Really Really red")
117
local w2=weld(w, prt, cn(0, 0, -1))
118
local prt=part(delorean, false, true, vc(.5, 2, 1), "Really Really red")
119
local prtw=weld(prt, bc, cn(3.25, 1.25, 3)*ca(rd(45), 0, 0))
120
local prt=part(delorean, false, true, vc(.5, 2, 1), "Really Really red")
121
local prtw=weld(prt, bc, cn(-3.25, 1.25, 2.5)*ca(0, 0, 0))
122
local prt2=part(delorean, false, true, vc(.5, 2.2, 1.5), "Really Really red")
123
local prt2w=weld(prt2, prt, cn(.25, 1.85, .25)*ca(0, 0, rd(-10)))
124
local w=wedge(delorean, false, false, vc(.5, 2, 1), "Really Really red")
125
local w2=weld(w, prt, cn(0, 0, -1))
126
local prt=part(delorean, false, true, vc(.5, 2, 1), "Really Really red")
127
local prtw=weld(prt, bc, cn(-3.25, 1.25, 3)*ca(rd(45), 0, 0))
128
local main=part(delorean, false, true, vc(6, .5, 1.5), "Really Really red")
129
local mainw=weld(main, base, cn(0, 4, 2.75))
130
local stand=part(delorean, false, true, vc(.5, .5, 5.5), "Really Really red")
131
local standw=weld(stand, base, cn(3,3,5.5)*ca(rd(22),rd(5),0))
132
local stand=part(delorean, false, true, vc(.5, .5, 5.5), "Really Really red")
133
local standw=weld(stand, base, cn(-3,3,5.5)*ca(rd(22),rd(-5),0))
134
local backprt=part(delorean, false, true, vc(6, 2, .5), "Really red")
135
local backprt=weld(backprt, base, cn(0, 3, 2))
136
local window=part(delorean, false, true, vc(5, 2.5, .25), "Really red", .5)
137
local windoww=weld(window, base, cn(0, 3, -1.25)*ca(rd(45), 0, 0))
138
local border=part(delorean, false, false, vc(5, .5, .5), "Really Really red")
139
local borderw=weld(border, window, cn(0, 1.5, 0))
140
local border=part(delorean, false, false, vc(.5, 3, .5), "Really Really red")
141
local borderw=weld(border, window, cn(2.5, 0, 0)*ca(0, 0, rd(10)))
142
local border=part(delorean, false, false, vc(.5, 3, .5), "Really Really red")
143
local borderw=weld(border, window, cn(-2.5, 0, 0)*ca(0, 0, rd(-10)))
144
local prt=weld()
145
local mainjoint=part(delorean, false, true, vc(2, .5, 2), "Really Really red")
146
local mainjointw=weld(mainjoint, base, cn(0, 4, 1))
147
local seat=part(delorean, false, false, vc(2, .5, 2), "Really red")
148
local seatw=weld(seat, base, cn(1.5, .25, 1))
149
local backseat=part(delorean, false, false, vc(2, 2, .5), "Really red")
150
local backseatw=weld(backseat, seat, cn(0, 1, 1)*ca(rd(10), 0, 0))
151
local headseat=part(delorean, false, false, vc(1.5, 1.25, .5), "Really red")
152
local headseatw=weld(headseat, seat, cn(0, 2.5, 1.15))
153
local seat=part(delorean, false, false, vc(2, .5, 2), "Really red")
154
local seatw=weld(seat, base, cn(-1.5, .25, 1))
155
local backseat=part(delorean, false, false, vc(2, 2, .5), "Really red")
156
local backseatw=weld(backseat, seat, cn(0, 1, 1)*ca(rd(10), 0, 0))
157
local headseat=part(delorean, false, false, vc(1.5, 1.25, .5), "Really red")
158
local headseatw=weld(headseat, seat, cn(0, 2.5, 1.15))
159
local line=part(delorean, false, false, vc(1, 1, 14), "Really red")
160
local linew=weld(line, base, cn(0, .5, 0))
161
local back=part(delorean, false, true, vc(5, 1.5, 6), "Really Really red")
162
local backw=weld(back, base, cn(0, 1, 5))
163
local bb33s=part(delorean, false, true, vc(7, 1.5, 2), "Really Really red")
164
local bb33sw=weld(bb33s, base, cn(0, 1, 7))
165
local bbs=part(delorean, false, true, vc(7, .5, 1), "Really Really red")
166
local bbsw=weld(bbs, base, cn(0, .25, 8.25)*ca(-rd(35), 0, 0))
167
local bbs=part(delorean, false, true, vc(7, 1.5, .5), "Really Really red")
168
local bbsw=weld(bbs, base, cn(0, 1, 8.25))
169
local bb3s=part(delorean, false, true, vc(7, .5, .5), "Really red")
170
local bb3sw=weld(bb3s, bb33s, cn(0, 1, 1.25))
171
local bb3s=part(delorean, false, true, vc(7, .5, 6), "Really Really red")
172
local bb3sw=weld(bb3s, bb33s, cn(0, 1, -2))
173
decal=Instance.new("Decal", bb3s)
174
decal.Texture="http://www.roblox.com/asset/?id=27893351"
175
decal.Face="Top"
176
rocket=wedge(delorean, false, true, vc(2,2,4), "Really red")
177
rocketw=weld(rocket, bb3s, cn(2,1,1.5))
178
r2=wedge(delorean, false, true, vc(2,1,2), "Really Really red")
179
r2w=weld(r2,rocket,cn(0,0,2.5)*ca(pi/2,pi,0))
180
rocket=wedge(delorean, false, true, vc(2,2,4), "Really red")
181
rocketw=weld(rocket, bb3s, cn(-2,1,1.5))
182
r2=wedge(delorean, false, true, vc(2,1,2), "Really Really red")
183
r2w=weld(r2,rocket,cn(0,0,2.5)*ca(pi/2,pi,0))
184
pp=part(delorean, false, true, vc(2,1,5), "Really red")
185
ppw=weld(pp,bb3s,cn(0,.5,0))
186
reactor=part(delorean, false, true, vc(2,1.5,2), "Really red")
187
reactorw=weld(reactor,pp,cn(0,-.25,1.5))
188
reactorm=mesh("SpecialMesh", reactor, vc(.4,.1,.4), "FileMesh", "http://www.roblox.com/Asset/?id=10207677")
189
cyl=cylinder(delorean,false,true,vc(.8,1.5,.8),"White")
190
cylw=weld(cyl,reactor,cn(0,1.5,0))
191
decal=Instance.new("Decal", cyl)
192
decal.Texture="http://www.roblox.com/asset/?id=37389443"
193
decal.Face="Front"
194
decal=Instance.new("Decal", cyl)
195
decal.Texture="http://www.roblox.com/asset/?id=37389443"
196
decal.Face="Back"
197
decal=Instance.new("Decal", cyl)
198
decal.Texture="http://www.roblox.com/asset/?id=37389443"
199
decal.Face="Right"
200
decal=Instance.new("Decal", cyl)
201
decal.Texture="http://www.roblox.com/asset/?id=37389319"
202
decal.Face="Left"
203
cyl2=cylinder(delorean,false,true,vc(.5,.5,.5),"Really Really red")
204
cyl2w=weld(cyl2,cyl,cn(0,.75,0))
205
but=part(delorean,false,true,vc(.4,.3,1),"Bright red")
206
butw=weld(but,cyl,cn(0,-.5,.5))
207
local wed=wedge(delorean, false, true, vc(7, .5, 3), "Really Really red")
208
local wedw=weld(wed, bf2, cn(0, 0, -.5)*ca(0, 0, pi))
209
local trunk=wedge(delorean, false, true, vc(7, .5, 6.35), "Really Really red")
210
local trunkw=weld(trunk, bf4, cn(0, .6, 1.5))
211
--TIRE
212
local prts=6
213
local rad=1.6
214
local tfr=cylinder(delorean, false, true, vc(2.5, 1, 2.5), "Really red")
215
local tfrw=weld(tfr, base, cn(3,.25,-4.5)*ca(0,0,pi/2))
216
local met=cylinder(delorean, false, true, vc(1.5, 1.1, 1.5), "Really Really red")
217
local metw=weld(met, tfr, cn())
218
for i=0,pi,pi/prts do
219
local p=part(delorean, false, false, vc(1.1,1.1,.5), "Really Really red")
220
p.CFrame=tfr.CFrame*cn(rad*sn(i), 0, rad*cs(i))
221
p.CFrame=CFrame.new(p.CFrame.p, tfr.CFrame.p)
222
stick(p, base)
223
end
224
local tfl=cylinder(delorean, false, true, vc(2.5, 1, 2.5), "Really red")
225
local tflw=weld(tfl, base, cn(-3,.25,-4.5)*ca(0,0,pi/2))
226
local met=cylinder(delorean, false, true, vc(1.5, 1.1, 1.5), "Really Really red")
227
local metw=weld(met, tfl, cn())
228
for i=0,pi,pi/prts do
229
local p=part(delorean, false, false, vc(1.1,1.1,.5), "Really Really red")
230
p.CFrame=tfl.CFrame*cn(rad*sn(i), 0, rad*cs(i))
231
p.CFrame=CFrame.new(p.CFrame.p, tfl.CFrame.p)
232
stick(p, base)
233
end
234
local tbr=cylinder(delorean, false, true, vc(2.5, 1, 2.5), "Really red")
235
local tbrw=weld(tbr, base, cn(3,.25,4.5)*ca(0,0,pi/2))
236
local met=cylinder(delorean, false, true, vc(1.5, 1.1, 1.5), "Really Really red")
237
local metw=weld(met, tbr, cn())
238
for i=0,pi,pi/prts do
239
local p=part(delorean, false, false, vc(1.1,1.1,.5), "Really Really red")
240
p.CFrame=tbr.CFrame*cn(rad*sn(i), 0, rad*cs(i))
241
p.CFrame=CFrame.new(p.CFrame.p, tbr.CFrame.p)
242
stick(p, base)
243
end
244
local tbl=cylinder(delorean, false, true, vc(2.5, 1, 2.5), "Really red")
245
local tblw=weld(tbl, base, cn(-3,.25,4.5)*ca(0,0,pi/2))
246
local met=cylinder(delorean, false, true, vc(1.5, 1.1, 1.5), "Really Really red")
247
local metw=weld(met, tbl, cn())
248
for i=0,pi,pi/prts do
249
local p=part(delorean, false, false, vc(1.1,1.1,.5), "Really Really red")
250
p.CFrame=tbl.CFrame*cn(rad*sn(i), 0, rad*cs(i))
251
p.CFrame=CFrame.new(p.CFrame.p, tbl.CFrame.p)
252
stick(p, base)
253
end
254
atfr=function(cf)
255
tfrw.C1=cn(3,.25,-4.5)*ca(0,0,pi/2)*cf
256
end
257
atfl=function(cf)
258
tflw.C1=cn(-3,.25,-4.5)*ca(0,0,pi/2)*cf
259
end
260
atbr=function(cf)
261
tblw.C1=cn(3,.25,4.5)*ca(0,0,pi/2)*cf
262
end
263
atbl=function(cf)
264
tblw.C1=cn(-3,.25,4.5)*ca(0,0,pi/2)*cf
265
end
266
local trunkw=weld(trunk, bf4, cn(0, .6, 1.25))
267
--SEATS
268
--DOOR
269
local DoorRight=Instance.new("Model", delorean)
270
local djr=part(DoorRight, false, false, vc(1, 1, 1), "Really Really red", 1)
271
local djrw=weld(djr, mainjoint, cn(1,0,0)*ca(0,0,0))
272
local dp=part(DoorRight, false, true, vc(2, .5, 2), "Really Really red")
273
local dpw=weld(dp, djr, cn(1, 0, 0))
274
local dp2=part(DoorRight, false, true, vc(.5, .5, 3.25), "Really Really red")
275
local dp2w=weld(dp2, dp, cn(1, -1, -2)*ca(rd(-45),rd(-10),0))
276
local dp3=part(DoorRight, false, true, vc(.5, 2.2, .5), "Really Really red")
277
local dp3w=weld(dp3, dp, cn(1, -.85, .75)*ca(0, 0, rd(15)))
278
local dw=wedge(DoorRight, false, true, vc(.5, 2, 1), "Really Really red")
279
local dww=weld(dw, dp, cn(1.25, -2.75, .5)*ca(pi,0,0))
280
local dw=wedge(DoorRight, false, true, vc(.5,1,.5), "Really Really red")
281
local dww=weld(dw, dp, cn(1.25, -3.25, -2.75)*ca(pi, pi, 0))
282
local dp4=part(DoorRight, false, true, vc(.5,1,.5), "Really Really red")
283
local dp4w=weld(dp4, dp, cn(1.25, -2.25, -2.75))
284
local dp5=part(DoorRight, false, true, vc(.5,2,2.5), "Really Really red")
285
local dp5w=weld(dp5, dp, cn(1.25, -2.75, -1.25))
286
local dwindow=wedge(DoorRight, false, true, vc(.25, 2, 2), "Really Really red", .5)
287
local dwindoww=weld(dwindow, dp, cn(1, -1, -1.75)*ca(0, 0, rd(15)))
288
local dwindow=part(DoorRight, false, true, vc(.25, 2, 1.5), "Really Really red", .5)
289
local dwindoww=weld(dwindow, dp, cn(1, -1, 0)*ca(0, 0, rd(15)))
290
local glass=part(DoorRight, false, true, vc(1, .5, .2), "Really Really red")
291
local glassw=weld(glass, dp, cn(1.5, -1.5, -2)*ca(0, rd(-35), 0))
292
local actr=false
293
local debr=false
294
function clickr()
295
if actr==false then
296
if debr==false then
297
debr=true
298
for i=0, 1, .1 do
299
djrw.C1=cn(1,0,0)*ca(0,0,rd(90)*i)
300
wait()
301
end
302
debr=false
303
actr=true
304
end
305
elseif actr==true then
306
if debr==false then
307
debr=true
308
for i=1, 0, -.1 do
309
djrw.C1=cn(1,0,0)*ca(0,0,rd(90)*i)
310
wait()
311
end
312
debr=false
313
actr=false
314
end
315
end
316
end
317
for i, v in pairs(DoorRight:children()) do
318
local cdetector=Instance.new("ClickDetector", v)
319
cdetector.MouseClick:connect(clickr)
320
end
321
local DoorLeft=Instance.new("Model", delorean)
322
local djl=part(DoorLeft, false, false, vc(1, 1, 1), "Really Really red", 1)
323
local djlw=weld(djl, mainjoint, cn(-1,0,0))
324
local dp=part(DoorLeft, false, true, vc(2, .5, 2), "Really Really red")
325
local dpw=weld(dp, djl, cn(-1, 0, 0))
326
local dp2=part(DoorLeft, false, true, vc(.5, .5, 3.25), "Really Really red")
327
local dp2w=weld(dp2, dp, cn(-1, -1, -2)*ca(rd(-45),rd(10),0))
328
local dp3=part(DoorLeft, false, true, vc(.5, 2.2, .5), "Really Really red")
329
local dp3w=weld(dp3, dp, cn(-1, -.85, .75)*ca(0, 0, rd(-15)))
330
local dw=wedge(DoorLeft, false, true, vc(.5, 2, 1), "Really Really red")
331
local dww=weld(dw, dp, cn(-1.25, -2.75, .5)*ca(pi,0,0))
332
local dw=wedge(DoorLeft, false, true, vc(.5,1,.5), "Really Really red")
333
local dww=weld(dw, dp, cn(-1.25, -3.25, -2.75)*ca(pi, pi, 0))
334
local dp4=part(DoorLeft, false, true, vc(.5,1,.5), "Really Really red")
335
local dp4w=weld(dp4, dp, cn(-1.25, -2.25, -2.75))
336
local dp5=part(DoorLeft, false, true, vc(.5,2,2.5), "Really Really red")
337
local dp5w=weld(dp5, dp, cn(-1.25, -2.75, -1.25))
338
local dwindow=wedge(DoorLeft, false, true, vc(.25, 2, 2), "Really Really red", .5)
339
local dwindoww=weld(dwindow, dp, cn(-1, -1, -1.75)*ca(0, 0, rd(-15)))
340
local dwindow=part(DoorLeft, false, true, vc(.25, 2, 1.5), "Really Really red", .5)
341
local dwindoww=weld(dwindow, dp, cn(-1, -1, 0)*ca(0, 0, rd(-15)))
342
local glass=part(DoorLeft, false, true, vc(1, .5, .2), "Really Really red")
343
local glassw=weld(glass, dp, cn(-1.5, -1.5, -2)*ca(0, rd(35), 0))
344
local actl=false
345
local debl=false
346
function clickl()
347
if actl==false then
348
if debl==false then
349
debl=true
350
for i=0, 1, .1 do
351
djlw.C1=cn(-1,0,0)*ca(0,0,rd(-90)*i)
352
wait()
353
end
354
debl=false
355
actl=true
356
end
357
elseif actl==true then
358
if debl==false then
359
debl=true
360
for i=1, 0, -.1 do
361
djlw.C1=cn(-1,0,0)*ca(0,0,rd(-90)*i)
362
wait()
363
end
364
debl=false
365
actl=false
366
end
367
end
368
end
369
for i, v in pairs(DoorLeft:children()) do
370
local cdetector=Instance.new("ClickDetector", v)
371
cdetector.MouseClick:connect(clickl)
372
end
373
local bf=Instance.new("BodyForce")
374
local bav=Instance.new("BodyAngularVelocity") bav.angularvelocity=vc(0,0,0) bav.maxTorque=vc(math.huge,math.huge,math.huge)
375
local vs=Instance.new("VehicleSeat", delorean)
376
vs.HeadsUpDisplay=false
377
vs.CanCollide=false
378
vs.Transparency=1
379
vs.Size=Vector3.new(2, .5, 2)
380
weld(vs, base, cn(-1.5, 0, 1))
381
local ps=Instance.new("VehicleSeat", delorean)
382
ps.HeadsUpDisplay=false
383
ps.CanCollide=false
384
ps.Size=Vector3.new(2, .5, 2)
385
ps.Transparency=1
386
weld(ps, base, cn(1.5, 0, 1))
387
torsos={}
388
ps.ChildAdded:connect(function(w)
389
if w.Name=="SeatWeld" then
390
torso=w.Part1
391
if torso then
392
        for i, v2 in pairs(torso.Parent:children()) do
393
                if v2:isA("BasePart") then
394
                        for i, v3 in pairs(v2:children()) do
395
                                if v3:isA("CFrameValue") then
396
                                        v3:remove() 
397
                                end
398
                        end
399
                end
400
        end
401
end
402
table.insert(torsos, torso)
403
w.C1=w.C1*CFrame.new(0, 0, .5)
404
end
405
end)
406
running=false
407
vs.ChildAdded:connect(function(w)
408
if w.Name=="SeatWeld" then
409
torso=w.Part1
410
w.C1=w.C1*CFrame.new(0, 0, .5)
411
if torso then
412
        for i, v2 in pairs(torso.Parent:children()) do
413
                if v2:isA("BasePart") then
414
                        for i, v3 in pairs(v2:children()) do
415
                                if v3:isA("CFrameValue") then
416
                                        v3:remove() 
417
                                end
418
                        end
419
                end
420
        end
421
table.insert(torsos, torso)
422
local player=game.Players:getPlayerFromCharacter(torso.Parent)
423
screengui=Instance.new("ScreenGui", player.PlayerGui) screengui.Name=modelname
424
speedometer=gui("TextLabel", screengui, "Really red", "Really red", "Really Really red", "Size48", "0", 1, UDim2.new(0, 100, 0, 100), UDim2.new(0, 50, .85, 0))
425
hourlabel=gui("TextLabel", screengui, "Really red", "Really red", "Really Really red", "Size48", "HH", 1, UDim2.new(0, 100, 0, 50), UDim2.new(.7, 0, .8, 0))
426
minutelabel=gui("TextLabel", hourlabel, "Really red", "Really red", "Really Really red", "Size48", "MM", 1, UDim2.new(1, 0, 1, 0), UDim2.new(1, 0, 0, 0))
427
secondlabel=gui("TextLabel", minutelabel, "Really red", "Really red", "Really Really red", "Size48", "SS", 1, UDim2.new(1, 0, 1, 0), UDim2.new(1, 0, 0, 0))
428
hourbox=gui("TextBox", hourlabel, "Really red", "Really red", "Really red", "Size48", "24", 1, UDim2.new(1, 0, 1, 0), UDim2.new(0, 0, 1, 0))
429
minutebox=gui("TextBox", minutelabel, "Really red", "Really red", "Really red", "Size48", "00", 1, UDim2.new(1, 0, 1, 0), UDim2.new(0, 0, 1, 0))
430
secondbox=gui("TextBox", secondlabel, "Really red", "Really red", "Really red", "Size48", "00", 1, UDim2.new(1, 0, 1, 0), UDim2.new(0, 0, 1, 0))
431
running=true
432
run()
433
end
434
end
435
end)
436
vs.ChildRemoved:connect(function(w)
437
if w.Name=="SeatWeld" then
438
torso=w.Part1
439
if torso then
440
for i, v in pairs(torsos) do
441
        if v==torso then
442
                table.remove(torsos,i)
443
        end
444
end
445
local player=game.Players:getPlayerFromCharacter(torso.Parent)
446
player.PlayerGui[modelname]:remove()
447
running=false
448
end
449
end
450
end)
451
ps.ChildRemoved:connect(function(w)
452
if w.Name=="SeatWeld" then
453
torso=w.Part1
454
if torso then
455
for i, v in pairs(torsos) do
456
        if v==torso then
457
                table.remove(torsos,i)
458
        end
459
end
460
end
461
end
462
end)
463
c(function()wait(.5) bp:remove()end)
464
function makelightning(from, to, thick, col)
465
local magnitude=(from.p-to.p).magnitude
466
local distance=(from.p+to.p)/2
467
local pattern=part(workspace, true, false, vc(.2, .2, magnitude), "White", 1, cn(distance, from.p))
468
local fromPosProx=from.p
469
for i=1, 4 do
470
local fromPosProx2=fromPosProx
471
local random=vc(rn(-1, 1), rn(-1, 1), rn(-1, 1))
472
local findSize=pattern.Size.z/3
473
local findOffSet=pattern.CFrame.lookVector*-1
474
local compute=i*findSize*findOffSet
475
local newfromPos=from.p
476
local newEndPos=cn(random+compute+newfromPos).p
477
local magnitude=(fromPosProx2-newEndPos).magnitude
478
local distance=(fromPosProx2+newEndPos)/2
479
local lightning=part(workspace, true, false, vc(1, 1, 1), col or "Bright yellow", 0, cn(distance, fromPosProx2), vc(thick, thick, magnitude))
480
fromPosProx=newEndPos
481
game.Debris:addItem(lightning, .5)
482
end 
483
pattern:remove()
484
end
485
function play(soundid, pitch, volume)
486
local sound=sound(workspace, soundid, pitch, volume)
487
sound:play()
488
c(function() wait(5) sound:remove() end)
489
end
490
trm=Instance.new("Model", delorean)
491
function trail(prt, cf, thick, col)
492
local old=(prt.CFrame*(cf or cn())).p
493
local trail=part(trm, true, false, vc(1, 1, 1), col or "White", 0, cn(old)*ca(rn(-360, 360),rn(-360, 360),rn(-360, 360)), vc(thick, thick, thick))
494
c(function()
495
for i=1, 0, -.001 do pc(function() trail.Mesh.Scale=trail.Mesh.Scale*vc(i, i, i) end) wait() end
496
trail:remove()
497
end)
498
end
499
Targets={}
500
timedeb=false
501
num=0
502
maxnum=400
503
origin=0
504
function stick(from, to)
505
local stickW=weld(from, to, to.CFrame:inverse()*from.CFrame)
506
stickW.C0=from.CFrame:inverse()*from.CFrame
507
return stickW
508
end
509
local bp=Instance.new("BodyPosition") bp.D=100 bp.maxForce=vc(inf,inf,inf)
510
timedeb=false
511
function run()
512
num=0
513
c(function()
514
for i, v in pairs(workspace:children()) do
515
        if v:isA("Model") then
516
                for i, v2 in pairs(v:children()) do
517
                        if v2:isA("BasePart") then
518
                                for i, v3 in pairs(v2:children()) do
519
                                        if v3:isA("CFrameValue") then
520
                                                v3:remove() 
521
                                        end
522
                                end
523
                        end
524
                end
525
        end
526
end
527
timedeb=true
528
while true do
529
--TimeContinium-----------------------------
530
if num<=0 and timedeb==true then
531
        for i, v in pairs(workspace:children()) do
532
                if v:isA("BasePart") then
533
                        if v.Anchored==false then
534
                                table.insert(Targets, v)
535
                                local Origin = Instance.new("CFrameValue")
536
                                Origin.Parent = v
537
                                Origin.Name = "Origin CFrame"
538
                                Origin.Value = v.CFrame
539
                        end
540
                end
541
                for i, t in pairs(torsos) do
542
                        if v:isA("Model") and v~=t.Parent and v~=delorean then
543
                                for i, v2 in pairs(v:children()) do
544
                                        if v2:isA("BasePart") then
545
                                                table.insert(Targets, v2)
546
                                                local Origin = Instance.new("CFrameValue")
547
                                                Origin.Parent = v2
548
                                                Origin.Name = "Origin CFrame"
549
                                                Origin.Value = v2.CFrame
550
                                        end
551
                                end
552
                        end
553
                end
554
        end
555
---------
556
while num<maxnum and timedeb==true do ---print(num)
557
        for i, v in pairs(workspace:children()) do
558
                if v:isA("BasePart") and v:findFirstChild("Origin CFrame")==nil then
559
                        if v.Anchored==false then
560
                                table.insert(Targets, v)
561
                                local Origin = Instance.new("CFrameValue")
562
                                Origin.Parent = v
563
                                Origin.Name = "Origin CFrame"
564
                                Origin.Value = v.CFrame
565
                        end
566
                end
567
                for i, t in pairs(torsos) do
568
                        if v:isA("Model") and v~=t.Parent and v~=delorean then
569
                                for i, v2 in pairs(v:children()) do
570
                                        if v2:isA("BasePart") and v2:findFirstChild("Origin CFrame")==nil then
571
                                                table.insert(Targets, v2)
572
                                                local Origin = Instance.new("CFrameValue")
573
                                                Origin.Parent = v2
574
                                                Origin.Name = "Origin CFrame"
575
                                                Origin.Value = v2.CFrame
576
                                        end
577
                                end
578
                        end
579
                end
580
        end
581
for i, v in pairs(Targets) do
582
local History = Instance.new("CFrameValue") 
583
History.Parent = v 
584
History.Name = num
585
History.Value = v.CFrame 
586
end 
587
num = num + 1 
588
wait()
589
end
590
end
591
wait()
592
end
593
end)
594
while running do
595
local speed=base.Velocity.magnitude
596
speedometer.Text=math.floor(speed)
597
if speed>65 and speed<88 then play("http://www.roblox.com/asset/?id=2800815", 1, .5)
598
makelightning(base.CFrame*CFrame.new(0,0,10), base.CFrame*CFrame.new(rn(-10,10),rn(-10,10),rn(-2,10)), 1)
599
trail(tbr,cn(-1.5, 0, -10),2.5,"Bright orange")
600
trail(tbl,cn(-1.9, 0, -10),2.5,"Bright orange")
601
end
602
if speed>88 and speed<90 then play("http://roblox.com/asset/?id=10209481")
603
local trm2=trm:clone() trm2.Parent=workspace
604
origin=base.Position
605
print(origin)
606
game.Debris:addItem(trm2, 5)
607
bp.position=vc(0,0,-99999)
608
bp.Parent=base
609
timedeb=false
610
c(function()
611
for i=0,1,.005 do
612
game.Lighting.TimeOfDay=math.floor(hourbox.Text*i)..":"..math.floor(minutebox.Text*i)..":"..math.floor(secondbox.Text*i)
613
wait()
614
end
615
end)
616
while num > 0 do --print(num)
617
wait()
618
num = num - 1
619
for i, v in pairs(Targets) do
620
v.Anchored=true
621
local History = v:findFirstChild(num)
622
if History ~= nil then
623
v.CFrame = History.Value
624
History:remove()
625
end
626
end
627
end
628
for i, v in pairs(Targets) do
629
local Origin = v:findFirstChild("Origin CFrame")
630
if Origin ~= nil then
631
v.CFrame = Origin.Value
632
v:makeJoints()
633
Origin:remove()
634
end
635
end
636
for i, v in pairs(Targets) do
637
v.Anchored=false
638
end
639
play("http://www.roblox.com/asset/?id=2101148", 1, 1)
640
exp=Instance.new("Explosion", workspace)
641
exp.BlastPressure=0
642
exp.Position=origin
643
Targets = {}
644
timedeb=true
645
bp.position=origin
646
origin=0
647
base.Velocity=vc(0,0,0)
648
bf.force=base.CFrame.lookVector*0
649
wait(1)
650
bp:remove()
651
end
652
if vs.Steer==0 then bav.angularvelocity=vc(0,0,0) atfr(ca(0, 0, 0)) atfl(ca(0, 0, 0)) end
653
if vs.Steer==1 then atfr(ca(rd(-25), 0, 0)) atfl(ca(rd(-25), 0, 0)) end
654
if vs.Steer==-1 then atfr(ca(rd(25), 0, 0)) atfl(ca(rd(25), 0, 0)) end
655
if vs.Throttle==1 then bav.Parent=base bf.Parent=base
656
if vs.Steer==1 then bav.angularvelocity=vc(0,-2,0) end
657
if vs.Steer==-1 then bav.angularvelocity=vc(0,2,0) end
658
bf.force=base.CFrame.lookVector*40000
659
end
660
if vs.Throttle==0 then bav.Parent=base bf.Parent=base
661
bf.force=base.CFrame.lookVector*0
662
end
663
if vs.Throttle==-1 then bav.Parent=base bf.Parent=base
664
if vs.Steer==1 then bav.angularvelocity=vc(0,2,0) end
665
if vs.Steer==-1 then bav.angularvelocity=vc(0,-2,0) end
666
bf.force=base.CFrame.lookVector*-40000
667
end
668
wait()
669
end
670
end