【安全加密】批量注册：同源注册的准入限制

-- 注册准入：同源计数
local player = class(actor)
local function registerGate(player, ipHash)
    local key = "RegCnt_" .. ipHash .. "_" .. os.date("%Y%m%d")
    local cnt = tonumber(getsysvar(key) or 0)
    if cnt >= 3 then
        setplayvar(player, "HUMAN", "NeedVerify", 1, true)
        sendmsg(player, 1, 0, "当前网络注册已达上限，请完成人工验证后继续。")
        return false
    end
    setsysvarex(key, cnt + 1, true)
    return true
end

-- 存量清理：聚类与回收
local player = class(actor)
local function cleanBatchAccounts(player, targetName)
    local regIp = getplayvar(class(targetName), "HUMAN", "RegIpHash")
    local siblings = tonumber(getsysvar("RegCnt_" .. regIp .. "_TOTAL") or 0)
    if siblings >= 5 then
        setplayvar(class(targetName), "HUMAN", "GainRate", 50, true)
        giveitem(class(targetName), "收缴通知", 1)
        sendmsg(player, 1, 0, "批量账号已标记：收益减半，礼包资产回收。")
        return true
    end
    return false
end