/<
function maskMsg ( text, set, repl )
if #text <= 0 then
return text
end
local function maskor ( str )
return repl or string.rep( "*", #str )
end
for k, str in pairs(set) do
text = text:gsub( str, maskor(str) )
end
return text
end
wordLib = {www"%d%d"}
wordLib1 = {www""}
key = {www
{www"BAAABABBBAABBBAABBBAABBBAABBBAABBBABAAAB","0"},
{www"BBABBBAABBBBABBBBABBBBABBBBABBBBABBBAAAB","1"},
{www"BAAABABBBAABBBABBBABBBABBBABBBABBBBAAAAA","2"},
{www"BAAABABBBABBBBABBAABBBBBABBBBAABBBABAAAB","3"},
{www"BBBABBBAABBABABBABABABBABBAAAABBBABBBBAA","4"},
{www"AAAAAABBBBABBBBAAAABBBBBABBBBAABBBABAAAB","5"},
{www"BAAABABBABABBBBAAAABABBBAABBBAABBBABAAAB","6"},
{www"AAAAAABBABBBBABBBABBBBABBBBABBBBABBBBABB","7"},
{www"BAAABABBBAABBBABAAABABBBAABBBAABBBABAAAB","8"},
{www"BAAABABBBAABBBAABBBABAAAABBBBABABBABAAAB","9"}
}
lastmsg=""
function 过验证()
local a=获取NPC对话内容()
if a==lastmsg then return end
lastmsg=a
if a:find("聊天框内输入显示") then
a = maskMsg ( a, wordLib, "A")
a = maskMsg ( a, wordLib1, "B")
num1,num2,num3,num4="","","",""
local nn=""
for k in a:gmatch("([AB][AB]+)") do
a,b,c,d = k:match("([AB][AB][AB][AB][AB])B([AB][AB][AB][AB][AB])B([AB][AB][AB][AB][AB])B([AB][AB][AB][AB][AB])B")
if not a then
a,b,c=k:match("([AB][AB][AB][AB][AB])B([AB][AB][AB][AB][AB])B([AB][AB][AB][AB][AB])B")
end
if not a or not b or not c then break end
if not d then d="" end
num1 = num1 .. a;num2 = num2 .. b;num3 = num3 .. c;num4 = num4 .. d
nn = num1.." "..num2.." "..num3.." "..num4
end
for _,i in ipairs(key) do
nn = nn:gsub(i[1],i[2])
end
nn=nn:gsub(" ","")
if #nn > 1 then
喊话(nn)
等待(1500)
end
end
end
过验证() -- 回收验证保留此行，删除下面一行
设置用户检测("过验证",2000) -- 脱机验证保留此行，删除上面一行
/>
