【引擎触发】传送点冷却分层：高频跳转的记账与限流触发设计

local CD_RULE = { free = 300, paid = 60, emergency = 48 }
function beginteleport(actor, tpType)
    local player = class(actor)
    local cd = CD_RULE[tpType] or 300
    local key = "TP_CD_" .. tpType
    local last = tonumber(getplayvar(actor, 2, key) or "0")
    local wait = cd - (os.time() - last)
    if wait > 0 then
        sendmsg(actor, 0, "传送冷却中，剩余" .. wait .. "秒")
        return
    end
    setplayvar(actor, "HUMAN", key, os.time(), 1)
end

local function markFrequency(actor)
    local player = class(actor)
    local key = "TP_FREQ_" .. os.date("%H")
    local cnt = tonumber(getplayvar(actor, 2, key) or "0") + 1
    setplayvar(actor, "HUMAN", key, cnt, 1)
    if cnt > 15 then
        local warns = tonumber(getplayvar(actor, 2, "TP_WARN") or "0") + 1
        setplayvar(actor, "HUMAN", "TP_WARN", warns, 1)
        sendluamsg(actor, 9005, cnt, warns, 0, "tp_freq")
    end
end