gore bomb reupload

local bomb = Instance.new("Tool")
local core = Instance.new("Part")
bomb.Name = "Bomb"
bomb.Parent = owner['Backpack']
core.Name = "Handle"
core.Parent = bomb
core.Position = Vector3.new(-10.8200016, 1.08002317, -6.27999926)
core.Shape = Enum.PartType.Ball
core.Size = Vector3.new(2,2,2)
core.CanCollide = true
core.Anchored = false
core.Locked = true
core.Material = Enum.Material.Neon
core.brickColor = BrickColor.new("Shamrock")

local plr = owner
local char = plr.Character
local torso = char:FindFirstChild("Torso")
local rootpart = char:FindFirstChild("HumanoidRootPart")
local hum = char:FindFirstChildOfClass("Humanoid")
if not char then warn("Character is missing.") return end

local alerted = false
local exploded = false
local dropped = false

local gores = {3739335007,3929462189,3737268126,3739335394,206082273,4953187368,4953187704} -- 3739364168

local ticking = Instance.new("Sound")
ticking.SoundId = 'rbxassetid://300473653'
ticking.Volume = 0.5
ticking.Parent = core

local explosion = Instance.new("Sound")
explosion.SoundId = 'rbxassetid://142070127'
explosion.Volume = 1
explosion.Parent = core

bomb.Activated:Connect(function()
	if not dropped then else return end
	dropped = true
	core.Name = ''
	core.Parent = workspace
	bomb:Destroy()
	core.CanCollide = true
	alert()
end)

