【进阶实战】帮会地皮：驻地商铺的租赁与分红设计

local SLOTS = 12
local function bidShop(actor, slotNo, bid)
    if slotNo < 1 or slotNo > SLOTS then
        sendmsg(actor, 1, "地皮编号无效。")
        return
    end
    local current = tonumber(getsysvar("ShopBid_" .. slotNo)) or 0
    if bid <= current then
        sendmsg(actor, 1, "出价须高于当前 " .. current .. "。")
        return
    end
    setsysvarex("ShopBid_" .. slotNo, bid, 1)
    setsysvarex("ShopOwner_" .. slotNo,
        tostring(getplayvar(actor, 0, "ShowName") or ""), 1)
    sendmsg(actor, 1, "竞租成功，本周租金 " .. bid .. "。")
end

local function weeklySettle()
    local total = 0
    for slot = 1, SLOTS do
        total = total + (tonumber(getsysvar("ShopBid_" .. slot)) or 0)
    end
    local fund = tonumber(getsysvar("Fund_Hall")) or 0
    setsysvarex("Fund_Hall", fund + total, 1)
    return total
end