帮会竞标：稀缺地皮的周期出价定归属

local function bid(actor, land, amount)
    local cur = getsysvar("bid_" .. land) or 0
    if amount <= cur then
        sendmsg(actor, 1, "需高于当前最高价 " .. cur)
        return
    end
    setsysvarex("bid_" .. land, amount)
    setsysvarex("bidBy_" .. land, getplayvar(actor, "GUILD"))
    sendcentermsg(0, land .. " 现最高出价 " .. amount)
end

local function openBids(lands)
    for _, land in ipairs(lands) do
        local amount = getsysvar("bid_" .. land) or 0
        if amount > 0 then
            setsysvarex("ownLand_" .. land,
                getsysvar("bidBy_" .. land))
        end
        setsysvarex("bid_" .. land, 0)
    end
end