行会资金审批：帮众申请会主放款

local function takeFundBad(name, amount)
    local p = getplayerbyname(name)
    giveitem(p, 9021, amount)   -- 不经审批直接放款
end

local function applyFund(name, amount)
    local p = getplayerbyname(name)
    if amount > 50000 then
        sendmsg(p, 1, "单笔上限 50000")
        return
    end
    setsysvarex("fund_" .. name, amount)
    setsysvarex("fundT_" .. name, os.time())
    sendmsg(p, 1, "已提交，等会主审批")
end
local function approveFund(leader, name)
    local p = getplayerbyname(leader)
    local amt = getsysvar("fund_" .. name) or 0
    local t = getsysvar("fundT_" .. name) or 0
    if os.time() - t > 86400 then
        sendmsg(p, 1, "申请已过 24 小时，作废")
        return
    end
    giveitem(getplayerbyname(name), 9021, amt)
    setsysvarex("fund_" .. name, 0)
end