【引擎触发】成就系统：成就点数与成就勋章的引擎实现

local ACHIEVEMENTS = {
    kill_1000 = { name = "千军斩", cond = { type = "kill", target = 1000 }, points = 10 },
    rich_man = { name = "富甲一方", cond = { type = "gold", target = 10000000 }, points = 15 },
    couple = { name = "神仙眷侣", cond = { type = "marry" }, points = 20 },
}
function QF.AchieveCheck(plr, eventType, value)
    for id, ach in pairs(ACHIEVEMENTS) do
        if ach.cond.type == eventType and not plr:HasAchievement(id) then
            local progress = plr:AchieveProgress(id, value)
            if progress >= ach.cond.target then
                plr:GrantAchievement(id)
                plr.achievePoints = (plr.achievePoints or 0) + ach.points
                QF_SendMsg(plr, "成就达成【" .. ach.name .. "】+" .. ach.points .. " 点")
            end
        end
    end
end

function QF.MedalExchange(plr, medalId)
    local medal = MEDALS[medalId]
    if (plr.achievePoints or 0) < medal.cost then
        return false, "成就点数不足"
    end
    plr.achievePoints = plr.achievePoints - medal.cost
    plr:EquipMedal(medalId)
    QF_Broadcast(plr.name .. " 佩戴了成就勋章【" .. medal.name .. "】")
    return true
end