【框架设计】称号系统：称号获取与属性叠加

---称号的授予：登记进玩家的称号簿
function Title.grant(actor, titleId)
    local player = getplayerbyname(actor)
    if not player then return false end
    local owned = getplayvar(player, 2, "Titles") or ""
    -- 幂等：已有称号不重复授予
    if ("," .. owned .. ","):find("," .. titleId .. ",", 1, true) then
        return false
    end
    setplayvar(player, "HUMAN", "Titles",
        owned .. (owned ~= "" and "," or "") .. titleId, 1)
    local def = TITLE_DEF[titleId]
    sendmsg(player, 1, "获得称号：" .. def.name)
    return true
end

---佩戴切换与属性叠加
function Title.wear(actor, titleId)
    local player = getplayerbyname(actor)
    if not player then return false end
    local owned = "," .. (getplayvar(player, 2, "Titles") or "") .. ","
    if not owned:find("," .. titleId .. ",", 1, true) then
        sendmsg(player, 1, "尚未获得该称号")
        return false
    end
    setplayvar(player, "HUMAN", "WornTitle", titleId, 1)
    setranklevelname(player, TITLE_DEF[titleId].name)
    Title.recalc(player)
    return true
end

---属性叠加：全部已获称号的加成生效
function Title.recalc(player)
    local atk = 0
    local owned = getplayvar(player, 2, "Titles") or ""
    for id in owned:gmatch("%d+") do
        atk = atk + (TITLE_DEF[tonumber(id)].atk or 0)
    end
    setplayvar(player, "HUMAN", "TitleAtk", atk, 1)
    sendmsg(player, 1, "称号攻击加成合计 +" .. atk)
end