API tools faq
paste
Advertisement
Guest User

delorean

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