why is this sheild Value not going up every time its lower than the max sheild value?

here it is...……

game.Players.PlayerAdded:Connect(function(player)
player.CharacterAdded:Connect(function(character)

	script.Parent = character:WaitForChild("ShieldPoints")
	wait(4)
print(script.Parent.Name)
script.Parent.Changed:Connect(function()
	
while true do
		wait(2)
		print("ha")
		if script.Parent.Value < script.Parent.MaxShieldPoints.Value then
		
			script.Parent.Value = script.Parent.Value + 1
		
			
		
			end

	
		end
end)
end)
end)