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