Advertisement
SmokeDelsin

roblox delorean script

May 16th, 2015
1,243
0
Never
Not a member of Pastebin yet? Sign Up, it unlocks many cool features!
text 28.58 KB | None | 0 0
  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")["SmokeDelsin"]
  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