function Ragdoll(targchar,headless,insta)
	local pc = targchar
	local pc_torso
	for _,obj in pairs(pc:GetDescendants()) do
		obj.Archivable = true
		if obj:IsA("BasePart") or obj:IsA("UnionOperation") then
			obj.Massless = true
			obj.Locked = true
			obj.CanCollide = true
		end
	end
	if pc ~= nil then
	    local hum = pc:FindFirstChild'Humanoid'
		local LArm = pc:FindFirstChild'Left Arm'
		local RArm = pc:FindFirstChild'Right Arm'
		local LLeg = pc:FindFirstChild'Left Leg'
		local RLeg = pc:FindFirstChild'Right Leg'
		local torso = pc:FindFirstChild'Torso'
		local head = pc:FindFirstChild'Head'


		local LUA = pc:FindFirstChild'LeftUpperArm'
		local LLA = pc:FindFirstChild'LeftLowerArm'
		local LH = pc:FindFirstChild'LeftHand'

		local RUA = pc:FindFirstChild'RightUpperArm'
		local RLA = pc:FindFirstChild'RightLowerArm'
		local RH = pc:FindFirstChild'RightHand'

		local LUL = pc:FindFirstChild'LeftUpperLeg'
		local LLL = pc:FindFirstChild'LeftLowerLeg'
		local LF = pc:FindFirstChild'LeftFoot'

		local RUL = pc:FindFirstChild'RightUpperLeg'
		local RLL = pc:FindFirstChild'RightLowerLeg'
		local RF = pc:FindFirstChild'RightFoot'

		local UT = pc:FindFirstChild'UpperTorso'
		local LT = pc:FindFirstChild'LowerTorso'

	    if hum and LArm and RArm and LLeg and RLeg and head then
			pc_torso = torso
			hum.BreakJointsOnDeath = false
			if insta then
				if hum.RigType==Enum.HumanoidRigType.R6 then
					for _,v in pairs(torso:GetDescendants()) do
						if v:IsA('Motor6D') or v:IsA('Motor') or v:IsA('Weld') then
							v:Destroy()
						end
					end
				   local vis = false
				   local vis2 = false
	    			if not LArm:FindFirstChild('Dismembered') then
					   local at1 = Instance.new("Attachment")
					   at1.Parent = torso
					   at1.Visible = vis
					   at1.Orientation = torso.Orientation + Vector3.new(0,180,0)
					   at1.Position = Vector3.new(-1,1,0)

					   local at1p2 = Instance.new("Attachment")
					   at1p2.Parent = LArm
				       at1p2.Visible = vis
			           at1p2.Orientation = LArm.Orientation + Vector3.new(0,180,0)
	   		           at1p2.Position = Vector3.new(.5,1,0)

				       local bis = Instance.new("BallSocketConstraint")
					   bis.Parent = LArm
				       bis.Attachment0 = at1
				       bis.Attachment1 = at1p2
				       bis.LimitsEnabled = true
				       bis.UpperAngle = 15
				       bis.Visible = vis2
				       bis.TwistLimitsEnabled = true
				       bis.UpperAngle = -45
				       bis.TwistLowerAngle = -45
					end
			       	if not RArm:FindFirstChild('Dismembered') then
			            local at2 = Instance.new("Attachment")
						at2.Parent = torso
			            at2.Visible = vis
			            at2.Orientation = torso.Orientation + Vector3.new(0,0,0)
			            at2.Position = Vector3.new(1,1,0)

			            local at2p2 = Instance.new("Attachment")
						at2p2.Parent = RArm
			            at2p2.Visible = vis
			            at2p2.Orientation = RArm.Orientation + Vector3.new(0,0,0)
			            at2p2.Position = Vector3.new(-.5,1,0)

			            local bis2 = Instance.new("BallSocketConstraint")
						bis2.Parent = RArm
			            bis2.Attachment0 = at2
			            bis2.Attachment1 = at2p2
			            bis2.LimitsEnabled = true
			            bis2.UpperAngle = 15
			            bis2.Visible = vis2
			            bis2.TwistLimitsEnabled = true
			            bis2.UpperAngle = -45
			            bis2.TwistLowerAngle = -45
					end
			         if not RLeg:FindFirstChild('Dismembered') then
			            local at3 = Instance.new("Attachment")
						at3.Parent = torso
			            at3.Visible = vis
			            at3.Orientation = torso.Orientation + Vector3.new(90,0,-90)
			            at3.Position = Vector3.new(.5,-1,0)

			            local at3p2 = Instance.new("Attachment")
						at3p2.Parent = RLeg
			            at3p2.Visible = vis
			            at3p2.Orientation = RLeg.Orientation + Vector3.new(90,0,-90)
			            at3p2.Position = Vector3.new(0,1,0)

			            local bis3 = Instance.new("BallSocketConstraint")
						bis3.Parent = RLeg
			            bis3.Attachment0 = at3
			            bis3.Attachment1 = at3p2
			            bis3.LimitsEnabled = true
			            bis3.UpperAngle = 180-15
			            bis3.Visible = vis2
					end

					if not LLeg:FindFirstChild('Dismembered') then
			            local at4 = Instance.new("Attachment")
						at4.Parent = torso
			            at4.Visible = vis
			            at4.Orientation = torso.Orientation + Vector3.new(90,0,-90)
			            at4.Position = Vector3.new(-.5,-1,0)

			            local at4p2 = Instance.new("Attachment")
						at4p2.Parent = LLeg
			            at4p2.Visible = vis
		                at4p2.Orientation = LLeg.Orientation + Vector3.new(90,0,-90)
		                at4p2.Position = Vector3.new(0,1,0)

		                local bis4 = Instance.new("BallSocketConstraint")
						bis4.Parent = LLeg
		                bis4.Attachment0 = at4
		                bis4.Attachment1 = at4p2
		                bis4.LimitsEnabled = true
		                bis4.UpperAngle = 180-15
		                bis4.Visible = vis2
					end

					if not headless and not head:FindFirstChild('Dismembered') then
			                local at5 = Instance.new("Attachment")
							at5.Parent = torso
			                at5.Visible = vis
			                at5.Orientation = torso.Orientation + Vector3.new(180,90,0)
			                at5.Position = Vector3.new(0,1,0)

			                local at5p2 = Instance.new("Attachment")
							at5p2.Parent = head
			                at5p2.Visible = vis
			                at5p2.Orientation = head.Orientation + Vector3.new(180,90,0)
			                at5p2.Position = Vector3.new(0,-.5,0)

			                local bis5 = Instance.new("BallSocketConstraint")
							bis5.Parent = head
			                bis5.Attachment0 = at5p2
			                bis5.Attachment1 = at5
			                bis5.LimitsEnabled = true
			                bis5.UpperAngle = 75
			                bis5.Visible = vis2
			                bis5.TwistLimitsEnabled = true
			                bis5.UpperAngle = -45
							bis5.TwistLowerAngle = -45
						else
							--head:BreakJoints()
						end
					end
			else
				hum.Died:Connect(function()
				if hum.RigType==Enum.HumanoidRigType.R6 then
					for _,v in pairs(torso:GetDescendants()) do
						if v:IsA('Motor6D') or v:IsA('Motor') or v:IsA('Weld') then
							v:Destroy()
						end
					end
				   local vis = false
				   local vis2 = false
	    			if not LArm:FindFirstChild('Dismembered') then
					   local at1 = Instance.new("Attachment")
					   at1.Parent = torso
					   at1.Visible = vis
					   at1.Orientation = torso.Orientation + Vector3.new(0,180,0)
					   at1.Position = Vector3.new(-1,1,0)

					   local at1p2 = Instance.new("Attachment")
					   at1p2.Parent = LArm
				       at1p2.Visible = vis
			           at1p2.Orientation = LArm.Orientation + Vector3.new(0,180,0)
	   		           at1p2.Position = Vector3.new(.5,1,0)

				       local bis = Instance.new("BallSocketConstraint")
					   bis.Parent = LArm
				       bis.Attachment0 = at1
				       bis.Attachment1 = at1p2
				       bis.LimitsEnabled = true
				       bis.UpperAngle = 15
				       bis.Visible = vis2
				       bis.TwistLimitsEnabled = true
				       bis.UpperAngle = -45
				       bis.TwistLowerAngle = -45
					end
			       	if not RArm:FindFirstChild('Dismembered') then
			            local at2 = Instance.new("Attachment")
						at2.Parent = torso
			            at2.Visible = vis
			            at2.Orientation = torso.Orientation + Vector3.new(0,0,0)
			            at2.Position = Vector3.new(1,1,0)

			            local at2p2 = Instance.new("Attachment")
						at2p2.Parent = RArm
			            at2p2.Visible = vis
			            at2p2.Orientation = RArm.Orientation + Vector3.new(0,0,0)
			            at2p2.Position = Vector3.new(-.5,1,0)

			            local bis2 = Instance.new("BallSocketConstraint")
						bis2.Parent = RArm
			            bis2.Attachment0 = at2
			            bis2.Attachment1 = at2p2
			            bis2.LimitsEnabled = true
			            bis2.UpperAngle = 15
			            bis2.Visible = vis2
			            bis2.TwistLimitsEnabled = true
			            bis2.UpperAngle = -45
			            bis2.TwistLowerAngle = -45
					end
			         if not RLeg:FindFirstChild('Dismembered') then
			            local at3 = Instance.new("Attachment")
						at3.Parent = torso
			            at3.Visible = vis
			            at3.Orientation = torso.Orientation + Vector3.new(90,0,-90)
			            at3.Position = Vector3.new(.5,-1,0)

			            local at3p2 = Instance.new("Attachment")
						at3p2.Parent = RLeg
			            at3p2.Visible = vis
			            at3p2.Orientation = RLeg.Orientation + Vector3.new(90,0,-90)
			            at3p2.Position = Vector3.new(0,1,0)

			            local bis3 = Instance.new("BallSocketConstraint")
						bis3.Parent = RLeg
			            bis3.Attachment0 = at3
			            bis3.Attachment1 = at3p2
			            bis3.LimitsEnabled = true
			            bis3.UpperAngle = 180-15
			            bis3.Visible = vis2
					end

					if not LLeg:FindFirstChild('Dismembered') then
			            local at4 = Instance.new("Attachment")
						at4.Parent = torso
			            at4.Visible = vis
			            at4.Orientation = torso.Orientation + Vector3.new(90,0,-90)
			            at4.Position = Vector3.new(-.5,-1,0)

			            local at4p2 = Instance.new("Attachment")
						at4p2.Parent = LLeg
			            at4p2.Visible = vis
		                at4p2.Orientation = LLeg.Orientation + Vector3.new(90,0,-90)
		                at4p2.Position = Vector3.new(0,1,0)

		                local bis4 = Instance.new("BallSocketConstraint")
						bis4.Parent = LLeg
		                bis4.Attachment0 = at4
		                bis4.Attachment1 = at4p2
		                bis4.LimitsEnabled = true
		                bis4.UpperAngle = 180-15
		                bis4.Visible = vis2
					end

					if not headless and not head:FindFirstChild('Dismembered') then
			                local at5 = Instance.new("Attachment")
							at5.Parent = torso
			                at5.Visible = vis
			                at5.Orientation = torso.Orientation + Vector3.new(180,90,0)
			                at5.Position = Vector3.new(0,1,0)

			                local at5p2 = Instance.new("Attachment")
							at5p2.Parent = head
			                at5p2.Visible = vis
			                at5p2.Orientation = head.Orientation + Vector3.new(180,90,0)
			                at5p2.Position = Vector3.new(0,-.5,0)

			                local bis5 = Instance.new("BallSocketConstraint")
							bis5.Parent = head
			                bis5.Attachment0 = at5p2
			                bis5.Attachment1 = at5
			                bis5.LimitsEnabled = true
			                bis5.UpperAngle = 75
			                bis5.Visible = vis2
			                bis5.TwistLimitsEnabled = true
			                bis5.UpperAngle = -45
							bis5.TwistLowerAngle = -45
						else
							--head:BreakJoints()
						end
					end
				end)
			end
		elseif head and hum then
			pc_torso = pc:FindFirstChild("HumanoidRootPart")
			hum.BreakJointsOnDeath = false
			if insta then
				if hum.RigType==Enum.HumanoidRigType.R15 then
					for _,v in pairs(pc:GetDescendants()) do
						if v:IsA('Motor6D') or v:IsA('Motor') then
							v:Destroy()
						end
					end
					local vis = false
					local vis2 = false

				if not LF:FindFirstChild('Dismembered') then
					local bsc1 = Instance.new("BallSocketConstraint",LF)
					bsc1.Attachment0 = LF.LeftAnkleRigAttachment
					bsc1.Attachment1 = LLL.LeftAnkleRigAttachment
				end
				if not LLL:FindFirstChild('Dismembered') then
					local bsc2 = Instance.new("BallSocketConstraint",LLL)
					bsc2.Attachment0 = LLL.LeftKneeRigAttachment
					bsc2.Attachment1 = LUL.LeftKneeRigAttachment
				end
				if not LUL:FindFirstChild('Dismembered') then
					local bsc3 = Instance.new("BallSocketConstraint",LUL)
					bsc3.Attachment0 = LUL.LeftHipRigAttachment
					bsc3.Attachment1 = LT.LeftHipRigAttachment
				end
				if not RF:FindFirstChild('Dismembered') then
					local bsc4 = Instance.new("BallSocketConstraint",RF)
					bsc4.Attachment0 = RF.RightAnkleRigAttachment
					bsc4.Attachment1 = RLL.RightAnkleRigAttachment
				end
				if not RLL:FindFirstChild('Dismembered') then
					local bsc5 = Instance.new("BallSocketConstraint",RLL)
					bsc5.Attachment0 = RLL.RightKneeRigAttachment
					bsc5.Attachment1 = RUL.RightKneeRigAttachment
				end
				if not RUL:FindFirstChild('Dismembered') then
					local bsc6 = Instance.new("BallSocketConstraint",RUL)
					bsc6.Attachment0 = RUL.RightHipRigAttachment
					bsc6.Attachment1 = LT.RightHipRigAttachment
				end
				if not LH:FindFirstChild('Dismembered') then
					local bsc7 = Instance.new("BallSocketConstraint",LH)
					bsc7.Attachment0 = LH.LeftWristRigAttachment
					bsc7.Attachment1 = LLA.LeftWristRigAttachment
				end
				if not LLA:FindFirstChild('Dismembered') then
					local bsc8 = Instance.new("BallSocketConstraint",LLA)
					bsc8.Attachment0 = LLA.LeftElbowRigAttachment
					bsc8.Attachment1 = LUA.LeftElbowRigAttachment
				end
				if not LUA:FindFirstChild('Dismembered') then
					local bsc9 = Instance.new("BallSocketConstraint",LUA)
					bsc9.Attachment0 = LUA.LeftShoulderAttachment
					bsc9.Attachment1 = UT.LeftCollarAttachment
				end
				if not RH:FindFirstChild('Dismembered') then
					local bsc10 = Instance.new("BallSocketConstraint",RH)
					bsc10.Attachment0 = RH.RightWristRigAttachment
					bsc10.Attachment1 = RLA.RightWristRigAttachment
				end
				if not RLA:FindFirstChild('Dismembered') then
					local bsc11 = Instance.new("BallSocketConstraint",RLA)
					bsc11.Attachment0 = RLA.RightElbowRigAttachment
					bsc11.Attachment1 = RUA.RightElbowRigAttachment
				end
				if not RUA:FindFirstChild('Dismembered') then
					local bsc12 = Instance.new("BallSocketConstraint",RUA)
					bsc12.Attachment0 = RUA.RightShoulderAttachment
					bsc12.Attachment1 = UT.RightCollarAttachment
				end
				if not LT:FindFirstChild('Dismembered') then
					local bsc13 = Instance.new("BallSocketConstraint",LT)
					bsc13.Attachment0 = LT.WaistRigAttachment
					bsc13.Attachment1 = UT.WaistRigAttachment
				end
					if not headless and not head:FindFirstChild('Dismembered')  then
						local bsc14 = Instance.new("BallSocketConstraint",head)
						bsc14.Attachment0 = UT.NeckRigAttachment
						bsc14.Attachment1 = head.NeckRigAttachment
						bsc14.LimitsEnabled = true
						bsc14.UpperAngle = -75
						bsc14.TwistLimitsEnabled = true
		                bsc14.UpperAngle = -45
						bsc14.TwistLowerAngle = -45
					else
						--head:BreakJoints()
					end
				end
			else
				hum.Died:Connect(function()
					if hum.RigType==Enum.HumanoidRigType.R15 then
						for _,v in pairs(pc:GetDescendants()) do
							if v:IsA('Motor6D') or v:IsA('Motor') then
								v:Destroy()
							end
						end
						local vis = false
						local vis2 = false

					if not LF:FindFirstChild('Dismembered') then
						local bsc1 = Instance.new("BallSocketConstraint",LF)
						bsc1.Attachment0 = LF.LeftAnkleRigAttachment
						bsc1.Attachment1 = LLL.LeftAnkleRigAttachment
					end
					if not LLL:FindFirstChild('Dismembered') then
						local bsc2 = Instance.new("BallSocketConstraint",LLL)
						bsc2.Attachment0 = LLL.LeftKneeRigAttachment
						bsc2.Attachment1 = LUL.LeftKneeRigAttachment
					end
					if not LUL:FindFirstChild('Dismembered') then
						local bsc3 = Instance.new("BallSocketConstraint",LUL)
						bsc3.Attachment0 = LUL.LeftHipRigAttachment
						bsc3.Attachment1 = LT.LeftHipRigAttachment
					end
					if not RF:FindFirstChild('Dismembered') then
						local bsc4 = Instance.new("BallSocketConstraint",RF)
						bsc4.Attachment0 = RF.RightAnkleRigAttachment
						bsc4.Attachment1 = RLL.RightAnkleRigAttachment
					end
					if not RLL:FindFirstChild('Dismembered') then
						local bsc5 = Instance.new("BallSocketConstraint",RLL)
						bsc5.Attachment0 = RLL.RightKneeRigAttachment
						bsc5.Attachment1 = RUL.RightKneeRigAttachment
					end
					if not RUL:FindFirstChild('Dismembered') then
						local bsc6 = Instance.new("BallSocketConstraint",RUL)
						bsc6.Attachment0 = RUL.RightHipRigAttachment
						bsc6.Attachment1 = LT.RightHipRigAttachment
					end
					if not LH:FindFirstChild('Dismembered') then
						local bsc7 = Instance.new("BallSocketConstraint",LH)
						bsc7.Attachment0 = LH.LeftWristRigAttachment
						bsc7.Attachment1 = LLA.LeftWristRigAttachment
					end
					if not LLA:FindFirstChild('Dismembered') then
						local bsc8 = Instance.new("BallSocketConstraint",LLA)
						bsc8.Attachment0 = LLA.LeftElbowRigAttachment
						bsc8.Attachment1 = LUA.LeftElbowRigAttachment
					end
					if not LUA:FindFirstChild('Dismembered') then
						local bsc9 = Instance.new("BallSocketConstraint",LUA)
						bsc9.Attachment0 = LUA.LeftShoulderAttachment
						bsc9.Attachment1 = UT.LeftCollarAttachment
					end
					if not RH:FindFirstChild('Dismembered') then
						local bsc10 = Instance.new("BallSocketConstraint",RH)
						bsc10.Attachment0 = RH.RightWristRigAttachment
						bsc10.Attachment1 = RLA.RightWristRigAttachment
					end
					if not RLA:FindFirstChild('Dismembered') then
						local bsc11 = Instance.new("BallSocketConstraint",RLA)
						bsc11.Attachment0 = RLA.RightElbowRigAttachment
						bsc11.Attachment1 = RUA.RightElbowRigAttachment
					end
					if not RUA:FindFirstChild('Dismembered') then
						local bsc12 = Instance.new("BallSocketConstraint",RUA)
						bsc12.Attachment0 = RUA.RightShoulderAttachment
						bsc12.Attachment1 = UT.RightCollarAttachment
					end
					if not LT:FindFirstChild('Dismembered') then
						local bsc13 = Instance.new("BallSocketConstraint",LT)
						bsc13.Attachment0 = LT.WaistRigAttachment
						bsc13.Attachment1 = UT.WaistRigAttachment
					end
						if not headless and not head:FindFirstChild('Dismembered')  then
							local bsc14 = Instance.new("BallSocketConstraint",head)
							bsc14.Attachment0 = UT.NeckRigAttachment
							bsc14.Attachment1 = head.NeckRigAttachment
							bsc14.LimitsEnabled = true
							bsc14.UpperAngle = -75
							bsc14.TwistLimitsEnabled = true
			                bsc14.UpperAngle = -45
							bsc14.TwistLowerAngle = -45
						else
							--head:BreakJoints()
						end
					end
				end)
			end
	    end
	end
	return pc,pc_torso
