Advertisement
Guest User

Untitled

a guest
May 27th, 2018
84
0
Never
Not a member of Pastebin yet? Sign Up, it unlocks many cool features!
text 2.60 KB | None | 0 0
  1. function Kill(Char)
  2. local NewCharacter = IT("Model",Effects)
  3. NewCharacter.Name = "Ow im ded ;-;"
  4. for _, c in pairs(Char:GetDescendants()) do
  5. if c:IsA("BasePart") and c.Transparency == 0 then
  6. if c.Parent == Char then
  7. getbloody(c,5)
  8. end
  9. c:BreakJoints()
  10. c.Material = "Glass"
  11. c.Color = C3(113/255,148/255,90/255)
  12. c.CanCollide = true
  13. c.Transparency = 0.3
  14. if c:FindFirstChildOfClass("SpecialMesh") then
  15. c:FindFirstChildOfClass("SpecialMesh").TextureId = ""
  16. end
  17. if c.Name == "Head" then
  18. c:ClearAllChildren()
  19. c.Size = VT(c.Size.Y,c.Size.Y,c.Size.Y)
  20. end
  21. if c.ClassName == "MeshPart" then
  22. c.TextureID = ""
  23. end
  24. if c:FindFirstChildOfClass("BodyPosition") then
  25. c:FindFirstChildOfClass("BodyPosition"):remove()
  26. end
  27. if c:FindFirstChildOfClass("ParticleEmitter") then
  28. c:FindFirstChildOfClass("ParticleEmitter"):remove()
  29. end
  30. c.Parent = NewCharacter
  31. c.Name = "DeadPart"
  32. c.Velocity = VT(MRANDOM(-45,45),MRANDOM(-45,45),MRANDOM(-45,45))/15
  33. c.RotVelocity = VT(MRANDOM(-45,45),MRANDOM(-15,85),MRANDOM(-45,45))
  34. end
  35. end
  36. Char:remove()
  37. Debris:AddItem(NewCharacter,5)
  38. end
  39.  
  40. function ApplyAoE(POSITION,RANGE,BRUTAL)
  41. local CHILDREN = workspace:GetDescendants()
  42. for index, CHILD in pairs(CHILDREN) do
  43. if CHILD.ClassName == "Model" and CHILD ~= Character then
  44. local HUM = CHILD:FindFirstChildOfClass("Humanoid")
  45. if HUM then
  46. local TORSO = CHILD:FindFirstChild("Torso") or CHILD:FindFirstChild("UpperTorso")
  47. if TORSO then
  48. if (TORSO.Position - POSITION).Magnitude <= RANGE then
  49. if BRUTAL == true then
  50. Kill(CHILD)
  51. else
  52. CHILD:BreakJoints()
  53. end
  54. end
  55. end
  56. end
  57. end
  58. end
  59. end
  60.  
  61. function BulletDetection(FROM,TO,BRUTAL)
  62. local AIMHIT,AIMPOS,NORMAL = CastProperRay(FROM,TO,2000,Character)
  63. coroutine.resume(coroutine.create(function()
  64. if AIMHIT ~= nil then
  65. if AIMHIT.Parent ~= Character then
  66. if AIMHIT.Parent:FindFirstChildOfClass("Humanoid") or AIMHIT.Parent.Parent:FindFirstChildOfClass("Humanoid") then
  67. if AIMHIT.Parent:FindFirstChildOfClass("Humanoid") then
  68. if BRUTAL == true then
  69. Kill(AIMHIT.Parent)
  70. else
  71. getbloody(AIMHIT,15)
  72. AIMHIT.Parent:BreakJoints()
  73. if AIMHIT.Name == "Head" then
  74. AIMHIT.Name = "HEADSHOT"
  75. AIMHIT:remove()
  76. end
  77. end
  78. else
  79. if BRUTAL == true then
  80. Kill(AIMHIT.Parent.Parent)
  81. else
  82. AIMHIT.Parent.Parent:BreakJoints()
  83. end
  84. end
  85. end
  86. end
  87. end
  88. end))
  89. SpawnTrail(FROM,AIMPOS)
  90. return AIMHIT,AIMPOS,NORMAL
  91. end
Advertisement
Add Comment
Please, Sign In to add comment
Advertisement