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)