传奇防脱机小游戏格子拼图验证脚本

/<

lastmsg=""

function 过验证()

local str=获取NPC对话内容()

if lastmsg==str then return end 

if str:find("拼图",1,true) then

print(234)

  gz={}

  suzi={}

  ::A::

   aa=获取NPC对话内容()

   aa=aa:gsub("%-","")

   aa=aa:gsub("Img:2061:","Img:1:")

   aa=aa:gsub("Img:661:","Img:1:")

  for i=1,5 do

   gz[i]=aa:match([[<(Img:%d+:%d+:%d+:%d+/@拼图格子%d)]])

   if gz[i]~=nil then

    aa=aa:gsub(gz[i],"",1)

   end

  end

  

    for i=1,4 do

     pp=gz[i]:match([[Img:(%d+:)]])

     suzi[i]=pp:sub(string.len(pp)-1,string.len(pp)-1)

    end

  yzbh=table.concat{suzi[1],suzi[2],suzi[3],suzi[4]}

  --------------------------------------------------------

  if gz[1]:find("Img:1:",1,true) then

    for i=1,5 do

    pp=gz[i]:match([[Img:(%d+:)]])

    k1=pp:sub(#pp-1,#pp-1)

     if k1=="5" or k1=="0" then

     passcod=gz[i]

     end

    end

  passcode=passcod:match([[(@拼图格子%d)]])

  选择(passcode)

  goto A

  等待(1500)

  end

  --------------------------------------------------------

  if gz[2]:find("Img:1:",1,true) then

    for i=1,5 do

    pp=gz[i]:match([[Img:(%d+:)]])

    k1=pp:sub(#pp-1,#pp-1)

     if k1=="6" or k1=="1"  then

     passcod=gz[i]

     end

    end

  passcode=passcod:match([[(@拼图格子%d)]])

  选择(passcode)

  等待(1500)

  goto A

  end

  --------------------------------------------------------

  if gz[3]:find("Img:1:",1,true) then

    for i=1,5 do

    pp=gz[i]:match([[Img:(%d+:)]])

    k1=pp:sub(#pp-1,#pp-1)

     if k1=="7" or k1=="2"  then

     passcod=gz[i]

     end

    end

  passcode=passcod:match([[(@拼图格子%d)]])

  选择(passcode)

  等待(1500)

  goto A

  end

  

  --------------------------------------------------------

  if gz[4]:find("Img:1:",1,true) then

    for i=1,5 do

    pp=gz[i]:match([[Img:(%d+:)]])

    k1=pp:sub(#pp-1,#pp-1)

     if k1=="8" or k1=="3"  then

     passcod=gz[i]

     end

    end

  passcode=passcod:match([[(@拼图格子%d)]])

  选择(passcode)

  等待(1500)

  goto A

  end

  ---------------------------------------------------------------

  if gz[5]:find("Img:1:",1,true) then

  if  yzbh=="5678" or yzbh=="0123"  then

  选择("@拼图完成")  

  等待(1500)

  else

  选择("@拼图格子4")

  等待(1000)

  选择("@拼图格子3")

  等待(1000)

  选择("@拼图格子2")

  等待(1000)

  选择("@拼图格子1")

  等待(1000)

  goto A

  end

  end

end

lastmsg=str

end

过验证()  --  回收验证保留此行，删除下面一行

设置用户检测("过验证",2000)  -- 脱机验证保留此行，删除上面一行

/>