【安全加密】瞬移异常识别：跨图传送的时间距离校验

local lastTp = {}
function beginteleport(actor)
    local player = class(actor)
    local name = player:getname()
    local now = os.time()
    local prev = lastTp[name]
    if prev and now - prev.t < 3 and prev.map ~= player:getmap() then
        local n = tonumber(getplayvar(actor, 2, "TP_WARN") or "0") + 1
        setplayvar(actor, "HUMAN", "TP_WARN", n, 1)
        sendluamsg(actor, 9901, n, 0, 0, "tp")
    end
    lastTp[name] = { t = now, map = player:getmap() }
end

function gm_check_tp(actor)
    local n = tonumber(getplayvar(actor, 2, "TP_WARN") or "0")
    if n >= 5 then
        setranklevelname(actor, "复核中")
        sendmail(actor, 0, "账号通知", "检测到异常移动，请配合复核", "")
    end
end