1.     令 y = Clng(MyArray(1))
  2.     如果 x > 0 并且 y > 0 则
  3.         令 passnum = 1
  4.         跳转到标记 级别数(子程序 辨状态)
  5.     条件结束
  6.     延时 50 毫秒
  7.     注释：↓测"2"
  8.     令 xy = Color.FindShape(x1,y1,x2,y2,"-1|0|0,1|0|1,2|0|1,3|0|0,-1|1|1,0|1|0,1|1|0,2|1|0,3|1|1,-1|2|1,0|2|0,1|2|0,2|2|0,3|2|1,-1|3|0,0|3|0,1|3|0,2|3|1,3|3|0,-1|4|0,0|4|0,1|4|1,2|4|0,3|4|0,-1|5|0,0|5|1,1|5|0,2|5|0,3|5|0,-1|6|1,0|6|0,1|6|0,2|6|0,3|6|0,-1|7|1,0|7|1,1|7|1,2|7|1,3|7|1",0.8)
  9.     令 MyArray = Split(xy,"|")
  10.     令 x = Clng(MyArray(0))
  11.     令 y = Clng(MyArray(1))
  12.     如果 x > 0 并且 y > 0 则
  13.         令 passnum = 1
  14.         跳转到标记 级别数(子程序 辨状态)
  15.     条件结束
  16.     延时 50 毫秒
  17.     注释：↓测"3"
  18.     令 xy = Color.FindShape(x1,y1,x2,y2,"-1|0|0,1|0|1,2|0|1,3|0|0,-1|1|1,0|1|0,1|1|0,2|1|0,3|1|1,-1|2|0,0|2|0,1|2|0,2|2|0,3|2|1,-1|3|0,0|3|0,1|3|1,2|3|1,3|3|0,-1|4|0,0|4|0,1|4|0,2|4|0,3|4|1,-1|5|0,0|5|0,1|5|0,2|5|0,3|5|1,-1|6|1,0|6|0,1|6|0,2|6|0,3|6|1,-1|7|0,0|7|1,1|7|1,2|7|1,3|7|0",0.8)
  19.     令 MyArray = Split(xy,"|")
  20.     令 x = Clng(MyArray(0))
  21.     令 y = Clng(MyArray(1))
  22.     如果 x > 0 并且 y > 0 则
  23.         令 passnum = 1
  24.         跳转到标记 级别数(子程序 辨状态)
  25.     条件结束
  26.     延时 50 毫秒
  27.     注释：↓测"4"
  28.     令 xy = Color.FindShape(x1,y1,x2,y2,"-3|0|0,-2|0|0,-1|0|0,1|0|0,-3|1|0,-2|1|0,-1|1|1,0|1|1,1|1|0,-3|2|0,-2|2|1,-1|2|0,0|2|1,1|2|0,-3|3|0,-2|3|1,-1|3|0,0|3|1,1|3|0,-3|4|1,-2|4|0,-1|4|0,0|4|1,1|4|0,-3|5|0,-2|5|1,-1|5|1,0|5|1,1|5|1,-3|6|0,-2|6|0,-1|6|0,0|6|1,1|6|0,-3|7|0,-2|7|0,-1|7|0,0|7|1,1|7|1",0.8)
  29.     令 MyArray = Split(xy,"|")
  30.     令 x = Clng(MyArray(0))
  31.     令 y = Clng(MyArray(1))
  32.     如果 x > 0 并且 y > 0 则
  33.         令 passnum = 1
  34.         跳转到标记 级别数(子程序 辨状态)
  35.     条件结束
  36.     延时 50 毫秒
  37.     注释：↓测"5"
  38.     令 xy = Color.FindShape(x1,y1,x2,y2,"1|0|1,2|0|1,3|0|1,4|0|1,0|1|1,1|1|0,2|1|0,3|1|0,4|1|0,0|2|1,1|2|0,2|2|0,3|2|0,4|2|0,0|3|1,1|3|1,2|3|1,3|3|1,4|3|0,0|4|0,1|4|0,2|4|0,3|4|0,4|4|1,0|5|0,1|5|0,2|5|0,3|5|0,4|5|1,0|6|1,1|6|0,2|6|0,3|6|0,4|6|1,0|7|0,1|7|1,2|7|1,3|7|1,4|7|0",0.8)
  39.     令 MyArray = Split(xy,"|")
  40.     令 x = Clng(MyArray(0))
  41.     令 y = Clng(MyArray(1))
  42.     如果 x > 0 并且 y > 0 则
  43.         令 passnum = 1
  44.         跳转到标记 级别数(子程序 辨状态)
  45.     条件结束
  46.     延时 50 毫秒
  47.     注释：↓测"6"
  48.     令 xy = Color.FindShape(x1,y1,x2,y2,"-1|0|0,1|0|1,2|0|1,3|0|0,-1|1|1,0|1|0,1|1|0,2|1|1,3|1|0,-1|2|1,0|2|0,1|2|0,2|2|0,3|2|0,-1|3|1,0|3|1,1|3|1,2|3|1,3|3|0,-1|4|1,0|4|0,1|4|0,2|4|0,3|4|1,-1|5|1,0|5|0,1|5|0,2|5|0,3|5|1,-1|6|1,0|6|0,1|6|0,2|6|0,3|6|1,-1|7|0,0|7|1,1|7|1,2|7|1,3|7|0",0.8)
  49.     令 MyArray = Split(xy,"|")
  50.     令 x = Clng(MyArray(0))
  51.     令 y = Clng(MyArray(1))
  52.     如果 x > 0 并且 y > 0 则
  53.         令 passnum = 1
  54.         跳转到标记 级别数(子程序 辨状态)
  55.     条件结束
  56.     延时 50 毫秒
  57.     注释：↓测"7"
  58.     令 xy = Color.FindShape(x1,y1,x2,y2,"1|0|1,2|0|1,3|0|1,4|0|1,0|1|1,1|1|0,2|1|0,3|1|1,4|1|0,0|2|0,1|2|0,2|2|0,3|2|1,4|2|0,0|3|0,1|3|0,2|3|1,3|3|0,4|3|0,0|4|0,1|4|0,2|4|1,3|4|0,4|4|0,0|5|0,1|5|0,2|5|1,3|5|0,4|5|0,0|6|0,1|6|0,2|6|1,3|6|0,4|6|0,0|7|0,1|7|0,2|7|1,3|7|0,4|7|0",0.8)
  59.     令 MyArray = Split(xy,"|")
  60.     令 x = Clng(MyArray(0))
  61.     令 y = Clng(MyArray(1))
  62.     如果 x > 0 并且 y > 0 则
  63.         令 passnum = 1
  64.         跳转到标记 级别数(子程序 辨状态)
  65.     条件结束
  66.     延时 50 毫秒
  67.     注释：↓测"8"
  68.     令 xy = Color.FindShape(x1,y1,x2,y2,"-1|0|0,1|0|1,2|0|1,3|0|0,-1|1|1,0|1|0,1|1|0,2|1|0,3|1|1,-1|2|1,0|2|0,1|2|0,2|2|0,3|2|1,-1|3|0,0|3|1,1|3|1,2|3|1,3|3|0,-1|4|1,0|4|0,1|4|0,2|4|0,3|4|1,-1|5|1,0|5|0,1|5|0,2|5|0,3|5|1,-1|6|1,0|6|0,1|6|0,2|6|0,3|6|1,-1|7|0,0|7|1,1|7|1,2|7|1,3|7|0",0.8)
  69.     令 MyArray = Split(xy,"|")
  70.     令 x = Clng(MyArray(0))
  71.     令 y = Clng(MyArray(1))
  72.     如果 x > 0 并且 y > 0 则
  73.         令 passnum = 1
  74.         跳转到标记 级别数(子程序 辨状态)
  75.     条件结束
  76.     延时 50 毫秒
  77.     注释：↓测"9"
  78.     令 xy = Color.FindShape(x1,y1,x2,y2,"-1|0|0,1|0|1,2|0|1,3|0|0,-1|1|1,0|1|0,1|1|0,2|1|0,3|1|1,-1|2|1,0|2|0,1|2|0,2|2|0,3|2|1,-1|3|1,0|3|0,1|3|0,2|3|0,3|3|1,-1|4|0,0|4|1,1|4|1,2|4|1,3|4|1,-1|5|0,0|5|0,1|5|0,2|5|0,3|5|1,-1|6|0,0|6|1,1|6|0,2|6|0,3|6|1,-1|7|0,0|7|1,1|7|1,2|7|1,3|7|0",0.8)
  79.     令 MyArray = Split(xy,"|")
  80.     令 x = Clng(MyArray(0))
  81.     令 y = Clng(MyArray(1))
  82.     如果 x > 0 并且 y > 0 则
  83.         令 passnum = 1
  84.         跳转到标记 级别数(子程序 辨状态)
  85.     条件结束
  86.     延时 50 毫秒
  87.     令 passnum = 0
  88.     标记 级别数(子程序 辨状态)
  89.     令 rworbb = 0
  90. 子程序结束
  91. 子程序 右击()
  92.     如果 Rx > 1000 则
  93.         注释：↓驯养和喂养的“养”
  94.         令 XY = Color.FindShape(Lx + 224,Ty + 75,Lx + 761,Ty + 610,"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)
  95.         令 ZB = InStr(XY,"|")
  96.         令 X = Clng(Left(XY,ZB - 1))
  97.         令 Y = Clng(Right(XY,Len(XY) - ZB))
  98.         如果 X > 0 并且 Y > 0 则
  99.             （鼠标）移动到 (Lx + 926, Ty + 102)
  100.             延时 1000 毫秒