帮会藏经阁：残页合成的帮派武学

local function assemble(actor, guild, bookId)
    local pages = getplayvar(actor, "page_" .. bookId) or 0
    if pages < 8 then
        sendmsg(actor, 1, "残页不足 8 页，现有 " .. pages)
        return
    end
    setplayvar(actor, "page_" .. bookId, pages - 8)
    setsysvarex("scripture_" .. bookId .. "_" .. guild, 1)
    sendcentermsg(0, guild .. " 藏经阁新增武学 " .. bookId)
end

local function learnScripture(actor, guild, bookId)
    if getsysvar("scripture_" .. bookId .. "_" .. guild) ~= 1 then
        sendmsg(actor, 1, "藏经阁尚无此武学")
        return
    end
    local c = getplayvar(actor, "contribute") or 0
    if c < 200 then
        sendmsg(actor, 1, "研习需 200 帮贡")
        return
    end
    setplayvar(actor, "contribute", c - 200)
    setplayvar(actor, "skill_" .. bookId, 1)
    sendmsg(actor, 1, "已研习武学 " .. bookId)
end