【安全加密】交易限额分级：账号信用对应的额度体系

-- 交易限额：信用分级
local player = class(actor)
local TIERS = {
    {min = 0, max = 100000, name = "新兵"},
    {min = 100000, max = 500000, name = "老兵"},
    {min = 500000, max = 2000000, name = "精英"},
}
local function getTradeLimit(player)
    local credit = tonumber(getplayvar(player, "HUMAN", "CreditScore") or 50)
    for _, tier in ipairs(TIERS) do
        if credit < tier.min then
            return tier.max, tier.name
        end
    end
    return TIERS[#TIERS].max, TIERS[#TIERS].name
end

-- 交易限额：拦截与提额
local player = class(actor)
local function checkTradeQuota(player, amount)
    local limit, tierName = getTradeLimit(player)
    local used = tonumber(getplayvar(player, "HUMAN", "TodayTraded") or 0)
    if used + amount > limit then
        sendmsg(player, 1, 0, tierName .. " 等级今日交易剩余额度 " ..
            limit - used .. "，本次交易 " .. amount .. " 超出限额。")
        return false
    end
    setplayvar(player, "HUMAN", "TodayTraded", used + amount, true)
    return true
end