帮会粮仓：捐粮储备的战时配给

local function donateGrain(actor, guild, n)
    setsysvarex("granary_" .. guild,
        (getsysvar("granary_" .. guild) or 0) + n)
    setsysvarex("grainLog_" .. guild,
        (getsysvar("grainLog_" .. guild) or 0) + n)
    setplayvar(actor, "grainDonated",
        (getplayvar(actor, "grainDonated") or 0) + n)
    sendmsg(actor, 1, "捐粮 " .. n .. "，仓中 "
        .. getsysvar("granary_" .. guild))
end

local function issueGrain(actor, guild, n)
    local store = getsysvar("granary_" .. guild) or 0
    if store < n then
        sendmsg(actor, 1, "粮仓不足，存 " .. store)
        return
    end
    setsysvarex("granary_" .. guild, store - n)
    giveitem(actor, 7701, n)
    sendmsg(actor, 1, "领取补给 " .. n)
end