local char = game.Players.LocalPlayer.Character or game.Players.LocalPlayer.CharacterAdded:Wait()

repeat wait() until char:FindFirstChild("Humanoid") and char:FindFirstChild("HumanoidRootPart")

local humanoid = char:FindFirstChild("Humanoid")
local scaleValue = 0.001

local function scaleBodyParts(scale)
	for _, v in pairs(char:GetDescendants()) do
		if v:IsA("BasePart") and v.Name ~= "HumanoidRootPart" then
			v.Size = v.Size * scale
			local welds = v:GetChildren()
			for _, w in pairs(welds) do
				if w:IsA("Motor6D") or w:IsA("Weld") then
					w.C0 = w.C0 * scale
					w.C1 = w.C1 * scale
				end
			end
		elseif v:IsA("SpecialMesh") then
			v.Scale = v.Scale * scale
		end
	end

	local desc = humanoid:FindFirstChildOfClass("HumanoidDescription")
	if desc then
		desc.HeadScale = scale
		desc.DepthScale = scale
		desc.WidthScale = scale
		desc.HeightScale = scale
	end
end

scaleBodyParts(scaleValue)
print