//↓测"4"
  xy=Plugin.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)
  MyArray=Split(xy,"|")
  x=Clng(MyArray(0)): y=Clng(MyArray(1))
  If x>0 and y>0 then
  passnum = 1
  Goto 级别数
  End If
  Delay 50
  //↓测"5"
  xy=Plugin.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)
  MyArray=Split(xy,"|")
  x=Clng(MyArray(0)): y=Clng(MyArray(1))
  If x>0 and y>0 then
  passnum = 1
  Goto 级别数
  End If
  Delay 50
  //↓测"6"
  xy=Plugin.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)
  MyArray=Split(xy,"|")
  x=Clng(MyArray(0)): y=Clng(MyArray(1))
  If x>0 and y>0 then
  passnum = 1
  Goto 级别数
  End If
  Delay 50
  //↓测"7"
  xy=Plugin.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)
  MyArray=Split(xy,"|")
  x=Clng(MyArray(0)): y=Clng(MyArray(1))
  If x>0 and y>0 then
  passnum = 1
  Goto 级别数
  End If
  Delay 50 
  //↓测"8"
  xy=Plugin.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)
  MyArray=Split(xy,"|")
  x=Clng(MyArray(0)): y=Clng(MyArray(1))
  If x>0 and y>0 then
  passnum = 1
  Goto 级别数
  End If
  Delay 50
  //↓测"9"
  xy=Plugin.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)
  MyArray=Split(xy,"|")
  x=Clng(MyArray(0)): y=Clng(MyArray(1))
  If x>0 and y>0 then
  passnum = 1
  Goto 级别数
  End If
  Delay 50
  passnum = 0
  Rem 级别数
  rworbb = 0
 End Sub
 Sub 右击()
	If Rx>1000 then
	//↓驯养和喂养的“养”
	XY=Plugin.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)
    ZB = InStr(XY,"|")
    X = Clng(Left(XY, ZB - 1)): Y = Clng(Right(XY, Len(XY) - ZB))
    If X > 0 and Y > 0 Then 
    MoveTo Lx + 926, Ty + 102
    Delay 1000
    RightClick 1  
    End If
    //↓查看的“查”
    XY=Plugin.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)
    ZB = InStr(XY,"|")
    X = Clng(Left(XY, ZB - 1)): Y = Clng(Right(XY, Len(XY) - ZB))
    If X > 0 and Y > 0 Then 
    MoveTo Lx + 926, Ty + 102
    Delay 1000
    RightClick 1  
    End If
    Else 
    //↓驯养和喂养的“养”
	XY=Plugin.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)
    ZB = InStr(XY,"|")
    X = Clng(Left(XY, ZB - 1)): Y = Clng(Right(XY, Len(XY) - ZB))
    If X > 0 and Y > 0 Then 
    MoveTo Lx + 702, Ty + 102
    Delay 1000
    RightClick 1  
    End If
    //↓查看的“查”
    XY=Plugin.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)
    ZB = InStr(XY,"|")
    X = Clng(Left(XY, ZB - 1)): Y = Clng(Right(XY, Len(XY) - ZB))
    If X > 0 and Y > 0 Then 
    MoveTo Lx + 702, Ty + 102
    Delay 1000
    RightClick 1  
    End If
    End If 
End Sub
Sub 窗体()