【引擎触发】红名村：PK 惩罚与洗红机制的引擎实现

local PK_MURDER = 100
function QF.OnPlayerKill(plr, victim)
    if Siege.isWarTime() then return end
    if plr:HasState("dueling") then return end
    local pkAdd = 100 + math.max(0, victim.level - plr.level) * 5
    plr:AddPkValue(pkAdd)
    if plr:GetPkValue() >= 200 and not plr:IsRedName() then
        plr:SetRedName(true)
        QF_Broadcast(plr.name .. " 成为红名恶人，人人得而诛之")
    end
end

function QF.RedNamePenalty(plr)
    if not plr:IsRedName() then return end
    plr:DropRandomEquip(1)
    plr:SendMsg("红名状态下死亡，掉落一件装备")
end

function QF.WashRedName(plr)
    if not plr:IsRedName() then return false end
    if not plr:TakeGold(100000) then return false, "需要 10 万金币" end
    plr:AddPkValue(-200)
    if plr:GetPkValue() < 200 then plr:SetRedName(false) end
    return true
end