帮会抚恤：阵亡补偿的限额发放

local function pension(actor, guild, lossValue)
    local pay = math.min(
        math.floor(lossValue * 0.3), 5000)
    setsysvarex("gFund_" .. guild,
        (getsysvar("gFund_" .. guild) or 0) - pay)
    giveitem(actor, 9021, pay)
    sendmsg(actor, 1, "抚恤金 " .. pay .. " 金币已发")
end

local function pensionCheck(actor)
    local n = getplayvar(actor, "pensionN") or 0
    if n >= 2 then
        sendmsg(actor, 1, "本场抚恤已领 2 次")
        return false
    end
    setplayvar(actor, "pensionN", n + 1)
    return true
end