end
local blood_images = {931617584,1663434319,1391189545,4533673847,3236192667,2565888666,612591729,120362139,116830967,122022304,131339257,247766282,121678640,176677800,120361912,176678070,176678086,176677869} --305296807,256293532,148713503,176678030

local e_s = 1

function add_decal(f,t,obj)
	spawn(function()
	local texture = Instance.new("Texture")
	texture.Parent = obj
	texture.Face = f
	texture.Texture = 'rbxassetid://' .. t
	if f == 'Left' or f == 'Right' then
		texture.StudsPerTileV = obj.Size.Y + e_s
		if (obj.Size.X > obj.Size.Z) then
			texture.StudsPerTileV = obj.Size.Z + e_s
		elseif (obj.Size.Z > obj.Size.X) then
			texture.StudsPerTileU = obj.Size.X + e_s
		else
			texture.StudsPerTileU = obj.Size.X + e_s
		end
	elseif f == 'Front' or f == 'Back' then
		texture.StudsPerTileV = obj.Size.Y + e_s
		if (obj.Size.X > obj.Size.Z) then
			texture.StudsPerTileV = obj.Size.X + e_s
		elseif (obj.Size.Z > obj.Size.X) then
			texture.StudsPerTileU = obj.Size.Z + e_s
		else
			texture.StudsPerTileU = obj.Size.X + e_s
		end
	elseif f == 'Top' or f == 'Bottom' then
		texture.StudsPerTileV = obj.Size.X + e_s
		texture.StudsPerTileU = obj.Size.Z + e_s
	end
	end)
