Get Highest Stat and Player

function GetAllStatValues(statName)
    local _ = {};
    for i,v in pairs(Game['Players']:GetPlayers()) do
        table.insert(_, {v.leaderstats[statName], v.Name});
    end
    return _
end

function PickHighest(tble)
    local highestPlayer, highestScore = nil, nil;
    for i,v in pairs(tble) do
        if not highestPlayer then
            highestPlayer = v[2]
            highestScore = v[1]
        else
            if v[1] > highestScore then
                highestScore = v[1]
                highestPlayer = v[2]
            end
        end
    end
    return (highestPlayer, highestScore)
end

local recordPlayer, recordScore = PickHighest(GetAllStatValues("Money"))