帮会题字：帮贡刻字的永久铭牌

local function carveWord(actor, guild, text)
    if #text > 40 then   -- 20 个汉字 40 字节
        sendmsg(actor, 1, "题字限 20 字以内")
        return
    end
    local c = getplayvar(actor, "contribute") or 0
    if c < 100 then
        sendmsg(actor, 1, "需 100 帮贡")
        return
    end
    setplayvar(actor, "contribute", c - 100)
    local slot = (getsysvar("wallN_" .. guild) or 0) + 1
    setsysvarex("wallN_" .. guild, slot)
    setsysvarex("wall_" .. slot .. "_" .. guild,
        getplayvar(actor, "NAME") .. "：" .. text)
    sendmsg(actor, 1, "已刻于第 " .. slot .. " 位")
end

local function viewWall(actor, guild)
    local n = getsysvar("wallN_" .. guild) or 0
    for i = math.max(n - 4, 1), n do
        sendmsg(actor, getsysvar("wall_" .. i .. "_" .. guild))
    end
end