称号合成：低阶称号按配方兑高阶

-- 错误：硬编码链路，新称号漏改即断链
if tid == 1001 then
    syn(p, 3, 1000, 1002)
elseif tid == 1002 then
    syn(p, 3, 3000, 1003)
end

local RECIPE = {
    [1001] = {need = 3, cost = 1000, up = 1002},
    [1002] = {need = 3, cost = 3000, up = 1003},
    [1003] = {need = 3, cost = 9000, up = 1004},
}
local function synTitle(p, tid)
    local r = RECIPE[tid]
    if r == nil then
        sendmsg(p, 1, "此称号已是顶阶")
        return
    end
    local own = getplayvar(p, "title_" .. tid) or 0
    if own < r.need or (getplayvar(p, "GOLD") or 0) < r.cost then
        sendmsg(p, 1, "材料或金币不足")
        return
    end
    setplayvar(p, "title_" .. tid, own - r.need)
    setplayvar(p, "GOLD", getplayvar(p, "GOLD") - r.cost)
    setplayvar(p, "title_" .. r.up,
        (getplayvar(p, "title_" .. r.up) or 0) + 1)
    sendmsg(p, 1, "合成成功")
end