【玩法策划】行会发展基金：基金投入与回报体系

-- 发展基金：份额认购
local player = class(actor)
local UNIT_COST = 100000
local function buyShares(player, units)
    if units < 1 or units > 10 then
        sendmsg(player, 1, 0, "单次认购 1 到 10 份。")
        return
    end
    local cost = UNIT_COST * units
    if not checkitemw(player, "金币袋", math.ceil(cost / 10000)) then
        sendmsg(player, 1, 0, "金币不足，需 " .. cost .. " 金币。")
        return
    end
    takeitem(player, "金币袋", math.ceil(cost / 10000))
    setplayvar(player, "HUMAN", "FundShares",
        tonumber(getplayvar(player, "HUMAN", "FundShares") or 0) + units, true)
    setsysvarex("FundTotalUnits", tonumber(getsysvar("FundTotalUnits") or 0) + units, true)
    sendmsg(player, 1, 0, "认购成功，持有 " ..
        getplayvar(player, "HUMAN", "FundShares") .. " 份基金。")
end

-- 发展基金：分红结算
local player = class(actor)
local function payDividend(player, profitPool)
    local totalUnits = tonumber(getsysvar("FundTotalUnits") or 1)
    local myUnits = tonumber(getplayvar(player, "HUMAN", "FundShares") or 0)
    if myUnits == 0 then return end
    local dividend = math.floor(profitPool * myUnits / totalUnits)
    giveitem(player, "金币袋", math.max(1, math.floor(dividend / 10000)))
    sendmsg(player, 1, 0, "本周基金分红：" .. dividend .. " 金币已到账。")
end