帮会功德箱：随手捐文的公益救济

local function donateBox(actor, guild, itemId)
    local n = (getsysvar("boxN_" .. guild) or 0) + 1
    setsysvarex("boxN_" .. guild, n)
    setsysvarex("box_" .. n .. "_" .. guild, itemId)
    setplayvar(actor, "merit",
        (getplayvar(actor, "merit") or 0) + 1)
    sendmsg(actor, 1, "功德 +1，箱中 "
        .. n .. " 件")
end

local function relief(actor, guild)
    local wk = os.date("%G%V")
    local got = getplayvar(actor, "relief" .. wk) or 0
    local stock = getsysvar("boxN_" .. guild) or 0
    if got >= 3 or stock == 0 then
        sendmsg(actor, 1, "本周救济已满或箱空")
        return
    end
    setsysvarex("boxN_" .. guild, stock - 1)
    setplayvar(actor, "relief" .. wk, got + 1)
    giveitem(actor, 8301, 1)
end