帮会宗师：宗师指点的每周答疑

local function askMaster(actor, text)
    if #text > 40 then
        sendmsg(actor, 1, "问题限 40 字")
        return
    end
    local n = (getsysvar("askN") or 0) + 1
    setsysvarex("askN", n)
    setsysvarex("ask_" .. n,
        getplayvar(actor, "NAME") .. "|" .. text)
    setplayvar(actor, "skillExp",
        (getplayvar(actor, "skillExp") or 0) + 20)
    sendmsg(actor, 1, "提问成功，技能经验 +20")
end

local function masterReply(actor, askId, answer)
    if getplayvar(actor, "RANK") ~= "宗师" then
        sendmsg(actor, 1, "仅本周宗师可答复")
        return
    end
    setsysvarex("answer_" .. askId, answer)
    setplayvar(actor, "masterPts",
        (getplayvar(actor, "masterPts") or 0) + 5)
    sendmsg(actor, 1, "答复完成，宗师积分 +5")
end