API tools faq
paste
Guest User

we

a guest
Aug 28th, 2016
64
0
Never
Add comment
Not a member of Pastebin yet? Sign Up, it unlocks many cool features!
text 26.46 KB | None | 0 0
raw download clone embed print report
  1. script.Parent = nil
  2.  
  3.  
  4. it = Instance.new
  5. v3=Vector3.new
  6. bc=BrickColor.new
  7. c3=Color3.new
  8. cn=CFrame.new
  9. ca=CFrame.Angles
  10.  
  11. ca2=function(a,b,c)
  12. return ca(math.rad(a),math.rad(b),math.rad(c))
  13. end
  14.  
  15. ti=table.insert
  16. tr=table.remove
  17. rn=math.random
  18. rd=math.rad
  19. mf=math.floor
  20. ud = UDim2.new
  21. inf=math.huge
  22. dg=math.deg
  23. mdeg=math.deg
  24. v310=v3(1/0,1/0,1/0)
  25. pi=math.pi
  26. w=wait
  27. cf=cn
  28. bn=bc
  29. ts=tostring
  30.  
  31.  
  32. Workspace=game:GetService("Workspace")
  33. Players=game:GetService("Players")
  34. Player=Players.LocalPlayer
  35. Lighting=game:GetService("Lighting")
  36. Debris=game:GetService("Debris")
  37. work=Workspace
  38. server=Players
  39. tb=Player
  40. lighting=Lighting
  41. deb=Debris
  42.  
  43.  
  44. asset = "http://www.roblox.com/asset/?id="
  45. Asset=asset
  46. ids = {}
  47. ids.Shoot = 10209633
  48. ids.Reload = 10209636
  49. ids.Crown = 20329976
  50. ids.Crown2 = 1323306
  51. ids.Icon = 52611635
  52. ids.Explode = 2697431
  53. ids.Ring = 3270017
  54.  
  55. for i,v in pairs(ids) do
  56. if type(v)=='number' then
  57. ids[i]='http://www.roblox.com/asset/?id='..v
  58. end
  59. game:GetService("ContentProvider"):Preload(ids[i])
  60. end
  61.  
  62.  
  63.  
  64. qi = function(ttz)
  65. local qii = it(ttz[1]) table.foreach(ttz,function(oi,oi2)
  66. if oi ~= 1 and oi ~= 2 then qii[oi] = oi2 end end) qii.Parent=ttz[2] return qii end
  67.  
  68. q = function(f)
  69. coroutine.resume(coroutine.create(function() f() end)) end
  70.  
  71. ft = function(tablez,item)
  72. for i=1,#tablez do if tablez[i] == item then return i end end return nil end
  73.  
  74.  
  75. ft2 = function(tablez,item)
  76.  
  77. for i=1,#tablez do if tablez[i][1] == item then return i end end return nil end
  78.  
  79.  
  80.  
  81.  
  82. pa = function(pa,pn,sh,x,y,z,c,a,tr,re,bc2)
  83. local fp=nil
  84. if sh ~= "Wedge" and sh ~= "CornerWedge" and sh ~= "VehicleSeat" and sh ~= "Seat" then
  85. fp=it("Part",pa)
  86. fp.Material = "SmoothPlastic"
  87. fp.TopSurface = "SmoothNoOutlines"
  88. fp.BottomSurface = "SmoothNoOutlines"
  89. fp.RightSurface = "SmoothNoOutlines"
  90. fp.LeftSurface = "SmoothNoOutlines"
  91. fp.BackSurface = "SmoothNoOutlines"
  92. fp.FrontSurface = "SmoothNoOutlines"
  93. fp.Shape=sh or "Block"
  94. fp.formFactor="Custom"
  95. elseif sh == "Wedge" then
  96. fp=it("WedgePart",pa)
  97. fp.formFactor="Custom"
  98. elseif sh == "CornerWedge" then
  99. fp=it("CornerWedgePart",pa)
  100. elseif sh == "VehicleSeat" then
  101. fp=it("VehicleSeat",pa)
  102. elseif sh == "Seat" then
  103. fp=it("Seat",pa)
  104. end
  105. fp.Size=v3(x or 4,y or 2,z or 2)
  106. fp.Friction = 2
  107. fp.CanCollide=c or true
  108. fp.Anchored=a or false
  109. fp.BrickColor=bc(bc2 or "")
  110. fp.Transparency=tr or 0
  111. fp.Reflectance=re or 0
  112. fp.Name=pn or "TBLib Part"
  113. fp.Locked = true
  114. fp.CFrame=cn(0,0,0)
  115. fp:BreakJoints()
  116. fp.Anchored = a
  117. return fp
  118. end
  119.  
  120.  
  121.  
  122. function ClearClass(Object,Class)
  123. for _,v in pairs(Object:GetChildren()) do
  124. if v:IsA(Class) then
  125. v:Destroy()
  126. end
  127. end
  128. end
  129.  
  130.  
  131.  
  132. function GetClass(Object,Class)
  133. for _,v in pairs(Object:GetChildren()) do
  134. if v:IsA(Class) then
  135. return v
  136. end
  137. end
  138. end
  139.  
  140.  
  141.  
  142. function re(par,obj)
  143. if par:findFirstChild(obj) then
  144. par[obj]:Remove''
  145. end
  146. end
  147.  
  148.  
  149.  
  150. function invis(o)
  151. for i,v in pairs(o:children()) do
  152. if v:IsA("BasePart") then
  153. v.Transparency=1
  154. end
  155. invis(v)
  156. end
  157. end
  158.  
  159.  
  160.  
  161. function newhats(p,o,o2)
  162.  
  163.  
  164. for i,v in pairs(p:children()) do
  165.  
  166.  
  167. if v:IsA("Hat") then
  168.  
  169.  
  170. local np=v.Handle:Clone''
  171.  
  172.  
  173. np.Material = "SmoothPlastic"
  174.  
  175.  
  176. np.Transparency=0
  177.  
  178.  
  179. np.Mesh.Scale=np.Mesh.Scale*1.04
  180.  
  181.  
  182. np.Parent=o
  183.  
  184.  
  185. np.CFrame=v.Handle.CFrame
  186.  
  187.  
  188. np.Name="Hat"
  189.  
  190.  
  191. stick2(np,o2,o)
  192.  
  193.  
  194. end
  195.  
  196.  
  197. end
  198.  
  199.  
  200. end
  201.  
  202.  
  203.  
  204.  
  205. fade = function(prt,incr)
  206.  
  207.  
  208. q(function()
  209.  
  210.  
  211. for i=prt.Transparency,1,incr do
  212.  
  213.  
  214. prt.Transparency=i
  215.  
  216.  
  217. wait()
  218.  
  219.  
  220. end
  221.  
  222.  
  223. prt:Remove''
  224.  
  225.  
  226. end)
  227.  
  228.  
  229. end
  230.  
  231.  
  232.  
  233.  
  234.  
  235. function weld(pa,p0,p1,x,y,z,a,b,c)
  236.  
  237.  
  238. local fw=it("Weld",pa)
  239.  
  240.  
  241. fw.Part0=p0
  242.  
  243.  
  244. fw.Part1=p1
  245.  
  246.  
  247. fw.C0=cn(x,y,z)*ca(a,b,c)
  248.  
  249.  
  250. return fw
  251.  
  252.  
  253. end
  254.  
  255.  
  256.  
  257.  
  258.  
  259.  
  260. stick = function(hit2,hit)
  261.  
  262.  
  263. return qi({"Weld",hit2,Part0=hit2,Part1=hit,C0=hit2.CFrame:inverse()*cn(hit2.Position),C1=hit.CFrame:inverse()*cn(hit2.Position)})
  264.  
  265.  
  266. end
  267.  
  268.  
  269.  
  270.  
  271. function stick2(hit2,hit,tostick)
  272.  
  273.  
  274. local weld=it("Weld")
  275.  
  276.  
  277. weld.Part0=tostick
  278.  
  279.  
  280. weld.Part1=hit2
  281.  
  282.  
  283. local HitPos=hit.Position
  284.  
  285.  
  286. local CJ=cn(HitPos)
  287.  
  288.  
  289. local C0=hit2.CFrame:inverse() *CJ
  290.  
  291.  
  292. local C1=hit.CFrame:inverse() * CJ weld.C0=C1
  293.  
  294.  
  295. weld.C1=C0
  296.  
  297.  
  298. weld.Parent=hit2
  299.  
  300.  
  301. end
  302.  
  303.  
  304.  
  305.  
  306. ray = function(Pos, Dir,tab)
  307.  
  308.  
  309. return workspace:FindPartOnRay(Ray.new(Pos, Dir.unit *999),tab)
  310.  
  311.  
  312. end
  313.  
  314.  
  315.  
  316.  
  317.  
  318. function rtab(tabz,obj)
  319.  
  320.  
  321. for i=1,#tabz do
  322.  
  323.  
  324. if tabz[i] == obj then
  325.  
  326.  
  327. tr(tabz,i)
  328.  
  329.  
  330. break
  331.  
  332.  
  333. end
  334.  
  335.  
  336. end
  337.  
  338.  
  339. end
  340.  
  341.  
  342.  
  343.  
  344. sTrail={}
  345.  
  346.  
  347. function Trail2(lopz,ob,waitz,col,thickz,ofz) cw(function() ti(sTrail,ob)
  348.  
  349.  
  350. local oldpos=(ob.CFrame *ofz).p local lopz2=0
  351.  
  352.  
  353. local function loltr() local obp=(ob.CFrame *ofz).p lopz2=lopz2 + 1
  354.  
  355.  
  356. local mag=(oldpos - obp).magnitude
  357.  
  358.  
  359. local tr=pa(ob,"trail","Block",0,0,0,false,false,0.5,0.15,col) tr.Anchored=true
  360.  
  361.  
  362. tr.CFrame=cn(oldpos,obp)
  363.  
  364.  
  365. tr.CFrame=tr.CFrame + tr.CFrame.lookVector* (mag/2)
  366.  
  367.  
  368. local trm=it("CylinderMesh",tr) trm.Scale=v3(5*thickz,mag*5,5*thickz)
  369.  
  370.  
  371. cw(function() for i=5*thickz,0,-5*thickz/10 do trm.Scale=v3(i,mag*5,i) w() end tr:Remove'' end)
  372.  
  373.  
  374. tr.CFrame=tr.CFrame *ca(rd(90),0,0) oldpos=obp end
  375.  
  376.  
  377. repeat loltr()
  378.  
  379.  
  380. wait(waitz) until ft(sTrail,ob) == nil or lopz2 == lopz loltr() end) end
  381.  
  382.  
  383.  
  384.  
  385. Trail = function(ob,times,waitz,col,thickz,ofz) -- Brick Trail
  386.  
  387.  
  388. q(function()
  389.  
  390.  
  391. local oldpos=(ob.CFrame *ofz).p
  392.  
  393.  
  394. for i=1,times do
  395.  
  396.  
  397. if effon==true then
  398.  
  399.  
  400. local obp=(ob.CFrame *ofz).p
  401.  
  402.  
  403. local mag=(oldpos - obp).magnitude
  404.  
  405.  
  406. local tr=pa(ob,"trail","Block",0,0,0,false,false,0.5,0.15,col)
  407.  
  408.  
  409. tr.Anchored=true
  410.  
  411.  
  412. tr.CFrame=cn(oldpos,obp)
  413.  
  414.  
  415. tr.CFrame=tr.CFrame + tr.CFrame.lookVector* (mag/2)
  416.  
  417.  
  418. trm=it("CylinderMesh",tr)
  419.  
  420.  
  421. trm.Scale=v3(thickz,mag*5,thickz)
  422.  
  423.  
  424. q(function()
  425.  
  426.  
  427. for i=thickz,0,thickz/10 do
  428.  
  429.  
  430. trm.Scale=v3(i,mag*5,i)
  431.  
  432.  
  433. wait()
  434.  
  435.  
  436. end
  437.  
  438.  
  439. tr:Remove''
  440.  
  441.  
  442. end)
  443.  
  444.  
  445. tr.CFrame=tr.CFrame *ca(rd(90),0,0)
  446.  
  447.  
  448. oldpos=obp wait(waitz)
  449.  
  450.  
  451. end
  452.  
  453.  
  454. end
  455.  
  456.  
  457. end)
  458.  
  459.  
  460. end
  461.  
  462.  
  463.  
  464.  
  465. de = function(it,ti) game:service'Debris':AddItem(it,ti) end -- Debris
  466.  
  467.  
  468.  
  469.  
  470. GlowMesh = function(anch,meshid2,rootz,mv3,colzz,adjus,l1,l2,l3) q(function() -- Glowmesh
  471.  
  472.  
  473. local spi=pa(rootz,"glowmesh","Block",mv3.X,mv3.Y,mv3.Z,false,false,l1,0,colzz) local spim=it("SpecialMesh",spi) spi.CanCollide=false if meshid2:lower()=="sphere" then spim.MeshType="Sphere" elseif meshid2:lower()=="block" then spim=it("BlockMesh",spi) else spim.MeshType="FileMesh" spim.MeshId=meshid2 end
  474.  
  475.  
  476. if anch then local spiw=qi({"Weld",spi,Part0=rootz,Part1=spi}) spiw.C0 =spiw.C0 *adjus else spi.Anchored=true spi.CFrame=adjus end
  477.  
  478.  
  479. for i=l1,l2,l3 do spi.Transparency=i spim.Scale=mv3*(i+0.3) wait() end spi:Remove'' end)
  480.  
  481.  
  482. end
  483.  
  484.  
  485.  
  486.  
  487. DetectSurface = function(pos, part) -- Surface Detector
  488.  
  489.  
  490. local surface = nil local pospos = part.CFrame
  491.  
  492.  
  493. local pos2 = pospos:pointToObjectSpace(pos) local siz = part.Size local shaep = part.Shape
  494.  
  495.  
  496. if shaep == Enum.PartType.Ball or shaep == Enum.PartType.Cylinder then
  497.  
  498.  
  499. surface = {"Anything", cn(pospos.p, pos)*cn(0, 0, -(pospos.p - pos).magnitude+0.12)*ca(rd(-90), 0, 0)}
  500.  
  501.  
  502. else if pos2.Y > ((siz.Y/2)-0.01) then surface = {"Top", ca(0, 0, 0)}
  503.  
  504.  
  505. elseif pos2.Y < -((siz.Y/2)-0.01) then surface = {"Bottom", ca(-math.pi, 0, 0)} elseif pos2.X > ((siz.X/2)-0.01) then surface = {"Right", ca(0, 0, rd(-90))}
  506.  
  507.  
  508. elseif pos2.X < -((siz.X/2)-0.01) then surface = {"Left", ca(0, 0, rd(90))} elseif pos2.Z > ((siz.Z/2)-0.01) then surface = {"Back", ca(rd(90), 0, 0)} elseif pos2.Z < -((siz.Z/2)-0.01) then surface = {"Front", ca(rd(-90), 0, 0)} end end return surface end
  509.  
  510.  
  511.  
  512.  
  513. BulletHole = function(HitPos,HitObj,sc,img,par) -- Bullethole function
  514.  
  515.  
  516. local Surface = DetectSurface(HitPos, HitObj)
  517.  
  518.  
  519. local C = cn(HitPos) * ca(HitObj.CFrame:toEulerAnglesXYZ()) * Surface[2]
  520.  
  521.  
  522. if Surface[1] == "Anything" then C = Surface[2] end local theimg = img or ds.BulletHole
  523.  
  524.  
  525. local bl = pa(workspace or par,"bullethole","Block",sc,0,sc,false,true,1,0,"") qi({"Decal",bl,Face="Top",Texture=theimg})
  526.  
  527.  
  528. bl.CFrame = C*cn(0,-0.1,0) if not HitObj.Anchored then bl.Anchored = false stick(bl,HitObj) bl.ChildRemoved:connect(function() bl:Remove() end) end q(function() wait(5) for i=0,1,0.05 do bl.Size=v3(-i*sc,0,-i*sc) wait() end de(bl,0) end)
  529.  
  530.  
  531. end
  532.  
  533.  
  534.  
  535.  
  536. so = function(id,par,vol,pit) q(function() -- Sound maker
  537. local sou = qi({"Sound",par or workspace,Volume=vol,Pitch=pit or 1,SoundId=id})
  538. wait() sou:play() wait(6) sou:Remove() end) end
  539.  
  540.  
  541.  
  542.  
  543. -- local/so(asset..ds.GothicMusic,workspace,1,2.6)
  544.  
  545.  
  546.  
  547.  
  548. function GetRegion(p0,p1,f,f2) q(function()
  549.  
  550.  
  551. for i,v in pairs(workspace:FindPartsInRegion3(Region3.new(p0,p1),c,100) ) do if v.Parent:findFirstChild("Humanoid") and v.Parent.Humanoid.Health > 0 and v.Parent:findFirstChild("Torso") then q(function() f(v.Parent) end) elseif f2 and v.Parent.Parent:findFirstChild("Humanoid") == nil then f2(v) end end
  552.  
  553.  
  554. end) end
  555.  
  556.  
  557.  
  558.  
  559.  
  560. FindGround = function(pos) -- ground finder
  561.  
  562.  
  563. local ax,ay,az = pos:toEulerAnglesXYZ()
  564.  
  565.  
  566. local bhit,bpos=ray(pos.p,pos.p - (pos.p + v3(0,200,0)))
  567.  
  568.  
  569. if bhit and bpos then
  570.  
  571.  
  572. return cn(bpos)*ca(ax,ay,az)
  573.  
  574.  
  575. end
  576.  
  577.  
  578. return nil
  579.  
  580.  
  581. end
  582.  
  583.  
  584.  
  585.  
  586. function NPC(Name, Position) -- npc maker
  587.  
  588.  
  589. local Character = Instance.new("Model")
  590.  
  591.  
  592. Character.Name = Name
  593.  
  594.  
  595. local Humanoid = Instance.new("Humanoid")
  596.  
  597.  
  598. Humanoid.Parent = Character
  599.  
  600.  
  601. local Template = Instance.new("Part")
  602.  
  603.  
  604. Template.FormFactor = "Custom"
  605.  
  606.  
  607. Template.Size = Vector3.new(1, 2, 1)
  608.  
  609.  
  610. Template.Locked = true
  611.  
  612.  
  613. local Head = Template:Clone()
  614.  
  615.  
  616. Head.Name = "Head"
  617.  
  618.  
  619. Head.TopSurface = "Smooth"
  620.  
  621.  
  622. Head.BottomSurface = "Smooth"
  623.  
  624.  
  625. Head.Size = Vector3.new(2, 1, 1)
  626.  
  627.  
  628. Head.Parent = Character
  629.  
  630.  
  631. local Mesh = Instance.new("SpecialMesh")
  632.  
  633.  
  634. Mesh.MeshType = "Head"
  635.  
  636.  
  637. Mesh.Scale = Vector3.new(1.25, 1.25, 1.25)
  638.  
  639.  
  640. Mesh.Parent = Head
  641.  
  642.  
  643. local Face = Instance.new("Decal")
  644.  
  645.  
  646. Face.Name = "face"
  647.  
  648.  
  649. Face.Texture = "rbxasset://textures/face.png"
  650.  
  651.  
  652. Face.Parent = Head
  653.  
  654.  
  655. local Torso = Template:Clone()
  656.  
  657.  
  658. Torso.Name = "Torso"
  659.  
  660.  
  661. Torso.LeftSurface = "Weld"
  662.  
  663.  
  664. Torso.RightSurface = "Weld"
  665.  
  666.  
  667. Torso.CFrame = CFrame.new(0, 10000, 0)
  668.  
  669.  
  670. Torso.Size = Vector3.new(2, 2, 1)
  671.  
  672.  
  673. Torso.Parent = Character
  674.  
  675.  
  676. local TShirt = Instance.new("Decal")
  677.  
  678.  
  679. TShirt.Name = "roblox"
  680.  
  681.  
  682. TShirt.Parent = Torso
  683.  
  684.  
  685. local LeftArm = Template:Clone()
  686.  
  687.  
  688. LeftArm.Name = "Left Arm"
  689.  
  690.  
  691. LeftArm.Parent = Character
  692.  
  693.  
  694. local RightArm = Template:Clone()
  695.  
  696.  
  697. RightArm.Name = "Right Arm"
  698.  
  699.  
  700. RightArm.Parent = Character
  701.  
  702.  
  703. local LeftLeg = Template:Clone()
  704.  
  705.  
  706. LeftLeg.Name = "Left Leg"
  707.  
  708.  
  709. LeftLeg.Parent = Character
  710.  
  711.  
  712. local RightLeg = Template:Clone()
  713.  
  714.  
  715. RightLeg.Name = "Right Leg"
  716.  
  717.  
  718. RightLeg.Parent = Character
  719.  
  720.  
  721. Character:BreakJoints()
  722.  
  723.  
  724. local Neck = Instance.new("Weld")
  725.  
  726.  
  727. Neck.Name = "Neck"
  728.  
  729.  
  730. Neck.Part0 = Torso
  731.  
  732.  
  733. Neck.Part1 = Head
  734.  
  735.  
  736. Neck.C0 = CFrame.new(0, 1.5, 0)
  737.  
  738.  
  739. Neck.Parent = Torso
  740.  
  741.  
  742. local LeftShoulder = Instance.new("Motor")
  743.  
  744.  
  745. LeftShoulder.Name = "Left Shoulder"
  746.  
  747.  
  748. LeftShoulder.Part0 = Torso
  749.  
  750.  
  751. LeftShoulder.Part1 = LeftArm
  752.  
  753.  
  754. LeftShoulder.MaxVelocity = 0.1
  755.  
  756.  
  757. LeftShoulder.C0 = CFrame.new(-Torso.Size.x / 2 - RightArm.Size.x / 2, LeftArm.Size.y / 4, 0) * CFrame.fromEulerAnglesXYZ(0, -math.pi / 2, 0)
  758.  
  759.  
  760. LeftShoulder.C1 = CFrame.new(0, LeftArm.Size.y / 4, 0) * CFrame.fromEulerAnglesXYZ(0, -math.pi / 2, 0)
  761.  
  762.  
  763. LeftShoulder.Parent = Torso
  764.  
  765.  
  766. local RightShoulder = Instance.new("Motor")
  767.  
  768.  
  769. RightShoulder.Name = "Right Shoulder"
  770.  
  771.  
  772. RightShoulder.Part0 = Torso
  773.  
  774.  
  775. RightShoulder.Part1 = RightArm
  776.  
  777.  
  778. RightShoulder.MaxVelocity = 0.1
  779.  
  780.  
  781. RightShoulder.C0 = CFrame.new(Torso.Size.x / 2 + RightArm.Size.x / 2, RightArm.Size.y / 4, 0) * CFrame.fromEulerAnglesXYZ(0, math.pi / 2, 0)
  782.  
  783.  
  784. RightShoulder.C1 = CFrame.new(0, RightArm.Size.y / 4, 0) * CFrame.fromEulerAnglesXYZ(0, math.pi / 2, 0)
  785.  
  786.  
  787. RightShoulder.Parent = Torso
  788.  
  789.  
  790. local LeftHip = Instance.new("Motor")
  791.  
  792.  
  793. LeftHip.Name = "Left Hip"
  794.  
  795.  
  796. LeftHip.Part0 = Torso
  797.  
  798.  
  799. LeftHip.Part1 = LeftLeg
  800.  
  801.  
  802. LeftHip.MaxVelocity = 0.1
  803.  
  804.  
  805. LeftHip.C0 = CFrame.new(-LeftLeg.Size.x / 2, -LeftLeg.Size.y / 2, 0) * CFrame.fromEulerAnglesXYZ(0, -math.pi / 2, 0)
  806.  
  807.  
  808. LeftHip.C1 = CFrame.new(0, LeftLeg.Size.y / 2, 0) * CFrame.fromEulerAnglesXYZ(0, -math.pi / 2, 0)
  809.  
  810.  
  811. LeftHip.Parent = Torso
  812.  
  813.  
  814. local RightHip = Instance.new("Motor")
  815.  
  816.  
  817. RightHip.Name = "Right Hip"
  818.  
  819.  
  820. RightHip.Part0 = Torso
  821.  
  822.  
  823. RightHip.Part1 = RightLeg
  824.  
  825.  
  826. RightHip.MaxVelocity = 0.1
  827.  
  828.  
  829. RightHip.C0 = CFrame.new(RightLeg.Size.x / 2, -RightLeg.Size.y / 2, 0) * CFrame.fromEulerAnglesXYZ(0, math.pi / 2, 0)
  830.  
  831.  
  832. RightHip.C1 = CFrame.new(0, RightLeg.Size.y / 2, 0) * CFrame.fromEulerAnglesXYZ(0, math.pi / 2, 0)
  833.  
  834.  
  835. RightHip.Parent = Torso
  836.  
  837.  
  838. local BodyColors = Instance.new("BodyColors")
  839.  
  840.  
  841. BodyColors.LeftArmColor = BrickColor.new("Bright yellow")
  842.  
  843.  
  844. BodyColors.RightArmColor = BrickColor.new("Bright yellow")
  845.  
  846.  
  847. BodyColors.LeftLegColor = BrickColor.new("Br. yellowish green")
  848.  
  849.  
  850. BodyColors.RightLegColor = BrickColor.new("Br. yellowish green")
  851.  
  852.  
  853. BodyColors.HeadColor = BrickColor.new("Bright yellow")
  854.  
  855.  
  856. BodyColors.TorsoColor = BrickColor.new("Bright blue")
  857.  
  858.  
  859. BodyColors.Parent = Character
  860.  
  861.  
  862. Character.Parent = Workspace
  863.  
  864.  
  865. Character:MoveTo(Position)
  866.  
  867.  
  868. Character:MoveTo(Torso.Position + Vector3.new(0, 3, 0))
  869.  
  870.  
  871. return Character
  872.  
  873.  
  874. end
  875.  
  876.  
  877.  
  878.  
  879. AddBV=function(str,cfr,par,debt)
  880.  
  881.  
  882. if not par then return end
  883.  
  884.  
  885. if par:findFirstChild'LibBV' then par.LibBV:Remove() end
  886.  
  887.  
  888. tbbodyvelocity=qi{'BodyVelocity',par,velocity=cfr.lookVector*str,maxForce=v3(1/0,1/0,1/0),Name='LibBV'} deb:AddItem(tbbodyvelocity,debt)
  889.  
  890.  
  891. end
  892.  
  893.  
  894.  
  895.  
  896. AddBG=function(str,par,debt)
  897.  
  898.  
  899. if not par then return end
  900.  
  901.  
  902. if par:findFirstChild'LibBG' then par.LibBG:Remove() end
  903.  
  904.  
  905. tbbodygyro=qi{'BodyGyro',par,maxTorque=v3(1/0,1/0,1/0),P=100000,cframe=str,Name='LibBG'} deb:AddItem(tbbodygyro,debt)
  906.  
  907.  
  908. end
  909.  
  910.  
  911.  
  912.  
  913. AddBAV=function(vec3,par,debt)
  914.  
  915.  
  916. if not par then return end
  917.  
  918.  
  919. if par:findFirstChild'LibBAV' then par.LibBAV:Remove() end
  920.  
  921.  
  922. tbbodyangularvelocity=qi{'BodyAngularVelocity',par,maxTorque=v3(1/0,1/0,1/0),angularvelocity=vec3,Name='LibBAV'} deb:AddItem(tbbodyangularvelocity,debt)
  923.  
  924.  
  925. end
  926.  
  927.  
  928.  
  929.  
  930. Dmg = function(Hum,Dealt,Critical)
  931.  
  932.  
  933. local HM=Hum.Parent
  934.  
  935.  
  936. local HMT,HMB=HM:findFirstChild'Torso',HM:findFirstChild'Block'
  937.  
  938.  
  939. local Blocks=HMB and HMB.Value>0
  940.  
  941.  
  942. if HMT then
  943.  
  944.  
  945. local mm=qi{'Model',HMT} qi{'Humanoid',mm,MaxHealth=0} deb:AddItem(mm,1)
  946.  
  947.  
  948. local mp= qi{'Part',mm,Name='Head',formFactor="Custom",Anchored=true,CanCollide=false,Size=v3(1,0.2,1),CFrame=HMT.CFrame*cn(rn(-100,100)/50,3,rn(-100,100)/50)} qi{'BlockMesh',mp}
  949.  
  950.  
  951. if Blocks then
  952.  
  953.  
  954. mm.Name='Block!'
  955.  
  956.  
  957. mp.BrickColor=bn'Bright blue'
  958.  
  959.  
  960. HMB.Value=HMB.Value-1
  961.  
  962.  
  963. elseif not Blocks then
  964.  
  965.  
  966. mm.Name=Dealt
  967.  
  968.  
  969. mp.BrickColor=bn'Bright red'
  970.  
  971.  
  972. end
  973.  
  974.  
  975. end
  976.  
  977.  
  978. if not Blocks then
  979.  
  980.  
  981. Hum:TakeDamage(Dealt)
  982.  
  983.  
  984. end
  985.  
  986.  
  987. end
  988.  
  989.  
  990.  
  991.  
  992. GetHum = function(part)
  993.  
  994.  
  995. local Hum,HT,block
  996.  
  997.  
  998. for i,v in pairs(part.Parent:children()) do
  999.  
  1000.  
  1001. if v:IsA("Humanoid") then
  1002.  
  1003.  
  1004. Hum=v
  1005.  
  1006.  
  1007. elseif v.Name=='Torso' then
  1008.  
  1009.  
  1010. HT=v
  1011.  
  1012.  
  1013. elseif v.Name=='Block' and v:IsA("NumberValue") then
  1014.  
  1015.  
  1016. block=v
  1017.  
  1018.  
  1019. end
  1020.  
  1021.  
  1022. end
  1023.  
  1024.  
  1025. return Hum,HT,block
  1026.  
  1027.  
  1028. end
  1029.  
  1030.  
  1031.  
  1032.  
  1033. Lightning = function(p0,p1,tym,ofs,col,th,tra) -- start end times offset color thickness
  1034.  
  1035.  
  1036. local magz = (p0 - p1).magnitude local curpos = p0 local trz = {-ofs,ofs}
  1037.  
  1038.  
  1039. for i=1,tym do
  1040.  
  1041.  
  1042. local li = it("Part",c) li.TopSurface =0 li.BottomSurface = 0 li.Anchored = true li.Transparency = tra or 0.4 li.BrickColor = bc(col)
  1043.  
  1044.  
  1045. li.formFactor = "Custom" li.CanCollide = false li.Size = v3(th,th,magz/tym) local ofz = v3(trz[rn(1,2)],trz[rn(1,2)],trz[rn(1,2)])
  1046.  
  1047.  
  1048. local trolpos = cn(curpos,p1)*cn(0,0,magz/tym).p+ofz
  1049.  
  1050.  
  1051. if tym == i then
  1052.  
  1053.  
  1054. local magz2 = (curpos - p1).magnitude li.Size = v3(th,th,magz2)
  1055.  
  1056.  
  1057. li.CFrame = cn(curpos,p1)*cn(0,0,-magz2/2)
  1058.  
  1059.  
  1060. else
  1061.  
  1062.  
  1063. li.CFrame = cn(curpos,trolpos)*cn(0,0,magz/tym/2)
  1064.  
  1065.  
  1066. end
  1067.  
  1068.  
  1069. curpos = li.CFrame*cn(0,0,magz/tym/2).p de(li,0.25)
  1070.  
  1071.  
  1072. end
  1073.  
  1074.  
  1075. end
  1076.  
  1077.  
  1078.  
  1079.  
  1080. MakeCrater = function(pos,sc,tyms,debz,par) -- crater maker
  1081.  
  1082.  
  1083. q(function()
  1084.  
  1085.  
  1086. if not debz then
  1087.  
  1088.  
  1089. debz = 5
  1090.  
  1091.  
  1092. end
  1093.  
  1094.  
  1095. local bhit,bpos=ray(pos,pos - (pos + v3(0,200,0)))
  1096.  
  1097.  
  1098. if bhit and bpos then
  1099.  
  1100.  
  1101. for i=1,tyms do
  1102.  
  1103.  
  1104. q(function()
  1105.  
  1106.  
  1107. local gr = pa(par or workspace,"","Block",rn(5,13)/10*sc,0.25*sc,rn(4,10)/10*sc,true,true,bhit.Transparency,bhit.Reflectance,bhit.BrickColor.Name)
  1108.  
  1109.  
  1110. gr.Material = bhit.Material
  1111.  
  1112.  
  1113. gr.TopSurface = bhit.TopSurface
  1114.  
  1115.  
  1116. gr.CFrame = cn(bpos+v3(rn(-12,12)/10*sc,0,rn(-12,12)/10*sc))*ca(rd(rn(-40,40)),rd(rn(-360,360)),rd(rn(-40,40)))
  1117.  
  1118.  
  1119. wait(debz)
  1120.  
  1121.  
  1122. fade(gr,0.1)
  1123.  
  1124.  
  1125. end)
  1126.  
  1127.  
  1128. end
  1129.  
  1130.  
  1131. end
  1132.  
  1133.  
  1134. end)
  1135.  
  1136.  
  1137. end
  1138.  
  1139.  
  1140.  
  1141.  
  1142. MakeCrack = function(pos,sc,debz,par) -- crackmaker
  1143.  
  1144.  
  1145. q(function()
  1146.  
  1147.  
  1148. if not debz then
  1149.  
  1150.  
  1151. debz = 5
  1152.  
  1153.  
  1154. end
  1155.  
  1156.  
  1157. local bhit,bpos=ray(pos,pos - (pos + v3(0,10,0)))
  1158.  
  1159.  
  1160. if bhit and bpos then
  1161.  
  1162.  
  1163. local cr = pa(par or workspace,"Crack","Block",sc,0,sc,false,true,1,0,"") cr.CFrame = cn(bpos)
  1164.  
  1165.  
  1166. local dec=qi({"Decal",cr,Face="Top",Texture=ds.Crack}) de(cr,debz)
  1167.  
  1168.  
  1169. end
  1170.  
  1171.  
  1172. end)
  1173.  
  1174.  
  1175. end
  1176.  
  1177.  
  1178.  
  1179.  
  1180. a = {}
  1181.  
  1182.  
  1183. a.insw={}
  1184.  
  1185.  
  1186. function cleanweld(wexx,namzi)
  1187.  
  1188.  
  1189. local tn=ft2(a.insw,wexx)
  1190.  
  1191.  
  1192. if tn==nil then return end
  1193.  
  1194.  
  1195. if namzi=="p0" then
  1196.  
  1197.  
  1198. a.insw[tn][2]["p0x"],a.insw[tn][2]["p0y"],a.insw[tn][2]["p0z"]=0,0,0 elseif namzi=="p1" then
  1199.  
  1200.  
  1201. a.insw[tn][2]["p1x"],a.insw[tn][2]["p1y"],a.insw[tn][2]["p1z"]=0,0,0 elseif namzi=="a0" then
  1202.  
  1203.  
  1204. a.insw[tn][2]["a0x"],a.insw[tn][2]["a0y"],a.insw[tn][2]["a0z"]=0,0,0 elseif namzi=="a1" then
  1205.  
  1206.  
  1207. a.insw[tn][2]["a1x"],a.insw[tn][2]["a1y"],a.insw[tn][2]["a1z"]=0,0,0
  1208.  
  1209.  
  1210. end
  1211.  
  1212.  
  1213. end
  1214.  
  1215.  
  1216. function c2(wexx,smmx,c0orc1,aa,bb,cc,xx,yy,zz)
  1217.  
  1218.  
  1219. q(function()
  1220.  
  1221.  
  1222. c1(wexx,smmx,c0orc1,aa,bb,cc,xx,yy,zz)
  1223.  
  1224.  
  1225. end)
  1226.  
  1227.  
  1228. end
  1229.  
  1230.  
  1231. a.Welding=0
  1232.  
  1233.  
  1234. function c1(wexx,smmx,c0orc1,aa,bb,cc,xx,yy,zz)
  1235.  
  1236.  
  1237. if ft2(a.insw,wexx)==nil then
  1238.  
  1239.  
  1240. ti(a.insw,{wexx,{}})
  1241.  
  1242.  
  1243. local tn=ft2(a.insw,wexx)
  1244.  
  1245.  
  1246. a.insw[tn][2]["p0x"],a.insw[tn][2]["p0y"],a.insw[tn][2]["p0z"]=wexx.C0.x,wexx.C0.y,wexx.C0.z
  1247.  
  1248.  
  1249. a.insw[tn][2]["p1x"],a.insw[tn][2]["p1y"],a.insw[tn][2]["p1z"]=wexx.C1.x,wexx.C1.y,wexx.C1.z
  1250.  
  1251.  
  1252. a.insw[tn][2]["a0x"],a.insw[tn][2]["a0y"],a.insw[tn][2]["a0z"]=wexx.C0:toEulerAnglesXYZ()
  1253.  
  1254.  
  1255. a.insw[tn][2]["a1x"],a.insw[tn][2]["a1y"],a.insw[tn][2]["a1z"]=wexx.C1:toEulerAnglesXYZ()
  1256.  
  1257.  
  1258. end
  1259.  
  1260.  
  1261. local tn=ft2(a.insw,wexx)
  1262.  
  1263.  
  1264. local xx2,yy2,zz2=0,0,0
  1265.  
  1266.  
  1267. local x2,y2,z2=0,0,0
  1268.  
  1269.  
  1270. if c0orc1==0 then
  1271.  
  1272.  
  1273. xx2,yy2,zz2=a.insw[tn][2]["a0x"],a.insw[tn][2]["a0y"],a.insw[tn][2]["a0z"]
  1274.  
  1275.  
  1276. x2,y2,z2=a.insw[tn][2]["p0x"],a.insw[tn][2]["p0y"],a.insw[tn][2]["p0z"]
  1277.  
  1278.  
  1279. elseif c0orc1==1 then
  1280.  
  1281.  
  1282. xx2,yy2,zz2=a.insw[tn][2]["a1x"],a.insw[tn][2]["a1y"],a.insw[tn][2]["a1z"]
  1283.  
  1284.  
  1285. x2,y2,z2=a.insw[tn][2]["p1x"],a.insw[tn][2]["p1y"],a.insw[tn][2]["p1z"]
  1286.  
  1287.  
  1288. else
  1289.  
  1290.  
  1291. xx2,yy2,zz2=a.insw[tn][2]["a1x"],a.insw[tn][2]["a1y"],a.insw[tn][2]["a1z"]
  1292.  
  1293.  
  1294. x2,y2,z2=a.insw[tn][2]["p0x"],a.insw[tn][2]["p0y"],a.insw[tn][2]["p0z"]
  1295.  
  1296.  
  1297. end a.Welding=a.Welding + 1
  1298.  
  1299.  
  1300. local twa=1
  1301.  
  1302.  
  1303. if smmx >= 1 then
  1304.  
  1305.  
  1306. else
  1307.  
  1308.  
  1309. for i=smmx,0.8,smmx do
  1310.  
  1311.  
  1312. twa = 1
  1313.  
  1314.  
  1315. if c0orc1==0 then
  1316.  
  1317.  
  1318. wexx.C0=cn(x2-(((x2-aa)/twa)*i),y2-(((y2-bb)/twa)*i),z2-(((z2-cc)/twa)*i)) *ca(xx2-(((xx2-rd(xx))/twa)*i),yy2-(((yy2-rd(yy))/twa)*i),zz2-(((zz2-rd(zz))/twa)*i))
  1319.  
  1320.  
  1321. elseif c0orc1==1 then
  1322.  
  1323.  
  1324. wexx.C1=cn(x2-(((x2-aa)/twa)*i),y2-(((y2-bb)/twa)*i),z2-(((z2-cc)/twa)*i)) *ca(xx2-(((xx2-rd(xx))/twa)*i),yy2-(((yy2-rd(yy))/twa)*i),zz2-(((zz2-rd(zz))/twa)*i))
  1325.  
  1326.  
  1327. else local x,y,z = wexx.C0:toEulerAnglesXYZ()
  1328.  
  1329.  
  1330. wexx.C0=cn(x2-(((x2-aa)/twa)*i),y2-(((y2-bb)/twa)*i),z2-(((z2-cc)/twa)*i))*ca(x,y,z)
  1331.  
  1332.  
  1333. wexx.C1=cn(wexx.C1.x,wexx.C1.y,wexx.C1.z)*ca(xx2-(((xx2-rd(xx))/twa)*i),yy2-(((yy2-rd(yy))/twa)*i),zz2-(((zz2-rd(zz))/twa)*i))
  1334.  
  1335.  
  1336. end
  1337.  
  1338.  
  1339. if fu then
  1340.  
  1341.  
  1342. q(fu)
  1343.  
  1344.  
  1345. end
  1346.  
  1347.  
  1348. wait()
  1349.  
  1350.  
  1351. end
  1352.  
  1353.  
  1354. for i=0.8,1,smmx*0.45 do
  1355.  
  1356.  
  1357. twa = 1
  1358.  
  1359.  
  1360. if c0orc1==0 then
  1361.  
  1362.  
  1363. wexx.C0=cn(x2-(((x2-aa)/twa)*i),y2-(((y2-bb)/twa)*i),z2-(((z2-cc)/twa)*i)) *ca(xx2-(((xx2-rd(xx))/twa)*i),yy2-(((yy2-rd(yy))/twa)*i),zz2-(((zz2-rd(zz))/twa)*i))
  1364.  
  1365.  
  1366. elseif c0orc1==1 then
  1367.  
  1368.  
  1369. wexx.C1=cn(x2-(((x2-aa)/twa)*i),y2-(((y2-bb)/twa)*i),z2-(((z2-cc)/twa)*i)) *ca(xx2-(((xx2-rd(xx))/twa)*i),yy2-(((yy2-rd(yy))/twa)*i),zz2-(((zz2-rd(zz))/twa)*i))
  1370.  
  1371.  
  1372. else local x,y,z = wexx.C0:toEulerAnglesXYZ()
  1373.  
  1374.  
  1375. wexx.C0=cn(x2-(((x2-aa)/twa)*i),y2-(((y2-bb)/twa)*i),z2-(((z2-cc)/twa)*i))*ca(x,y,z)
  1376.  
  1377.  
  1378. wexx.C1=cn(wexx.C1.x,wexx.C1.y,wexx.C1.z)*ca(xx2-(((xx2-rd(xx))/twa)*i),yy2-(((yy2-rd(yy))/twa)*i),zz2-(((zz2-rd(zz))/twa)*i))
  1379.  
  1380.  
  1381. end
  1382.  
  1383.  
  1384. wait()
  1385.  
  1386.  
  1387. end
  1388.  
  1389.  
  1390. end
  1391.  
  1392.  
  1393. local i=1
  1394.  
  1395.  
  1396. if c0orc1==0 then
  1397.  
  1398.  
  1399. wexx.C0=cn(x2-(((x2-aa)/twa)*i),y2-(((y2-bb)/twa)*i),z2-(((z2-cc)/twa)*i)) *ca(xx2-(((xx2-rd(xx))/twa)*i),yy2-(((yy2-rd(yy))/twa)*i),zz2-(((zz2-rd(zz))/twa)*i))
  1400.  
  1401.  
  1402. elseif c0orc1==1 then
  1403.  
  1404.  
  1405. wexx.C1=cn(x2-(((x2-aa)/twa)*i),y2-(((y2-bb)/twa)*i),z2-(((z2-cc)/twa)*i)) *ca(xx2-(((xx2-rd(xx))/twa)*i),yy2-(((yy2-rd(yy))/twa)*i),zz2-(((zz2-rd(zz))/twa)*i))
  1406.  
  1407.  
  1408. else local x,y,z = wexx.C0:toEulerAnglesXYZ()
  1409.  
  1410.  
  1411. wexx.C0=cn(x2-(((x2-aa)/twa)*i),y2-(((y2-bb)/twa)*i),z2-(((z2-cc)/twa)*i))*ca(x,y,z)
  1412.  
  1413.  
  1414. wexx.C1=cn(wexx.C1.x,wexx.C1.y,wexx.C1.z)*ca(xx2-(((xx2-rd(xx))/twa)*i),yy2-(((yy2-rd(yy))/twa)*i),zz2-(((zz2-rd(zz))/twa)*i))
  1415.  
  1416.  
  1417. end
  1418.  
  1419.  
  1420. a.Welding=a.Welding - 1
  1421.  
  1422.  
  1423. local tn=ft2(a.insw,wexx)
  1424.  
  1425.  
  1426. if c0orc1==0 then
  1427.  
  1428.  
  1429. a.insw[tn][2]["p0x"],a.insw[tn][2]["p0y"],a.insw[tn][2]["p0z"]=x2-(((x2-aa)/twa)*i),y2-(((y2-bb)/twa)*i),z2-(((z2-cc)/twa)*i)
  1430.  
  1431.  
  1432. a.insw[tn][2]["a0x"],a.insw[tn][2]["a0y"],a.insw[tn][2]["a0z"]=xx2-(((xx2-rd(xx))/twa)*i),yy2-(((yy2-rd(yy))/twa)*i),zz2-(((zz2-rd(zz))/twa)*i)
  1433.  
  1434.  
  1435. elseif c0orc1==1 then
  1436.  
  1437.  
  1438. a.insw[tn][2]["p1x"],a.insw[tn][2]["p1y"],a.insw[tn][2]["p1z"]=x2-(((x2-aa)/twa)*i),y2-(((y2-bb)/twa)*i),z2-(((z2-cc)/twa)*i)
  1439.  
  1440.  
  1441. a.insw[tn][2]["a1x"],a.insw[tn][2]["a1y"],a.insw[tn][2]["a1z"]=xx2-(((xx2-rd(xx))/twa)*i),yy2-(((yy2-rd(yy))/twa)*i),zz2-(((zz2-rd(zz))/twa)*i)
  1442.  
  1443.  
  1444. elseif c0orc1==3 then
  1445.  
  1446.  
  1447. local x,y,z=wexx.C0.x,wexx.C0.y,wexx.C0.z
  1448.  
  1449.  
  1450. a.insw[tn][2]["p0x"],a.insw[tn][2]["p0y"],a.insw[tn][2]["p0z"]=x2-(((x2-aa)/twa)*i),y2-(((y2-bb)/twa)*i),z2-(((z2-cc)/twa)*i)
  1451.  
  1452.  
  1453. local x,y,z=wexx.C1:toEulerAnglesXYZ()
  1454.  
  1455.  
  1456. a.insw[tn][2]["a1x"],a.insw[tn][2]["a1y"],a.insw[tn][2]["a1z"]=xx2-(((xx2-rd(xx))/twa)*i),yy2-(((yy2-rd(yy))/twa)*i),zz2-(((zz2-rd(zz))/twa)*i)
  1457.  
  1458.  
  1459. end
  1460.  
  1461.  
  1462. end
  1463.  
  1464.  
  1465.  
  1466.  
  1467. Welds={}
  1468.  
  1469.  
  1470. Ani=function(w,a,b,c,d,e,f,ty,inc,sined)
  1471.  
  1472.  
  1473. if not Welds[w] then
  1474.  
  1475.  
  1476. local d0,e0,f0=w.C0:toEulerAnglesXYZ() local d1,e1,f1=w.C1:toEulerAnglesXYZ()
  1477.  
  1478.  
  1479. local d0,e0,f0=mdeg(d0),mdeg(e0),mdeg(f0) local d1,e1,f1=mdeg(d1),mdeg(e1),mdeg(f1)
  1480.  
  1481.  
  1482. Welds[w]={[0]={w.C0.x,w.C0.y,w.C0.z,d0,e0,f0},[1]={w.C1.x,w.C1.y,w.C1.z,d1,e1,f1}}
  1483.  
  1484.  
  1485. end
  1486.  
  1487.  
  1488. local c0,c1=Welds[w][0],Welds[w][1]
  1489.  
  1490.  
  1491. c0[1],c0[2],c0[3]=w.C0.x,w.C0.y,w.C0.z
  1492.  
  1493.  
  1494. c1[1],c1[2],c1[3]=w.C1.x,w.C1.y,w.C1.z
  1495.  
  1496.  
  1497. local A0,B0,C0,D0,E0,F0 = unpack(c0)
  1498.  
  1499.  
  1500. local A1,B1,C1,D1,E1,F1 = unpack(c1)
  1501.  
  1502.  
  1503. local Do = function(i)
  1504.  
  1505.  
  1506. if ty==0 then
  1507.  
  1508.  
  1509. w.C0=cn( A0-((A0-a)*i) , B0-((B0-b)*i) , C0-((C0-c)*i) ) * ca2( D0-((D0-d)*i) , E0-(((E0-e)/1)*i) , F0-((F0-f)*i) )
  1510.  
  1511.  
  1512. elseif ty==1 then
  1513.  
  1514.  
  1515. w.C1=cn( A1-((A1-a)*i) , B1-((B1-b)*i) , C1-((C1-c)*i) ) * ca2( D1-((D1-d)*i) , E1-(((E1-e)/1)*i) , F1-((F1-f)*i) )
  1516.  
  1517.  
  1518. else
  1519.  
  1520.  
  1521. w.C0=cn( A0-((A0-a)*i) , B0-((B0-b)*i) , C0-((C0-c)*i) ) * ca2(D0,E0,F0)
  1522.  
  1523.  
  1524. w.C1=cn(A1,B1,C1) * ca2( D1-((D1-d)*i) , E1-(((E1-e)/1)*i) , F1-((F1-f)*i) )
  1525.  
  1526.  
  1527. end
  1528.  
  1529.  
  1530. end
  1531.  
  1532.  
  1533. for i=inc,1,inc do
  1534.  
  1535.  
  1536. Do(sined and math.sin(math.pi/2*i) or i)
  1537.  
  1538.  
  1539. wait()
  1540.  
  1541.  
  1542. end
  1543.  
  1544.  
  1545. Do(1)
  1546.  
  1547.  
  1548. if ty==0 then
  1549.  
  1550.  
  1551. c0[4],c0[5],c0[6]=d,e,f
  1552.  
  1553.  
  1554. else
  1555.  
  1556.  
  1557. c1[4],c1[5],c1[6]=d,e,f
  1558.  
  1559.  
  1560. end
  1561.  
  1562.  
  1563. end
  1564.  
  1565.  
  1566. qAni=function(w,a,b,c,d,e,f,ty,inc,sined) q(function() Ani(w,a,b,c,d,e,f,ty,inc,sined) end) end
  1567.  
  1568.  
  1569. rAni=function(w)
  1570.  
  1571.  
  1572. Welds[w]=nil
  1573.  
  1574.  
  1575. end
  1576.  
  1577.  
  1578.  
  1579.  
  1580. gunshot = function(speed,sc,dmg,cff) q(function() -- gunshot function
  1581.  
  1582.  
  1583. local bb = pa(workspace,"bullet","Block",0.2*sc,0.3*sc,0.2*sc,true,true,0,0.1,"Black") qi({"CylinderMesh",bb})
  1584.  
  1585.  
  1586. bb.CFrame = cff*ca(rd(rn(-1000,1000)/1500),rd(rn(-1000,1000)/1500),rd(rn(-1000,1000)/1500))
  1587.  
  1588.  
  1589. so(ds.Fire,bb,0.3,1) wait() for i=1,50 do
  1590.  
  1591.  
  1592. bhit,bpos=ray(bb.Position,bb.Position - (bb.CFrame *cn(0,-1,0)).p)
  1593.  
  1594.  
  1595. if bhit and bhit.Name ~= "bullet" and bhit.Name ~= "bullethole" and bpos and (bpos - bb.Position).magnitude < speed then break end
  1596.  
  1597.  
  1598. bb.CFrame=bb.CFrame*cn(0,speed,0)*ca(rd(-0.2),0,0)
  1599.  
  1600.  
  1601. wait()
  1602.  
  1603.  
  1604. end bb.CFrame=bb.CFrame*cn(0,(bpos-bb.Position).magnitude,0)
  1605.  
  1606.  
  1607. if not bhit.Anchored then
  1608.  
  1609.  
  1610. if bhit.Parent:findFirstChild("Humanoid") then local h = bhit.Parent.Humanoid h.Health=h.Health-dmg so(ds.Hit,bhit,0.3,1) end
  1611.  
  1612.  
  1613. else if bhit.Name~="Base" then bhit.Anchored=false bhit:BreakJoints() end end bb:Remove()
  1614.  
  1615.  
  1616. if bhit.Parent:findFirstChild("Humanoid") == nil then BulletHole(bpos,bhit,0.7*sc) end
  1617.  
  1618.  
  1619. end) end
  1620.  
  1621.  
  1622.  
  1623.  
  1624. dive = function(ob2,pro,ite,stof)
  1625.  
  1626.  
  1627. local function div(ob) for i,v in pairs(ob:children()) do if v[pro] == ite then
  1628.  
  1629.  
  1630. for i=1,#stof do v[stof[i][1]] = stof[i][2] end else div(v) end end end
  1631.  
  1632.  
  1633. div(ob2)
  1634.  
  1635.  
  1636. end
  1637.  
  1638.  
  1639.  
  1640.  
  1641. fc = function(ob,cl)
  1642.  
  1643.  
  1644. for i,v in pairs(ob:children()) do if v.className:lower()==cl:lower() then return v end end
  1645.  
  1646.  
  1647. end
  1648.  
  1649.  
  1650.  
  1651.  
  1652. function se(Key,Text)
  1653.  
  1654.  
  1655. local Values = {}
  1656.  
  1657.  
  1658. for value in (Text..Key):gmatch("(.-)"..Key) do
  1659.  
  1660.  
  1661. table.insert(Values,value)
  1662.  
  1663.  
  1664. end return Values
  1665.  
  1666.  
  1667. end
  1668.  
  1669.  
  1670.  
  1671.  
  1672. local thefenv = getfenv()
  1673.  
  1674.  
  1675. getfenv()["rmhelp"] = function()
  1676.  
  1677.  
  1678. local nus = 0
  1679.  
  1680.  
  1681. for i,v in pairs(thefenv) do if i ~= "wait" and i ~= "script" then nus = nus + 1 wait(0.05)
  1682.  
  1683.  
  1684. print(string.rep(" ",3-#tostring(nus)) ..nus.. ") " ..i.. " (" ..type(v).. ")")
  1685.  
  1686.  
  1687. end
  1688.  
  1689.  
  1690. end
  1691.  
  1692.  
  1693. end
  1694.  
  1695.  
  1696.  
  1697.  
  1698. for i,v in pairs(thefenv) do
  1699.  
  1700.  
  1701. _G[i] = v
  1702.  
  1703.  
  1704. --print(i)
  1705.  
  1706.  
  1707. end
  1708.  
  1709.  
  1710.  
  1711.  
  1712. _G[" T".."B".."L".."i".."b "] = [[
  1713.  
  1714.  
  1715. for i,v in pairs(_G) do
  1716.  
  1717.  
  1718. if i ~= "wait" and i ~= "script" then
  1719.  
  1720.  
  1721. getfenv()[i] = v
  1722.  
  1723.  
  1724. end
  1725.  
  1726.  
  1727. end
  1728.  
  1729.  
  1730. ]]
Add Comment
Please, Sign In to add comment
Public Pastes
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!