Advertisement
PersonsadminTeam

DeLoreanTimeMachine

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