I tried to recode this gamepass script several times but nothing works?

I've tried to rewrite the code several times but nothing seems to work. Can someone please explain to me what I'm doing wrong.

Amt = 10
local MarketplaceService = game:GetService("MarketplaceService")
local gamepassId = 6485223
local Players = game:GetService("Players")

while wait(5) do 
    for _,Player in pairs(game.Players:GetPlayers()) do
        if Player:FindFirstChild("leaderstats") then
            Player.leaderstats.Credits.Value = Player.leaderstats.Credits.Value+Amt
            if MarketplaceService:UserOwnsGamePassAsync(player.UserId, gamepassId) then
            Player.leaderstats.Credits.Value = Player.leaderstats.Credits.Value+Amt*2
        end
    end
end end