Why is the made up function "ChangeCharParts2" not working in this tool when it's activated?

I am simply trying to recreate the disappearing orb from Sword Fight on The Height IV for practice and fun. If you have a recommendation for simplifying this please tell me because it is kind of repetitive.

script:

tool = script.Parent
handle = tool.Handle 

LARM = nil
RARM = nil
LLEG = nil
RLEG = nil
THEAD = nil
CTORSO = nil

function GetCharParts()
	if tool.Parent.ClassName == "Model" then
		LARM = tool.Parent:FindFirstChild('Left Arm')
		RARM = tool.Parent:FindFirstChild('Right Arm')
		LLEG = tool.Parent:FindFirstChild('Left Leg')
		RLEG = tool.Parent:FindFirstChild('Right Leg')
		THEAD = tool.Parent:FindFirstChild('Head')
		CTORSO = tool.Parent.Torso
		for i,v in pairs(tool.Parent:GetChildren()) do
			if v.ClassName == "Hat" then
				THATS = v
			end
		end
		for i,v in pairs(THEAD:GetChildren()) do
			if v.ClassName == "Decal" then
				HDECAL = v
			end
		end
	end
end

function ChangeCharParts()
	GetCharParts()
	for i=1, 1 do
		wait(1)
		THATS.Parent = game.Lighting
		HDECAL.Parent = game.Lighting
	end
	for i=1, 10 do
		wait(.1)
		LARM.Transparency = LARM.Transparency+.1
		RARM.Transparency = RARM.Transparency+.1
		LLEG.Transparency = LLEG.Transparency+.1
		RLEG.Transparency = RLEG.Transparency+.1
		THEAD.Transparency = THEAD.Transparency+.1
		CTORSO.Transparency = CTORSO.Transparency+.1
	end
end

function ChangeCharParts2()
	GetCharParts()
	for i,v in pairs(game.Lighting:GetChildren()) do
		if v.ClassName == "Hat" then
			v.Parent = tool.Parent
		end
		if v.ClassName == "Decal" then
			v.Parent = THEAD
		end
	end
	for i=1, 10 do
		wait(.1)
		LARM.Transparency = LARM.Transparency-.1
		RARM.Transparency = RARM.Transparency-.1
		LLEG.Transparency = LLEG.Transparency-.1
		RLEG.Transparency = RLEG.Transparency-.1
		THEAD.Transparency = THEAD.Transparency-.1
		CTORSO.Transparency = CTORSO.Transparency-.1
	end
end

tool.Activated:connect(function()
	GetCharParts()
	if LARM.Transparency >= 0 then
		ChangeCharParts()
	end
	wait(10)
	if LARM.Transparency == 0 then
		ChangeCharParts2()
	end
end)