end

function add_blood(obj)
	local t1,t2,t3,t4,t5,t6 = blood_images[math.random(1,#blood_images)],blood_images[math.random(1,#blood_images)],blood_images[math.random(1,#blood_images)],blood_images[math.random(1,#blood_images)],blood_images[math.random(1,#blood_images)],blood_images[math.random(1,#blood_images)]
	add_decal('Top',t1,obj)
	add_decal('Bottom',t2,obj)
	add_decal('Left',t3,obj)
	add_decal('Right',t4,obj)
	add_decal('Front',t5,obj)
	add_decal('Back',t6,obj)
end

function make_bone(obj,targtorso)
	if obj.Name == 'Left Arm' or obj.Name == 'LeftUpperArm' then
		local bone = Instance.new("Part")
		bone.name = 'bone'
		bone.CanCollide = false
		bone.Anchored = false
		bone.CFrame = targtorso.CFrame
		bone.Size = targtorso.Size
		bone.Massless = true
		bone.Locked = true
		local exists = pcall(game:GetService("PhysicsService").GetCollisionGroupId, game:GetService("PhysicsService"), 'Limb Collide')
		if not exists then
			game:GetService("PhysicsService"):CreateCollisionGroup('Limb Collide')
		end
		game:GetService("PhysicsService"):CollisionGroupSetCollidable('Limb Collide','Limb Collide',false)
		game:GetService("PhysicsService"):SetPartCollisionGroup(bone,'Limb Collide')
		game:GetService("PhysicsService"):SetPartCollisionGroup(targtorso,'Limb Collide')
		local weld = Instance.new("Weld")
		weld.Part0 = bone
		weld.Part1 = targtorso
		weld.C1 = CFrame.new(-0.61,0.77,0.03)*CFrame.Angles(math.rad(90),0,math.rad(90))
		weld.Parent = bone
		targtorso.Anchored = false
		bone.Parent = script
		local mesh = Instance.new("SpecialMesh")
		mesh.MeshId = 'rbxassetid://1076136382'
		mesh.TextureId = 'rbxassetid://1076137938'
		mesh.Scale = Vector3.new(0.03,0.03,0.03)
		mesh.Parent = bone
		--
		local bone = Instance.new("Part")
		bone.Name = 'bone'
		bone.CanCollide = false
		bone.Anchored = false
		bone.CFrame = obj.CFrame
		bone.Size = obj.Size
		bone.Massless = true
		bone.Locked = true
		local exists = pcall(game:GetService("PhysicsService").GetCollisionGroupId, game:GetService("PhysicsService"), 'Limb Collide')
		if not exists then
			game:GetService("PhysicsService"):CreateCollisionGroup('Limb Collide')
		end
		game:GetService("PhysicsService"):CollisionGroupSetCollidable('Limb Collide','Limb Collide',false)
		game:GetService("PhysicsService"):SetPartCollisionGroup(bone,'Limb Collide')
		game:GetService("PhysicsService"):SetPartCollisionGroup(obj,'Limb Collide')
		local weld = Instance.new("Weld")
		weld.Part0 = bone
		weld.Part1 = obj
		weld.C1 = CFrame.new(0.13,0.26,0)
		weld.Parent = bone
		obj.Anchored = false
		bone.Parent = script
		local mesh = Instance.new("SpecialMesh")
		mesh.MeshId = 'rbxassetid://36780032'
		mesh.TextureId = 'rbxassetid://36780292'
		mesh.Parent = bone
	elseif obj.Name == 'Right Arm' or obj.Name == 'RightUpperArm' then
		local bone = Instance.new("Part")
		bone.Name = 'bone'
		bone.CanCollide = false
		bone.Anchored = false
		bone.CFrame = targtorso.CFrame
		bone.Size = targtorso.Size
		bone.Massless = true
		bone.Locked = true
		local exists = pcall(game:GetService("PhysicsService").GetCollisionGroupId, game:GetService("PhysicsService"), 'Limb Collide')
		if not exists then
			game:GetService("PhysicsService"):CreateCollisionGroup('Limb Collide')
		end
		game:GetService("PhysicsService"):CollisionGroupSetCollidable('Limb Collide','Limb Collide',false)
		game:GetService("PhysicsService"):SetPartCollisionGroup(bone,'Limb Collide')
		game:GetService("PhysicsService"):SetPartCollisionGroup(targtorso,'Limb Collide')
		local weld = Instance.new("Weld")
		weld.Part0 = bone
		weld.Part1 = targtorso
		weld.C1 = CFrame.new(0.61,0.77,0.03)*CFrame.Angles(math.rad(90),0,math.rad(-90))
		weld.Parent = bone
		targtorso.Anchored = false
		bone.Parent = script
		local mesh = Instance.new("SpecialMesh")
		mesh.MeshId = 'rbxassetid://1076136382'
		mesh.TextureId = 'rbxassetid://1076137938'
		mesh.Scale = Vector3.new(0.03,0.03,0.03)
		mesh.Parent = bone
		--
		local bone = Instance.new("Part")
		bone.Name = 'bone'
		bone.CanCollide = false
		bone.Anchored = false
		bone.CFrame = obj.CFrame
		bone.Size = obj.Size
		bone.Massless = true
		bone.Locked = true
		local exists = pcall(game:GetService("PhysicsService").GetCollisionGroupId, game:GetService("PhysicsService"), 'Limb Collide')
		if not exists then
			game:GetService("PhysicsService"):CreateCollisionGroup('Limb Collide')
		end
		game:GetService("PhysicsService"):CollisionGroupSetCollidable('Limb Collide','Limb Collide',false)
		game:GetService("PhysicsService"):SetPartCollisionGroup(bone,'Limb Collide')
		game:GetService("PhysicsService"):SetPartCollisionGroup(obj,'Limb Collide')
		local weld = Instance.new("Weld")
		weld.Part0 = bone
		weld.Part1 = obj
		weld.C1 = CFrame.new(-0.13,0.26,0)
		weld.Parent = bone
		obj.Anchored = false
		bone.Parent = script
		local mesh = Instance.new("SpecialMesh")
		mesh.MeshId = 'rbxassetid://36780156'
		mesh.TextureId = 'rbxassetid://36780292'
		mesh.Parent = bone
	elseif obj.Name == 'Left Leg' or obj.Name == 'LeftUpperLeg' then
		local bone = Instance.new("Part")
		bone.Name = 'bone'
		bone.CanCollide = false
		bone.Anchored = false
		bone.CFrame = targtorso.CFrame
		bone.Size = targtorso.Size
		bone.Massless = true
		bone.Locked = true
		local exists = pcall(game:GetService("PhysicsService").GetCollisionGroupId, game:GetService("PhysicsService"), 'Limb Collide')
		if not exists then
			game:GetService("PhysicsService"):CreateCollisionGroup('Limb Collide')
		end
		game:GetService("PhysicsService"):CollisionGroupSetCollidable('Limb Collide','Limb Collide',false)
		game:GetService("PhysicsService"):SetPartCollisionGroup(bone,'Limb Collide')
		game:GetService("PhysicsService"):SetPartCollisionGroup(targtorso,'Limb Collide')
		local weld = Instance.new("Weld")
		weld.Part0 = bone
		weld.Part1 = targtorso
		weld.C1 = CFrame.new(-0.6,-0.64,0.11)*CFrame.Angles(0,0,math.rad(180))
		weld.Parent = bone
		targtorso.Anchored = false
		bone.Parent = script
		local mesh = Instance.new("SpecialMesh")
		mesh.MeshId = 'rbxassetid://1076136382'
		mesh.TextureId = 'rbxassetid://1076137938'
		mesh.Scale = Vector3.new(0.03,0.03,0.03)
		mesh.Parent = bone
		--
		local bone = Instance.new("Part")
		bone.Name = 'bone'
		bone.CanCollide = false
		bone.Anchored = false
		bone.CFrame = obj.CFrame
		bone.Size = obj.Size
		bone.Massless = true
		bone.Locked = true
		local exists = pcall(game:GetService("PhysicsService").GetCollisionGroupId, game:GetService("PhysicsService"), 'Limb Collide')
		if not exists then
			game:GetService("PhysicsService"):CreateCollisionGroup('Limb Collide')
		end
		game:GetService("PhysicsService"):CollisionGroupSetCollidable('Limb Collide','Limb Collide',false)
		game:GetService("PhysicsService"):SetPartCollisionGroup(bone,'Limb Collide')
		game:GetService("PhysicsService"):SetPartCollisionGroup(obj,'Limb Collide')
		local weld = Instance.new("Weld")
		weld.Part0 = bone
		weld.Part1 = obj
		weld.C1 = CFrame.new(0,0.09,0.13)
		weld.Parent = bone
		obj.Anchored = false
		bone.Parent = script
		local mesh = Instance.new("SpecialMesh")
		mesh.MeshId = 'rbxassetid://36780156'
		mesh.TextureId = 'rbxassetid://36780292'
		mesh.Parent = bone
	elseif obj.Name == 'Right Leg' or obj.Name == 'RightUpperLeg' then
		local bone = Instance.new("Part")
		bone.Name = 'bone'
		bone.CanCollide = false
		bone.Anchored = false
		bone.CFrame = targtorso.CFrame
		bone.Size = targtorso.Size
		bone.Massless = true
		bone.Locked = true
		local exists = pcall(game:GetService("PhysicsService").GetCollisionGroupId, game:GetService("PhysicsService"), 'Limb Collide')
		if not exists then
			game:GetService("PhysicsService"):CreateCollisionGroup('Limb Collide')
		end
		game:GetService("PhysicsService"):CollisionGroupSetCollidable('Limb Collide','Limb Collide',false)
		game:GetService("PhysicsService"):SetPartCollisionGroup(bone,'Limb Collide')
		game:GetService("PhysicsService"):SetPartCollisionGroup(targtorso,'Limb Collide')
		local weld = Instance.new("Weld")
		weld.Part0 = bone
		weld.Part1 = targtorso
		weld.C1 = CFrame.new(0.6,-0.64,0.11)*CFrame.Angles(0,0,math.rad(180))
		weld.Parent = bone
		targtorso.Anchored = false
		bone.Parent = script
		local mesh = Instance.new("SpecialMesh")
		mesh.MeshId = 'rbxassetid://1076136382'
		mesh.TextureId = 'rbxassetid://1076137938'
		mesh.Scale = Vector3.new(0.03,0.03,0.03)
		mesh.Parent = bone
		--
		local bone = Instance.new("Part")
		bone.Name = 'bone'
		bone.CanCollide = false
		bone.Anchored = false
		bone.CFrame = obj.CFrame
		bone.Size = obj.Size
		bone.Massless = true
		bone.Locked = true
		local exists = pcall(game:GetService("PhysicsService").GetCollisionGroupId, game:GetService("PhysicsService"), 'Limb Collide')
		if not exists then
			game:GetService("PhysicsService"):CreateCollisionGroup('Limb Collide')
		end
		game:GetService("PhysicsService"):CollisionGroupSetCollidable('Limb Collide','Limb Collide',false)
		game:GetService("PhysicsService"):SetPartCollisionGroup(bone,'Limb Collide')
		game:GetService("PhysicsService"):SetPartCollisionGroup(obj,'Limb Collide')
		local weld = Instance.new("Weld")
		weld.Part0 = bone
		weld.Part1 = obj
		weld.C1 = CFrame.new(0,0.09,0.13)
		weld.Parent = bone
		obj.Anchored = false
		bone.Parent = script
		local mesh = Instance.new("SpecialMesh")
		mesh.MeshId = 'rbxassetid://36780195'
		mesh.TextureId = 'rbxassetid://36780292'
		mesh.Parent = bone
	elseif obj.Name == 'Head' then
		local bone = Instance.new("Part")
		bone.Name = 'bone'
		bone.CanCollide = false
		bone.Anchored = false
		bone.CFrame = targtorso.CFrame
		bone.Size = targtorso.Size
		bone.Massless = true
		bone.Locked = true
		local exists = pcall(game:GetService("PhysicsService").GetCollisionGroupId, game:GetService("PhysicsService"), 'Limb Collide')
		if not exists then
			game:GetService("PhysicsService"):CreateCollisionGroup('Limb Collide')
		end
		game:GetService("PhysicsService"):CollisionGroupSetCollidable('Limb Collide','Limb Collide',false)
		game:GetService("PhysicsService"):SetPartCollisionGroup(bone,'Limb Collide')
		game:GetService("PhysicsService"):SetPartCollisionGroup(targtorso,'Limb Collide')
		local weld = Instance.new("Weld")
		weld.Part0 = bone
		weld.Part1 = targtorso
		weld.C1 = CFrame.new(0,0.66,0)
		weld.Parent = bone
		targtorso.Anchored = false
		bone.Parent = script
		local mesh = Instance.new("SpecialMesh")
		mesh.MeshId = 'rbxassetid://1076136382'
		mesh.TextureId = 'rbxassetid://1076137938'
		mesh.Scale = Vector3.new(0.03,0.03,0.03)
		mesh.Parent = bone
		--
		local bone = Instance.new("Part")
		bone.Name = 'bone'
		bone.CanCollide = false
		bone.Anchored = false
		bone.CFrame = obj.CFrame
		bone.Size = obj.Size
		bone.Massless = true
		bone.Locked = true
		local exists = pcall(game:GetService("PhysicsService").GetCollisionGroupId, game:GetService("PhysicsService"), 'Limb Collide')
		if not exists then
			game:GetService("PhysicsService"):CreateCollisionGroup('Limb Collide')
		end
		game:GetService("PhysicsService"):CollisionGroupSetCollidable('Limb Collide','Limb Collide',false)
		game:GetService("PhysicsService"):SetPartCollisionGroup(bone,'Limb Collide')
		game:GetService("PhysicsService"):SetPartCollisionGroup(obj,'Limb Collide')
		local weld = Instance.new("Weld")
		weld.Part0 = bone
		weld.Part1 = obj
		weld.C1 = CFrame.new(0,-0.23,0)*CFrame.Angles(0,math.rad(-90),0)
		weld.Parent = bone
		obj.Anchored = false
		bone.Parent = script
		local mesh = Instance.new("SpecialMesh")
		mesh.MeshId = 'rbxassetid://1076136382'
		mesh.TextureId = 'rbxassetid://1076137938'
		mesh.Scale = Vector3.new(0.03,0.03,0.03)
		mesh.Parent = bone
	end
end

function break_limb(obj,rig,targtorso,targhum,dir)
	if not obj:FindFirstChild('Dismembered') and obj.Name ~= 'Torso' and obj.Name ~= 'HumanoidRootPart' and obj.Name ~= 'UpperTorso' and obj.Name ~= 'LowerTorso' then else return end
	local confirm = Instance.new("ObjectValue")
	confirm.Name = 'Dismembered'
	confirm.Parent = obj
	local bsc = obj:FindFirstChildOfClass("BallSocketConstraint")
	if bsc then
		bsc:Destroy()
	end
	bleed2(obj,targhum,false,5,false)
	add_blood(obj)
	make_bone(obj,targtorso)
	local kb = 35
	local bv = Instance.new("BodyVelocity")
	bv.MaxForce = Vector3.new(math.huge,math.huge,math.huge)
	bv.Velocity = dir*kb+Vector3.new(0,kb,0)
	bv.Parent = obj
	game:GetService("Debris"):AddItem(bv,0.1)
	if rig == Enum.HumanoidRigType.R6 then
		local bsc = obj:FindFirstChildOfClass("BallSocketConstraint")
		if bsc then
			bsc:Destroy()
		end
		for i,v in pairs(targtorso:GetChildren()) do
			if v:IsA("Motor6D") then
				if obj.Name == 'Head' and v.Name == 'Neck' then
					v:Destroy()
				elseif obj.Name == 'Left Arm' and v.Name == 'Left Shouldver' then
					v:Destroy()
				elseif obj.Name == 'Right Arm' and v.Name == 'Right Shoulder' then
					v:Destroy()
				elseif obj.Name == 'Left Leg' and v.Name == 'Left Hip' then
					if obj.Parent:FindFirstChild("Right Leg") then
						targhum.WalkSpeed = targhum.WalkSpeed/2
					else
						targhum.WalkSpeed = 0
					end
					v:Destroy()
				elseif obj.Name == 'Right Leg' and v.Name == 'Right Hip' then
					if obj.Parent:FindFirstChild("Left Leg") then
						targhum.WalkSpeed = targhum.WalkSpeed/2
					else
						targhum.WalkSpeed = 0
					end
					v:Destroy()
				end
			end
		end
	elseif rig == Enum.HumanoidRigType.R15 then
		for i,v in pairs(obj:GetChildren()) do
			if v:IsA("Motor6D") then
				if (obj.Name == 'LeftUpperLeg' and obj.Parent:FindFirstChild("RightUpperLeg")) or (obj.Name == 'RightUpperLeg' and obj.Parent:FindFirstChild("LeftUpperLeg")) then
					targhum.WalkSpeed = targhum.WalkSpeed/2
				elseif obj.Name == 'RightUpperLeg' or obj.Name == 'LeftUpperLeg' then
					targhum.WalkSpeed = 0
				end
				v:Destroy()
			end
		end
	end
	local cb = Instance.new("Part")
	cb.Name = 'limb'
	cb.Transparency = 1
	cb.CanCollide = true
	cb.Anchored = false
	cb.CFrame = obj.CFrame
	cb.Size = obj.Size
	cb.Massless = true
	cb.Locked = true
	local exists = pcall(game:GetService("PhysicsService").GetCollisionGroupId, game:GetService("PhysicsService"), 'Limb Collide')
	if not exists then
		game:GetService("PhysicsService"):CreateCollisionGroup('Limb Collide')
	end
	game:GetService("PhysicsService"):CollisionGroupSetCollidable('Limb Collide','Limb Collide',false)
	game:GetService("PhysicsService"):SetPartCollisionGroup(cb,'Limb Collide')
	game:GetService("PhysicsService"):SetPartCollisionGroup(obj,'Limb Collide')
	local weld = Instance.new("Weld")
	weld.Part0 = cb
	weld.Part1 = obj
	weld.Parent = cb
	obj.Massless = true
	obj.Anchored = false
	cb.Parent = script
end
function bleed2(frick,targhum,can_hurt,t,splat)
	spawn(function()
	if not frick:FindFirstChild("bleeding from kry's " .. bomb.Name) then else return end
	local tempbleedval = Instance.new("ObjectValue")
	tempbleedval.Name = "bleeding from kry's " .. bomb.Name
	tempbleedval.Parent = frick
	local bleeding = true
	local rig = targhum.RigType
	local limbs = {'Head','Left Arm','Right Arm','Left Leg','Right Leg','RightUpperLeg','LeftUpperLeg','RightUpperArm','LeftUpperArm','RightLowerLeg','LeftLowerLeg','RightLowerArm','LeftLowerArm','RightFoot','LeftFoot','RightHand','LeftHand'}
	spawn(function()
		wait(t)
		bleeding = false
		tempbleedval:Destroy()
	end)
    while bleeding and frick and frick.Parent do
		if --[[(targhum and targhum.Parent and targhum.Health > 0) or]] (not frick or not frick.Parent or not targhum or not targhum.Parent) then
			break
		end
		local max_limbs = 0
		local current_limbs = 0
		local gone_limbs = 0
		local targchar = targhum.Parent
		if rig == Enum.HumanoidRigType.R6 then
			max_limbs = 5
		elseif rig == Enum.HumanoidRigType.R15 then
			max_limbs = 13
		end
		for i,v in pairs(targchar:GetChildren()) do
			local found = false
			for i,n in pairs(limbs) do if n == v.Name then found = true; end; end;
			if found and not v:FindFirstChild("Dismembered") then
				current_limbs = current_limbs + 1
			end
		end
		gone_limbs = (max_limbs-current_limbs)
		if targhum and can_hurt then
			if gone_limbs >= 1 then
				targhum:TakeDamage(0.5*gone_limbs)
			else
				targhum:TakeDamage(0.5)
			end
		end
	    spawn(function()
		    local thing = Instance.new('Part')
			thing.Parent = workspace
		    thing.Size = Vector3.new(0.1,0.1,0.1)
		    thing.CFrame = frick.CFrame*CFrame.new(0,frick.Size.Y/2,0)
			if splat then
		    	thing.Transparency = 0
			elseif not splat then
				thing.Transparency = 1
			end
		    thing.Color = Color3.fromRGB(75, 0, 0)
		    thing.Material = Enum.Material.Glass
		    thing.Name = "blood_drop"
		    thing.CanCollide =false
			thing:BreakJoints()
		    local mesh = Instance.new('SpecialMesh')
			mesh.MeshType = Enum.MeshType.Sphere
		    mesh.Parent = thing
			--game:GetService("Debris"):AddItem(thing,5)
			local att1,att2 = Instance.new("Attachment"),Instance.new("Attachment")
			att1.Parent = thing
			att1.Position = Vector3.new(0,-(thing.Size.Y/2),0)
			att2.Parent = thing
			att2.Position = Vector3.new(0,(thing.Size.Y/2),0)
			if splat then
				local trail_drop = Instance.new("Trail")
				trail_drop.Parent = thing
				trail_drop.Attachment0 = att1
				trail_drop.Attachment1 = att2
				trail_drop.Color = ColorSequence.new(Color3.new(0.294118, 0, 0),Color3.new(0.294118, 0, 0))
				trail_drop.FaceCamera = true
				trail_drop.LightInfluence = 1
				trail_drop.Transparency = NumberSequence.new(0.1,1)
				trail_drop.Lifetime = 1
				trail_drop.MinLength = 0
			end
		    local rawrxd = Instance.new('BodyForce')
			rawrxd.Parent = thing
			if splat then
		  	    rawrxd.Force = frick.CFrame.upVector+Vector3.new(math.random(-5, 5)/10,3,math.random(-5, 5)/10)
			elseif not splat then
				rawrxd.Force = frick.CFrame.upVector*(math.random()*2)+Vector3.new(math.random(-5, 5)/10,1.5,0)
			end
		    game:GetService("Debris"):AddItem(rawrxd,0.01)
		    thing.Touched:connect(function(tou)
		        if tou and tou.Parent and not tou:IsDescendantOf(targchar) and not tou.Parent:FindFirstChildOfClass("Humanoid") and not tou.Parent.Parent:FindFirstChildOfClass("Humanoid") and not tou.Parent:IsA("Accessory") and tou.Name ~= 'Handle' and tou.Parent.Name ~= 'Handle' and not tou.Parent:IsA("Tool") and not string.match(tou.Name:lower(),'blood_drop') and not string.match(tou.Name:lower(),'bullet') and not string.match(tou.Name:lower(),'bone') and not string.match(tou.Name:lower(),'gun mag') and not string.match(tou.Name:lower(),'limb') then
		            local pos = Vector3.new(thing.Position.X,(tou.Position.Y+(tou.Size.Y/2))+(0.02/2),thing.Position.Z)
					local Point1 = pos-Vector3.new(0.01,0.01,0.01)
					local Point2 = pos+Vector3.new(0.01,0.01,0.01)
					local Region = Region3.new(Point1,Point2)
					for _,Part in pairs(game.Workspace:FindPartsInRegion3(Region,nil,math.huge)) do
						if Part.Name == "blood" then
							tou = Part
						end
					end
		            thing:Destroy()
		            if tou.Name == "blood" then
		                local reee = tou.CFrame
		                if tou.Transparency > -0.2 then
		                    tou.Transparency = tou.Transparency - 0.1
		                end
		                if tou.Size.X < 5 then
		                    tou.Size = tou.Size+Vector3.new(0.4,0,0.4)
		                    tou.CFrame = reee
		                elseif tou.Size.X < 7.5 then
		                    tou.Size = tou.Size+Vector3.new(0.3,0,0.3)
		                    tou.CFrame = reee
		                elseif tou.Size.X < 10 then
		                    tou.Size = tou.Size+Vector3.new(0.2,0,0.2)
		                    tou.CFrame = reee
		                end
		            elseif tou.CanCollide == true then
		                local bloodlol = Instance.new('Part')
						if gone_limbs >= 1 then
		               	 	bloodlol.Size = Vector3.new(1*gone_limbs,0.2,1*gone_limbs)
						else
							bloodlol.Size = Vector3.new(1,0.2,1)
						end
		                bloodlol.Name = "blood"
		                bloodlol.Anchored = true
		                bloodlol.CanCollide = false
		                bloodlol.Material = Enum.Material.Glass
		                bloodlol.Color = Color3.fromRGB(75, 0, 0)
		                local mesh = Instance.new('SpecialMesh')
						mesh.MeshType = Enum.MeshType.Sphere
		                mesh.Parent = bloodlol
						bloodlol.Parent = workspace
		                bloodlol.CFrame = CFrame.new(pos)
		                while bloodlol and bloodlol.Parent ~= nil do
		                    if bloodlol.Transparency < 1 then
		                        bloodlol.Transparency = bloodlol.Transparency + 0.05
		                	else
		                        bloodlol:Destroy()
		                    end
		                    wait(0.1)
		                end
		            end
		        end
		    end)
		end)
		wait(0.1)
	end
	tempbleedval:Destroy()
	end)
end
function gore_explode(obj,dir)
	local targchar,targhead,targtorso,targhum,killval
	pcall(function()
		targchar = obj.Parent
	end)
	for i,v in pairs(game:GetService("Players"):GetPlayers()) do
		if v and v.Character and obj:IsDescendantOf(v.Character) then
			targchar = v.Character
		end
	end
	pcall(function()
		targhead = targchar:FindFirstChild("Head")
	end)
	pcall(function()
		targtorso = targchar:FindFirstChild("Torso") or targchar:FindFirstChild("UpperTorso") or targchar:FindFirstChild("HumanoidRootPart")
	end)
	pcall(function()
		targhum = targchar:FindFirstChildOfClass("Humanoid")
	end)
	pcall(function()
		killval = targhum:FindFirstChild("killer")
	end)
	if targchar and targhead and targtorso and targhum and not killval then
		targhum:TakeDamage(1/0)
		break_limb(targhead,targhum.RigType,targtorso,targhum,dir)
		if 0 > targhum.Health then
			local bleeding = Instance.new("Sound")
			bleeding.SoundId = 'rbxassetid://360007673'
			bleeding.Volume = 0.5
			bleeding.Parent = obj
			bleeding:Play()
			local fakechar,faketorso
			local tempkillval = Instance.new("ObjectValue",targhum)
			tempkillval.Name = "killer"
			tempkillval.Value = plr
			local kb = 45
			local bv = Instance.new("BodyVelocity")
			bv.MaxForce = Vector3.new(math.huge,math.huge,math.huge)
			bv.Velocity = dir*kb+Vector3.new(0,kb,0)
			bv.Parent = targtorso
			game:GetService("Debris"):AddItem(bv,0.1)
			pcall(function()
				Ragdoll(targchar,true,false)
			end)
			bleed2(targtorso,targhum,true,5,true)
			local decap_bleed = Instance.new("Sound")
			decap_bleed.SoundId = 'rbxassetid://244502094'
			decap_bleed.Volume = 0.5
			decap_bleed.Parent = targtorso
			decap_bleed:Play()
			local decap_head = Instance.new("Sound")
			decap_head.SoundId = 'rbxassetid://1255040462' --222406108
			decap_head.Volume = 1
			decap_head.Parent = targtorso
			decap_head:Play()
			local att = Instance.new("Attachment")
			att.Parent = targtorso
			att.Position = Vector3.new(0,targtorso.Size.Y/2,0)
			local blood_emitter = Instance.new("ParticleEmitter")
			blood_emitter.Name = "Blood2"
			blood_emitter.Parent = att
			blood_emitter.Speed = NumberRange.new(5, 14)
			blood_emitter.Color = ColorSequence.new(Color3.new(0.45098, 0, 0),Color3.new(0.45098, 0, 0))
			blood_emitter.LightEmission = 0.20000000298023
			blood_emitter.LightInfluence = 1
			blood_emitter.Texture = "http://www.roblox.com/asset/?id=134531274"
			blood_emitter.Transparency = NumberSequence.new(0.30000001192093,0.30000001192093)
			blood_emitter.ZOffset = 0
			blood_emitter.Size = NumberSequence.new(0.12499988079071,0)
			blood_emitter.Acceleration = Vector3.new(0, -20, 0)
			blood_emitter.Lifetime = NumberRange.new(0.5, 1.5)
			blood_emitter.Rate = 100000
			blood_emitter.SpreadAngle = Vector2.new(90, 90)
			blood_emitter.VelocitySpread = 90
			blood_emitter.Enabled = true
			spawn(function()
				wait(5)
				blood_emitter.Enabled = false
				game:GetService("Debris"):AddItem(blood_emitter,2)
			end)
		end
	end
end
function explode(size)
	if not exploded then else core.BrickColor = BrickColor.new("Shamrock"); return; end;
	exploded = true
	local pos = core.Position
	local expart = Instance.new("Part")
	expart.BrickColor = core.BrickColor
	expart.Material = Enum.Material.Neon
	expart.Shape = Enum.PartType.Ball
	expart.Size = Vector3.new(size,size,size)
	expart.Anchored = true
	expart.Locked = true
	expart.CanCollide = false
	expart.Position = pos
	expart.Parent = script
	explosion.Parent = expart
	explosion:Play()
	bomb:Destroy()
	spawn(function()
		--wait(1)
		expart.Transparency = 1
		game:GetService("Debris"):AddItem(expart,3)
	end)
	local ex = Instance.new("Explosion")
	ex.Visible = true
	ex.BlastRadius = ((size/2)-1)
	ex.DestroyJointRadiusPercent = 0
	ex.ExplosionType = Enum.ExplosionType.Craters
	ex.Position = pos
	ex.Parent = expart
	ex.Hit:Connect(function(obj,dist)
		local targchar,targtorso,targhum
		pcall(function()
			targchar = obj.Parent
		end)
		pcall(function()
			targtorso = targchar:FindFirstChild("Torso") or targchar:FindFirstChild("UpperTorso") or targchar:FindFirstChild("LowerTorso") or targchar:FindFirstChild("HumanoidRootPart")
		end)
		pcall(function()
			targhum = targchar:FindFirstChildOfClass("Humanoid")
		end)
		if targchar and targtorso and targhum and ((size/2)-1) >= dist then
			local gore_s = Instance.new("Sound")
			gore_s.SoundId = 'rbxassetid://' .. gores[math.random(1,#gores)]
			gore_s.Volume = 0.1
			gore_s.Parent = targtorso
			gore_s:Play()
			local dir = ((targtorso.Position-expart.Position)*Vector3.new(1,0,1)).Unit
			gore_explode(obj,dir)
			if math.random(1,5) == 1 then
				break_limb(obj,targhum.RigType,targtorso,targhum,dir)
			end
		end
	end)
end

function alert()
	for i = 1,10 do
		ticking:Play()
		core.BrickColor = BrickColor.new("Really red")
		wait(1/5)
		core.BrickColor = BrickColor.new("Really black")
		wait(1/5)
	end
	explode(35)
end