红名监狱：红名惩罚与洗红名任务

local PK_LIMIT = 200
local function checkPk(p)
    local pk = getplayvar(p, "PK") or 0
    if pk < PK_LIMIT then return end
    if getplayvar(p, "inJail") then return end
    setplayvar(p, "inJail", true)
    mapmove(p, "jail", 10, 10)
    sendcentermsg(0, getplayvar(p, "NAME") .. " 恶值过高已收押入狱")
end

local function onPurgeKill(p)
    if not getplayvar(p, "inJail") then return end
    local pk = getplayvar(p, "PK") or 0
    pk = math.max(pk - 20, 0)
    setplayvar(p, "PK", pk)
    if pk < PK_LIMIT then
        setplayvar(p, "inJail", nil)
        mapmove(p, "3", 100, 100)
        sendmsg(p, 1, "赎罪完成，红名值 " .. pk .. "，准予出监")
    else
        sendmsg(p, 1, "红名值 " .. pk .. "，还需继续赎罪")
    end
end