【网络通信】成就进度联动：跨系统事件的广播汇聚与订阅

local function emitProgress(actor, kind, delta)
    local player = class(actor)
    sendluamsg(actor, 8005, delta, 0, 0, kind .. "|" .. player:GetName())
end
function killmon(actor)
    emitProgress(actor, "slay", 1)
end

local THRESH = { slay = 10000, fuben = 200, arena = 500 }
local function onProgress(actor, kind, delta)
    local player = class(actor)
    local key = "ACH_" .. kind
    local cur = tonumber(getplayvar(actor, 2, key) or "0") + delta
    setplayvar(actor, "HUMAN", key, cur, 1)
    if cur >= THRESH[kind] and getplayvar(actor, 2, key .. "_DONE") ~= 1 then
        setplayvar(actor, "HUMAN", key .. "_DONE", 1, 1)
        sendmail(actor, 0, "成就达成", kind .. "进度满额", "成就宝箱|1")
    end
end