API tools faq
paste
Advertisement
PersonsadminTeam

DeLoreanTimeMachine

PersonsadminTeam
Sep 25th, 2016
413
0
Never
Add comment
Not a member of Pastebin yet? Sign Up, it unlocks many cool features!
Lua 28.77 KB | None | 0 0
raw download clone embed print report diff
  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
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!