时装图鉴：收集度点亮全局属性

-- 错误：点亮后永久计入，到期不回收
function collect(p, fid)
    setplayvar(p, "albumCnt",
        (getplayvar(p, "albumCnt") or 0) + 1)
end

local function refreshAlbum(p)
    local n = 0
    for _, fid in ipairs(ownedFashion(p)) do
        local due = tonumber(
            getplayvar(p, "fash_" .. fid) or "0")
        if due == 0 or os.time() < due then
            n = n + 1
        end
    end
    setplayvar(p, "albumCnt", n)
    setplayvar(p, "albumBuff", math.floor(n / 5))
end