【后端接口】红名洗白：洗红任务的进度接口实现

function killmon(actor, monName)
    if monName ~= "红名村恶徒" then return end
    local got = tonumber(getplayvar(actor, "HUMAN", "TODAY_ORDER") or "0")
    if got >= 50 then return end
    if math.random(1, 100) <= 40 then
        giveitem(actor, "善恶令", 1)
        setplayvar(actor, "HUMAN", "TODAY_ORDER", got + 1, 1)
    end
end

function redeem(actor, cnt)
    if cnt > 50 then cnt = 50 end
    if not checkitemw(actor, "善恶令", cnt) then
        sendmsg(actor, 0, "善恶令不足，红名村的恶徒身上会掉落")
        return
    end
    local pk = tonumber(getplayvar(actor, "HUMAN", "PK_VALUE") or "0")
    if pk <= 0 then
        sendmsg(actor, 0, "身家清白，无需洗红")
        return
    end
    takeitem(actor, "善恶令", cnt)
    local left = math.max(0, pk - cnt * 10)
    setplayvar(actor, "HUMAN", "PK_VALUE", left, 1)
    if left == 0 then
        addbuff(actor, 10030, 604800, 0, 0, 0)
        local p = class(actor)
        sendcentermsg(p:GetName() .. " 洗净红名，重获清白之身")
    else
        sendmsg(actor, 0, "红名值还剩 " .. left .. " 点")
    end
end