【进阶实战】首胜双倍：竞技场每日首胜的判定与发放

local function settleArena(actor, win)
    actor = getplayerbyname(actor)
    local today = os.date("%Y%m%d")
    local key = "ArenaFirst_" .. today
    local used = tonumber(getplayvar(actor, "HUMAN", key)) or 0
    local base = 100
    local gain = base
    if win and used ~= 1 then
        gain = base * 2
        setplayvar(actor, "HUMAN", key, 1, 1)
        sendmsg(actor, 1, "今日首胜！竞技分翻倍。")
    elseif win then
        sendmsg(actor, 1, "胜利，今日首胜已用过。")
    else
        sendmsg(actor, 1, "惜败，竞技分不扣除。")
    end
    setplayvar(actor, "HUMAN", "ArenaPts",
        (tonumber(getplayvar(actor, "HUMAN", "ArenaPts")) or 0) + gain, 1)
end

local function auditReward(actor)
    actor = getplayerbyname(actor)
    local today = os.date("%Y%m%d")
    if getplayvar(actor, "HUMAN", "ArenaFirst_" .. today) == 1 then
        sendmsg(actor, 1, "今日首胜已结算，无需补发。")
    else
        sendmsg(actor, 1, "今日首胜资格仍在，快去赢一场翻倍奖励。")
    end
end