帮会铁券：违规抵罚的季度护身

local function buyIron(actor)
    local q = tonumber(os.date("%Y")) * 4
        + math.floor(tonumber(os.date("%m")) / 3)
    if (getplayvar(actor, "ironQ") or 0) == q then
        sendmsg(actor, 1, "本季度已购过铁券")
        return
    end
    local c = getplayvar(actor, "contribute") or 0
    if c < 1000 then
        sendmsg(actor, 1, "需 1000 帮贡")
        return
    end
    setplayvar(actor, "contribute", c - 1000)
    setplayvar(actor, "ironQ", q)
    setplayvar(actor, "ironTicket", 1)
    sendmsg(actor, 1, "铁券到手，违规时可抵一次")
end

local function punish(actor, penalty)
    if (getplayvar(actor, "ironTicket") or 0) >= 1 then
        setplayvar(actor, "ironTicket", 0)
        sendmsg(actor, 1, "铁券已抵消本次处罚")
        return
    end
    setplayvar(actor, "contribute",
        (getplayvar(actor, "contribute") or 0) - penalty)
    sendmsg(actor, 1, "处罚执行，扣帮贡 " .. penalty)
end