/<
function 过验证()
local str = 获取NPC对话内容()
if string.find(str,"/@@InPut%a+%d+>")~=NULL then
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 = {
"<[^/]+/SCOLOR=218>","<[^/]+/SCOLOR=215>","<[^/]+/SCOLOR=254>","<[^/]+/SCOLOR=146>","<[^/]+/SCOLOR=222>",
"<[^/]+/SCOLOR=223>","<[^/]+/SCOLOR=254>","<[^/]+/SCOLOR=218>","<[^/]+/SCOLOR=103>","<[^/]+/SCOLOR=255>",
"<[^/]+/SCOLOR=250>","<[^/]+/SCOLOR=158>","<[^/]+/SCOLOR=253>","<[^/]+/SCOLOR=161>","<[^/]+/SCOLOR=149>",
"<[^/]+/SCOLOR=224>"
}
wordLib1 = {
"<[^/]+/SCOLOR=66>","<[^/]+/SCOLOR=11>","<[^/]+/SCOLOR=17>","<[^/]+/SCOLOR=15>","<[^/]+/SCOLOR=16>",
"<[^/]+/SCOLOR=18>","<[^/]+/SCOLOR=52>","<[^/]+/SCOLOR=50>","<[^/]+/SCOLOR=73>","<[^/]+/SCOLOR=165>",
"<[^/]+/SCOLOR=164>","<[^/]+/SCOLOR=162>","<[^/]+/SCOLOR=117>","<[^/]+/SCOLOR=136>"
}
key = {
{"AAAABAABAABAAAA","0"},{"BABBABBABBABBAB","1"},{"AAABBAAAAABBAAA","2"},{"AAABBAAAABBAAAA","3"},
{"ABAABAAAABBABBA","4"},{"AAAABBAAABBAAAA","5"},{"AAAABBAAAABAAAA","6"},{"AAABBABBABBABBA","7"},
{"AAAABAAAAABAAAA","8"},{"AAAABAAAABBAAAA","9"}
}
if string.find(str,"/@@InPut%a+%d+>") then
msg = maskMsg ( str, wordLib, "A")
msg = maskMsg ( msg, wordLib1, "B")
local num1=nil;local num2=nil;local num3=nil;local num4=nil
local nn=""
for k in msg:gmatch("([AB][AB][AB].-[AB][AB][AB].-[AB][AB][AB].-[AB][AB][AB])") do
a,b,c,d = k:match("([AB]+).-([AB]+).-([AB]+).-([AB]+)")
if num1 == nil then
num1 = a;num2 = b;num3 = c;num4 = d
else
num1 = num1 .. a;num2 = num2 .. b;num3 = num3 .. c;num4 = num4 .. d
end
nn = num1.." "..num2.." "..num3.." "..num4
for _,i in ipairs(key) do
nn = nn:gsub(i[1],i[2])
end
end
nn=nn:gsub(" ","")
num1 = nil;num2 = nil;num3 = nil;num4 = nil
if #nn == 4 then
合成命令(str:match("(@@[^>]+)"),nn)
等待(1500)
end
end
end
end
过验证() -- 回收验证保留此行，删除下面一行
设置用户检测("过验证",2000) -- 脱机验证保留此行，删除上面一行
/>
