breakapart

local p = game.Players.LocalPlayer
local c = p.Character
local m = p:GetMouse()

function SelectionBox(thing,size)
	local SB = Instance.new("SelectionBox")
	SB.Parent = thing
	SB.Adornee = thing
	SB.LineThickness = size
	SB.Color3 = Color3.new(255,0,0)
	SB.Name = "SB23134121"
end


m.KeyDown:connect(function(k)

	if k == "r" then

	if m.Target then
	if m.Target.Parent:IsA("Model") then

		local tim = m.Target.Parent:GetChildren()

		for i = 1,#tim do

			if tim[i]:FindFirstChild("SB23134121") then
			else

				if tim[i]:IsA("BasePart") or tim[i]:IsA("UnionOperation") then
				if tim[i].Locked == true then
				local raise = Instance.new("BodyPosition",tim[i])
				tim[i].Anchored = false
				tim[i].CanCollide = false
				raise.Position = tim[i].Position + Vector3.new(0,10,0)

				SelectionBox(tim[i],0.01)

				delay(math.random(1,40)/10,function()

					tim[i].Anchored = false
					tim[i].CanCollide = true
					tim[i]:BreakJoints()
					wait(1)
					raise:remove()
					wait(3)

					if tim[i]:findFirstChild("SB23134121") then
					tim[i].SB23134121:remove()
					end

				end)
				end
				end
			end

		end

	end
	end
	end
end)