Global Leaderboard script not constantly updating... Help?

As you read in the title, I'm trying to make a global leaderboard. It works, but it doesn't consistently work. What I mean is, if I have 0 credits, then it'll show 0 credits. After 30 seconds, if I have a different value than 0, then it should update on the leaderboard. However, it doesn't seem to update the leaderboard. Also, there's no errors in the output occurring. Help?

--SCRIPT--

local lb = game:GetService("DataStoreService"):GetOrderedDataStore("candyjumperstats")

function addcommas(num)
    return tostring(math.floor(num)):reverse():gsub("(%d%d%d)","%1,"):gsub(",(%-7)$","%1"):reverse()
end

function update()
    for _,plr in next, game:GetService("Players"):GetPlayers() do
        pcall(function()
            lb:UpdateAsync(plr.UserId, function() return plr:WaitForChild("HighScore").Value end)
        end)
    end

    local data = lb:GetSortedAsync(false,10)
    local page = data:GetCurrentPage()

    for rank,info in next, page do
        pcall(function()
        local player = game:GetService("Players"):GetNameFromUserIdAsync(info.key)
        local frame = script.Parent.Frame.ScrollingFrame:FindFirstChild(rank)
        frame.User.Text = player
        frame.Rank.Text = "#"..rank
        frame.Amount.Text = addcommas(info.value)
        frame.Visible = true
    end
end 

while wait(5) do
    update()
end