帮会商行：帮会自营的货栈三路分账

local function stockGoods(actor, itemId, price)
    setsysvarex("mall_" .. itemId, price)
    sendmsg(actor, 1, "已上架 " .. itemId .. "，定价 " .. price)
end
local function buyGoods(buyer, itemId, donor, guild)
    local price = getsysvar("mall_" .. itemId) or 0
    local p = getplayerbyname(buyer)
    if price == 0 or getplayvar(p, "GOLD") < price then
        sendmsg(p, 1, "无法成交")
        return
    end
    setsysvarex("mall_" .. itemId, 0)
    giveitem(getplayerbyname(donor), 9021,
        math.floor(price * 0.85))
    giveitem(p, itemId, 1)
    fundCut(guild, price)
end

local function fundCut(guild, price)
    setsysvarex("gFund_" .. guild,
        (getsysvar("gFund_" .. guild) or 0)
        + math.floor(price * 0.10))
end