1.         令 BB = BB4
  2.     否则
  3.         令 RW = RW5
  4.         令 BB = BB5
  5.     条件结束
  6.     延时 200 毫秒
  7.     (语句无法识别，可能有错误): sRect = Plugin.Window.GetClientRect(CPID) //得到窗口句柄的客户区大小
  8.     令 myarray1 = Split(sRect,"|")
  9.     令 zdx = CLng(myarray1(0))
  10.     令 zdy = CLng(myarray1(1))
  11.     （鼠标）移动到 (cx + 30, cy + 90)
  12.     从左上到右下查找图片 "Attachment:\验证对话框.bmp"，把找到的坐标保存到 (intX, intY)，指定区域（左：zdx 上：zdy 右：zdx + 643 下：zdy + 502），相似度 0.9
  13.     如果 intX > zdx + 3 并且 intY > zdy + 22 则
  14.         调用 验证(CPID)
  15.     条件结束
  16.     从左上到右下查找图片 "Attachment:\法术.bmp"，把找到的坐标保存到 (RintX, RintY)，指定区域（左：zdx 上：zdy 右：zdx + 643 下：zdy + 502），相似度 0.9
  17.     如果 RintX > zdx + 3 并且 RintY > zdy + 22 则
  18.         （键盘）按下 Alt 键
  19.         延时 50 毫秒
  20.         （键盘）按 RW 键, 1次
  21.         延时 50 毫秒
  22.         （键盘）弹起 Alt 键
  23.         延时 200 毫秒
  24.         从左上到右下查找图片 "Attachment:\法术.bmp"，把找到的坐标保存到 (BintX, BintY)，指定区域（左：zdx 上：zdy 右：zdx + 643 下：zdy + 502），相似度 0.9
  25.         如果 BintX > zdx + 3 并且 BintY > zdy + 22 则
  26.             （键盘）按下 Alt 键
  27.             延时 50 毫秒
  28.             （键盘）按 BB 键, 1次
  29.             延时 50 毫秒
  30.             （键盘）弹起 Alt 键
  31.         条件结束
  32.     否则
  33.         如果 CPID = srw1 则
  34.             调用 开始走路
  35.         否则
  36.             如果 CPID <> srw1 则
  37.                 （鼠标）移动到 (zdx + 20, zdy + 60)
  38.                 延时 100 毫秒
  39.             条件结束
  40.             调用 开始战斗(CPID)
  41.         条件结束
  42.     条件结束
  43. 子程序结束
  44. 注释：奖励对话框验证
  45. 子程序 验证(窗口句柄)
  46.     (语句无法识别，可能有错误): sRect = Plugin.Window.GetClientRect(窗口句柄) //得到窗口句柄的客户区大小
  47.     令 myarray1 = Split(sRect,"|")
  48.     令 cx = CLng(myarray1(0))
  49.     令 cy = CLng(myarray1(1))
  50.     注释：下句为找到“请点面对”等字
  51.     令 yanzheng = Color.FindMutiColor(cx,cy,cx + 646,cy + 502,"0000FF","-26|1|FFFFFF,-7|2|FFFFFF,14|2|0000FF,-22|3|FFFFFF,3|3|0000FF,24|4|0000FF,-13|5|FFFFFF,21|6|0000FF,-26|7|FFFFFF,-20|7|FFFFFF,-4|8|FFFFFF,5|9|0000FF,18|9|0000FF,-3|11|FFFFFF,-17|12|FFFFFF,7|12|0000FF,11|12|0000FF,23|12|0000FF",0.75)
  52.     令 ZB = InStr(yanzheng,"|")
  53.     令 yanx = Clng(Left(yanzheng,ZB - 1))
  54.     令 yany = Clng(Right(yanzheng,Len(yanzheng) - ZB))
  55.     如果 yanx > 0 并且 yany > 0 则
  56.         (语句无法识别，可能有错误): x = yanx-90 //确定查找验证图的一个小区间
  57.         令 y = yany
  58.         调用 （命令库 xyq）鼠标移动(x,y)
  59.         延时 500 毫秒
  60.         令 XYArray = FindPicture5_04.FindPictureNA(0,yanx - 90,yany,yanx + 275,yany + 155,HandleArray,25,0.9)
  61.         令 n = UBound(XYArray,2) + 1
  62.         如果 n 则
  63.             令 i = 0
  64.             令 str = ""
  65.             循环 n 次
  66.                 如果 i 则
  67.                     令 str = str & vbCrLf & CStr(XYArray(0,i)) & "," & CStr(XYArray(1,i)) & "," & FileArray(XYArray(2,i))
  68.                 否则
  69.                     令 str = CStr(XYArray(0,i)) & "," & CStr(XYArray(1,i)) & "," & FileArray(XYArray(2,i))
  70.                 条件结束
  71.                 令 i = i + 1
  72.             循环结束
  73.             (语句无法识别，可能有错误): Call Lib.xyq.鼠标移动(XYArray(0,0)+6,XYArray(1,0)+6) //找到图后移到图片上，在实际应用时可换成防鼠标漂子程序
  74.             （鼠标）左键单击, 1次
  75.         否则
  76.             MsgBox("未找到图形，请用手动点击！",4096)
  77.             调用 Media.Vol(100)
  78.             调用 Media.Play("Attachment:\1540.mp3")
  79.             延时 5000 毫秒
  80.             调用 Media.Stop()
  81.             调用 开始战斗(窗口句柄)
  82.         条件结束
  83.     否则
  84.         调用 开始战斗(窗口句柄)
  85.     条件结束
  86. 子程序结束
  87. 注释：弹出的对话框关闭
  88. 子程序 关闭对话框(窗口句柄)
  89.     令 sRect1 = Window.GetClientRect(窗口句柄)
  90.     令 myarray2 = Split(sRect1,"|")
  91.     令 dx = CLng(myarray2(0))
  92.     令 dy = CLng(myarray2(1))
  93.     调用 （命令库 xyq）鼠标移动(dx + 20,dy + 80)
  94.     延时 100 毫秒
  95.     令 XYArray = FindPicture5_04.FindPictureNA(0,dx,dy,dx + 646,dy + 480,HandleNatureArray,25,0.9)
  96.     令 n = UBound(XYArray,2) + 1
  97.     如果 n 则
  98.         令 i = 0
  99.         令 std = ""
  100.         循环 n 次