Advertisement
good_scripter

Untitled

Jun 11th, 2019
190
0
Never
Not a member of Pastebin yet? Sign Up, it unlocks many cool features!
text 30.03 KB | None | 0 0
  1. local modelname="DeLoreanTimeMachine"
  2.  
  3. pcall(function() workspace.Base.CFrame=CFrame.new(0,-2,0) end)
  4.  
  5. print(modelname.."_LOADED")
  6.  
  7. local plr=game:service("Players")["julio_7779"]
  8.  
  9. local char=plr.Character
  10.  
  11. local T=char.Torso
  12.  
  13. local c=function(f) coroutine.resume(coroutine.create(f)) end
  14.  
  15. local pc=pcall
  16.  
  17. pc(function() workspace:findFirstChild(modelname):remove() end)
  18.  
  19. local mouse=nil
  20.  
  21. local pi=math.pi
  22.  
  23. local rd=math.rad
  24.  
  25. local sn=math.sin
  26.  
  27. local cs=math.cos
  28.  
  29. local rn=math.random
  30.  
  31. local ti=table.insert
  32.  
  33. local tr=table.remove
  34.  
  35. local inf=math.huge
  36.  
  37. local cn=CFrame.new
  38.  
  39. local vc=Vector3.new
  40.  
  41. local ca=CFrame.Angles
  42.  
  43. local delorean=Instance.new("Model", workspace) delorean.Name=modelname
  44.  
  45. local screengui=Instance.new("ScreenGui") screengui.Name=modelname
  46.  
  47. part=function(par, a, c, s, col, t, cf, ms)
  48.  
  49. 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)
  50.  
  51. local m=Instance.new("BlockMesh", p) pcall(function() m.Scale=ms or Vector3.new(1, 1, 1) end)
  52.  
  53. return p
  54.  
  55. end
  56.  
  57. cylinder=function(par, a, c, s, col, t, cf, ms)
  58.  
  59. 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)
  60.  
  61. local m=Instance.new("CylinderMesh", p) pcall(function() m.Scale=ms or Vector3.new(1, 1, 1) end)
  62.  
  63. return p
  64.  
  65. end
  66.  
  67. wedge=function(par, a, c, s, col, t, cf, ms)
  68.  
  69. 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)
  70.  
  71. local m=Instance.new("SpecialMesh", p) pcall(function() m.Scale=ms or Vector3.new(1, 1, 1) m.MeshType="Wedge" end)
  72.  
  73. return p
  74.  
  75. end
  76.  
  77. gui=function(ins, par, bc, bg, tc, fs, text, t, s, pos)
  78.  
  79. 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
  80.  
  81. return g
  82.  
  83. end
  84.  
  85. weld=function(par, p1, cf)
  86.  
  87. local w=Instance.new("Weld", par) pcall(function() w.Part0=w.Parent or par w.Part1=p1 w.C1=cf or cn() end)
  88.  
  89. return w
  90.  
  91. end
  92.  
  93. mesh=function(ins, par, s, t, id, tid, of)
  94.  
  95. 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)
  96.  
  97. 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)
  98.  
  99. return m
  100.  
  101. end
  102.  
  103. sound=function(parent, id, pitch, volume)
  104.  
  105. local s=Instance.new("Sound", parent) pcall(function() s.SoundId=id s.Volume=volume or 1 s.Pitch=pitch or 1 end)
  106.  
  107. return s
  108.  
  109. end
  110.  
  111. function stick(from, to)
  112.  
  113. local stickW=weld(from, to, to.CFrame:inverse()*from.CFrame)
  114.  
  115. stickW.C0=from.CFrame:inverse()*from.CFrame
  116.  
  117. return stickW
  118.  
  119. end
  120.  
  121. bp=Instance.new("BodyPosition") bp.D=200 bp.maxForce=vc(inf,inf,inf)
  122.  
  123. base=part(delorean, false, true, vc(5, .5, 14), "Really Really red", 0, cn(0, 200, 0))
  124.  
  125. wait()
  126.  
  127. bp.Parent=base
  128.  
  129. bp.position=(T.CFrame+T.CFrame.lookVector*20).p
  130.  
  131. base.Name="BASE"
  132.  
  133. bc=part(delorean, false, true, vc(7, .5, 6), "Really Really red")
  134.  
  135. bcw=weld(bc, base, cn())
  136.  
  137. bf=part(delorean, false, true, vc(7, .5, 2), "Really Really red")
  138.  
  139. bfw=weld(bf, base, cn(0, 0, -7))
  140.  
  141. local bb=part(delorean, false, true, vc(7, .5, 2), "Really Really red")
  142.  
  143. local bbw=weld(bb, base, cn(0, 0, 7))
  144.  
  145. local bf2=part(delorean, false, true, vc(6.8, 1, 1.5), "Really Really red")
  146.  
  147. local bf2w=weld(bf2, bf, cn(0, .5, 0))
  148.  
  149. local bc2=part(delorean, false, true, vc(5, 1, 5), "Really Really red")
  150.  
  151. local bc2w=weld(bc2, base, cn(0, .75, -4.5))
  152.  
  153. local bf3=part(delorean, false, true, vc(7, .5, 3), "Really Really red")
  154.  
  155. local bf3w=weld(bf3, bf2, cn(0, .5, -.5))
  156.  
  157. local enginesmoke=cylinder(delorean, false, true, vc(.5, 2, .5), "Really red")
  158.  
  159. local enginesmokew=weld(enginesmoke, bb, cn(2, 0, .75)*ca(-rd(90), 0, 0))
  160.  
  161. local enginesmoke=cylinder(delorean, false, true, vc(.5, 2, .5), "Really red")
  162.  
  163. local enginesmokew=weld(enginesmoke, bb, cn(-2, 0, .75)*ca(-rd(90), 0, 0))
  164.  
  165. local bf4=part(delorean, false, true, vc(7, .7, 3.5), "Really red")
  166.  
  167. local bf4w=weld(bf4, bf3, cn(0, .6, .75))
  168.  
  169. local bf5=part(delorean, false, true, vc(6, .7, 3), "Really red")
  170.  
  171. local bf5w=weld(bf5, bf4, cn(0, 0, 3))
  172.  
  173. local mprt=part(delorean, false, true, vc(7, 1, .5), "Really red", 0, cn(), vc(1, .1, 1))
  174.  
  175. local mprtw=weld(mprt, bf4, cn(0, -.3, -2))
  176.  
  177. local mprt=part(delorean, false, true, vc(7, 1, .35), "Really red", 0, cn(), vc(1, .1, 1))
  178.  
  179. local mprtw=weld(mprt, bf4, cn(0, .3, -1.9))
  180.  
  181. local mprt=part(delorean, false, true, vc(.2, .65, .5), "Really red", 0, cn(), vc(1, 1, 1))
  182.  
  183. local mprtw=weld(mprt, bf4, cn(3.4, -.03, -1.9)*ca(rd(15), 0, 0))
  184.  
  185. local mprt=part(delorean, false, true, vc(.2, .65, .5), "Really red", 0, cn(), vc(1, 1, 1))
  186.  
  187. local mprtw=weld(mprt, bf4, cn(-3.4, -.03, -1.9)*ca(rd(15), 0, 0))
  188.  
  189. local dmc=part(delorean, false, true, vc(2, .65, .5), "Really Really red", 0, cn(), vc(1, 1, 1))
  190.  
  191. local dmcw=weld(dmc, bf4, cn(0, -.03, -1.9)*ca(rd(15), 0, 0))
  192.  
  193. decal=Instance.new("Decal", dmc)
  194.  
  195. decal.Texture="http://www.roblox.com/asset/?id=28924870"
  196.  
  197. decal.Face="Front"
  198.  
  199. local prt=part(delorean, false, true, vc(.5, 2, 1), "Really Really red")
  200.  
  201. local prtw=weld(prt, bc, cn(3.25, 1.25, -2.5)*ca(0, 0, 0))
  202.  
  203. local w=wedge(delorean, false, false, vc(.5, 1, .5), "Really Really red")
  204.  
  205. local w2=weld(w, prt, cn(0, -.5, .75)*ca(0,pi,0))
  206.  
  207. local prt=part(delorean, false, true, vc(.5, 2, 1), "Really Really red")
  208.  
  209. local prtw=weld(prt, bc, cn(3.25, 1.25, -3)*ca(rd(-45), 0, 0))
  210.  
  211. local prt=part(delorean, false, true, vc(.5, 2, 1), "Really Really red")
  212.  
  213. local prtw=weld(prt, bc, cn(-3.25, 1.25, -2.5)*ca(0, 0, 0))
  214.  
  215. local w=wedge(delorean, false, false, vc(.5, 1, .5), "Really Really red")
  216.  
  217. local w2=weld(w, prt, cn(0, -.5, .75)*ca(0,pi,0))
  218.  
  219. local prt=part(delorean, false, true, vc(.5, 2, 1), "Really Really red")
  220.  
  221. local prtw=weld(prt, bc, cn(-3.25, 1.25, -3)*ca(rd(-45), 0, 0))
  222.  
  223. local prt=part(delorean, false, true, vc(.5, 2, 1), "Really Really red")
  224.  
  225. local prtw=weld(prt, bc, cn(3.25, 1.25, 2.5)*ca(0, 0, 0))
  226.  
  227. local prt2=part(delorean, false, true, vc(.5, 2.2, 1.5), "Really Really red")
  228.  
  229. local prt2w=weld(prt2, prt, cn(-.25, 1.85, .25)*ca(0, 0, rd(10)))
  230.  
  231. local w=wedge(delorean, false, false, vc(.5, 2, 1), "Really Really red")
  232.  
  233. local w2=weld(w, prt, cn(0, 0, -1))
  234.  
  235. local prt=part(delorean, false, true, vc(.5, 2, 1), "Really Really red")
  236.  
  237. local prtw=weld(prt, bc, cn(3.25, 1.25, 3)*ca(rd(45), 0, 0))
  238.  
  239. local prt=part(delorean, false, true, vc(.5, 2, 1), "Really Really red")
  240.  
  241. local prtw=weld(prt, bc, cn(-3.25, 1.25, 2.5)*ca(0, 0, 0))
  242.  
  243. local prt2=part(delorean, false, true, vc(.5, 2.2, 1.5), "Really Really red")
  244.  
  245. local prt2w=weld(prt2, prt, cn(.25, 1.85, .25)*ca(0, 0, rd(-10)))
  246.  
  247. local w=wedge(delorean, false, false, vc(.5, 2, 1), "Really Really red")
  248.  
  249. local w2=weld(w, prt, cn(0, 0, -1))
  250.  
  251. local prt=part(delorean, false, true, vc(.5, 2, 1), "Really Really red")
  252.  
  253. local prtw=weld(prt, bc, cn(-3.25, 1.25, 3)*ca(rd(45), 0, 0))
  254.  
  255. local main=part(delorean, false, true, vc(6, .5, 1.5), "Really Really red")
  256.  
  257. local mainw=weld(main, base, cn(0, 4, 2.75))
  258.  
  259. local stand=part(delorean, false, true, vc(.5, .5, 5.5), "Really Really red")
  260.  
  261. local standw=weld(stand, base, cn(3,3,5.5)*ca(rd(22),rd(5),0))
  262.  
  263. local stand=part(delorean, false, true, vc(.5, .5, 5.5), "Really Really red")
  264.  
  265. local standw=weld(stand, base, cn(-3,3,5.5)*ca(rd(22),rd(-5),0))
  266.  
  267. local backprt=part(delorean, false, true, vc(6, 2, .5), "Really red")
  268.  
  269. local backprt=weld(backprt, base, cn(0, 3, 2))
  270.  
  271. local window=part(delorean, false, true, vc(5, 2.5, .25), "Really red", .5)
  272.  
  273. local windoww=weld(window, base, cn(0, 3, -1.25)*ca(rd(45), 0, 0))
  274.  
  275. local border=part(delorean, false, false, vc(5, .5, .5), "Really Really red")
  276.  
  277. local borderw=weld(border, window, cn(0, 1.5, 0))
  278.  
  279. local border=part(delorean, false, false, vc(.5, 3, .5), "Really Really red")
  280.  
  281. local borderw=weld(border, window, cn(2.5, 0, 0)*ca(0, 0, rd(10)))
  282.  
  283. local border=part(delorean, false, false, vc(.5, 3, .5), "Really Really red")
  284.  
  285. local borderw=weld(border, window, cn(-2.5, 0, 0)*ca(0, 0, rd(-10)))
  286.  
  287. local prt=weld()
  288.  
  289. local mainjoint=part(delorean, false, true, vc(2, .5, 2), "Really Really red")
  290.  
  291. local mainjointw=weld(mainjoint, base, cn(0, 4, 1))
  292.  
  293. local seat=part(delorean, false, false, vc(2, .5, 2), "Really red")
  294.  
  295. local seatw=weld(seat, base, cn(1.5, .25, 1))
  296.  
  297. local backseat=part(delorean, false, false, vc(2, 2, .5), "Really red")
  298.  
  299. local backseatw=weld(backseat, seat, cn(0, 1, 1)*ca(rd(10), 0, 0))
  300.  
  301. local headseat=part(delorean, false, false, vc(1.5, 1.25, .5), "Really red")
  302.  
  303. local headseatw=weld(headseat, seat, cn(0, 2.5, 1.15))
  304.  
  305. local seat=part(delorean, false, false, vc(2, .5, 2), "Really red")
  306.  
  307. local seatw=weld(seat, base, cn(-1.5, .25, 1))
  308.  
  309. local backseat=part(delorean, false, false, vc(2, 2, .5), "Really red")
  310.  
  311. local backseatw=weld(backseat, seat, cn(0, 1, 1)*ca(rd(10), 0, 0))
  312.  
  313. local headseat=part(delorean, false, false, vc(1.5, 1.25, .5), "Really red")
  314.  
  315. local headseatw=weld(headseat, seat, cn(0, 2.5, 1.15))
  316.  
  317. local line=part(delorean, false, false, vc(1, 1, 14), "Really red")
  318.  
  319. local linew=weld(line, base, cn(0, .5, 0))
  320.  
  321. local back=part(delorean, false, true, vc(5, 1.5, 6), "Really Really red")
  322.  
  323. local backw=weld(back, base, cn(0, 1, 5))
  324.  
  325. local bb33s=part(delorean, false, true, vc(7, 1.5, 2), "Really Really red")
  326.  
  327. local bb33sw=weld(bb33s, base, cn(0, 1, 7))
  328.  
  329. local bbs=part(delorean, false, true, vc(7, .5, 1), "Really Really red")
  330.  
  331. local bbsw=weld(bbs, base, cn(0, .25, 8.25)*ca(-rd(35), 0, 0))
  332.  
  333. local bbs=part(delorean, false, true, vc(7, 1.5, .5), "Really Really red")
  334.  
  335. local bbsw=weld(bbs, base, cn(0, 1, 8.25))
  336.  
  337. local bb3s=part(delorean, false, true, vc(7, .5, .5), "Really red")
  338.  
  339. local bb3sw=weld(bb3s, bb33s, cn(0, 1, 1.25))
  340.  
  341. local bb3s=part(delorean, false, true, vc(7, .5, 6), "Really Really red")
  342.  
  343. local bb3sw=weld(bb3s, bb33s, cn(0, 1, -2))
  344.  
  345. decal=Instance.new("Decal", bb3s)
  346.  
  347. decal.Texture="http://www.roblox.com/asset/?id=27893351"
  348.  
  349. decal.Face="Top"
  350.  
  351. rocket=wedge(delorean, false, true, vc(2,2,4), "Really red")
  352.  
  353. rocketw=weld(rocket, bb3s, cn(2,1,1.5))
  354.  
  355. r2=wedge(delorean, false, true, vc(2,1,2), "Really Really red")
  356.  
  357. r2w=weld(r2,rocket,cn(0,0,2.5)*ca(pi/2,pi,0))
  358.  
  359. rocket=wedge(delorean, false, true, vc(2,2,4), "Really red")
  360.  
  361. rocketw=weld(rocket, bb3s, cn(-2,1,1.5))
  362.  
  363. r2=wedge(delorean, false, true, vc(2,1,2), "Really Really red")
  364.  
  365. r2w=weld(r2,rocket,cn(0,0,2.5)*ca(pi/2,pi,0))
  366.  
  367. pp=part(delorean, false, true, vc(2,1,5), "Really red")
  368.  
  369. ppw=weld(pp,bb3s,cn(0,.5,0))
  370.  
  371. reactor=part(delorean, false, true, vc(2,1.5,2), "Really red")
  372.  
  373. reactorw=weld(reactor,pp,cn(0,-.25,1.5))
  374.  
  375. reactorm=mesh("SpecialMesh", reactor, vc(.4,.1,.4), "FileMesh", "http://www.roblox.com/Asset/?id=10207677")
  376.  
  377. cyl=cylinder(delorean,false,true,vc(.8,1.5,.8),"White")
  378.  
  379. cylw=weld(cyl,reactor,cn(0,1.5,0))
  380.  
  381. decal=Instance.new("Decal", cyl)
  382.  
  383. decal.Texture="http://www.roblox.com/asset/?id=37389443"
  384.  
  385. decal.Face="Front"
  386.  
  387. decal=Instance.new("Decal", cyl)
  388.  
  389. decal.Texture="http://www.roblox.com/asset/?id=37389443"
  390.  
  391. decal.Face="Back"
  392.  
  393. decal=Instance.new("Decal", cyl)
  394.  
  395. decal.Texture="http://www.roblox.com/asset/?id=37389443"
  396.  
  397. decal.Face="Right"
  398.  
  399. decal=Instance.new("Decal", cyl)
  400.  
  401. decal.Texture="http://www.roblox.com/asset/?id=37389319"
  402.  
  403. decal.Face="Left"
  404.  
  405. cyl2=cylinder(delorean,false,true,vc(.5,.5,.5),"Really Really red")
  406.  
  407. cyl2w=weld(cyl2,cyl,cn(0,.75,0))
  408.  
  409. but=part(delorean,false,true,vc(.4,.3,1),"Bright red")
  410.  
  411. butw=weld(but,cyl,cn(0,-.5,.5))
  412.  
  413. local wed=wedge(delorean, false, true, vc(7, .5, 3), "Really Really red")
  414.  
  415. local wedw=weld(wed, bf2, cn(0, 0, -.5)*ca(0, 0, pi))
  416.  
  417. local trunk=wedge(delorean, false, true, vc(7, .5, 6.35), "Really Really red")
  418.  
  419. local trunkw=weld(trunk, bf4, cn(0, .6, 1.5))
  420.  
  421. --TIRE
  422.  
  423. local prts=6
  424.  
  425. local rad=1.6
  426.  
  427. local tfr=cylinder(delorean, false, true, vc(2.5, 1, 2.5), "Really red")
  428.  
  429. local tfrw=weld(tfr, base, cn(3,.25,-4.5)*ca(0,0,pi/2))
  430.  
  431. local met=cylinder(delorean, false, true, vc(1.5, 1.1, 1.5), "Really Really red")
  432.  
  433. local metw=weld(met, tfr, cn())
  434.  
  435. for i=0,pi,pi/prts do
  436.  
  437. local p=part(delorean, false, false, vc(1.1,1.1,.5), "Really Really red")
  438.  
  439. p.CFrame=tfr.CFrame*cn(rad*sn(i), 0, rad*cs(i))
  440.  
  441. p.CFrame=CFrame.new(p.CFrame.p, tfr.CFrame.p)
  442.  
  443. stick(p, base)
  444.  
  445. end
  446.  
  447. local tfl=cylinder(delorean, false, true, vc(2.5, 1, 2.5), "Really red")
  448.  
  449. local tflw=weld(tfl, base, cn(-3,.25,-4.5)*ca(0,0,pi/2))
  450.  
  451. local met=cylinder(delorean, false, true, vc(1.5, 1.1, 1.5), "Really Really red")
  452.  
  453. local metw=weld(met, tfl, cn())
  454.  
  455. for i=0,pi,pi/prts do
  456.  
  457. local p=part(delorean, false, false, vc(1.1,1.1,.5), "Really Really red")
  458.  
  459. p.CFrame=tfl.CFrame*cn(rad*sn(i), 0, rad*cs(i))
  460.  
  461. p.CFrame=CFrame.new(p.CFrame.p, tfl.CFrame.p)
  462.  
  463. stick(p, base)
  464.  
  465. end
  466.  
  467. local tbr=cylinder(delorean, false, true, vc(2.5, 1, 2.5), "Really red")
  468.  
  469. local tbrw=weld(tbr, base, cn(3,.25,4.5)*ca(0,0,pi/2))
  470.  
  471. local met=cylinder(delorean, false, true, vc(1.5, 1.1, 1.5), "Really Really red")
  472.  
  473. local metw=weld(met, tbr, cn())
  474.  
  475. for i=0,pi,pi/prts do
  476.  
  477. local p=part(delorean, false, false, vc(1.1,1.1,.5), "Really Really red")
  478.  
  479. p.CFrame=tbr.CFrame*cn(rad*sn(i), 0, rad*cs(i))
  480.  
  481. p.CFrame=CFrame.new(p.CFrame.p, tbr.CFrame.p)
  482.  
  483. stick(p, base)
  484.  
  485. end
  486.  
  487. local tbl=cylinder(delorean, false, true, vc(2.5, 1, 2.5), "Really red")
  488.  
  489. local tblw=weld(tbl, base, cn(-3,.25,4.5)*ca(0,0,pi/2))
  490.  
  491. local met=cylinder(delorean, false, true, vc(1.5, 1.1, 1.5), "Really Really red")
  492.  
  493. local metw=weld(met, tbl, cn())
  494.  
  495. for i=0,pi,pi/prts do
  496.  
  497. local p=part(delorean, false, false, vc(1.1,1.1,.5), "Really Really red")
  498.  
  499. p.CFrame=tbl.CFrame*cn(rad*sn(i), 0, rad*cs(i))
  500.  
  501. p.CFrame=CFrame.new(p.CFrame.p, tbl.CFrame.p)
  502.  
  503. stick(p, base)
  504.  
  505. end
  506.  
  507. atfr=function(cf)
  508.  
  509. tfrw.C1=cn(3,.25,-4.5)*ca(0,0,pi/2)*cf
  510.  
  511. end
  512.  
  513. atfl=function(cf)
  514.  
  515. tflw.C1=cn(-3,.25,-4.5)*ca(0,0,pi/2)*cf
  516.  
  517. end
  518.  
  519. atbr=function(cf)
  520.  
  521. tblw.C1=cn(3,.25,4.5)*ca(0,0,pi/2)*cf
  522.  
  523. end
  524.  
  525. atbl=function(cf)
  526.  
  527. tblw.C1=cn(-3,.25,4.5)*ca(0,0,pi/2)*cf
  528.  
  529. end
  530.  
  531. local trunkw=weld(trunk, bf4, cn(0, .6, 1.25))
  532.  
  533. --SEATS
  534.  
  535. --DOOR
  536.  
  537. local DoorRight=Instance.new("Model", delorean)
  538.  
  539. local djr=part(DoorRight, false, false, vc(1, 1, 1), "Really Really red", 1)
  540.  
  541. local djrw=weld(djr, mainjoint, cn(1,0,0)*ca(0,0,0))
  542.  
  543. local dp=part(DoorRight, false, true, vc(2, .5, 2), "Really Really red")
  544.  
  545. local dpw=weld(dp, djr, cn(1, 0, 0))
  546.  
  547. local dp2=part(DoorRight, false, true, vc(.5, .5, 3.25), "Really Really red")
  548.  
  549. local dp2w=weld(dp2, dp, cn(1, -1, -2)*ca(rd(-45),rd(-10),0))
  550.  
  551. local dp3=part(DoorRight, false, true, vc(.5, 2.2, .5), "Really Really red")
  552.  
  553. local dp3w=weld(dp3, dp, cn(1, -.85, .75)*ca(0, 0, rd(15)))
  554.  
  555. local dw=wedge(DoorRight, false, true, vc(.5, 2, 1), "Really Really red")
  556.  
  557. local dww=weld(dw, dp, cn(1.25, -2.75, .5)*ca(pi,0,0))
  558.  
  559. local dw=wedge(DoorRight, false, true, vc(.5,1,.5), "Really Really red")
  560.  
  561. local dww=weld(dw, dp, cn(1.25, -3.25, -2.75)*ca(pi, pi, 0))
  562.  
  563. local dp4=part(DoorRight, false, true, vc(.5,1,.5), "Really Really red")
  564.  
  565. local dp4w=weld(dp4, dp, cn(1.25, -2.25, -2.75))
  566.  
  567. local dp5=part(DoorRight, false, true, vc(.5,2,2.5), "Really Really red")
  568.  
  569. local dp5w=weld(dp5, dp, cn(1.25, -2.75, -1.25))
  570.  
  571. local dwindow=wedge(DoorRight, false, true, vc(.25, 2, 2), "Really Really red", .5)
  572.  
  573. local dwindoww=weld(dwindow, dp, cn(1, -1, -1.75)*ca(0, 0, rd(15)))
  574.  
  575. local dwindow=part(DoorRight, false, true, vc(.25, 2, 1.5), "Really Really red", .5)
  576.  
  577. local dwindoww=weld(dwindow, dp, cn(1, -1, 0)*ca(0, 0, rd(15)))
  578.  
  579. local glass=part(DoorRight, false, true, vc(1, .5, .2), "Really Really red")
  580.  
  581. local glassw=weld(glass, dp, cn(1.5, -1.5, -2)*ca(0, rd(-35), 0))
  582.  
  583. local actr=false
  584.  
  585. local debr=false
  586.  
  587. function clickr()
  588.  
  589. if actr==false then
  590.  
  591. if debr==false then
  592.  
  593. debr=true
  594.  
  595. for i=0, 1, .1 do
  596.  
  597. djrw.C1=cn(1,0,0)*ca(0,0,rd(90)*i)
  598.  
  599. wait()
  600.  
  601. end
  602.  
  603. debr=false
  604.  
  605. actr=true
  606.  
  607. end
  608.  
  609. elseif actr==true then
  610.  
  611. if debr==false then
  612.  
  613. debr=true
  614.  
  615. for i=1, 0, -.1 do
  616.  
  617. djrw.C1=cn(1,0,0)*ca(0,0,rd(90)*i)
  618.  
  619. wait()
  620.  
  621. end
  622.  
  623. debr=false
  624.  
  625. actr=false
  626.  
  627. end
  628.  
  629. end
  630.  
  631. end
  632.  
  633. for i, v in pairs(DoorRight:children()) do
  634.  
  635. local cdetector=Instance.new("ClickDetector", v)
  636.  
  637. cdetector.MouseClick:connect(clickr)
  638.  
  639. end
  640.  
  641. local DoorLeft=Instance.new("Model", delorean)
  642.  
  643. local djl=part(DoorLeft, false, false, vc(1, 1, 1), "Really Really red", 1)
  644.  
  645. local djlw=weld(djl, mainjoint, cn(-1,0,0))
  646.  
  647. local dp=part(DoorLeft, false, true, vc(2, .5, 2), "Really Really red")
  648.  
  649. local dpw=weld(dp, djl, cn(-1, 0, 0))
  650.  
  651. local dp2=part(DoorLeft, false, true, vc(.5, .5, 3.25), "Really Really red")
  652.  
  653. local dp2w=weld(dp2, dp, cn(-1, -1, -2)*ca(rd(-45),rd(10),0))
  654.  
  655. local dp3=part(DoorLeft, false, true, vc(.5, 2.2, .5), "Really Really red")
  656.  
  657. local dp3w=weld(dp3, dp, cn(-1, -.85, .75)*ca(0, 0, rd(-15)))
  658.  
  659. local dw=wedge(DoorLeft, false, true, vc(.5, 2, 1), "Really Really red")
  660.  
  661. local dww=weld(dw, dp, cn(-1.25, -2.75, .5)*ca(pi,0,0))
  662.  
  663. local dw=wedge(DoorLeft, false, true, vc(.5,1,.5), "Really Really red")
  664.  
  665. local dww=weld(dw, dp, cn(-1.25, -3.25, -2.75)*ca(pi, pi, 0))
  666.  
  667. local dp4=part(DoorLeft, false, true, vc(.5,1,.5), "Really Really red")
  668.  
  669. local dp4w=weld(dp4, dp, cn(-1.25, -2.25, -2.75))
  670.  
  671. local dp5=part(DoorLeft, false, true, vc(.5,2,2.5), "Really Really red")
  672.  
  673. local dp5w=weld(dp5, dp, cn(-1.25, -2.75, -1.25))
  674.  
  675. local dwindow=wedge(DoorLeft, false, true, vc(.25, 2, 2), "Really Really red", .5)
  676.  
  677. local dwindoww=weld(dwindow, dp, cn(-1, -1, -1.75)*ca(0, 0, rd(-15)))
  678.  
  679. local dwindow=part(DoorLeft, false, true, vc(.25, 2, 1.5), "Really Really red", .5)
  680.  
  681. local dwindoww=weld(dwindow, dp, cn(-1, -1, 0)*ca(0, 0, rd(-15)))
  682.  
  683. local glass=part(DoorLeft, false, true, vc(1, .5, .2), "Really Really red")
  684.  
  685. local glassw=weld(glass, dp, cn(-1.5, -1.5, -2)*ca(0, rd(35), 0))
  686.  
  687. local actl=false
  688.  
  689. local debl=false
  690.  
  691. function clickl()
  692.  
  693. if actl==false then
  694.  
  695. if debl==false then
  696.  
  697. debl=true
  698.  
  699. for i=0, 1, .1 do
  700.  
  701. djlw.C1=cn(-1,0,0)*ca(0,0,rd(-90)*i)
  702.  
  703. wait()
  704.  
  705. end
  706.  
  707. debl=false
  708.  
  709. actl=true
  710.  
  711. end
  712.  
  713. elseif actl==true then
  714.  
  715. if debl==false then
  716.  
  717. debl=true
  718.  
  719. for i=1, 0, -.1 do
  720.  
  721. djlw.C1=cn(-1,0,0)*ca(0,0,rd(-90)*i)
  722.  
  723. wait()
  724.  
  725. end
  726.  
  727. debl=false
  728.  
  729. actl=false
  730.  
  731. end
  732.  
  733. end
  734.  
  735. end
  736.  
  737. for i, v in pairs(DoorLeft:children()) do
  738.  
  739. local cdetector=Instance.new("ClickDetector", v)
  740.  
  741. cdetector.MouseClick:connect(clickl)
  742.  
  743. end
  744.  
  745. local bf=Instance.new("BodyForce")
  746.  
  747. local bav=Instance.new("BodyAngularVelocity") bav.angularvelocity=vc(0,0,0) bav.maxTorque=vc(math.huge,math.huge,math.huge)
  748.  
  749. local vs=Instance.new("VehicleSeat", delorean)
  750.  
  751. vs.HeadsUpDisplay=false
  752.  
  753. vs.CanCollide=false
  754.  
  755. vs.Transparency=1
  756.  
  757. vs.Size=Vector3.new(2, .5, 2)
  758.  
  759. weld(vs, base, cn(-1.5, 0, 1))
  760.  
  761. local ps=Instance.new("VehicleSeat", delorean)
  762.  
  763. ps.HeadsUpDisplay=false
  764.  
  765. ps.CanCollide=false
  766.  
  767. ps.Size=Vector3.new(2, .5, 2)
  768.  
  769. ps.Transparency=1
  770.  
  771. weld(ps, base, cn(1.5, 0, 1))
  772.  
  773. torsos={}
  774.  
  775. ps.ChildAdded:connect(function(w)
  776.  
  777. if w.Name=="SeatWeld" then
  778.  
  779. torso=w.Part1
  780.  
  781. if torso then
  782.  
  783. for i, v2 in pairs(torso.Parent:children()) do
  784.  
  785. if v2:isA("BasePart") then
  786.  
  787. for i, v3 in pairs(v2:children()) do
  788.  
  789. if v3:isA("CFrameValue") then
  790.  
  791. v3:remove()
  792.  
  793. end
  794.  
  795. end
  796.  
  797. end
  798.  
  799. end
  800.  
  801. end
  802.  
  803. table.insert(torsos, torso)
  804.  
  805. w.C1=w.C1*CFrame.new(0, 0, .5)
  806.  
  807. end
  808.  
  809. end)
  810.  
  811. running=false
  812.  
  813. vs.ChildAdded:connect(function(w)
  814.  
  815. if w.Name=="SeatWeld" then
  816.  
  817. torso=w.Part1
  818.  
  819. w.C1=w.C1*CFrame.new(0, 0, .5)
  820.  
  821. if torso then
  822.  
  823. for i, v2 in pairs(torso.Parent:children()) do
  824.  
  825. if v2:isA("BasePart") then
  826.  
  827. for i, v3 in pairs(v2:children()) do
  828.  
  829. if v3:isA("CFrameValue") then
  830.  
  831. v3:remove()
  832.  
  833. end
  834.  
  835. end
  836.  
  837. end
  838.  
  839. end
  840.  
  841. table.insert(torsos, torso)
  842.  
  843. local player=game.Players:getPlayerFromCharacter(torso.Parent)
  844.  
  845. screengui=Instance.new("ScreenGui", player.PlayerGui) screengui.Name=modelname
  846.  
  847. 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))
  848.  
  849. 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))
  850.  
  851. 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))
  852.  
  853. 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))
  854.  
  855. 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))
  856.  
  857. 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))
  858.  
  859. 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))
  860.  
  861. running=true
  862.  
  863. run()
  864.  
  865. end
  866.  
  867. end
  868.  
  869. end)
  870.  
  871. vs.ChildRemoved:connect(function(w)
  872.  
  873. if w.Name=="SeatWeld" then
  874.  
  875. torso=w.Part1
  876.  
  877. if torso then
  878.  
  879. for i, v in pairs(torsos) do
  880.  
  881. if v==torso then
  882.  
  883. table.remove(torsos,i)
  884.  
  885. end
  886.  
  887. end
  888.  
  889. local player=game.Players:getPlayerFromCharacter(torso.Parent)
  890.  
  891. player.PlayerGui[modelname]:remove()
  892.  
  893. running=false
  894.  
  895. end
  896.  
  897. end
  898.  
  899. end)
  900.  
  901. ps.ChildRemoved:connect(function(w)
  902.  
  903. if w.Name=="SeatWeld" then
  904.  
  905. torso=w.Part1
  906.  
  907. if torso then
  908.  
  909. for i, v in pairs(torsos) do
  910.  
  911. if v==torso then
  912.  
  913. table.remove(torsos,i)
  914.  
  915. end
  916.  
  917. end
  918.  
  919. end
  920.  
  921. end
  922.  
  923. end)
  924.  
  925. c(function()wait(.5) bp:remove()end)
  926.  
  927. function makelightning(from, to, thick, col)
  928.  
  929. local magnitude=(from.p-to.p).magnitude
  930.  
  931. local distance=(from.p+to.p)/2
  932.  
  933. local pattern=part(workspace, true, false, vc(.2, .2, magnitude), "White", 1, cn(distance, from.p))
  934.  
  935. local fromPosProx=from.p
  936.  
  937. for i=1, 4 do
  938.  
  939. local fromPosProx2=fromPosProx
  940.  
  941. local random=vc(rn(-1, 1), rn(-1, 1), rn(-1, 1))
  942.  
  943. local findSize=pattern.Size.z/3
  944.  
  945. local findOffSet=pattern.CFrame.lookVector*-1
  946.  
  947. local compute=i*findSize*findOffSet
  948.  
  949. local newfromPos=from.p
  950.  
  951. local newEndPos=cn(random+compute+newfromPos).p
  952.  
  953. local magnitude=(fromPosProx2-newEndPos).magnitude
  954.  
  955. local distance=(fromPosProx2+newEndPos)/2
  956.  
  957. local lightning=part(workspace, true, false, vc(1, 1, 1), col or "Bright yellow", 0, cn(distance, fromPosProx2), vc(thick, thick, magnitude))
  958.  
  959. fromPosProx=newEndPos
  960.  
  961. game.Debris:addItem(lightning, .5)
  962.  
  963. end
  964.  
  965. pattern:remove()
  966.  
  967. end
  968.  
  969. function play(soundid, pitch, volume)
  970.  
  971. local sound=sound(workspace, soundid, pitch, volume)
  972.  
  973. sound:play()
  974.  
  975. c(function() wait(5) sound:remove() end)
  976.  
  977. end
  978.  
  979. trm=Instance.new("Model", delorean)
  980.  
  981. function trail(prt, cf, thick, col)
  982.  
  983. local old=(prt.CFrame*(cf or cn())).p
  984.  
  985. 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))
  986.  
  987. c(function()
  988.  
  989. for i=1, 0, -.001 do pc(function() trail.Mesh.Scale=trail.Mesh.Scale*vc(i, i, i) end) wait() end
  990.  
  991. trail:remove()
  992.  
  993. end)
  994.  
  995. end
  996.  
  997. Targets={}
  998.  
  999. timedeb=false
  1000.  
  1001. num=0
  1002.  
  1003. maxnum=400
  1004.  
  1005. origin=0
  1006.  
  1007. function stick(from, to)
  1008.  
  1009. local stickW=weld(from, to, to.CFrame:inverse()*from.CFrame)
  1010.  
  1011. stickW.C0=from.CFrame:inverse()*from.CFrame
  1012.  
  1013. return stickW
  1014.  
  1015. end
  1016.  
  1017. local bp=Instance.new("BodyPosition") bp.D=100 bp.maxForce=vc(inf,inf,inf)
  1018.  
  1019. timedeb=false
  1020.  
  1021. function run()
  1022.  
  1023. num=0
  1024.  
  1025. c(function()
  1026.  
  1027. for i, v in pairs(workspace:children()) do
  1028.  
  1029. if v:isA("Model") then
  1030.  
  1031. for i, v2 in pairs(v:children()) do
  1032.  
  1033. if v2:isA("BasePart") then
  1034.  
  1035. for i, v3 in pairs(v2:children()) do
  1036.  
  1037. if v3:isA("CFrameValue") then
  1038.  
  1039. v3:remove()
  1040.  
  1041. end
  1042.  
  1043. end
  1044.  
  1045. end
  1046.  
  1047. end
  1048.  
  1049. end
  1050.  
  1051. end
  1052.  
  1053. timedeb=true
  1054.  
  1055. while true do
  1056.  
  1057. --TimeContinium-----------------------------
  1058.  
  1059. if num<=0 and timedeb==true then
  1060.  
  1061. for i, v in pairs(workspace:children()) do
  1062.  
  1063. if v:isA("BasePart") then
  1064.  
  1065. if v.Anchored==false then
  1066.  
  1067. table.insert(Targets, v)
  1068.  
  1069. local Origin = Instance.new("CFrameValue")
  1070.  
  1071. Origin.Parent = v
  1072.  
  1073. Origin.Name = "Origin CFrame"
  1074.  
  1075. Origin.Value = v.CFrame
  1076.  
  1077. end
  1078.  
  1079. end
  1080.  
  1081. for i, t in pairs(torsos) do
  1082.  
  1083. if v:isA("Model") and v~=t.Parent and v~=delorean then
  1084.  
  1085. for i, v2 in pairs(v:children()) do
  1086.  
  1087. if v2:isA("BasePart") then
  1088.  
  1089. table.insert(Targets, v2)
  1090.  
  1091. local Origin = Instance.new("CFrameValue")
  1092.  
  1093. Origin.Parent = v2
  1094.  
  1095. Origin.Name = "Origin CFrame"
  1096.  
  1097. Origin.Value = v2.CFrame
  1098.  
  1099. end
  1100.  
  1101. end
  1102.  
  1103. end
  1104.  
  1105. end
  1106.  
  1107. end
  1108.  
  1109. ---------
  1110.  
  1111. while num<maxnum and timedeb==true do ---print(num)
  1112.  
  1113. for i, v in pairs(workspace:children()) do
  1114.  
  1115. if v:isA("BasePart") and v:findFirstChild("Origin CFrame")==nil then
  1116.  
  1117. if v.Anchored==false then
  1118.  
  1119. table.insert(Targets, v)
  1120.  
  1121. local Origin = Instance.new("CFrameValue")
  1122.  
  1123. Origin.Parent = v
  1124.  
  1125. Origin.Name = "Origin CFrame"
  1126.  
  1127. Origin.Value = v.CFrame
  1128.  
  1129. end
  1130.  
  1131. end
  1132.  
  1133. for i, t in pairs(torsos) do
  1134.  
  1135. if v:isA("Model") and v~=t.Parent and v~=delorean then
  1136.  
  1137. for i, v2 in pairs(v:children()) do
  1138.  
  1139. if v2:isA("BasePart") and v2:findFirstChild("Origin CFrame")==nil then
  1140.  
  1141. table.insert(Targets, v2)
  1142.  
  1143. local Origin = Instance.new("CFrameValue")
  1144.  
  1145. Origin.Parent = v2
  1146.  
  1147. Origin.Name = "Origin CFrame"
  1148.  
  1149. Origin.Value = v2.CFrame
  1150.  
  1151. end
  1152.  
  1153. end
  1154.  
  1155. end
  1156.  
  1157. end
  1158.  
  1159. end
  1160.  
  1161. for i, v in pairs(Targets) do
  1162.  
  1163. local History = Instance.new("CFrameValue")
  1164.  
  1165. History.Parent = v
  1166.  
  1167. History.Name = num
  1168.  
  1169. History.Value = v.CFrame
  1170.  
  1171. end
  1172.  
  1173. num = num + 1
  1174.  
  1175. wait()
  1176.  
  1177. end
  1178.  
  1179. end
  1180.  
  1181. wait()
  1182.  
  1183. end
  1184.  
  1185. end)
  1186.  
  1187. while running do
  1188.  
  1189. local speed=base.Velocity.magnitude
  1190.  
  1191. speedometer.Text=math.floor(speed)
  1192.  
  1193. if speed>65 and speed<88 then play("http://www.roblox.com/asset/?id=2800815", 1, .5)
  1194.  
  1195. makelightning(base.CFrame*CFrame.new(0,0,10), base.CFrame*CFrame.new(rn(-10,10),rn(-10,10),rn(-2,10)), 1)
  1196.  
  1197. trail(tbr,cn(-1.5, 0, -10),2.5,"Bright orange")
  1198.  
  1199. trail(tbl,cn(-1.9, 0, -10),2.5,"Bright orange")
  1200.  
  1201. end
  1202.  
  1203. if speed>88 and speed<90 then play("http://roblox.com/asset/?id=10209481")
  1204.  
  1205. local trm2=trm:clone() trm2.Parent=workspace
  1206.  
  1207. origin=base.Position
  1208.  
  1209. print(origin)
  1210.  
  1211. game.Debris:addItem(trm2, 5)
  1212.  
  1213. bp.position=vc(0,0,-99999)
  1214.  
  1215. bp.Parent=base
  1216.  
  1217. timedeb=false
  1218.  
  1219. c(function()
  1220.  
  1221. for i=0,1,.005 do
  1222.  
  1223. game.Lighting.TimeOfDay=math.floor(hourbox.Text*i)..":"..math.floor(minutebox.Text*i)..":"..math.floor(secondbox.Text*i)
  1224.  
  1225. wait()
  1226.  
  1227. end
  1228.  
  1229. end)
  1230.  
  1231. while num > 0 do --print(num)
  1232.  
  1233. wait()
  1234.  
  1235. num = num - 1
  1236.  
  1237. for i, v in pairs(Targets) do
  1238.  
  1239. v.Anchored=true
  1240.  
  1241. local History = v:findFirstChild(num)
  1242.  
  1243. if History ~= nil then
  1244.  
  1245. v.CFrame = History.Value
  1246.  
  1247. History:remove()
  1248.  
  1249. end
  1250.  
  1251. end
  1252.  
  1253. end
  1254.  
  1255. for i, v in pairs(Targets) do
  1256.  
  1257. local Origin = v:findFirstChild("Origin CFrame")
  1258.  
  1259. if Origin ~= nil then
  1260.  
  1261. v.CFrame = Origin.Value
  1262.  
  1263. v:makeJoints()
  1264.  
  1265. Origin:remove()
  1266.  
  1267. end
  1268.  
  1269. end
  1270.  
  1271. for i, v in pairs(Targets) do
  1272.  
  1273. v.Anchored=false
  1274.  
  1275. end
  1276.  
  1277. play("http://www.roblox.com/asset/?id=2101148", 1, 1)
  1278.  
  1279. exp=Instance.new("Explosion", workspace)
  1280.  
  1281. exp.BlastPressure=0
  1282.  
  1283. exp.Position=origin
  1284.  
  1285. Targets = {}
  1286.  
  1287. timedeb=true
  1288.  
  1289. bp.position=origin
  1290.  
  1291. origin=0
  1292.  
  1293. base.Velocity=vc(0,0,0)
  1294.  
  1295. bf.force=base.CFrame.lookVector*0
  1296.  
  1297. wait(1)
  1298.  
  1299. bp:remove()
  1300.  
  1301. end
  1302.  
  1303. if vs.Steer==0 then bav.angularvelocity=vc(0,0,0) atfr(ca(0, 0, 0)) atfl(ca(0, 0, 0)) end
  1304.  
  1305. if vs.Steer==1 then atfr(ca(rd(-25), 0, 0)) atfl(ca(rd(-25), 0, 0)) end
  1306.  
  1307. if vs.Steer==-1 then atfr(ca(rd(25), 0, 0)) atfl(ca(rd(25), 0, 0)) end
  1308.  
  1309. if vs.Throttle==1 then bav.Parent=base bf.Parent=base
  1310.  
  1311. if vs.Steer==1 then bav.angularvelocity=vc(0,-2,0) end
  1312.  
  1313. if vs.Steer==-1 then bav.angularvelocity=vc(0,2,0) end
  1314.  
  1315. bf.force=base.CFrame.lookVector*40000
  1316.  
  1317. end
  1318.  
  1319. if vs.Throttle==0 then bav.Parent=base bf.Parent=base
  1320.  
  1321. bf.force=base.CFrame.lookVector*0
  1322.  
  1323. end
  1324.  
  1325. if vs.Throttle==-1 then bav.Parent=base bf.Parent=base
  1326.  
  1327. if vs.Steer==1 then bav.angularvelocity=vc(0,2,0) end
  1328.  
  1329. if vs.Steer==-1 then bav.angularvelocity=vc(0,-2,0) end
  1330.  
  1331. bf.force=base.CFrame.lookVector*-40000
  1332.  
  1333. end
  1334.  
  1335. wait()
  1336.  
  1337. end
  1338.  
  1339. end
Advertisement
Add Comment
Please, Sign In to add comment
Advertisement