1.             （鼠标）右键单击, 1次
  2.         条件结束
  3.         注释：↓查看的“查”
  4.         令 XY = Color.FindShape(Lx + 224,Ty + 75,Lx + 761,Ty + 610,"1|0|0,2|0|0,3|0|0,4|0|0,5|0|0,-5|1|1,-4|1|1,-3|1|1,-2|1|1,-1|1|1,0|1|1,1|1|1,2|1|1,3|1|1,4|1|1,5|1|1,-5|2|0,-4|2|0,-3|2|0,-2|2|0,-1|2|1,0|2|1,1|2|0,2|2|1,3|2|0,4|2|0,5|2|0,-5|3|0,-4|3|0,-3|3|0,-2|3|1,-1|3|0,0|3|1,1|3|0,2|3|0,3|3|1,4|3|0,5|3|0,-5|4|0,-4|4|0,-3|4|1,-2|4|1,-1|4|1,0|4|1,1|4|1,2|4|1,3|4|1,4|4|1,5|4|0,-5|5|1,-4|5|1,-3|5|1,-2|5|0,-1|5|0,0|5|0,1|5|0,2|5|0,3|5|1,4|5|0,5|5|1,-5|6|0,-4|6|0,-3|6|1,-2|6|1,-1|6|1,0|6|1,1|6|1,2|6|1,3|6|1,4|6|0,5|6|0,-5|7|0,-4|7|0,-3|7|1,-2|7|0,-1|7|0,0|7|0,1|7|0,2|7|0,3|7|1,4|7|0,5|7|0,-5|8|0,-4|8|0,-3|8|1,-2|8|1,-1|8|1,0|8|1,1|8|1,2|8|1,3|8|1,4|8|0,5|8|0,-5|9|0,-4|9|0,-3|9|0,-2|9|0,-1|9|0,0|9|0,1|9|0,2|9|0,3|9|0,4|9|0,5|9|0,-5|10|1,-4|10|1,-3|10|1,-2|10|1,-1|10|1,0|10|1,1|10|1,2|10|1,3|10|1,4|10|1,5|10|1",0.7)
  5.         令 ZB = InStr(XY,"|")
  6.         令 X = Clng(Left(XY,ZB - 1))
  7.         令 Y = Clng(Right(XY,Len(XY) - ZB))
  8.         如果 X > 0 并且 Y > 0 则
  9.             （鼠标）移动到 (Lx + 926, Ty + 102)
  10.             延时 1000 毫秒
  11.             （鼠标）右键单击, 1次
  12.         条件结束
  13.     否则
  14.         注释：↓驯养和喂养的“养”
  15.         令 XY = Color.FindShape(Lx + 224,Ty + 75,Lx + 649,Ty + 498,"1|0|0,2|0|0,3|0|0,4|0|1,5|0|0,6|0|0,7|0|0,-3|1|1,-2|1|1,-1|1|1,0|1|1,1|1|1,2|1|1,3|1|1,4|1|1,5|1|1,6|1|1,7|1|1,-3|2|0,-2|2|0,-1|2|0,0|2|0,1|2|0,2|2|1,3|2|0,4|2|0,5|2|0,6|2|0,7|2|0,-3|3|0,-2|3|1,-1|3|1,0|3|1,1|3|1,2|3|1,3|3|1,4|3|1,5|3|1,6|3|1,7|3|0,-3|4|0,-2|4|0,-1|4|0,0|4|0,1|4|1,2|4|0,3|4|0,4|4|0,5|4|0,6|4|0,7|4|0,-3|5|1,-2|5|1,-1|5|1,0|5|1,1|5|1,2|5|1,3|5|1,4|5|1,5|5|1,6|5|1,7|5|1,-3|6|0,-2|6|0,-1|6|1,0|6|0,1|6|0,2|6|0,3|6|0,4|6|0,5|6|1,6|6|0,7|6|0,-3|7|1,-2|7|1,-1|7|0,0|7|0,1|7|1,2|7|0,3|7|0,4|7|1,5|7|0,6|7|1,7|7|1,-3|8|0,-2|8|0,-1|8|0,0|8|0,1|8|1,2|8|0,3|8|0,4|8|1,5|8|0,6|8|0,7|8|0,-3|9|0,-2|9|0,-1|9|0,0|9|1,1|9|0,2|9|0,3|9|0,4|9|1,5|9|0,6|9|0,7|9|0,-3|10|0,-2|10|1,-1|10|1,0|10|0,1|10|0,2|10|0,3|10|0,4|10|1,5|10|0,6|10|0,7|10|0",0.8)
  16.         令 ZB = InStr(XY,"|")
  17.         令 X = Clng(Left(XY,ZB - 1))
  18.         令 Y = Clng(Right(XY,Len(XY) - ZB))
  19.         如果 X > 0 并且 Y > 0 则
  20.             （鼠标）移动到 (Lx + 702, Ty + 102)
  21.             延时 1000 毫秒
  22.             （鼠标）右键单击, 1次
  23.         条件结束
  24.         注释：↓查看的“查”
  25.         令 XY = Color.FindShape(Lx + 224,Ty + 75,Lx + 649,Ty + 498,"1|0|0,2|0|0,3|0|0,4|0|0,5|0|0,-5|1|1,-4|1|1,-3|1|1,-2|1|1,-1|1|1,0|1|1,1|1|1,2|1|1,3|1|1,4|1|1,5|1|1,-5|2|0,-4|2|0,-3|2|0,-2|2|0,-1|2|1,0|2|1,1|2|0,2|2|1,3|2|0,4|2|0,5|2|0,-5|3|0,-4|3|0,-3|3|0,-2|3|1,-1|3|0,0|3|1,1|3|0,2|3|0,3|3|1,4|3|0,5|3|0,-5|4|0,-4|4|0,-3|4|1,-2|4|1,-1|4|1,0|4|1,1|4|1,2|4|1,3|4|1,4|4|1,5|4|0,-5|5|1,-4|5|1,-3|5|1,-2|5|0,-1|5|0,0|5|0,1|5|0,2|5|0,3|5|1,4|5|0,5|5|1,-5|6|0,-4|6|0,-3|6|1,-2|6|1,-1|6|1,0|6|1,1|6|1,2|6|1,3|6|1,4|6|0,5|6|0,-5|7|0,-4|7|0,-3|7|1,-2|7|0,-1|7|0,0|7|0,1|7|0,2|7|0,3|7|1,4|7|0,5|7|0,-5|8|0,-4|8|0,-3|8|1,-2|8|1,-1|8|1,0|8|1,1|8|1,2|8|1,3|8|1,4|8|0,5|8|0,-5|9|0,-4|9|0,-3|9|0,-2|9|0,-1|9|0,0|9|0,1|9|0,2|9|0,3|9|0,4|9|0,5|9|0,-5|10|1,-4|10|1,-3|10|1,-2|10|1,-1|10|1,0|10|1,1|10|1,2|10|1,3|10|1,4|10|1,5|10|1",0.7)
  26.         令 ZB = InStr(XY,"|")
  27.         令 X = Clng(Left(XY,ZB - 1))
  28.         令 Y = Clng(Right(XY,Len(XY) - ZB))
  29.         如果 X > 0 并且 Y > 0 则
  30.             （鼠标）移动到 (Lx + 702, Ty + 102)
  31.             延时 1000 毫秒
  32.             （鼠标）右键单击, 1次
  33.         条件结束
  34.     条件结束
  35. 子程序结束
  36. 子程序 窗体()
  37.     注释：↓存储游戏窗口在正常状态下的颜色，防止窗口不在最前端。
  38.     令 Gcolor = 得到指定点 (Lx + 486, Ty - 15) 的颜色
  39.     如果 Gcolor <> Tcolor 则
  40.         调用 File.WriteFileEx("C:\Documents and Settings\Administrator\桌面\打怪记录.txt",now & " → 当前游戏窗口不在最前端了!")
  41.         （鼠标）移动到 (Lx + 490, Ty - 15)
  42.         延时 1000 毫秒
  43.         （鼠标）左键按下
  44.         延时 500 毫秒
  45.         （鼠标）左键弹起
  46.         延时 700 毫秒
  47.     条件结束
  48. 子程序结束
  49. 子程序 测级别()
  50.     令 rworbb = 2
  51.     注释：↑(人或)宝宝加血对像判断参数
  52.     调用 辨状态()
  53.     注释：↓passnum:（人或）宝宝是否被遮挡，如被遮挡,则认为出现挂图，这种间接测图法，不能保证挂图出现正好挡住宝宝级别
  54.     如果 passnum = 0 则
  55.         调用 File.WriteFileEx("C:\Documents and Settings\Administrator\桌面\打怪记录.txt",now & " → 防挂图出现,报警!")
  56.         令 NewDate = DateAdd("n",30,now)
  57.         调用 File.WriteFileEx("C:\Documents and Settings\Administrator\桌面\打怪记录.txt",NewDate & "← 下次防挂图出现大致时间,请注意!")
  58.         调用 报警()
  59.     条件结束
  60. 子程序结束
  61. 子程序 boss辨别()
  62.     注释：↓测红色
  63.     令 rcolor = 得到指定点 (Lx + 278, Ty + 62) 的颜色
  64.     调用 Color.ColorToRGB(rcolor,R,G,B)
  65.     注释：↑红色(R)、绿色(G)、蓝色(B)
  66.     调用 Color.ColorToHSL(rcolor,H,S,L)
  67.     注释：↑色调(H)、饱和度(S)、亮度(L)
  68.     如果 R > 210 并且 B < 10 并且 H < 10 并且 S > 230 则
  69.         令 bossk = 1
  70.         如果 bossmode = 1 则
  71.             调用 报警()
  72.         条件结束
  73.     否则
  74.         令 bossk = 0
  75.     条件结束
  76.     如果 pkboss = 2 则
  77.         注释：↑限定是出现过BOSS的标记
  78.         注释：↓测黑色
  79.         令 hcolor = 得到指定点 (Lx + 451 - round((1 - gwxue) * 174), Ty + 54) 的颜色
  80.         调用 Color.ColorToRGB(hcolor,R,G,B)
  81.         注释：↑红色(R)、绿色(G)、蓝色(B)
  82.         调用 Color.ColorToHSL(hcolor,H,S,L)
  83.         注释：↑色调(H)、饱和度(S)、亮度(L)
  84.         如果 R < 66 并且 S < 40 则
  85.             令 pkboss = 1
  86.         条件结束
  87.     条件结束
  88. 子程序结束
  89. 子程序 等副本()
  90.     注释：↓下面是被动（不是队长）的情况下进副本等待延时
  91.     如果 Rx > 1000 则
  92.         调用 Pic.PrintScreen(857,4,943,17,"C:\场景.bmp")
  93.     否则
  94.         调用 Pic.PrintScreen(633,4,717,17,"C:\场景.bmp")
  95.     条件结束
  96.     延时 2000 毫秒
  97.     标记 waiting(子程序 等副本)
  98.     如果 Rx > 1000 则
  99.         从左上到右下查找图片 "C:\场景.bmp"，把找到的坐标保存到 (intM, intN)，指定区域（左：839 上：0 右：957 下：19），相似度 0.7
  100.     否则