API tools faq
paste
Advertisement
swagergod

D3ARD'S ORB

swagergod
Aug 22nd, 2015
287
0
Never
Add comment
Not a member of Pastebin yet? Sign Up, it unlocks many cool features!
Lua 18.16 KB | None | 0 0
raw download clone embed print report
  1. local I=Instance.new
  2. local V3=Vector3.new
  3. local UD=UDim2.new
  4. local CF=CFrame.new
  5. local C3=Color3.new
  6. local C3C=C3(.4,.2,.6)
  7. local p=game.Players.LocalPlayer
  8. local c=p.Character
  9. local G=p.PlayerGui
  10. local T=c.Torso
  11. local hd=p.Character.Head
  12. for _,rh in pairs(c:GetChildren())do if rh.ClassName=="Hat" then rh:destroy()end end
  13. for _,hdf in pairs(c:GetChildren())do if hdf.Name=="Head" then for _,hf in pairs(hd:GetChildren()) do if hf.ClassName=="Decal" then hf:destroy()end end
  14.     hdf.Mesh.MeshId="http://www.roblox.com/asset/?id=162384581"
  15.     hdf.Mesh.TextureId="http://www.roblox.com/asset/?id=162384608"
  16.     hdf.Mesh.Scale=V3(1.02, 1.02, 1.02)
  17.     hdf.Mesh.Offset=V3(0,0,.2)end
  18. end
  19. for _,rfi in pairs(c:GetChildren())do if rfi.Name=="Head" then for _,rfid in pairs(rfi:GetChildren())do if rfid.ClassName=="Fire"then rfid:destroy()end end end end
  20. local hfi=I("Fire",c.Head)hfi.Color=C3(.2,.1,.4)hfi.SecondaryColor=C3()hfi.Size=6 hfi.Heat=15
  21. local m=p:GetMouse()
  22. local t=""
  23. local h=m.Hit
  24. for _,cc in pairs(c:GetChildren()) do if cc.Name=="1" then cc:destroy() end end
  25. local b=I("Part", c)b.CFrame=T.CFrame b.Name="1"b.FormFactor=3 b.Size=V3(.8,.8,.8)b.CanCollide=false
  26. b.TopSurface=0 b.BottomSurface=0 b.Color=C3C b.Reflectance=.05 b.Material=288
  27. local bpl=I("PointLight",b) bpl.Color=b.Color bpl.Shadows=true bpl.Brightness=20 bpl.Range=10
  28. local fi=I("Fire",b) fi.Color=b.Color fi.SecondaryColor=C3() fi.Size=3 fi.Heat=15
  29. local mh=I("SpecialMesh",b) mh.MeshType="Sphere"
  30. local bp=I("BodyPosition",b)
  31. local mdl=I("Model",b) mdl.Name="S"
  32. local md=I("Model",b) md.Name="Sh"
  33. local del=I("Model",b)del.Name="del"
  34. local w=0
  35. local a=12
  36. local H=0
  37. local eon=false
  38. local xon=false
  39. local ron=false
  40. local binOn=false
  41. local BaseplateOnly=true
  42. local bprt={"Right Leg","Left Leg","Right Arm","Left Arm","Torso","Head"}
  43. local v1=I("CFrameValue",b)v1.Name="CFv"v1.Value=b.CFrame
  44. local mode_val=I("NumberValue",b)mode_val.Name="mode"mode_val.Value=1
  45. local mode_ar={"Kill","Explode","Kick","Teleport"}
  46. local PL={}
  47. local cbinar={}
  48. local F={"H1M","5ifth","TheNightWolf","SavageMunkey","grubsteak","xDarkScripter"}
  49. -- local cbin = c:FindFirstChild("cbin")if not cbin then cbin=I("Camera")cbin.Name="cbin"cbin.Parent=c end
  50. local cbin=I("Model",b)
  51.  
  52. -- function getFriends() --grubsteak
  53.     -- for i = 1, #F+1 do
  54.         -- table.remove(F,i)
  55.     -- end
  56.         -- local players=game:GetService'Players'
  57.         -- local id=players:GetUserIdFromNameAsync(players.LocalPlayer.Name)
  58.         -- for _, player in pairs(game.Players:GetPlayers()) do
  59.                 -- if player:IsFriendsWith(id) then
  60.                     -- if player.Name~=p.Name then
  61.                         -- table.insert(F, player)
  62.                     -- end
  63.                 -- end
  64.         -- end
  65.         -- for _,i in pairs(F)do
  66.             -- print(_,i)
  67.         -- end
  68.         -- return F
  69. -- end
  70. -- getFriends()
  71.  
  72. local function cbinBricks()
  73.     PL=game.Players:GetPlayers()
  74.     for _,i in pairs(PL)do
  75.         if i == p then
  76.             table.remove(PL,1)
  77.         end
  78.     end
  79.     for i=1,#PL do
  80.         local cbinPart=I("Part",cbin)cbinPart.Name=PL[i].Name cbinPart.Anchored=true cbinPart.CanCollide=false cbinPart.FormFactor=3
  81.         cbinPart.Material=288 cbinPart.Transparency=0.4 cbinPart.Size=V3()cbinPart.CFrame=CF(0,-5,0)
  82.         for Fi = 1, #F do
  83.             if cbinPart.Name==tostring(F[Fi])then
  84.                 cbinPart.Color=C3(0,1,0)
  85.             else
  86.                 cbinPart.Color=C3(1,0,0)
  87.             end
  88.         end
  89.     end
  90.     while binOn do coroutine.yield()
  91.         cbinar=cbin:GetChildren()
  92.         for cbinam = 1,#cbinar do
  93.             cbin[tostring(cbinar[cbinam].Name)].CFrame=CF((b.CFrame.p + game.Players[tostring(cbinar[cbinam].Name)].Character:FindFirstChild("Torso").CFrame.p)/2,game.Players[tostring(cbinar[cbinam].Name)].Character:FindFirstChild("Torso").Position)
  94.             cbin[tostring(cbinar[cbinam].Name)].Size=V3(0,0,(b.CFrame.p - game.Players[tostring(cbinar[cbinam].Name)].Character:FindFirstChild("Torso").CFrame.p).magnitude)
  95.         end
  96.     end
  97. end
  98.  
  99. local function oK(key)
  100.     if (key~=nil) then
  101.         if (key=="z") then
  102.             if binOn~=true then binOn=true elseif binOn~=false then binOn=false end
  103.             if binOn==true then
  104.                 cbinBricks()
  105.             elseif binOn~=true then
  106.                 cbin:ClearAllChildren()
  107.             end
  108.         end
  109.     end
  110. end
  111. m.KeyDown:connect(oK)
  112.  
  113. for _,i in pairs(G:GetChildren())do if i.Name=="1"then i:destroy()end end
  114. local main_gui=I("ScreenGui",G)main_gui.Name="1"
  115. local scroll_gui=I("ScrollingFrame",main_gui)scroll_gui.BackgroundColor3=C3C
  116. scroll_gui.Visible=false
  117. scroll_gui.Position = UD(.88,0,.4,0)
  118. scroll_gui.Size = UD(.05,100,.4,100)
  119. local text_mode=I("TextLabel",main_gui)text_mode.Name="m"text_mode.BackgroundColor3=C3C text_mode.TextXAlignment="Left"text_mode.TextYAlignment="Top"
  120. text_mode.TextColor3=C3(1,1,1)
  121. text_mode.Visible=false
  122. text_mode.Position=UD(.88,0,.31,0)
  123. text_mode.Size=UD(.05,100,.02,50)
  124. text_mode.Text="      Mode: "..mode_ar[mode_val.Value]
  125.  
  126. local function gui_update()
  127.     PL=game.Players:GetPlayers()
  128.     for i = 1,#PL,1 do
  129.         local text_gui=I("TextButton",scroll_gui)text_gui.Name=""..i text_gui.BackgroundColor3=C3(1,1,1)
  130.         text_gui.Size=UD(0,165,0,40)
  131.         text_gui.TextScaled=true
  132.         text_gui.Text=PL[i].Name
  133.         if PL[i]==PL[1]then
  134.             text_gui.Position=UD(0.04,0,-1,0)
  135.         elseif PL[i]~=PL[1] then
  136.             text_gui.Position=UD(0.04,0,.03*(i-1.85),0)
  137.         end
  138.         local function text_click()
  139.             for _,i in pairs(main_gui:GetChildren())do if i.Name=="y"then i:destroy()elseif i.Name=="n"then i:destroy()end end
  140.             text_mode.Visible=true
  141.             local click_target = PL[tonumber(text_gui.Name)].Name
  142.             print(click_target)
  143.             local text_yes=I("TextButton",main_gui)text_yes.Name="y"text_yes.Text="Yes"text_yes.BackgroundColor3=C3(.2,1,.3)text_yes.ZIndex=2
  144.             text_yes.Position=UD(.89,0,.35,0)
  145.             text_yes.Size=UD(0,50,0,25)
  146.             local text_no=I("TextButton",main_gui)text_no.Name="n"text_no.Text="No"text_no.BackgroundColor3=C3(1,.2,.3)text_no.ZIndex=2
  147.             text_no.Position=UD(.945,0,.35,0)
  148.             text_no.Size=UD(0,50,0,25)
  149.             local function no_click()
  150.                 text_yes:destroy()
  151.                 text_no:destroy()
  152.                 text_mode.Visible=false
  153.             end
  154.             text_no.MouseButton1Click:connect(no_click)
  155.             local function yes_click()
  156.                 text_yes:destroy()
  157.                 text_no:destroy()
  158.                 text_mode.Visible=false
  159.                 if mode_val.Value==1 then
  160.                     workspace[click_target].Humanoid.Health=0
  161.                 elseif mode_val.Value==2 then
  162.                     for _,ii in pairs(workspace[click_target]:GetChildren())do if ii.ClassName=="ForceField"then ii:destroy()end end
  163.                     local yes_explosion=I("Explosion",workspace[click_target].Torso)
  164.                     yes_explosion.Position=workspace[click_target].Torso.Position
  165.                 elseif mode_val.Value==3 then
  166.                     game.Players[click_target]:destroy()
  167.                 elseif mode_val.Value==4 then
  168.                     T.CFrame=workspace[click_target].Torso.CFrame*CF(0,0,1.5)
  169.                 end
  170.             end
  171.             text_yes.MouseButton1Click:connect(yes_click)
  172.             local function oK(key)
  173.                 if (key~=nil) then
  174.                     if (key=="r") then
  175.                         text_yes:destroy()
  176.                         text_no:destroy()
  177.                     end
  178.                 end
  179.             end
  180.             m.KeyDown:connect(oK)
  181.         end
  182.         text_gui.MouseButton1Click:connect(text_click)
  183.     end
  184. end
  185.  
  186. game.Players.ChildRemoved:connect(function(pL)
  187.     if pL.Name~=p.Name then
  188.         print("Removed "..pL.Name)
  189.         PL=game.Players:GetPlayers()
  190.         scroll_gui:ClearAllChildren()
  191.         gui_update()
  192.         wait()
  193.         if binOn==true then
  194.             cbin:ClearAllChildren()
  195.             cbinBricks()
  196.         end
  197.     end
  198. end)
  199. game.Players.ChildAdded:connect(function(pL)
  200.     if pL.Name~=p.Name then
  201.         print("Added "..pL.Name)
  202.         PL=game.Players:GetPlayers()
  203.         scroll_gui:ClearAllChildren()
  204.         gui_update()
  205.         wait()
  206.         if binOn==true then
  207.             cbin:ClearAllChildren()
  208.             cbinBricks()
  209.         end
  210.     end
  211. end)
  212.  
  213. local function oK(key)
  214.     if (key~=nil) then
  215.         if (key=="r") then
  216.             if ron~=true then ron=true elseif ron~=false then ron=false end
  217.             if ron==true then
  218.                 scroll_gui.Visible=true
  219.                 scroll_gui:ClearAllChildren()
  220.                 gui_update()
  221.             elseif ron==false then
  222.                 scroll_gui.Visible=false
  223.                 text_mode.Visible=false
  224.             end
  225.         end
  226.     end
  227. end
  228. m.KeyDown:connect(oK)
  229.  
  230. local function oK(key)
  231.     if (key~=nil) then
  232.         if (key=="q") then
  233.             mode_val.Value=mode_val.Value-1
  234.             if mode_val.Value<=0 then
  235.                 mode_val.Value=4
  236.             end
  237.             text_mode.Text="      Mode: "..mode_ar[mode_val.Value]
  238.         end
  239.     end
  240. end
  241. m.KeyDown:connect(oK)
  242.  
  243. local function oK(key)
  244.     if (key~=nil) then
  245.         if (key=="e") then
  246.             mode_val.Value=mode_val.Value+1
  247.             if mode_val.Value>=5 then
  248.                 mode_val.Value=1
  249.             end
  250.             text_mode.Text="      Mode: "..mode_ar[mode_val.Value]
  251.         end
  252.     end
  253. end
  254. m.KeyDown:connect(oK)
  255.  
  256. ---- Functions
  257. local function oK(key)
  258.     if (key~=nil) then
  259.         if (key=="g") then
  260.             if b.BrickColor.Name == "Bright violet" then
  261.                 hd.Mesh.MeshId="http://www.roblox.com/asset/?id=21057410"
  262.                 hd.Mesh.TextureId="http://www.roblox.com/asset/?id=64444605"
  263.                 hd.Mesh.Scale=V3(1.05,1.05,1.05)
  264.                 hd.Mesh.Offset=V3(0,0.1,.07)
  265.                 C3C = C3(.2,.6,.4)
  266.                 b.Color=C3C
  267.                 bpl.Color=C3C
  268.                 fi.Color=b.Color
  269.                 fi.SecondaryColor=C3()
  270.                 hfi.Color=C3(.1,.4,.2)
  271.                 hfi.SecondaryColor=C3()
  272.                 scroll_gui.BackgroundColor3=C3C
  273.                 text_mode.BackgroundColor3=C3C
  274.                 for _,i in pairs(del:GetChildren())do i.Color=C3C end
  275.             elseif b.BrickColor.Name ~= "Bright violet" then
  276.                 hd.Mesh.MeshId="http://www.roblox.com/asset/?id=162384581"
  277.                 hd.Mesh.TextureId="http://www.roblox.com/asset/?id=162384608"
  278.                 hd.Mesh.Scale=V3(1.02, 1.02, 1.02)
  279.                 hd.Mesh.Offset=V3(0,0,.2)
  280.                 C3C = C3(.4,.2,.6)
  281.                 b.Color=C3C
  282.                 bpl.Color=C3C
  283.                 fi.Color=b.Color
  284.                 fi.SecondaryColor=C3()
  285.                 hfi.Color=C3(.2,.1,.4)
  286.                 hfi.SecondaryColor=C3()
  287.                 scroll_gui.BackgroundColor3=C3C
  288.                 text_mode.BackgroundColor3=C3C
  289.                 for _,i in pairs(del:GetChildren())do i.Color=C3C end
  290.             end
  291.         end
  292.     end
  293. end
  294. m.KeyDown:connect(oK)
  295.  
  296. local function oK(key)
  297.     if (key~=nil) then
  298.         if (key=="f") then
  299.             local ms = I("Part",mdl) ms.Position=b.Position ms.FormFactor=3 ms.Size=V3(.8,.8,.8) ms.Color=C3(236/255,139/255,70/255)
  300.             ms.TopSurface=0 ms.BottomSurface=0 ms.Material=288
  301.             local msm = I("SpecialMesh",ms) msm.MeshType="Sphere"
  302.             local msf = I("Fire",ms) msf.Heat=10 msf.Size=3
  303.             local mbp = I("BodyPosition",ms) mbp.P=2500 mbp.D=625 mbp.position=m.Hit.p
  304.             wait(1.6)
  305.             local ex = I("Explosion",ms) ex.Position = ms.Position ex.DestroyJointRadiusPercent=1
  306.             msf:destroy()
  307.             ms.Transparency=1
  308.             wait(1.3)
  309.             ms:destroy()
  310.         end
  311.     end
  312. end
  313. m.KeyDown:connect(oK)
  314.  
  315. local function oK(key)
  316.     if (key~=nil) then
  317.         if (key=="y") then
  318.             if eon~= true then eon=true elseif eon~=false then eon=false end
  319.             if eon==true then
  320.                 for i=1,20 do
  321.                     local ept = I("Part",md) ept.CanCollide=false ept.Anchored=true ept.Name="p"..i ept.FormFactor=3 ept.Size=V3(0,0,0)
  322.                     ept.CFrame = T.CFrame * CFrame.Angles(0,math.rad(i)*(360/15),0) * CF(0,0,12.51) ept.Transparency=1
  323.                     local epk = I("Part",md) epk.CanCollide=false epk.Anchored=true epk.Name="pk"..i epk.FormFactor=3 epk.Size=V3(5,15,0) epk.Transparency=1
  324.                     local epl = I("PointLight",ept) epl.Brightness=20 epl.Range=10 epl.Color=fi.Color
  325.                     if epk.Name=="pk"..i then
  326.                         epk.CFrame=ept.CFrame*CF(0,6,0)
  327.                     end
  328.                     local function epkf(ehit)
  329.                         if ehit.Parent.ClassName == "Model" then
  330.                             if ehit.Parent.Name ~= p.Name then
  331.                                 for _,i in pairs(ehit.Parent:GetChildren()) do if i.ClassName=="Humanoid" then i.Health=0 end end
  332.                             end
  333.                         end
  334.                     end
  335.                     epk.Touched:connect(epkf)
  336.                     local epf = I("Fire",ept) epf.Size=10 epf.Heat=15 epf.Color=fi.Color epf.SecondaryColor=C3()
  337.                     local epw = I("Weld",ept) epw.Name="w"..i
  338.                     if epw.Name == "w"..i then
  339.                         epw.C0 = CFrame.Angles(0,math.rad(-i)*(360/20),0)*CF(0,0,16)
  340.                         epw.C1 = CFrame.Angles(0,0,0)*CF(0,0,0)
  341.                         epw.Part0 = T
  342.                         epw.Part1 = epw.Parent
  343.                     end
  344.                     wait()
  345.                     ept.Anchored = false
  346.                     local function oK(key)
  347.                         if (key~=nil) then
  348.                             if (key=="g") then
  349.                                 if b.BrickColor.Name == "Bright green" then
  350.                                     epf.Color=C3(.4,.2,.6)
  351.                                     epf.SecondaryColor=C3()
  352.                                     epl.Color=epf.Color
  353.                                 elseif b.BrickColor.Name == "Bright violet" then
  354.                                     epf.Color=C3(.1,.4,.2)
  355.                                     epf.SecondaryColor=C3()
  356.                                     epl.Color=epf.Color
  357.                                 end
  358.                             end
  359.                         end
  360.                     end
  361.                     m.KeyDown:connect(oK)
  362.                 end
  363.                 local epd = I("Part",md)
  364.                 epd.CanCollide=false epd.Anchored=true epd.Name="pd" epd.Size=V3(25,0,25) epd.CFrame=T.CFrame*CF(0,-2,0) epd.Transparency=1
  365.                 local function epdf(eh)
  366.                     if eh.Parent ~= c then
  367.                         if eh.Parent.ClassName == "Model" then
  368.                             for _,i in pairs(eh.Parent:GetChildren()) do
  369.                                 if i.ClassName=="Humanoid" then
  370.                                     i.Health=0
  371.                                 end
  372.                             end
  373.                         end
  374.                     end
  375.                 end
  376.                 epd.Touched:connect(epdf)
  377.                 while eon do wait()
  378.                     for _,i in pairs(c["1"].Sh:GetChildren()) do
  379.                         for n=1,20 do
  380.                             if i.Name=="pk"..n then
  381.                                 i.CFrame=i.Parent["p"..n].CFrame*CF(0,6,0)
  382.                             end
  383.                         end
  384.                     end
  385.                     for _,i in pairs(c["1"].Sh:GetChildren()) do
  386.                         if i.Name=="pd" then
  387.                             i.CFrame=T.CFrame*CF(0,-2,0)
  388.                         end
  389.                     end
  390.                 end
  391.             elseif eon==false then
  392.                 for _,i in pairs(md:GetChildren()) do wait()
  393.                     i:destroy()
  394.                 end
  395.             end
  396.         end
  397.     end
  398. end
  399. m.KeyDown:connect(oK)
  400.  
  401. local function oK(key)
  402.     if (key~=nil) then
  403.         if (key=="t") then
  404.             local expr=I("Part",mdl) expr.Anchored=true expr.CanCollide=false expr.Transparency=1 expr.CFrame=m.Hit*CF(0,4,0) expr.Rotation=V3(0,0,0) expr.Size=V3(5,15,5)
  405.             local expl=I("PointLight",expr) expl.Brightness=20 expl.Range=20 expl.Color=fi.Color
  406.             local expt=I("Part",mdl) expt.Anchored=true expt.CanCollide=false expt.Transparency=1 expt.CFrame=expr.CFrame*CF(0,-2,0) expt.Size=V3(15,0,15)
  407.             local function exprt(hit) for _,i in pairs(hit.Parent:GetChildren()) do if i.ClassName == "ForceField" then i:destroy() end end end
  408.             expt.Touched:connect(exprt)
  409.             for i = 1,20 do
  410.                 local expa=I("Part",expr) expa.Anchored=true expa.Size=V3(1,25,4) expa.Material="Air"
  411.                 local expafi=I("Fire",expa) expafi.Color=fi.Color expafi.SecondaryColor=fi.Color expafi.Size=15 expafi.Heat=20
  412.                 expa.CFrame=expr.CFrame
  413.                 expa.Rotation=V3(0,0,0)
  414.                 expa.CFrame=expa.CFrame*CFrame.Angles(0,math.rad(i)*(360/20),0)*CF(12,-3.7,0)
  415.                 local function oK(key)
  416.                     if (key~=nil) then
  417.                         if (key=="g") then
  418.                             if b.BrickColor.Name == "Bright green" then
  419.                                 expafi.Color=C3(.4,.2,.6)
  420.                                 expafi.SecondaryColor=C3(.4,.2,.6)
  421.                                 expl.Color=expafi.Color
  422.                             elseif b.BrickColor.Name == "Bright violet" then
  423.                                 expafi.Color=C3(.1,.4,.2)
  424.                                 expafi.SecondaryColor=C3(.1,.4,.2)
  425.                                 expl.Color=expafi.Color
  426.                             end
  427.                         end
  428.                     end
  429.                 end
  430.                 m.KeyDown:connect(oK)
  431.             end
  432.             wait(2)
  433.             for i = 1,5 do
  434.                 local expre=I("Explosion",expr) expre.Position=expr.Position expre.BlastRadius=12 expre.DestroyJointRadiusPercent=1
  435.             end
  436.             wait(1)
  437.             expr:destroy() expt:destroy()
  438.         end
  439.     end
  440. end
  441. m.KeyDown:connect(oK)
  442.  
  443. local function oK(key)
  444.     if (key~=nil) then
  445.         if (key=="v") then
  446.             local tp=I("Part",b)tp.Name="tp"tp.Anchored=true tp.CanCollide=false tp.Transparency=1
  447.             tp.CFrame=m.Hit
  448.             tp.Rotation=T.Rotation
  449.             wait()
  450.             T.CFrame=tp.CFrame*CFrame.new(0,3,0)
  451.             wait()
  452.             tp:destroy()
  453.         end
  454.     end
  455. end
  456. m.KeyDown:connect(oK)
  457.  
  458. local function oK(key)
  459.     if (key~=nil) then
  460.         if (key=="x") then
  461.             if xon~=true then xon=true elseif xon~=false then xon=false end
  462.             if xon==true then
  463.                 c.Humanoid.WalkSpeed=64
  464.             end
  465.             if xon==false then
  466.                 c.Humanoid.WalkSpeed=16
  467.             end
  468.         end
  469.     end
  470. end
  471. m.KeyDown:connect(oK)
  472.  
  473. local function oK(key)
  474.     if (key~=nil) then
  475.         if (key=="h") then
  476.             local hPart=I("Part",b)hPart.Anchored=true hPart.CanCollide=false hPart.FormFactor=3 hPart.Shape="Ball" hPart.Size=V3(.2,.2,.2)
  477.             hPart.Material=288 hPart.Transparency=.6
  478.             if BaseplateOnly==true then
  479.                 hPart.CFrame=CF(m.Hit.x,10,m.Hit.z)
  480.                 hPart.Rotation=V3(0,0,0)
  481.             elseif BaseplateOnly~=true then
  482.                 hPart.CFrame=m.Hit
  483.                 hPart.Rotation=V3(0,0,0)
  484.                 hPart.CFrame=hPart.CFrame*CF(0,10,0)
  485.             end
  486.             local pos = hPart.CFrame
  487.             hPart.Color=C3C
  488.             local function hTouch(hit)
  489.                 if hit.Parent.Name~=p.Name then
  490.                     local human = hit.Parent:findFirstChild("Humanoid")
  491.                     if human~=nil then
  492.                         human.Health=human.Health-10
  493.                     end
  494.                     wait()
  495.                 end
  496.             end
  497.             hPart.Touched:connect(hTouch)
  498.             for i=0,24,.8 do wait()
  499.                 hPart.Size=V3(i,i,i)
  500.                 hPart.CFrame=pos
  501.             end
  502.             for i=24,0,-.8 do wait()
  503.                 hPart.Size=V3(i,i,i)
  504.                 hPart.CFrame=pos
  505.             end
  506.             hPart:destroy()
  507.         end
  508.     end
  509. end
  510. m.KeyDown:connect(oK)
  511.  
  512. spawn(function()
  513.     while true do
  514.         w=w+0.01
  515.         b.Rotation=V3(0,0,0)
  516.     --bp.position = T.Position + V3(math.sin(w)*a*math.cos(math.cos(w)*math.sin(w)*a),3+math.sin(w)*a/3*math.cos(w*a),math.cos(w)*a*math.cos(math.cos(w)*math.sin(w)*a))
  517.     --bp.position = T.Position + V3(math.sin(w)*a*math.cos(math.cos(w)*math.sin(w)*a),5+math.sin(w+w*a)*a/3*math.cos(w*a),math.cos(w)*a*math.sin(math.cos(w)*math.cos(w)*a))
  518.     --bp.position = T.Position + V3(math.cos(w)*math.sin(w*a)*a,5+math.sin(w)*math.cos(math.sin(w*a)*math.cos(w*a))*a/4,math.cos(w*a)*a)
  519.     --bp.position = T.Position + V3(math.sin(w*a/2)*a*math.cos(math.cos(w)*a*math.sin(w)), 4+math.sin(w*a/2)*a/4*math.sin(math.sin(w)*a*math.cos(w)), math.cos(w*a/2)*a*math.cos(math.cos(w)*a*math.sin(w)))
  520.     bp.position = T.Position + V3(math.sin(w*a)*a*math.cos(w),8+math.sin(w)*a*math.cos(w),math.cos(w*a)*a*math.cos(w))
  521.     b.Color=C3C
  522.     wait()
  523.     end
  524. end)
  525.  
  526. -- spawn(function()
  527.     -- game:GetService("RunService").RenderStepped:connect(function()
  528.         -- local v=v1.Value
  529.         -- local bT=I("Part",del)bT.Anchored=true bT.CanCollide=false bT.FormFactor=3 bT.Material=288 bT.Transparency=0.2
  530.         -- bT.Color=C3C
  531.         -- v1.Value=b.CFrame
  532.         -- bT.CFrame=CF((v.p + b.CFrame.p)/2, v.p)
  533.         -- bT.Size=V3(0,0,(v.p - b.CFrame.p).magnitude)
  534.         -- game.Debris:AddItem(bT,1)
  535.     -- end)
  536. -- end)
  537.  
  538. spawn(function()
  539.     while wait() do
  540.         local v=v1.Value
  541.         local bT=I("Part",del)bT.Anchored=true bT.CanCollide=false bT.FormFactor=3 bT.Material=288 bT.Transparency=0.2
  542.         bT.Color=C3C
  543.         v1.Value=b.CFrame
  544.         bT.CFrame=CF((v.p + b.CFrame.p)/2, v.p)
  545.         bT.Size=V3(0,0,(v.p - b.CFrame.p).magnitude)
  546.         game.Debris:AddItem(bT,1)
  547.         -- local fade = coroutine.create(function()
  548.             -- for i = 1,40 do wait()
  549.                 -- bT.Transparency=bT.Transparency + 1/40
  550.                 -- bT.Size = bT.Size + V3(1/20, 1/20, 0)
  551.             -- end
  552.             -- bT:destroy()
  553.         -- end)
  554.         -- coroutine.resume(fade)
  555.     end
  556. 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!