API tools faq
paste
Advertisement
wamandnj

Untitled

wamandnj
Mar 22nd, 2019
233
0
Never
Add comment
Not a member of Pastebin yet? Sign Up, it unlocks many cool features!
text 24.06 KB | None | 0 0
raw download clone embed print report
  1. if game:GetService("RunService"):IsClient() then error("Script must be server-side in order to work; use h/ and not hl/") end
  2. local Player,Mouse,mouse,UserInputService,ContextActionService = owner
  3. local RealPlayer = Player
  4. do print("FE Compatibility code by Mokiros");InternalData = {}InternalData.RealOwner = owner;InternalData.RealObjs = {};InternalData.SoundLoudness = {};local a=RealPlayer;script.Parent=a.Character;local b=Instance.new("RemoteEvent")b.Name="UserInput_Event"local function c()local d={_fakeEvent=true,Functions={},Connect=function(self,e)table.insert(self.Functions,e)end}d.connect=d.Connect;return d end;local f={Target=nil,Hit=CFrame.new(),KeyUp=c(),KeyDown=c(),Button1Up=c(),Button1Down=c()}local g={InputBegan=c(),InputEnded=c()}local CAS={Actions={},BindAction=function(self,h,i,j,...)CAS.Actions[h]=i and{Name=h,Function=i,Keys={...}}or nil end}CAS.UnbindAction=CAS.BindAction;local function k(self,l,...)local d=f[l]if d and d._fakeEvent then for m,e in pairs(d.Functions)do e(...)end end end;f.TrigEvent=k;g.TrigEvent=k;b.OnServerEvent:Connect(function(n,o)if n~=a then return end;f.Target=o.Target;f.Hit=o.Hit;if not o.isMouse then local p=o.UserInputState==Enum.UserInputState.Begin;if o.UserInputType==Enum.UserInputType.MouseButton1 then return f:TrigEvent(p and"Button1Down"or"Button1Up")end;for m,d in pairs(CAS.Actions)do for m,q in pairs(d.Keys)do if q==o.KeyCode then d.Function(d.Name,o.UserInputState,o)end end end;f:TrigEvent(p and"KeyDown"or"KeyUp",o.KeyCode.Name:lower())g:TrigEvent(p and"InputBegan"or"InputEnded",o,false)end end)b.Parent=NLS([==[local a=game:GetService("Players").LocalPlayer;local b=script:WaitForChild("UserInput_Event")local c=a:GetMouse()local d=game:GetService("UserInputService")local e=function(f,g)if g then return end;b:FireServer({KeyCode=f.KeyCode,UserInputType=f.UserInputType,UserInputState=f.UserInputState,Hit=c.Hit,Target=c.Target})end;d.InputBegan:Connect(e)d.InputEnded:Connect(e)local h,i;while wait(1/30)do if h~=c.Hit or i~=c.Target then h,i=c.Hit,c.Target;b:FireServer({isMouse=true,Target=i,Hit=h})end end]==],Player.Character)local r=game;local s={__index=function(self,q)local t=rawget(self,"_RealService")if t then return t[q]end end,__newindex=function(self,q,u)local t=rawget(self,"_RealService")if t then t[q]=u end end,__call=function(self,...)local t=rawget(self,"_RealService")if t then return t(...)end end}local function v(d,w)d._RealService=typeof(w)=="string"and r:GetService(w)or w;return setmetatable(d,s)end;local x={GetService=function(self,t)return self[t]end,Players=v({LocalPlayer=v({GetMouse=function(self)return f end},Player)},"Players"),UserInputService=v(g,"UserInputService"),ContextActionService=v(CAS,"ContextActionService")}rawset(x.Players,"localPlayer",x.Players.LocalPlayer)x.service=x.GetService;x.RunService=v({RenderStepped=r:GetService("RunService").Heartbeat,BindToRenderStep=function(self,h,m,i)self._btrs[h]=self.Heartbeat:Connect(i)end,UnbindFromRenderStep=function(self,h)self._btrs[h]:Disconnect()end},"RunService")setmetatable(x,{__index=function(self,t)return r:GetService(t)or typeof(r[t])=="function"and function(m,...)return r[t](r,...)end or r[t]end,__newindex=s.__newindex,__call=s.__call})game,owner=x,x.Players.LocalPlayer
  5. script.Parent = InternalData.RealOwner.Character
  6. local Event = Instance.new("RemoteEvent");Event.Name = "UserInput";InternalData.Event = Event
  7. local function createObject (connections, index)
  8. local proxy = newproxy (true);local meta = getmetatable (proxy);
  9. local runbind = function (self, i, ...) connections[i]:Fire (...); end;
  10. while (#connections > 0) do connections[table.remove(connections, 1)] = Instance.new ('BindableEvent');end;
  11. meta.__index = function (self, i)
  12. if (i == 'TriggerEvent') then return runbind end;
  13. return connections[i] and connections[i].Event or index[i];
  14. end;
  15. meta.__newindex = index;meta.__metatable = false;return proxy
  16. end;
  17. local Mouse = createObject({"KeyUp","KeyDown","Button1Down","Button1Up"},{["Target"] = nil;["Hit"] = CFrame.new()})
  18. local UserInputService = createObject({"InputBegan","InputEnded"},{})
  19. local ContextActionService = {Actions={},BindAction = function(self,actionName,Func,touch,...)
  20. self.Actions[actionName] = Func and {Name=actionName,Function=Func,Keys={...}} or nil
  21. end};ContextActionService.UnBindAction = ContextActionService.BindAction
  22. Event.OnServerEvent:Connect(function(FiredBy,Input)
  23. if FiredBy ~= InternalData.RealOwner then return end
  24. if Input.MouseEvent then
  25. Mouse.Target = Input.Target;Mouse.Hit = Input.Hit
  26. elseif Input.Sound then
  27. if InternalData.SoundLoudness[Input.Sound] then InternalData.SoundLoudness[Input.Sound] = Input.Loudness end
  28. else
  29. local Begin = Input.UserInputState == Enum.UserInputState.Begin
  30. if Input.UserInputType == Enum.UserInputType.MouseButton1 then return Mouse:TriggerEvent(Begin and "Button1Down" or "Button1Up") end
  31. for _,Action in pairs(ContextActionService.Actions) do
  32. for _,Key in pairs(Action.Keys) do if Key==Input.KeyCode then Action.Function(Action.Name,Input.UserInputState,Input) end end
  33. end
  34. Mouse:TriggerEvent(Begin and "KeyDown" or "KeyUp",Input.KeyCode.Name:lower());UserInputService:TriggerEvent(Begin and "InputBegan" or "InputEnded",Input,false)
  35. end
  36. end)
  37. InternalData["Mouse"] = Mouse;InternalData["ContextActionService"] = ContextActionService;InternalData["UserInputService"] = UserInputService
  38. Event.Parent = NLS([[
  39. local Player = owner;
  40. local Sounds = {};
  41. local Event = script:WaitForChild("UserInput");
  42. local UserInputService = game:GetService("UserInputService");
  43. local Mouse = Player:GetMouse();
  44. local Input = function(Input,gameProcessedEvent)
  45. if gameProcessedEvent then return end
  46. Event:FireServer({KeyCode=Input.KeyCode,UserInputType=Input.UserInputType,UserInputState=Input.UserInputState})
  47. end
  48. Event.OnClientEvent:connect(function(Args)
  49. if Args[1] == "NewSound" then table.insert(Sounds,Args[2]) end
  50. end)
  51. UserInputService.InputBegan:Connect(Input);UserInputService.InputEnded:Connect(Input)
  52. local Hit,Target
  53. while wait(1/30) do
  54. for x,Sound in pairs(Sounds) do
  55. if Sound.Parent then Event:FireServer({["Sound"]=Sound,["Loudness"]=Sound.PlaybackLoudness}) end
  56. end
  57. if Hit ~= Mouse.Hit or Target ~= Mouse.Target then
  58. Hit = Mouse.Hit;Target = Mouse.Target;
  59. Event:FireServer({["MouseEvent"]=true,["Target"]=Target,["Hit"]=Hit})
  60. end
  61. end
  62. ]],InternalData.RealOwner.Character)
  63. end
  64. InternalData.NewOwner = setmetatable({},{
  65. __index = function (self,Index)
  66. local Type = type(InternalData.RealOwner[Index])
  67. if Type == "function" then
  68. if Index:lower() == "getmouse" or Index:lower() == "mouse" then
  69. return function (self)return InternalData["Mouse"] end
  70. end
  71. return function (self,...)return InternalData.RealOwner[Index](InternalData.RealOwner,...) end
  72. elseif Index == "FakePlayer" then
  73. return true
  74. end
  75. return InternalData.RealOwner[Index]
  76. end;
  77. __tostring = function(self) return tostring(InternalData.RealOwner) end
  78. })
  79. --LoadLibrary("RbxUtility").Create
  80. InternalData.LoadLibrary = LoadLibrary;LoadLibrary = function(Library)
  81. if Library == "RbxUtility" then
  82. return setmetatable({},{
  83. __tostring = function() return "RbxUtility" end;
  84. __index = function(self, Index)
  85. if Index:lower() == "create" then
  86. return function(Type)
  87. return function(Data)
  88. Data = Data or {}
  89. local Inst = Instance.new(Type)
  90. for x,y in pairs(Data) do
  91. if InternalData.RealObjs[y] then y = InternalData.RealObjs[y] end
  92. if y == owner then y = InternalData.RealOwner end
  93. Inst[x] = y
  94. end
  95. return Inst
  96. end
  97. end
  98. end
  99. return InternalData.LoadLibrary(Library)[Index]
  100. end
  101. })
  102. end
  103. return InternalData.LoadLibrary(Library)
  104. end
  105. InternalData.RealInstance = Instance;Instance = setmetatable({},{
  106. __index = function (self,Index)
  107. if Index:lower() == 'new' then
  108. return function (Type, Parent)
  109. if Parent == owner then Parent = InternalData.RealOwner end
  110. if InternalData.RealObjs[Parent] then Parent = InternalData.RealObjs[Parent] end
  111. local Real = InternalData.RealInstance.new(Type,Parent)
  112. if not Type then return end
  113. if Type == "BillboardGui" then
  114. local ToReturn = setmetatable({},{
  115. __index = function (self,Index)
  116. if type(Real[Index]) == "function" then
  117. if Index:lower() == "clone" then
  118. return function (self)
  119. local Real = Real:Clone()
  120. local ToReturn = setmetatable({RealObject = Real},{
  121. __index = function (self,Index)
  122. if type(Real[Index]) == "function" then return function (self,...) return Real[Index](Real,...)end end
  123. return Real[Index]
  124. end;
  125. __newindex = function (self,Index,Value)
  126. if InternalData.RealObjs[Value] then Value = InternalData.RealObjs[Value] end
  127. if Value == owner then Value = InternalData.RealOwner end
  128. Real[Index] = Value
  129. end;
  130. __tostring = function(self) return tostring(Real) end;
  131. })
  132. InternalData.RealObjs[ToReturn] = Real;return ToReturn;
  133. end
  134. end
  135. return function (self,...) return Real[Index](Real,...)end
  136. end
  137. return Real[Index]
  138. end;
  139. __newindex = function (self,Index,Value)
  140. if InternalData.RealObjs[Value] then Value = InternalData.RealObjs[Value] end
  141. if Value == owner then Value = InternalData.RealOwner end
  142. Real[Index] = Value
  143. end;
  144. __tostring = function(self) return tostring(Real) end;
  145. })
  146. InternalData.RealObjs[ToReturn] = Real;return ToReturn;
  147. elseif Type:lower() == "sound" then
  148. Real.Parent = owner.Character;
  149. local ToReturn = setmetatable({RealObject = Real},{
  150. __index = function (self,Index)
  151. if Index:lower() == "playbackloudness" then
  152. return InternalData.SoundLoudness[Real] or 0
  153. elseif type(Real[Index]) == "function" then
  154. if Index:lower() == "clone" then
  155. return function (self)
  156. local Real = Real:Clone()
  157. local ToReturn = setmetatable({},{
  158. __index = function (self,Index)
  159. if type(Real[Index]) == "function" then return function (self,...) return Real[Index](Real,...)end end
  160. return Real[Index]
  161. end;
  162. __newindex = function (self,Index,Value)
  163. if InternalData.RealObjs[Value] then Value = InternalData.RealObjs[Value] end
  164. if Value == owner then Value = InternalData.RealOwner end
  165. Real[Index] = Value
  166. end;
  167. __tostring = function(self) return tostring(Real) end;
  168. })
  169. InternalData.RealObjs[ToReturn] = Real;return ToReturn;
  170. end
  171. end
  172. return function (self,...) return Real[Index](Real,...)end
  173. end
  174. return Real[Index]
  175. end;
  176. __newindex = function (self,Index,Value)
  177. if InternalData.RealObjs[Value] then Value = InternalData.RealObjs[Value] end
  178. if Value == owner then Value = InternalData.RealOwner end
  179. Real[Index] = Value
  180. end;
  181. __tostring = function(self) return tostring(Real) end;
  182. })
  183. InternalData.RealObjs[ToReturn] = Real;InternalData.SoundLoudness[Real] = 0;repeat wait() until InternalData.Event.Parent InternalData.Event:FireClient(InternalData.RealOwner,{"NewSound",Real}) return ToReturn;
  184. else
  185. local ToReturn = setmetatable({RealObject = Real},{
  186. __index = function (self,Index)
  187. if type(Real[Index]) == "function" then
  188. if Index:lower() == "clone" then
  189. return function (self)
  190. local Real = Real:Clone()
  191. local ToReturn = setmetatable({},{
  192. __index = function (self,Index)
  193. if type(Real[Index]) == "function" then return function (self,...) return Real[Index](Real,...)end end
  194. return Real[Index]
  195. end;
  196. __newindex = function (self,Index,Value)
  197. if InternalData.RealObjs[Value] then Value = InternalData.RealObjs[Value] end
  198. if Value == owner then Value = InternalData.RealOwner end
  199. Real[Index] = Value
  200. end;
  201. __tostring = function(self) return tostring(Real) end;
  202. })
  203. InternalData.RealObjs[ToReturn] = Real;return ToReturn;
  204. end
  205. end
  206. return function (self,...) return Real[Index](Real,...)end
  207. end
  208. return Real[Index]
  209. end;
  210. __newindex = function (self,Index,Value)
  211. if InternalData.RealObjs[Value] then Value = InternalData.RealObjs[Value] end
  212. if Value == owner then Value = InternalData.RealOwner end
  213. Real[Index] = Value
  214. end;
  215. __tostring = function(self) return tostring(Real) end;
  216. })
  217. InternalData.RealObjs[ToReturn] = Real;return ToReturn;
  218. end
  219. end
  220. end
  221. return InternalData.RealInstance[Index]
  222. end;
  223. __tostring = function(self) return tostring(InternalData.RealInstance) end;
  224. });
  225. InternalData.RealGame = game;game = setmetatable({},{
  226. __index = function (self,Index)
  227. if InternalData.RealGame[Index] then
  228. local Type = type(InternalData.RealGame[Index])
  229. if Type == "function" then
  230. if Index:lower() == "getservice" or Index:lower() == "service" then
  231. return function (self,Service)
  232. local FakeServices = {
  233. ["players"] = function()
  234. return setmetatable({},{
  235. __index = function (self2,Index2)
  236. local RealService = InternalData.RealGame:GetService(Service)
  237. local Type2 = type(RealService[Index2])
  238. if Type2 == "function" then
  239. return function (self,...) return RealService[Index2](RealService,...)end
  240. else
  241. if Index2:lower() == "localplayer" then return InternalData.NewOwner end
  242. return RealService[Index2]
  243. end
  244. end;
  245. __tostring = function(self) return tostring(InternalData.RealGame:GetService(Service)) end
  246. })
  247. end;
  248. ["contextactionservice"] = function() return InternalData["ContextActionService"] end;
  249. ["userinputservice"] = function() return InternalData["UserInputService"] end;
  250. ["debris"] = function()
  251. return setmetatable({},{
  252. __index = function(self2,Index2)
  253. local RealService = InternalData.RealGame:GetService(Service)
  254. local Type2 = type(RealService[Index2])
  255. if Type2 == "function" then
  256. if Index2:lower() == "additem" then
  257. return function (self,Item,Time)
  258. if InternalData.RealObjs[Item] then Item = InternalData.RealObjs[Item] end
  259. return RealService:AddItem(Item,Time)
  260. end
  261. end
  262. return function (self,...) return RealService[Index2](RealService,...) end
  263. end
  264. return RealService[Index2]
  265. end;
  266. __tostring = function(self) return tostring(InternalData.RealGame:GetService("Debris")) end
  267. })
  268. end;
  269. ["runservice"] = function()
  270. return setmetatable({},{
  271. __index = function(self2,Index2)
  272. local RealService = InternalData.RealGame:GetService(Service)
  273. local Type2 = type(RealService[Index2])
  274. if Type2 == "function" then
  275. return function (self,...) return RealService[Index2](RealService,...) end
  276. else
  277. local RunServices = {
  278. ["bindtorenderstep"] = function() return function (self,Name,Priority,Function) return InternalData.RealGame:GetService("RunService").Stepped:Connect(Function) end end;
  279. ["renderstepped"] = function() return RealService["Stepped"] end
  280. }
  281. if RunServices[Index2:lower()] then return RunServices[Index2:lower()]() end
  282. return RealService[Index2]
  283. end
  284. end;
  285. __tostring = function(self) return tostring(InternalData.RealGame:GetService("RunService")) end
  286. })
  287. end
  288. }
  289. if FakeServices[Service:lower()] then return FakeServices[Service:lower()]() end
  290. return InternalData.RealGame:GetService(Service)
  291. end
  292. end
  293. return function (self,...) return InternalData.RealGame[Index](InternalData.RealGame,...) end
  294. else
  295. if game:GetService(Index) then return game:GetService(Index) end
  296. return InternalData.RealGame[Index]
  297. end
  298. end
  299. return nil
  300. end;
  301. __tostring = function(self) return tostring(InternalData.game) end
  302. });Game = game;owner = game:GetService("Players").LocalPlayer;script = Instance.new("Script");print("Complete!")
  303.  
  304. local verlet = {}
  305. verlet.step_time = 1 / 50
  306. verlet.gravity = Vector3.new(0, -10, 0)
  307.  
  308. local char = game.Players.LocalPlayer.Character
  309. local torso = char:WaitForChild("Torso")
  310. local parts = {}
  311. local render = game:GetService("RunService").RenderStepped
  312.  
  313. wait(2)
  314.  
  315. local point = {}
  316. local link = {}
  317. local rope = {}
  318.  
  319. local function ccw(A,B,C)
  320. return (C.y-A.y) * (B.x-A.x) > (B.y-A.y) * (C.x-A.x)
  321. end
  322.  
  323. local function intersect(A,B,C,D)
  324. return ccw(A,C,D) ~= ccw(B,C,D) and ccw(A,B,C) ~= ccw(A,B,D)
  325. end
  326.  
  327. local function vec2(v)
  328. return Vector2.new(v.x, v.z)
  329. end
  330.  
  331. function point:step()
  332. if not self.fixed then
  333. local derivative = (self.position - self.last_position) * 0.95
  334. self.last_position = self.position
  335. self.position = self.position + derivative + (self.velocity * verlet.step_time ^ 2)
  336. --[[local torsoP = torso.CFrame * CFrame.new(-1, 0, 0.5)
  337. local torsoE = torso.CFrame * CFrame.new(1, 0, 0.5)
  338. local pointE = self.position + torso.CFrame.lookVector * 100
  339. local doIntersect = intersect(vec2(torsoP.p), vec2(torsoE.p), vec2(self.position), vec2(pointE))
  340. if not doIntersect then
  341. self.postition = self.position - torso.CFrame.lookVector * 10
  342. end]]
  343. end
  344. end
  345.  
  346. function link:step()
  347. for i = 1, 1 do
  348. local distance = self.point1.position - self.point2.position
  349. local magnitude = distance.magnitude
  350. local differance = (self.length - magnitude) / magnitude
  351. local translation = ((self.point1.fixed or self.point2.fixed) and 1 or 0.6) * distance * differance
  352. if not self.point1.fixed then
  353. self.point1.position = self.point1.position + translation
  354. end
  355. if not self.point2.fixed then
  356. self.point2.position = self.point2.position - translation
  357. end
  358. end
  359. end
  360.  
  361. function verlet.new(class, a, b, c)
  362. if class == "Point" then
  363. local new = {}
  364. setmetatable(new, {__index = point})
  365. new.class = class
  366. new.position = a or Vector3.new()
  367. new.last_position = new.position
  368. new.velocity = verlet.gravity
  369. new.fixed = false
  370. return new
  371. elseif class == "Link" then
  372. local new = {}
  373. setmetatable(new, {__index = link})
  374. new.class = class
  375. new.point1 = a
  376. new.point2 = b
  377. new.length = c or (a.position - b.position).magnitude
  378. return new
  379. elseif class == "Rope" then
  380. local new = {}
  381. setmetatable(new, {__index = link})
  382. new.class = class
  383. new.start_point = a
  384. new.finish_point = b
  385. new.points = {}
  386. new.links = {}
  387. local inc = (b - a) / 10
  388. for i = 0, 10 do
  389. table.insert(new.points, verlet.new("Point", a + (i * inc)))
  390. end
  391. for i = 2, #new.points do
  392. table.insert(new.links, verlet.new("Link", new.points[i - 1], new.points[i]))
  393. end
  394. return new
  395. end
  396. end
  397.  
  398. local tris = {}
  399. local triParts = {}
  400.  
  401. local function GetDiscoColor(hue)
  402. local section = hue % 1 * 3
  403. local secondary = 0.5 * math.pi * (section % 1)
  404. if section < 1 then
  405. return Color3.new(1, 1 - math.cos(secondary), 1 - math.sin(secondary))
  406. elseif section < 2 then
  407. return Color3.new(1 - math.sin(secondary), 1, 1 - math.cos(secondary))
  408. else
  409. return Color3.new(1 - math.cos(secondary), 1 - math.sin(secondary), 1)
  410. end
  411. end
  412.  
  413. local function setupPart(part)
  414. part.Anchored = true
  415. part.FormFactor = 3
  416. part.CanCollide = false
  417. part.TopSurface = 10
  418. part.BottomSurface = 10
  419. part.LeftSurface = 10
  420. part.RightSurface = 10
  421. part.FrontSurface = 10
  422. part.BackSurface = 10
  423. part.Material = "Neon"
  424. local m = Instance.new("SpecialMesh", part)
  425. m.MeshType = "Wedge"
  426. m.Scale = Vector3.new(0.2, 1, 1)
  427. return part
  428. end
  429.  
  430. local function CFrameFromTopBack(at, top, back)
  431. local right = top:Cross(back)
  432. return CFrame.new(at.x, at.y, at.z, right.x, top.x, back.x, right.y, top.y, back.y, right.z, top.z, back.z)
  433. end
  434.  
  435. local function drawTri(parent, a, b, c)
  436. local this = {}
  437. local mPart1 = table.remove(triParts, 1) or setupPart(Instance.new("Part"))
  438. local mPart2 = table.remove(triParts, 1) or setupPart(Instance.new("Part"))
  439. function this:Set(a, b, c)
  440. local ab, bc, ca = b-a, c-b, a-c
  441. local abm, bcm, cam = ab.magnitude, bc.magnitude, ca.magnitude
  442. local edg1 = math.abs(0.5 + ca:Dot(ab)/(abm*abm))
  443. local edg2 = math.abs(0.5 + ab:Dot(bc)/(bcm*bcm))
  444. local edg3 = math.abs(0.5 + bc:Dot(ca)/(cam*cam))
  445. if edg1 < edg2 then
  446. if edg1 >= edg3 then
  447. a, b, c = c, a, b
  448. ab, bc, ca = ca, ab, bc
  449. abm = cam
  450. end
  451. else
  452. if edg2 < edg3 then
  453. a, b, c = b, c, a
  454. ab, bc, ca = bc, ca, ab
  455. abm = bcm
  456. else
  457. a, b, c = c, a, b
  458. ab, bc, ca = ca, ab, bc
  459. abm = cam
  460. end
  461. end
  462.  
  463. local len1 = -ca:Dot(ab)/abm
  464. local len2 = abm - len1
  465. local width = (ca + ab.unit*len1).magnitude
  466.  
  467. local maincf = CFrameFromTopBack(a, ab:Cross(bc).unit, -ab.unit)
  468.  
  469. if len1 > 0.2 then
  470. mPart1.Parent = parent
  471. mPart1.Size = Vector3.new(0.2, width, len1)
  472. mPart1.CFrame = maincf*CFrame.Angles(math.pi,0,math.pi/2)*CFrame.new(0,width/2,len1/2)
  473. else
  474. mPart1.Parent = nil
  475. end
  476.  
  477. if len2 > 0.2 then
  478. mPart2.Parent = parent
  479. mPart2.Size = Vector3.new(0.2, width, len2)
  480. mPart2.CFrame = maincf*CFrame.Angles(math.pi,math.pi,-math.pi/2)*CFrame.new(0,width/2,-len1 - len2/2)
  481. else
  482. mPart2.Parent = nil
  483. end
  484. end
  485. function this:SetProperty(prop, value)
  486. mPart1[prop] = value
  487. mPart2[prop] = value
  488. end
  489. this:Set(a, b, c)
  490. function this:Destroy()
  491. mPart1:Destroy()
  492. mPart2:Destroy()
  493. end
  494. this.p1 = mPart1
  495. this.p2 = mPart2
  496. this.p1.BrickColor = BrickColor.new(GetDiscoColor(math.noise(0.5, 0.5, this.p1.CFrame.Y * 0.5 + time())))
  497. this.p2.BrickColor = BrickColor.new(GetDiscoColor(math.noise(0.5, 0.5, this.p2.CFrame.Y * 0.5 + time())))
  498. return this
  499. end
  500.  
  501. function verlet.draw(object, id)
  502. if object.class == "Point" then
  503. local part = parts[id]
  504. part.BrickColor = BrickColor.new(1, 1, 1)
  505. part.Transparency = 0
  506. part.formFactor = 3
  507. part.Anchored = true
  508. part.CanCollide = false
  509. part.TopSurface = 0
  510. part.BottomSurface = 0
  511. part.Size = Vector3.new(0.35, 0.35, 0.35)
  512. part.Material = "Neon"
  513. part.CFrame = CFrame.new(object.position)
  514. part.Parent = torso
  515. return part
  516. elseif object.class == "Link" then
  517. local part = parts[id]
  518. local dist = (object.point1.position - object.point2.position).magnitude
  519. part.Size = Vector3.new(0.2, 0.2, dist)
  520. part.CFrame = CFrame.new(object.point1.position, object.point2.position) * CFrame.new(0, 0, dist * -0.5)
  521. part.Parent = torso
  522. return part
  523. end
  524. end
  525.  
  526. function verlet.clear()
  527. for _, v in pairs(workspace:GetChildren()) do
  528. if v.Name == "Part" then
  529. v:Destroy()
  530. end
  531. end
  532. end
  533.  
  534. local points = {}
  535. local links = {}
  536.  
  537. for x = 0, 2 do
  538. points[x] = {}
  539. for y = 0, 3 do
  540. points[x][y] = verlet.new("Point", torso.Position + Vector3.new(x * 0.8 - 2, 2 - y * 0.8, 5 + y * 0.4))
  541. points[x][y].fixed = y == 0
  542. end
  543. end
  544.  
  545. for x = 1, 2 do
  546. for y = 0, 3 do
  547. links[#links + 1] = verlet.new("Link", points[x][y], points[x - 1][y], 1 + y * 0.08)
  548. end
  549. end
  550.  
  551. for x = 0, 2 do
  552. for y = 1, 3 do
  553. links[#links + 1] = verlet.new("Link", points[x][y], points[x][y - 1], 1.2 + y * 0.03)
  554. end
  555. end
  556.  
  557. render:connect(function()
  558. for x = 0, 2 do
  559. for y = 0, 3 do
  560. if y == 0 then
  561. points[x][y].position = (torso.CFrame * CFrame.new(x * 1 - 1, 1, 0.5)).p
  562. else
  563. points[x][y]:step()
  564. end
  565. end
  566. end
  567. for i = 1, #links do
  568. links[i]:step()
  569. end
  570. for i = 1, #tris do
  571. triParts[#triParts + 1] = tris[i].p1
  572. triParts[#triParts + 1] = tris[i].p2
  573. end
  574. tris = {}
  575. for x = 1, 2 do
  576. for y = 1, 3 do
  577. tris[#tris + 1] = drawTri(torso, points[x - 1][y - 1].position, points[x - 1][y].position, points[x][y - 1].position)
  578. tris[#tris + 1] = drawTri(torso, points[x][y].position, points[x - 1][y].position, points[x][y - 1].position)
  579. end
  580. end
  581. 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!