//1.识别：抓宠、找人、战斗、寻物、领取
//寻物开始

KeyPress "F5", 1
BeginThread 判断卡死
Call 重置()
//Call 出售物品()
Call 专门宝图任务()
Call 关闭左边()
BeginThread 屏蔽人物

For 26
Call 重置()
Call 判断是否完成()
Call 看是哪种任务？()

Next

Sub 看是哪种任务？()
X = 0
 Q = 0
  W = 0
   E = 0
    R = 0
     T=0 
Y = 0
 U = 0
  I = 0
   O = 0
    P = 0
     G = 0
      H = 0
       D = 0
        F = 0
        C=0
ZX = Plugin.Pic.FindWordShape(0, 0, 800, 600, "领取宝", "宋体", 9, 0, 0.9)
qq = InStr(ZX, "|")
Z = CLng(Left(ZX, qq - 1))
X = CLng(Right(ZX, Len(ZX) - qq))

QW = Plugin.Pic.FindWordShape(0, 0, 800, 600, "奇", "宋体", 9, 0, 0.9)
ww = InStr(QW, "|")
Q = CLng(Left(QW, ww - 1))
W = CLng(Right(QW, Len(QW) - ww))

ER = Plugin.Pic.FindWordShape(0, 0, 800, 600, "胜", "宋体", 9, 0, 0.9)
ee = InStr(ER, "|")
E = CLng(Left(ER, ee - 1))
R = CLng(Right(ER, Len(ER) - ee))

TY = Plugin.Pic.FindWordShape(0, 0, 800, 600, "村", "宋体", 9, 0, 0.9)
rr = InStr(TY, "|")
T = CLng(Left(TY, rr - 1))
Y = CLng(Right(TY, Len(TY) - rr))

UI = Plugin.Pic.FindWordShape(0, 0, 800, 600, "回", "宋体", 9, 0, 0.9)
tt = InStr(UI, "|")
U = CLng(Left(UI, tt - 1))
I = CLng(Right(UI, Len(UI) - tt))

OP = Plugin.Pic.FindWordShape(0, 0, 800, 600, "败", "宋体", 9, 0, 0.9)
tt = InStr(OP, "|")
O = CLng(Left(OP, tt - 1))
P = CLng(Right(OP, Len(OP) - tt))

GH = Plugin.Pic.FindWordShape(0, 0,800, 600, "抓", "宋体", 9, 0, 0.9)
yy = InStr(GH, "|")
G = CLng(Left(GH, yy - 1))
H = CLng(Right(GH, Len(GH) - yy))

DF = Plugin.Pic.FindWordShape(0, 0, 800, 600, "药", "宋体", 9, 0, 0.9)
uu = InStr(DF, "|")
D = CLng(Left(DF, uu - 1))
F = CLng(Right(DF, Len(DF) - uu))

CV = Plugin.Pic.FindWordShape(0, 0, 800, 600, "迷之房间", "宋体", 9, 0, 0.9)
cvcv = InStr(CV, "|")
C = CLng(Left(CV, cvcv - 1))
V = CLng(Right(CV, Len(CV) - cvcv))

If X > 0 Then 
    TracePrint "去领取任务"
    Call 领任务()
    ElseIf Q > 0 Then
    TracePrint "奇异动物"
    Call 识别右边坐标并输出成group和group1()
    Call 找地址()
    Call 到目的地打开好友()
    Call 找奇异()
    Call 奇异前操作()
    Call 奇异动物()
    Call 识别是否退出战斗 ()
    Call 重置()
    Delay 777
    
    ElseIf E > 0 Then
    TracePrint "打怪"
    Call 识别右边坐标并输出成group和group1()
    Call 找地址()
    Call 到目的地打开好友()
    Call 劫匪()
    Call 识别是否退出战斗()
    
    
    ElseIf T > 0 Then
    TracePrint "村民"
    Call 识别右边坐标并输出成group和group1()
    Call 找地址()
    Call 到目的地打开好友()
    Call 村民()
    
    
    ElseIf U > 0 Then
    TracePrint "猎人"
    Call 识别右边坐标并输出成group和group1()
    Call 找地址()
    Call 到目的地打开好友()
    Call 在好友栏找宝藏猎人()
    Call 重置()
    
    
    ElseIf O > 0 Then
    TracePrint "打怪"
    Call 识别右边坐标并输出成group和group1()
    Call 找地址()
    Call 到目的地打开好友()
    Call 劫匪()
    Call 识别是否退出战斗()
    
    ElseIf G > 0 Then
    
    TracePrint "抓冲"
    Call 识别右边坐标并输出成group和group1()
    Call 重置()
    Call 找抵用购买()
    Call 找地址()
    call 到目的地打开好友()
    Call 在好友栏找宝藏猎人()
    Call 猎人完成()
    
    
    ElseIf D > 0 Then
    TracePrint "寻物"
    Call 识别右边坐标并输出成group和group1()
    Call 重置()
    Call 寻物()
    Call 找地址()
    call 到目的地打开好友()
    Call 在好友栏找宝藏猎人()
    Call 猎人完成1()
    
    
    ElseIf C > 0 Then
    TracePrint "迷失猎人"
    Call 迷失识别()
    Call 找地址()
    call 到目的地打开好友()
    Call 好友迷失猎人()
    
    Do
    Delay 2222
    Call 判断迷失()
    If X > 0 Then 
    TracePrint "总体任务完成，要出去了"
    Exit Do
    End If
    Call 进入到迷失房间()
    Loop
    
    Else 
    TracePrint "啥任务都没看到，直接领任务去"
    领任务
    
End If

End sub 
Sub 寻物()
X = 0 and Y = 0
Delay 500
XY=Plugin.Color.FindMutiColor(500,130,800,600,"00FE00","0|-1|00FE00,1|-1|00FE00,2|-1|00FE00,3|-1|00FE00,4|-1|00FE00,5|-1|00FE00,6|-1|00FE00,7|-1|00FE00,8|-1|00FE00,9|-1|00FE00,10|-1|00FE00,10|0|00FE00,13|0|00FE00,14|0|00FE00,15|0|00FE00,16|0|00FE00,17|0|00FE00,18|0|00FE00,19|0|00FE00,20|0|00FE00,21|0|00FE00,22|0|00FE00,26|0|00FE00,25|-1|00FE00,21|-1|00FE00,20|-2|00FE00,18|-2|00FE00,18|-1|00FE00,18|2|00FE00,18|3|00FE00,18|5|00FE00,18|5|00FE00,19|6|00FE00,20|7|00FE00,21|8|00FE00,22|9|00FE00,22|8|00FE00,22|7|00FE00,22|6|00FE00",1)
dim prewancheng
prewancheng = Split(XY, "|")
X = CInt(prewancheng(0)) : Y = CInt(prewancheng(1))
If X < 0 and Y < 0 Then 
TracePrint "开始买药"
Else 
TracePrint "任务已经完成"
Exit sub 
End If
Delay 1000
KeyDown 18, 1
KeyPress 83, 1
KeyUp 18, 1
Delay 2000
MoveTo 125, 108
Delay 888
LeftClick 2
Delay 666
//识别需要之前需要啊把鼠标挪到左上角不要有影响
//务必在识别之前留有足够的缓冲时间
FindColor 78,217,197,435,"0000FE",xu,yao
TracePrint xu
TracePrint yao
If xu > 0 And yao > 0 Then 
MoveTo xu, yao
Delay 500
Leftdown 1
Leftup 1
Else 
MoveTo 126, 209
Delay 400
Leftdown 1
Leftup 1
Delay 500
End If
B = 0
TracePrint B

//不断识别药品的光标，识别成功后跳出循环
Do Until B > 0
MoveTo 50, 50
Delay 300
BU=Plugin.Color.FindMutiColor(0,0,800,600,"F0F8F0","0|1|F0F8F0,0|2|F0F8F0,0|3|F0F8F0,0|-7|F0F8B8",1)
dim MyArray
MyArray = Split(BU, "|")
B = CInt(MyArray(0)) : U = CInt(MyArray(1))
TracePrint BU
Loop
//找到药品光标了，开始进行买药操作
MoveTo B, U
Delay 333
RightDown 1
RightUp 1
Delay 800
SayString "1"
Delay 666
MoveTo 658, 541
Delay 555
Leftdown 1
Leftup 1
Delay 333
X=0
XY=Plugin.Color.FindMutiColor(0,0,800,601,"00FEFE","1|0|00FEFE,2|0|00FEFE,3|0|00FEFE,3|-1|00FEFE,3|-2|00FEFE,3|-3|00FEFE,3|-4|00FEFE,3|-5|00FEFE,3|-6|00FEFE,4|-6|00FEFE,5|-6|00FEFE,5|-7|00FEFE,6|-8|00FEFE,6|-6|00FEFE,7|-6|00FEFE,7|-5|00FEFE,7|-4|00FEFE,7|-3|00FEFE,7|-2|00FEFE,7|-1|00FEFE,13|-1|00FEFE,13|0|00FEFE,13|1|00FEFE",1)
dim MyArr2ay
MyArr2ay = Split(XY, "|")
X = CInt(MyArr2ay(0)) : Y = CInt(MyArr2ay(1))
If X > 0 Then 
TracePrint "出现单价远高于推荐价格，点击确定不再提示就行了"
TracePrint Y
Delay 555
MoveTo X - 76, Y + 38
Delay 666
LeftDown 1
LeftUp 1
Delay 666
End If

重置 
Delay 555

//把上面用过的XY赋值为0，然后重新识别是否完成？没完成重头开始买，完成了呼叫找人子程序
X=0 and Y=0
XY=Plugin.Color.FindMutiColor(0,0,800,600,"00FE00","2|0|00FE00,2|3|00FE00,-3|3|00FE00,-3|4|00FE00,-3|5|00FE00,-2|8|00FE00,-1|9|00FE00,0|10|00FE00,1|10|00FE00",1)
dim wancheng1
wancheng1 = Split(XY, "|")
X = CInt(wancheng1(0)) : Y = CInt(wancheng1(1))
If X > 0 and Y > 0 Then 
       TracePrint "yes"
    Delay 500
    Else 
    Delay 1500
    call 寻物()
End If
End Sub

Sub 识别右边坐标并输出成group和group1()
Delay 1111
group = ""
group1=""
x = 0
y = 0
code = ""
num=""
uy = 0
ux = 0
FindPic 363,160,847,523,"C:\任务园区左边.bmp",0.5,inO,inQ
If inO> 0 And inQ> 0 Then
End If
T=0 
TG=Plugin.Color.FindShape(111,111,777,777,"-1|1|1,-2|2|1,-2|3|1,-2|4|1,-2|5|1,-2|6|1,-2|7|1,-1|8|1,0|9|1,0|8|0,-1|7|0,-1|6|0,-1|5|0,-1|4|0,-1|3|0,-1|2|0,0|1|0,1|0|0,2|0|0,3|0|0,4|0|0,5|0|0,6|0|0,7|0|0,8|0|0,9|0|0,-1|0|0,-2|1|0,-3|2|0,-3|3|0,-3|4|0,-3|5|0,-3|6|0,-3|7|0,-3|8|0,-2|8|0,-1|9|0,-34|19|0,-35|19|0,-36|19|0,-37|19|0,-38|19|0,-39|19|0,-40|19|0,-41|19|0,-42|19|0,-43|19|0,-44|19|0,-45|19|0,-46|19|0,-47|19|0,-48|19|0,-49|19|0,-50|19|0,-51|19|0,-52|19|0,-53|19|0,-54|19|0,-55|19|0,-56|19|0,-57|19|0,-58|19|0,-59|19|0,-60|19|0,-61|19|0,-62|19|0,-63|19|0,-64|19|0,-65|19|0,-66|19|0,-67|19|0,-68|19|0,-69|19|0,-70|19|0,-71|19|0,-72|19|0,-73|19|0,-74|19|0,-75|19|0,-76|19|0,-77|19|0,-78|19|0,-79|19|0,-80|19|0,-81|19|0,-82|19|0,-83|19|0,-84|19|0,-85|19|0,-86|19|0,-87|19|0,-88|19|0,-89|19|0,-90|19|0,-91|19|0,-92|19|0,-93|19|0,-94|19|0,-95|19|0,-96|19|0,-97|19|0,-98|19|0,-99|19|0,-100|19|0,-101|19|0,-102|19|0,-103|19|0,-104|19|0,-105|19|0,-106|19|0,-107|19|0,-108|19|0,-109|19|0,-110|19|0,-111|19|0,-112|19|0,-113|19|0,-114|19|0,-115|19|0,-116|19|0,-117|19|0,-118|19|0,-119|19|0,-120|19|0,-121|19|0,-122|19|0,-123|19|0,-124|19|0,-125|19|0,-126|19|0,-127|19|0,-128|19|0,-129|19|0,-130|19|0,-131|19|0,-132|19|0,-133|19|0,-134|19|0,-135|19|0,-136|19|0,-137|19|0,-60|4|0,-61|4|0,-62|4|0,-63|4|0,-64|4|0,-65|4|0,-66|4|0,-67|4|0,-68|4|0,-69|4|0,-70|4|0,-71|4|0,-72|4|0,-73|4|0,-74|4|0,-75|4|0,-76|4|0,-77|4|0,-78|4|0,-79|4|0,-80|4|0,-81|4|0,-82|4|0,-83|4|0,-84|4|0,-85|4|0,-86|4|0,-87|4|0,-88|4|0,-89|4|0,-90|4|0,-91|4|0,-92|4|0,-93|4|0,-94|4|0,-95|4|0,-96|4|0,-97|4|0,-98|4|0,-99|4|0,-100|4|0,-101|4|0,-102|4|0,-103|4|0,-104|4|0,-105|4|0,-106|4|0,-107|4|0,-108|4|0,-109|4|0,-110|4|0,-111|4|0,-112|4|0,-113|4|0,-114|4|0,-115|4|0,-116|4|0,-117|4|0,-118|4|0,-119|4|0,-120|4|0,-121|4|0,-122|4|0,-123|4|0,-124|4|0,-125|4|0",1)
dim kuohao
kuohao = Split(TG, "|")
T = CInt(kuohao(0)) : G = CInt(kuohao(1))
Q = T - 3
W = G - 1
FindColor Q + 7, W + 11, Q + 28, W + 28, "00FE00", E, R
If Q > 0 And W > 0 Then 
TracePrint Q
TracePrint W
TracePrint E 
TracePrint R
TracePrint "yes,下面是通过判断，和（的距离来计算中间取几个格子来写数字，不然遇到（3，111）的情况会出现判断为31的情况"
If E - Q > 10 Then 
    t = 3
    Else t=2
    TracePrint t
End If
ux = Q+4
uy = W+2
x = ux
y = uy

For t
code = ""
    y = uy
For 8
x = ux
For 5
GetColor=GetPixelColor(x,y)
If GetColor = "00FE00" Then 
 i="1"
Else 
i= "0"
End If

code = code & i 
x = x + 1
Next
y = y + 1
Next

NO0="0111010001100011000110001100011000101110"
NO1="0010001100001000010000100001000010001110"
NO2="0111010001100010001000100010001000011111"
NO3="0111010001000010011000001000011000101110"
NO4="0001000110010100101010010011110001000011"
NO5="1111110000100001111000001000011000101110"
NO6="0111010010100001111010001100011000101110"
NO7="1111110010000100010000100001000010000100"
NO8="0111010001100010111010001100011000101110"
NO9 = "0111010001100011000101111000010100101110"

If code = NO0 Then 
    num = "0"
    ElseIf code = NO1 Then
    num = "1"
    ElseIf code = NO2 Then
    num = "2"
    ElseIf code = NO3 Then
    num = "3"
    ElseIf code = NO4 Then
    num = "4"
    ElseIf code = NO5 Then
    num = "5"
    ElseIf code = NO6 Then
    num = "6"
    ElseIf code = NO7 Then
    num = "7"
    ElseIf code = NO8 Then
    num = "8"
    ElseIf code = NO9 Then
    num = "9"
    Else 
    num = ""
End If
ux = ux + 6
group = group & num

Next
TracePrint group
TracePrint Q
TracePrint W
End If

FindColor Q+7,W+11,Q+28,W+28,"00FE00",E,R
If E> 0 And R > 0 Then 
TracePrint  "yes"
MoveTo E, R
ux = E + 6
uy = R - 9
x = ux
y = uy
For 3
code = ""
    y = uy
For 8
x = ux
For 5
GetColor=GetPixelColor(x,y)
If GetColor = "00FE00" Then 
 i="1"
Else 
i= "0"
End If

code = code & i 
x = x + 1
Next
y = y + 1
Next

NO0="0111010001100011000110001100011000101110"
NO1="0010001100001000010000100001000010001110"
NO2="0111010001100010001000100010001000011111"
NO3="0111010001000010011000001000011000101110"
NO4="0001000110010100101010010011110001000011"
NO5="1111110000100001111000001000011000101110"
NO6="0111010010100001111010001100011000101110"
NO7="1111110010000100010000100001000010000100"
NO8="0111010001100010111010001100011000101110"
NO9 = "0111010001100011000101111000010100101110"

If code = NO0 Then 
    num = "0"
    ElseIf code = NO1 Then
    num = "1"
    ElseIf code = NO2 Then
    num = "2"
    ElseIf code = NO3 Then
    num = "3"
    ElseIf code = NO4 Then
    num = "4"
    ElseIf code = NO5 Then
    num = "5"
    ElseIf code = NO6 Then
    num = "6"
    ElseIf code = NO7 Then
    num = "7"
    ElseIf code = NO8 Then
    num = "8"
    ElseIf code = NO9 Then
    num = "9"
    Else 
    num = ""
End If
ux = ux + 6
group1 = group1 & num

Next
TracePrint  group1
End If
x = 0
y = 0
code = ""
num=""
uy = 0
ux = 0
If group > 0 and group1 > 0 Then 
TracePrint "坐标看到了成功"
Else 
Delay 333
TracePrint "坐标没看到，考虑到可能是师门任务出现，取消师门"
Call 重置()
Call 专门宝图任务()
Call 看是哪种任务？()
Exit sub
End If
End sub
Sub 太息林地()
Delay 555
ina = 0
inb = 0

ina = group * 2.35
inb = group1 * 2.35
//把需要的偏移的像素坐标计算出来
TracePrint ina
TracePrint inb
Delay 333
Call 打开世界地图()
Delay 555
MoveTo 491, 379
Delay 555
LeftDown 1
LeftUp 1
Delay 3333
npc = 0
guan=0
FindPic 89,57,737,400,"C:\npc关闭.bmp",0.8,npc,guan
If npc > 0 And guan > 0 Then 

MoveTo npc, guan
Delay 333
LeftDown 1
LeftUp 1
Delay 333
End If

Delay 555
X = 0
Y = 0
//XY是识别地图左下角的多色，记得别因为自动战斗遮挡
XY=Plugin.Color.FindMutiColor(0,0,800,600,"2D2310","1|0|CCA54F,1|5|C5A24F,1|12|895E2A,2|13|704420,3|14|583018,5|14|583018,9|14|583018,11|13|9B7426",1)
dim MyArray
MyArray = Split(XY, "|")
X = CInt(MyArray(0)) : Y = CInt(MyArray(1))
TracePrint X
TracePrint Y
//X和Y请不要随意替换了，因为XY特定赋予为地图左下角的点
m = X + ina
//此处的inb要减去的记得，不是加
//ina和inb是未经过修正的真实坐标，所以要经过上面下面的修正，才是从0,0开始的
n = Y - inb
TracePrint  m
TracePrint n

MoveTo m+10, n
Delay 333
Leftdown 1
Leftup 1
Delay 3333
Call 重置()

End sub
Sub 天水平原()
Delay 555
ina = 0
inb = 0
ina = group * 1.915
inb = group1 * 1.88
//把需要的偏移的像素坐标计算出来
TracePrint ina
TracePrint inb
Delay 333
//XY是识别地图左下角的多色，记得别因为自动战斗遮挡
Call 打开世界地图()
Delay 444
MoveTo 326, 513
Delay 555
Leftdown 1
Leftup 1
Delay 3333
npc = 0
guan=0
FindPic 89,57,737,400,"C:\npc关闭.bmp",0.8,npc,guan
If npc > 0 And guan > 0 Then 

MoveTo npc, guan
Delay 333
LeftDown 1
LeftUp 1
Delay 333
End If
MoveTo 22, 22
Delay 333
X=0 and Y=0 
XY=Plugin.Color.FindMutiColor(0,0,800,600,"2D2310","1|0|CCA54F,1|5|C5A24F,1|12|895E2A,2|13|704420,3|14|583018,5|14|583018,9|14|583018,11|13|9B7426",1)
dim MyArray
MyArray = Split(XY, "|")
X = CInt(MyArray(0)) : Y = CInt(MyArray(1))
TracePrint X
TracePrint Y
//X和Y请不要随意替换了，因为XY特定赋予为地图左下角的点
m = X + ina
//此处的inb要减去的记得，不是加
//ina和inb是未经过修正的真实坐标，所以要经过上面下面的修正，才是从0,0开始的
n = Y - inb
TracePrint  m
TracePrint n
MoveTo m+10, n
Delay 555
Leftdown 1
LeftUp 1
Delay 222
MoveTo 33,33
Delay 4666
点青色
Call 重置()

Delay 333
End Sub
Sub 长风岛()
Delay 555
ina = 0
inb = 0
ina = group * 2.74
inb = group1 * 2.733
//把需要的偏移的像素坐标计算出来
TracePrint ina
TracePrint inb
Call 打开世界地图()
Delay 555
MoveTo 575, 535
Delay 555
Leftdown 1
Leftup 1
Delay 3333
npc = 0
guan=0
FindPic 89,57,737,400,"C:\npc关闭.bmp",0.8,npc,guan
If npc > 0 And guan > 0 Then 

MoveTo npc, guan
Delay 333
LeftDown 1
LeftUp 1
Delay 333
End If
MoveTo 22, 22
Delay 333
//XY是识别地图左下角的多色，记得别因为自动战斗遮挡
X = 0
Y = 0

XY=Plugin.Color.FindMutiColor(0,0,800,600,"2D2310","1|0|CCA54F,1|5|C5A24F,1|12|895E2A,2|13|704420,3|14|583018,5|14|583018,9|14|583018,11|13|9B7426",1)
dim MyArray
MyArray = Split(XY, "|")
X = CInt(MyArray(0)) : Y = CInt(MyArray(1))
TracePrint X
TracePrint Y
//X和Y请不要随意替换了，因为XY特定赋予为地图左下角的点
m = X + ina
//此处的inb要减去的记得，不是加
//ina和inb是未经过修正的真实坐标，所以要经过上面下面的修正，才是从0,0开始的
n = Y - inb
TracePrint  m
TracePrint n

MoveTo m+10, n
Delay 500
Leftdown 1
Leftup 1
Delay 3333
Call 重置()
End Sub
Sub 芳草镇()
Delay 555
ina = 0
inb = 0
ina = group * 2.56
inb = group1 * 2.53
//把需要的偏移的像素坐标计算出来
TracePrint ina
TracePrint inb
Delay 333
Call 打开世界地图()
Delay 555
MoveTo 710, 353
Delay 555
Leftdown 1
Leftup 1
Delay 3333
MoveTo 22, 22

//XY是识别地图左下角的多色，记得别因为自动战斗遮挡
X=0 and Y=0 
XY=Plugin.Color.FindMutiColor(0,0,1458,1262,"2D2310","1|0|CCA54F,1|5|C5A24F,1|12|895E2A,2|13|704420,3|14|583018,5|14|583018,9|14|583018,11|13|9B7426",1)
dim MyArray
MyArray = Split(XY, "|")
X = CInt(MyArray(0)) : Y = CInt(MyArray(1))
TracePrint X
TracePrint Y
//X和Y请不要随意替换了，因为XY特定赋予为地图左下角的点
m = X + ina
//此处的inb要减去的记得，不是加
//ina和inb是未经过修正的真实坐标，所以要经过上面下面的修正，才是从0,0开始的
n = Y - inb
TracePrint  m
TracePrint n

MoveTo m+10, n
Delay 333
Leftdown 1
Leftup 1
Delay 3333
Call 重置()
End Sub
Sub 夜幕镇()
Delay 555
ina = 0
inb = 0
ina = group * 3.33
inb = group1 * 3.35
//把需要的偏移的像素坐标计算出来
TracePrint ina
TracePrint inb
Delay 333
Call 打开世界地图()
Delay 555
MoveTo 418, 146
Delay 555
Leftdown 1
Leftup 1
Delay 3333
MoveTo 22, 22
Delay 333
//XY是识别地图左下角的多色，记得别因为自动战斗遮挡
X = 0
Y=0
XY=Plugin.Color.FindMutiColor(0,0,1458,1262,"2D2310","1|0|CCA54F,1|5|C5A24F,1|12|895E2A,2|13|704420,3|14|583018,5|14|583018,9|14|583018,11|13|9B7426",1)
dim MyArray
MyArray = Split(XY, "|")
X = CInt(MyArray(0)) : Y = CInt(MyArray(1))
TracePrint X
TracePrint Y
//X和Y请不要随意替换了，因为XY特定赋予为地图左下角的点
m = X + ina
//此处的inb要减去的记得，不是加
//ina和inb是未经过修正的真实坐标，所以要经过上面下面的修正，才是从0,0开始的
n = Y - inb
TracePrint  m
TracePrint n

MoveTo m+10, n
Delay 500
Leftdown 1
Leftup 1
Delay 3333
Call 重置()
//ER = Plugin.Pic.FindWordShape(0, 0, 1024, 768, "夜幕", "宋体", 9, 0, 0.95)
//iZB = InStr(ER, "|")
//E = CLng(Left(ER, iZB - 1))
//R = CLng(Right(ER, Len(ER) - iZB))
//TracePrint E，得到结果E=-1，也就是说如果需要重新使用变量
//TracePrint W为了防止之前的变量影响后面的，请把变量赋值为0再继续调用使用？
//TracePrint R或者直接进行替换？不管了？会不会影响后面的运行？
//TracePrint Q
//TracePrint A
End sub
Sub 云雀谷()
Delay 555
ina = 0
inb = 0
ina = group * 2.233
inb = group1 * 2.533
//把需要的偏移的像素坐标计算出来
TracePrint ina
TracePrint inb
Delay 333
Call 打开世界地图()
Delay 555
MoveTo 722, 452
Delay 555
Leftdown 1
Leftup 1
Delay 3333
MoveTo 22, 22
Delay 333
X = 0
Y=0
//XY是识别地图左下角的多色，记得别因为自动战斗遮挡
XY=Plugin.Color.FindMutiColor(0,0,1458,1262,"2D2310","1|0|CCA54F,1|5|C5A24F,1|12|895E2A,2|13|704420,3|14|583018,5|14|583018,9|14|583018,11|13|9B7426",1)
dim MyArray
MyArray = Split(XY, "|")
X = CInt(MyArray(0)) : Y = CInt(MyArray(1))
TracePrint X
TracePrint Y
//X和Y请不要随意替换了，因为XY特定赋予为地图左下角的点
m = X + ina
//此处的inb要减去的记得，不是加
//ina和inb是未经过修正的真实坐标，所以要经过上面下面的修正，才是从0,0开始的
n = Y - inb
TracePrint  m
TracePrint n

MoveTo m+10, n
Delay 500
Leftdown 1
Leftup 1
Delay 3333
Call 重置()
End sub
Sub 幻境海岸()
Delay 555
ina = 0
inb = 0
ina = group * 2.511
inb = group1 * 2.467
//把需要的偏移的像素坐标计算出来
TracePrint ina
TracePrint inb
Delay 333
Call 打开世界地图()
Delay 555
MoveTo 294, 352
Delay 555
Leftdown 1
Leftup 1
Delay 3333
npc = 0
guan=0
FindPic 89,57,737,400,"C:\npc关闭.bmp",0.8,npc,guan
If npc > 0 And guan > 0 Then 

MoveTo npc, guan
Delay 333
LeftDown 1
LeftUp 1
Delay 333
End If
MoveTo 22, 22
Delay 877
X = 0
Y=0
//XY是识别地图左下角的多色，记得别因为自动战斗遮挡
XY=Plugin.Color.FindMutiColor(0,0,1458,1262,"2D2310","1|0|CCA54F,1|5|C5A24F,1|12|895E2A,2|13|704420,3|14|583018,5|14|583018,9|14|583018,11|13|9B7426",1)
dim MyArray
MyArray = Split(XY, "|")
X = CInt(MyArray(0)) : Y = CInt(MyArray(1))
TracePrint X
TracePrint Y
//X和Y请不要随意替换了，因为XY特定赋予为地图左下角的点
m = X + ina
//此处的inb要减去的记得，不是加
//ina和inb是未经过修正的真实坐标，所以要经过上面下面的修正，才是从0,0开始的
n = Y - inb
TracePrint  m
TracePrint n

MoveTo m+10, n
Delay 500
Leftdown 1
Leftup 1
Delay 7777
Call 重置()
End sub
Sub 落日海湾()
Delay 555
ina = 0
inb = 0
ina = group * 3.3
inb = group1 * 3.2
//把需要的偏移的像素坐标计算出来
TracePrint ina
TracePrint inb
Delay 333
Call 打开世界地图()
Delay 555
MoveTo 657, 298
Delay 555
Leftdown 1
Leftup 1
Delay 3333
npc = 0
guan=0
FindPic 89,57,737,400,"C:\npc关闭.bmp",0.8,npc,guan
If npc > 0 And guan > 0 Then 

MoveTo npc, guan
Delay 333
LeftDown 1
LeftUp 1
Delay 333
End If
MoveTo 22, 22
Delay 333
X = 0
Y=0
//XY是识别地图左下角的多色，记得别因为自动战斗遮挡
XY=Plugin.Color.FindMutiColor(0,0,1458,1262,"2D2310","1|0|CCA54F,1|5|C5A24F,1|12|895E2A,2|13|704420,3|14|583018,5|14|583018,9|14|583018,11|13|9B7426",1)
dim MyArray
MyArray = Split(XY, "|")
X = CInt(MyArray(0)) : Y = CInt(MyArray(1))
TracePrint X
TracePrint Y
//X和Y请不要随意替换了，因为XY特定赋予为地图左下角的点
m = X + ina+4
//此处的inb要减去的记得，不是加
//ina和inb是未经过修正的真实坐标，所以要经过上面下面的修正，才是从0,0开始的
n = Y - inb
TracePrint  m
TracePrint n

MoveTo m+10, n
Delay 333
Leftdown 1
Leftup 1
Delay 3333
Call 重置()
End sub
Sub 黎明镇()
Delay 555
ina = 0
inb = 0
ina = group * 3.367
inb = group1 * 3.333
//把需要的偏移的像素坐标计算出来
TracePrint ina
TracePrint inb
Delay 333
Call 打开世界地图()
Delay 555
MoveTo 573, 170
Delay 555
Leftdown 1
Leftup 1
Delay 3333
MoveTo 23, 22
Delay 333
X = 0
Y=0
//XY是识别地图左下角的多色，记得别因为自动战斗遮挡
XY=Plugin.Color.FindMutiColor(0,0,1458,1262,"2D2310","1|0|CCA54F,1|5|C5A24F,1|12|895E2A,2|13|704420,3|14|583018,5|14|583018,9|14|583018,11|13|9B7426",1)
dim MyArray
MyArray = Split(XY, "|")
X = CInt(MyArray(0)) : Y = CInt(MyArray(1))
TracePrint X
TracePrint Y
//X和Y请不要随意替换了，因为XY特定赋予为地图左下角的点
m = X + ina
//此处的inb要减去的记得，不是加
//ina和inb是未经过修正的真实坐标，所以要经过上面下面的修正，才是从0,0开始的
n = Y - inb
TracePrint  m
TracePrint n

MoveTo m+10, n
Delay 500
Leftdown 1
Leftup 1
Delay 3333
Call 重置()
End Sub

Sub 领任务()
TracePrint "重置"
Call 重置()
TracePrint "找道士"
Call 去找道士()
TracePrint "找好友道士"
Call 找好友道士()
Delay 1111
you=0 and fang =0
FindPic 164,109,678,426,"C:\游.bmp",0.9,you,fang
If you > 0 And fang > 0 Then 
TracePrint "找到了有防盗十"
Delay 111
MoveTo you - 77, fang + 133
Delay 111
Leftdown 1
Leftup 1
Delay 333
Call 重置()
Else 
TracePrint "没找到有防盗十，重新开始领任务"
Delay 555
Call 领任务()
Exit Sub
End If
End Sub

Sub 去找道士()

    Delay 1000
    KeyPress "Tab", 1
    MoveTo 44,44
    Delay 888
    FindPic 418,79,679,235,"C:\查找路线.bmp",0.7,cha,zhao
    If cha > 0 And zhao > 0 Then 
        TracePrint "找到查找了，点去寻路"
        Delay 1000
        MoveTo cha, zhao
        Delay 777
        Leftdown 1
        Leftup 1
        Delay 1111 
        TracePrint "等找到查找NPC界面再点"
        Q=0
        FindColor 309,86,498,203,"E0FCC8",Q,W
        If Q > 0 Then 
        TracePrint "看到了查找的菱形"
            MoveTo Q - 50, W + 30
            Delay 333
            LeftClick 4
            Delay 555
            SayString "宝图"
            Delay 555
            MoveTo Q + 50, W + 350
            Delay 555
            LeftClick 1
            Delay 1111
            Q=0
            FindColor 309,86,498,203,"E0FCC8",Q,W
            If Q > 0 Then 
                TracePrint "菱形仍然存在，重新寻路"
                重置 
                去找道士 
                Exit Sub
            End If
        End if 
    End If

Delay 3333
ming = 0 and yue = 0
FindPic 10,16,251,151,"C:\mingyue.bmp",0.7,ming,yue
If ming > 0 And yue > 0 Then 
TracePrint "找到明月了，继续操作，不然重新call领任务了"
Delay 777
Else Delay 333
Call 重置()
Call 领任务()
Exit Sub 
End If
TracePrint "找到道士就开始去点了"
道士旁边
End Sub

Sub 找好友道士()
Call 稳定打开好友栏()
Call 纯净版周围()
Delay 1111

Do
Delay 333
X=0
XY=Plugin.Color.FindShape(0,0,800,600,"0|-1|0,0|-2|0,1|-2|0,2|-2|0,3|-2|0,4|-2|1,5|-2|0,5|-3|0,6|-3|0,7|-3|1,8|-3|1,8|-2|0,9|-2|0,10|-2|0,11|-2|0,11|-3|0,11|-4|1,10|-4|0,11|-1|1,12|-1|1,13|-1|1,13|-2|0,14|-2|0,15|-2|0,16|-2|0,17|-2|0,16|2|1,16|3|1,16|4|1,16|5|1,16|6|1,16|7|1,16|8|1,16|9|1,15|9|1,15|8|0,15|7|0,15|6|0,15|5|0,15|4|0,15|3|0,15|2|0,14|2|0,14|3|1,14|4|1,14|5|1,14|6|1,14|7|1,14|8|1,13|8|1,13|9|0,14|9|0,15|9|1,20|9|0,19|9|0,19|8|0,20|8|0,21|8|1,22|8|0,22|9|1,23|9|0",1)
dim daoshi
daoshi = Split(XY, "|")
X = CInt(daoshi(0)) : Y = CInt(daoshi(1))
If X > 0 Then 
TracePrint "找到了好友列表的道士npc"
MoveTo X+88, Y
Delay 666
LeftClick 2
TracePrint "双击了好友列表的道士"
Delay 1111

you=0
FindPic 139,95,725,557,"C:\游.bmp",1.0,you,fang
If you > 0 And fang > 0 Then 
Delay 111
MoveTo you - 65, fang + 134
Delay 111
Leftdown 1
Leftup 1
Delay 777
End If

E = 0
ER=Plugin.Color.FindMutiColor(0,0,1411,1053,"F2F3C8","-1|1|F2F3C8,-1|2|F2F3C8,-2|3|F2F3C8,-2|4|F2F3C8,-2|5|F2F3C8,-2|6|F2F3C8,-2|7|F2F3C8,-2|8|F2F3C8,-1|9|F2F3C8,0|11|F2F3C8,3|10|F2F3C8,4|10|F2F3C8,5|10|F2F3C8,6|10|F2F3C8,8|10|F2F3C8,9|10|F2F3C8,10|10|F2F3C8,11|10|F2F3C8,12|10|F2F3C8,12|8|F2F3C8,12|7|F2F3C8,12|6|F2F3C8,12|5|F2F3C8,12|4|F2F3C8,11|3|F2F3C8,10|3|F2F3C8,9|3|F2F3C8,8|3|F2F3C8,7|3|F2F3C8,17|5|F2F3C8,18|5|F2F3C8,19|5|F2F3C8,20|5|F2F3C8,21|5|F2F3C8,22|5|F2F3C8,23|5|F2F3C8,25|5|F2F3C8,26|5|F2F3C8,27|5|F2F3C8,32|5|F2F3C8,33|5|F2F3C8,34|5|F2F3C8,34|5|F2F3C8,36|5|F2F3C8,37|5|F2F3C8,38|5|F2F3C8,39|5|F2F3C8,40|5|F2F3C8,41|5|F2F3C8",1)
dim manle
manle = Split(ER, "|")
E = CInt(manle(0)) : R = CInt(manle(1))
If E > 0 Then 
TracePrint "宝图50满了 直接结束"
ExitScript
End If
Q=0
QW=Plugin.Color.FindMutiColor(0,0,2167,1350,"F2F3C8","1|0|F2F3C8,2|1|F2F3C8,3|1|F2F3C8,4|1|F2F3C8,5|2|F2F3C8,6|2|F2F3C8,7|2|F2F3C8,8|3|F2F3C8,8|3|F2F3C8,9|3|F2F3C8,10|3|F2F3C8,7|4|F2F3C8,6|4|F2F3C8,5|4|F2F3C8,4|5|F2F3C8,3|5|F2F3C8,2|5|F2F3C8,1|6|F2F3C8,0|6|F2F3C8,0|10|F2F3C8,1|10|F2F3C8,2|9|F2F3C8,3|9|F2F3C8,4|9|F2F3C8,5|8|F2F3C8,6|8|F2F3C8,7|8|F2F3C8,8|7|F2F3C8,9|7|F2F3C8,10|7|F2F3C8,16|7|F2F3C8,16|6|F2F3C8,16|6|F2F3C8,16|5|F2F3C8,16|3|F2F3C8",1)
dim dayudengyu
dayudengyu = Split(QW, "|")
Q = CInt(dayudengyu(0)): W = CInt(dayudengyu(1))
If Q > 0 Then 
TracePrint "宝图满了啊......卖去然后退出循环"
重置
出售物品 
Delay 555
Exit Do

Else 
Exit Do
TracePrint "宝图没满，退出接任务环节"
End If

Else 
Delay 555
MoveTo 44,44
Call 重置()
Call 找好友道士()
Exit Sub

End If
Loop

End Sub
Sub 重置()
Delay 333
MoveTo 44,44
KeyDown 17, 1
KeyPress 65, 1
KeyUp 17, 1
KeyDown 17, 1
KeyPress 65, 1
KeyUp 17, 1
Delay 666
KeyPress "Esc", 1
Delay 333
End Sub
Sub 重置啊
Delay 333
MoveTo 44,44
KeyDown 17, 1
KeyPress 65, 1
KeyUp 17, 1
Delay 666
KeyPress "Esc", 1
Delay 333
End Sub

Sub 稳定打开好友栏()
Do//这是找到好友栏的do啊
hao = 0 and you = 0
KeyDown 18, 1
KeyPress 70, 1
KeyUp 18, 1
Delay 888
FindPic 609,19,766,73,"C:\好友.bmp",0.9,hao,you
If hao > 0 And you > 0 Then 
TracePrint "找到好友"
Exit Do 
Delay 333
Else Delay 333
TracePrint "再次找好友"

Delay 666
End If
Loop//这是找到好友栏的do啊
End Sub

Sub 纯净版周围()
MoveTo 44, 44
Delay 111
ER=Plugin.Color.FindMutiColor(0,0,1903,1088,"E8D880","0|1|E8D880,1|2|E8D880,2|2|E8D880,2|3|E8D880,3|3|E8D880,3|4|E8D880,3|5|E8D880,2|5|E8D880,2|6|E8D880,1|6|E8D880,1|7|E8D880,0|7|E8D880,0|8|E8D880,13|8|FEDC66,13|7|FEDC66,13|6|FEDC66,13|5|FEDC66,13|4|FEDC66,13|3|FEDC66,13|2|FEDC66,14|2|FEDC66,15|2|FEDC66,16|2|FEDC66,16|2|FEDC66,17|2|FEDC66,18|2|FEDC66,19|2|FEDC66,20|2|FEDC66,21|2|FEDC66,21|3|FEDC66,21|4|FEDC66,21|5|FEDC66,21|7|FEDC66,21|8|FEDC66,21|9|FEDC66,21|10|FEDC66,21|12|FEDC66,21|13|FEDC66,20|13|FEDC66,20|26|FEDC66,19|26|FEDC66,18|26|FEDC66,17|26|FEDC66,15|26|FEDC66,14|26|FEDC66,13|26|FEDC66,13|27|FEDC66,13|28|FEDC66,13|29|FEDC66,13|30|FEDC66,13|31|FEDC66,13|32|FEDC66,13|34|FEDC66,-3|28|E8D880,-2|28|E8D880,-2|29|E8D880,-1|29|E8D880,-1|30|E8D880,0|30|E8D880,1|30|E8D880,1|31|E8D880,2|31|E8D880,2|30|E8D880,3|30|E8D880,3|30|E8D880,4|29|E8D880,4|28|E8D880,5|28|E8D880,5|28|E8D880,6|27|E8D880,6|28|E8D880",1)
dim zhankaile
zhankaile = Split(ER, "|")
E = CInt(zhankaile(0)): R = CInt(zhankaile(1))
If E > 0 Then 
Exit Sub

End If

Do//这是找原始好友的do
Delay 555
Q=0
FindColor 573,0,786,161,"E0FCC8",Q,W
If Q > 0 Then 
MoveTo Q + 125, W + 110
Delay 555
LeftClick 1

X = 0
Delay 555
XY=Plugin.Color.FindMutiColor(0,0,800,600,"E8D880","1|1|E8D880,2|2|E8D880,3|3|E8D880,4|4|E8D880,3|5|E8D880,2|6|E8D880,1|7|E8D880,0|8|E8D880,0|23|E8D880,0|24|E8D880,0|25|E8D880,1|25|E8D880,2|25|E8D880,2|26|E8D880,2|27|E8D880,3|27|E8D880,4|27|E8D880,4|28|E8D880,3|28|E8D880,3|29|E8D880,2|29|E8D880,2|30|E8D880,1|30|E8D880,1|31|E8D880,0|31|E8D880,0|32|E8D880,0|47|E8D880,0|48|E8D880,1|48|E8D880,1|49|E8D880,2|49|E8D880,2|50|E8D880,3|50|E8D880,3|51|E8D880,4|51|E8D880",1)
dim yuanshihaoyou
yuanshihaoyou = Split(XY, "|")
X = CInt(yuanshihaoyou(0)) : Y = CInt(yuanshihaoyou(1))
If X > 0 Then 
MoveTo X + 120, Y + 20
Delay 555
LeftClick 1 
TracePrint "纯净版周围已显示"
Exit do
End If
TracePrint "找不到纯净好友，就不执行点击周围NPC操作，继续循环点大周围按钮"
Else 
Delay 333
重置 
稳定打开好友栏 
纯净版周围 
TracePrint "未找到原始好友再点一次找原始好友，再移到周围npc"
Exit Sub
End If
Loop//这是找原始好友的do

End Sub

Sub 找抵用购买()
Do 
Delay 555
KeyDown 18, 1
KeyPress 82, 1
KeyUp 18, 1
Delay 666
di =0 and yong =0
FindPic 303,459,590,627,"C:\抵用购买.bmp",0.9,di,yong
If di > 0 And yong > 0 Then 
Delay 555
MoveTo di, yong
Delay 555
Leftdown 1
Leftup 1
Delay 666
KeyPress "Esc", 1
Exit do 
End If

Delay 555
Loop
X = 0
Y = 0
XY=Plugin.Color.FindMutiColor(0,0,800,600,"00FE00","0|1|00FE00,3|4|00FE00,5|4|00FE00,8|4|00FE00,12|4|00FE00,16|4|00FE00,16|2|00FE00,16|1|00FE00,16|0|00FE00,16|-1|00FE00,21|-1|00FE00,21|-2|00FE00,21|-3|00FE00,23|-3|00FE00",1)
dim MyArray
MyArray = Split(XY, "|")
X = CInt(MyArray(0)) : Y = CInt(MyArray(1))
If X > 0 Then 
    Delay 444
    TracePrint "已经完成"
    Else 
    TracePrint "没有完成返回上一个步骤重新操作"
    Delay 555
    MoveTo 33, 33
    Delay 555
    Call 找抵用购买()
    End if
End Sub

Sub 打开世界地图()
Call 重置()

Do
Delay 1333
KeyDown 18, 1
KeyPress 77, 1
KeyUp 18, 1
Delay 666
Dim zhan, bei
zhan=0 and bei=0 
FindPic 656,86,679,110,"C:\战备.bmp",1.0,zhan,bei
If zhan < 0 And bei < 0 Then 

Exit Do 
End If
Loop
End Sub

Sub 到目的地打开好友()
Delay 333
Do
xun=0 and lu=0 
FindPic 255,81,562,250,"C:\自动寻路.bmp",0.8,xun,lu
If xun < 0 And lu < 0 Then 

Call 稳定打开好友栏()
Delay 333
Call 纯净版周围()

Exit do 
Else 
TracePrint "构想判断一点的颜色是否相同来看自动寻路是否结束"
X = 0
Y = 0
AA=0
AAA = 0
BBB = 0
CC = 0
CCC = 0
DD = 0
DDD = 0
EE = 0
EEE = 0
FF = 0
FFF=0
FindColor 138,0,295,106,"FEFEFE",X,Y
TracePrint X
TracePrint Y
FindColorEx X, Y, X+32, Y+13, "91FDDA", 2, 1.0, AA, BB
Delay 555
FindColorEx X+32, Y, X+66, Y+13 , "91FDDA", 2, 1.0, AAA, BBB
Delay 666
FindColorEx X, Y, X+32, Y+13, "91FDDA", 2, 1.0, CC, DD
Delay 555
FindColorEx X+32, Y, X+66, Y+13 , "91FDDA", 2, 1.0, CCC, DDD
Delay 666
FindColorEx X, Y, X + 32, Y + 13, "91FDDA", 2, 1.0, EE, FF
Delay 555
FindColorEx X+32, Y, X+66, Y+13 , "91FDDA", 2, 1.0, EEE, FFF
Delay 666
If AA = CC and CC = EE and AAA = CCC and CCC = EEE Then 
TracePrint "坐标未变化，已经到了呢"
Call 重置()
Call 稳定打开好友栏()
Delay 333
Call 纯净版周围()
Exit Sub 
Delay 333
Exit Do
Else 
Delay 1212
End If
End if 
Loop
End Sub

Sub 在好友栏找宝藏猎人()
lie=0 and ren=0 
FindPic 574,156,759,538,"C:\宝藏猎人.bmp",0.8,lie,ren
If lie > 0 And ren > 0 Then 
MoveTo lie+111, ren
Delay 111
Leftdown 1
Leftup 1
Delay 555
Leftdown 1
Leftup 1
TracePrint "点了两次猎人"
Delay 333
End If

Do
MoveTo 33,33
lie=0 and ren=0 
FindPic 574,156,759,343,"C:\宝藏猎人.bmp",0.8,lie,ren
If lie > 0 And ren > 0 Then 

MoveTo lie+111, ren
Delay 555
Leftdown 1
Leftup 1
Delay 555
End if 
guan=0 and bi =0 
FindPic 508,170,730,380,"C:\guanbi.bmp",0.8,guan,bi
If guan > 0 And bi > 0 Then 
Exit Do
Else 
Delay 2222
Call 到目的地打开好友()
Delay 555
Call 在好友栏找宝藏猎人()
Delay 555
Exit Sub
End If
Loop
End Sub
Sub 好友迷失猎人()
    Do
    X=0
XY=Plugin.Color.FindShape(568,144,817,612,"0|-1|0,1|-1|0,2|-1|0,3|-1|0,4|-1|0,5|-1|1,5|-2|0,6|-2|0,7|-2|1,7|-3|1,6|-3|1,5|-3|1,4|-3|1,4|-2|1,3|-2|0,2|-2|0,1|-2|0,1|-1|0,0|-1|0,0|0|1,-1|0|1,-2|1|0,-2|2|0,-3|2|1,-3|3|1,-3|3|1,-3|3|1,-3|4|0,-4|4|0,-4|5|1,-3|5|1,-3|6|1,-2|6|0,-2|7|0,-3|7|0,-3|8|0,-4|8|0,-5|8|0,-6|8|0,-7|8|0,-8|8|1,-8|7|0,-9|7|1,-10|7|0,-11|7|0,-11|6|0,-11|6|0,-10|6|0,-9|6|0,-8|6|0,-8|5|1,-9|5|1,-10|5|1,-11|5|1,-12|5|1,-12|4|1,-11|4|0,-10|4|0,-9|4|0,-9|3|0,-9|2|0,-9|1|1,-9|0|0,-9|0|0,-10|0|0,-11|0|0,-12|0|0,-13|0|0,-14|0|0,-14|-1|0,-14|-2|1,-13|-2|1,-13|-3|0,-12|-3|1,-11|-3|0,-10|-3|0,-9|-3|0,-8|-3|0,-8|-2|1,-7|-2|1,-7|-1|0,-6|-1|1,-5|-1|0,-5|-1|0,-4|-1|0,-3|-1|0,-3|-1|0,-3|-2|0",1)
dim lieren123
lieren123 = Split(XY, "|")
X = CInt(lieren123(0)): Y = CInt(lieren123(1))
If X > 0 And Y > 0 Then 
Delay 444
MoveTo X+77, Y
Delay 111
Leftdown 1
Leftup 1
Delay 555
Leftdown 1
Leftup 1
Delay 555
Leftdown 1
Leftup 1
Delay 555
TracePrint "点了两次猎人"
Delay 2222
Q=0
FindColor 42,193,308,420,"B0EE76",Q,W
If Q > 0 
 TracePrint "d到了迷宫里面呢！"
Exit do 
End If
End If
Loop

Do
X=0
XY=Plugin.Color.FindMutiColor(0,0,800,600,"33D7EA","1|0|33D7EA,2|0|33D7EA,3|0|33D7EA,4|0|33D7EA,5|0|33D7EA,5|3|33D7EA,4|3|33D7EA,3|3|33D7EA,2|3|33D7EA,1|3|33D7EA,0|3|33D7EA,-1|3|33D7EA,-2|3|33D7EA,-3|3|33D7EA,-4|3|33D7EA,-2|9|33D7EA,-2|10|33D7EA,-3|10|33D7EA,3|10|33D7EA,4|11|33D7EA,5|11|33D7EA,5|12|33D7EA,6|12|33D7EA",1)
dim mishi4
mishi4 = Split(XY, "|")
X = CInt(mishi4(0)) : Y = CInt(mishi4(1))
If X > 0 Then 
Delay 333
TracePrint "在迷失房间里面啦~~~~"
Call 重置()
Exit Do
Else 
Delay 2222
Call 到目的地打开好友()
Delay 555
Call 好友迷失猎人()
Delay 555
Exit Sub
End If
Loop
Delay 888
End sub 

Sub 点青色()

Delay 666
qing=0 and se=0 
FindColorEx 143,209,648,427,"DCFE3C",1,1,qing,se
If qing > 0 And se > 0 Then 
Delay 111
MoveTo qing, se
Delay 222
Leftdown 1
Leftup 1
Delay 333

//Else 
//Call 重置()
//看是哪种任务？ 
//Exit sub
//Delay 1111
End If

End Sub
Sub 猎人完成()
//自信，上面的做完了，一定会有青色
qing=0 and se=0 
Delay 444
FindColorEx 151,246,484,399,"DCFE3C",1,0.9,qing,se
If qing > 0 And se > 0 Then 
Delay 444
MoveTo qing, se
Delay 555
Leftdown 1
Leftup 1
Delay 2222
End If

Do
chong = 0 and wu = 0
Delay 333
FindPic 292,79,559,186,"C:\召唤兽.bmp",0.9,chong,wu
If chong > 0 And wu > 0 Then 
Delay 555
MoveTo chong, wu + 45
Delay 444
LeftClick 3
Exit do 
Else 
Delay 1111
重置 
到目的地打开好友 
在好友栏找宝藏猎人 
猎人完成 
Exit Sub
End If
Loop
Delay 333
Call 重置()
Delay 333
End Sub

Sub 猎人完成1()
    //自信，上面的做完了，一定会有青色
    qing=0 and se=0 
    Delay 444
    FindColorEx 151,246,484,399,"DCFE3C",1,0.9,qing,se
    If qing > 0 And se > 0 Then 
        Delay 444
        MoveTo qing, se
        Delay 555
        Leftdown 1
        Leftup 1
        Delay 1444
    End If
    Do
        MoveTo 44,444
        huan = 0
        Q=0
        FindColor 215, 74, 787, 547, "3008B8", Q, W
        FindColorEx 55,39,776,568,"A05958",0,1.0,huan,yao
        If huan > 0 Then 
            Delay 666
            MoveTo huan, yao
            Delay 555
            LeftClick 2
            Delay 666
            X=0
            XY=Plugin.Color.FindMutiColor(0,0,800,600,"B3FEFE","0|1|D65600,0|2|B3FEFE,0|3|B2FDFD,0|4|B3FEFE,1|4|CE5A00,2|4|CE5A00,3|4|CE5A00,3|3|B3FEFE,4|3|B2FDFD,5|3|B3FEFE,6|3|B3FEFE,8|3|B3FEFE,9|3|B3FEFE,10|3|B2FDFD,11|3|B3FEFE,11|4|CE5A00,11|5|CE5A00,11|6|CE6200,10|6|B3FEFE,9|6|B3FEFE,8|6|B3FEFE,7|6|B3FEFE,6|6|B3FEFE,5|6|B3FEFE,4|6|B3FEFE,3|6|B2FDFD,3|7|B2FDFD,3|8|B2FDFD,3|9|B2FDFD,3|10|B2FDFD,4|10|B3FEFE,5|10|B3FEFE,6|10|B3FEFE,7|10|B3FEFE,8|10|B3FEFE,9|10|B3FEFE,9|11|B2FDFD,10|11|B3FEFE,11|11|DE8A06,12|11|DE8A06,13|11|DE8A06,14|11|DF8B07,15|11|E08C08,16|11|E08808,17|11|E08808,18|11|E08808",1)
            dim jiyu
            jiyu = Split(XY, "|")
            X = CInt(jiyu(0)) : Y = CInt(jiyu(1))
            If X > 0 Then 
                Delay 333
                MoveTo X,Y
                lol 
            End If
            Call 重置()
            Exit Do
            //这是找到了正常的药，交完了退出循环
        ElseIf Q > 0 Then
                Delay 666
                MoveTo Q, W
                Delay 444
                LeftClick 2
                Delay 888
                TracePrint "这是金疮药！点了"
            X=0
            XY=Plugin.Color.FindMutiColor(0,0,800,600,"B3FEFE","0|1|D65600,0|2|B3FEFE,0|3|B2FDFD,0|4|B3FEFE,1|4|CE5A00,2|4|CE5A00,3|4|CE5A00,3|3|B3FEFE,4|3|B2FDFD,5|3|B3FEFE,6|3|B3FEFE,8|3|B3FEFE,9|3|B3FEFE,10|3|B2FDFD,11|3|B3FEFE,11|4|CE5A00,11|5|CE5A00,11|6|CE6200,10|6|B3FEFE,9|6|B3FEFE,8|6|B3FEFE,7|6|B3FEFE,6|6|B3FEFE,5|6|B3FEFE,4|6|B3FEFE,3|6|B2FDFD,3|7|B2FDFD,3|8|B2FDFD,3|9|B2FDFD,3|10|B2FDFD,4|10|B3FEFE,5|10|B3FEFE,6|10|B3FEFE,7|10|B3FEFE,8|10|B3FEFE,9|10|B3FEFE,9|11|B2FDFD,10|11|B3FEFE,11|11|DE8A06,12|11|DE8A06,13|11|DE8A06,14|11|DF8B07,15|11|E08C08,16|11|E08808,17|11|E08808,18|11|E08808",1)
            dim jiyu1
            jiyu1 = Split(XY, "|")
            X = CInt(jiyu1(0)) : Y = CInt(jiyu1(1))
            If X > 0 Then 
                Delay 333
                MoveTo X,Y
                lol 
                Delay 666
                //这是找到了金疮药退出循环
            End If//这仅仅是给予标志的if
            Call 重置()
            Exit Do
        Else 
            Delay 1111
            重置 
            到目的地打开好友 
            在好友栏找宝藏猎人 
            猎人完成1 
        End If
    Loop
End sub 
Sub 找地址()
    Delay 555
L = 0
K = 0
 Z = 0
  A = 0
   Q = 0
    W = 0
     E = 0
      R = 0
       T = 0
        U = 0
C = 0
 S = 0
  V = 0
   F = 0
    B = 0
      G = 0
        H = 0
         J=0
LK = Plugin.Pic.FindWordShape(0, 0, 800, 600, "林", "宋体", 9, 0, 0.95)
iZB = InStr(LK, "|")
L = CLng(Left(LK, iZB - 1))
K = CLng(Right(LK, Len(LK) - iZB))

ZA = Plugin.Pic.FindWordShape(0, 0, 800, 600, "水", "宋体", 9, 0, 0.95)
iZB = InStr(ZA, "|")
Z = CLng(Left(ZA, iZB - 1))
A = CLng(Right(ZA, Len(ZA) - iZB))

QW = Plugin.Pic.FindWordShape(0, 0, 800, 600, "黎", "宋体", 9, 0, 0.95)
iZB = InStr(QW, "|")
Q = CLng(Left(QW, iZB - 1))
W = CLng(Right(QW, Len(QW) - iZB))

ER = Plugin.Pic.FindWordShape(0, 0, 800, 600, "幕", "宋体", 9, 0, 0.95)
iZB = InStr(ER, "|")
E = CLng(Left(ER, iZB - 1))
R = CLng(Right(ER, Len(ER) - iZB))

TU = Plugin.Pic.FindWordShape(0, 0, 800, 600, "落", "宋体", 9, 0, 0.95)
iZB = InStr(TU, "|")
T = CLng(Left(TU, iZB - 1))
U = CLng(Right(TU, Len(TU) - iZB))

CS = Plugin.Pic.FindWordShape(0, 0, 800, 600, "岛", "宋体", 9, 0, 0.95)
iZB = InStr(CS, "|")
C = CLng(Left(CS, iZB - 1))
S = CLng(Right(CS, Len(CS) - iZB))

VF = Plugin.Pic.FindWordShape(0, 0, 800, 600, "芳", "宋体", 9, 0, 0.95)
iZB = InStr(VF, "|")
V = CLng(Left(VF, iZB - 1))
F = CLng(Right(VF, Len(VF) - iZB))

BG = Plugin.Pic.FindWordShape(0, 0, 800, 600, "雀", "宋体", 9, 0, 0.95)
iZB = InStr(BG, "|")
B = CLng(Left(BG, iZB - 1))
G = CLng(Right(BG, Len(BG) - iZB))

HJ = Plugin.Pic.FindWordShape(0, 0, 800, 600, "幻", "宋体", 9, 0, 0.95)
iZB = InStr(HJ, "|")
H = CLng(Left(HJ, iZB - 1))
J = CLng(Right(HJ, Len(HJ) - iZB))
Delay 555

If L > 0  Then 
    TracePrint "太息有了"
    Call 太息林地()
    ElseIf Z > 0   Then
    TracePrint "天水有了"
    Call 天水平原()
    ElseIf Q > 0 Then
    TracePrint "黎明有了"
    Call 黎明镇()
    ElseIf E > 0 Then
    TracePrint "夜幕有了 "
    Call 夜幕镇()
    ElseIf T > 0   Then
    TracePrint "落日有了"
    Call 落日海湾()
    ElseIf C > 0 Then
    TracePrint "长风有了"
    Call 长风岛 () 
    ElseIf V > 0  Then
    TracePrint "芳草有了 "
    Call 芳草镇()
    ElseIf B > 0   Then
    TracePrint "云雀有了"
    Call 云雀谷()
    ElseIf H > 0  Then
    TracePrint "幻境有了"
    Call 幻境海岸()
End If
//本实验证明多次找字功能得以实现，只需要返回值是正常的，未必是XY，但是后面用到的数据必须相符
End Sub

Sub 劫匪()
Delay 555
TracePrint "开始劫匪子程序"
jie=0 and fei=0 
FindPic 579,152,802,543,"C:\劫匪.bmp",0.9,jie,fei
If jie > 0 And fei > 0 Then 
Delay 555
MoveTo jie+110, fei
Delay 555
Else 
Delay 1333
稳定打开好友栏 
纯净版周围 
劫匪
Exit sub 
End if 
Do
TracePrint "开始循环找劫匪点击"
MoveTo 33, 33
Delay 555
jie=0 and fei=0 
FindPic 579,152,802,543,"C:\劫匪.bmp",0.9,jie,fei
If jie > 0 And fei > 0 Then 

MoveTo jie+110, fei
Delay 333
LeftClick 1
TracePrint "点了两次剿匪"
Delay 222
End If

guan=0 and bi=0 
FindPic 490,168,707,329,"C:\guanbi.bmp",0.9,guan,bi
If guan > 0 And bi > 0 Then 
TracePrint "关闭找到了结束do"
Exit Do
End If
Loop

Delay 222
Call 点青色()
Delay 777
KeyDown 17, 1
KeyPress 65, 1
KeyUp 17, 1
Delay 444
End Sub

Sub 村民()
Delay 555
cun=0 and min=0 
FindPic 579,152,802,543,"C:\村民.bmp",0.9,cun,min
If cun > 0 And min > 0 Then 
MoveTo cun+111, min
TracePrint "点去村民"
Delay 111
Else 
TracePrint "没找到村民重新等一会再点"
Delay 1333
稳定打开好友栏 
纯净版周围
Call 村民()
Exit sub 
End If

Do
MoveTo 33,33
cun=0 and min=0 
FindPic 579,152,802,543,"C:\村民.bmp",0.9,cun,min
If cun > 0 And min > 0 Then 
Delay 666
MoveTo cun+111, min
TracePrint "点去村民"
Delay 111
LeftClick 1
Delay 777
End if 
guan=0 and bi=0 
FindPic 490,168,707,329,"C:\guanbi.bmp",0.9,guan,bi
If guan > 0 And bi > 0 Then 
TracePrint "关闭按钮找到了，等一会就按，先退出循环"
Exit Do
Else 
TracePrint "没找到关闭按钮，等一会再继续操作"
Delay 1111
End If
Loop

Delay 555
TracePrint "开始找青色去点击了"
Call 点青色()
Delay 1111
TracePrint "重置一下"
Call 重置()
End Sub
Sub 识别是否退出战斗()
Do
TracePrint "识别是否退出战斗中"
Delay 3333
zhan = 0 and dou = 0
FindColor 338,524,504,703,"484408",zhan,dou
If zhan<0 And dou< 0 Then
TracePrint "战斗完成"
Delay 1222
Exit do
End If
Loop

Call 重置()
End Sub

Sub 判断是否完成()
Call 重置
X = 0
Y = 0
XY=Plugin.Color.FindMutiColor(0,0,800,600,"00FE00","0|1|00FE00,3|4|00FE00,5|4|00FE00,8|4|00FE00,12|4|00FE00,16|4|00FE00,16|2|00FE00,16|1|00FE00,16|0|00FE00,16|-1|00FE00,21|-1|00FE00,21|-2|00FE00,21|-3|00FE00,23|-3|00FE00",1)
dim MyArray
MyArray = Split(XY, "|")
X = CInt(MyArray(0)) : Y = CInt(MyArray(1))
If X > 0 Then 
    Delay 444
    TracePrint "已经完成"
Do
FindColor 532,133,795,335,"FEFE00",intX,intY
If intX > 0 And intY > 0 Then 
Delay 222
MoveTo intX, intY
Delay 222
LeftClick 2
Delay 555
E = 0
liea = 0
FindColor 280,27,512,277,"8A5165",liea,rena
FindColor 163,240,263,299,"36EDFE",E,R
If E > 0 And liea>0 Then 
TracePrint "左上黄点和猎人紫色出现，然后找到宝藏猎人看是给bb还是药"
Delay 555
QW=Plugin.Color.FindMutiColor(0,0,800,600,"DCFE3C","0|1|DCFE3C,0|2|DCFE3C,0|3|DCFE3C,1|3|DCFE3C,2|3|DCFE3C,3|3|DCFE3C,4|3|DCFE3C,6|3|DCFE3C,7|3|DCFE3C,8|3|DCFE3C,9|3|DCFE3C,9|2|DCFE3C,9|1|DCFE3C,9|0|DCFE3C,9|-1|DCFE3C,9|-2|DCFE3C,12|-2|DCFE3C,12|-3|DCFE3C,12|-4|DCFE3C,12|-5|DCFE3C,12|-6|DCFE3C,12|-7|DCFE3C,13|-7|DCFE3C,14|-7|DCFE3C,15|-7|DCFE3C,15|-6|DCFE3C,15|-5|DCFE3C,15|-4|DCFE3C,15|-3|DCFE3C,15|-1|DCFE3C,15|0|DCFE3C,16|0|DCFE3C,17|0|DCFE3C,18|0|DCFE3C,19|0|DCFE3C",1)
dim jiyuzhaohuanshou
jiyuzhaohuanshou = Split(QW, "|")
Q = CInt(jiyuzhaohuanshou(0)) : W = CInt(jiyuzhaohuanshou(1))
If Q > 0 Then 
猎人完成 
Delay 555
Exit do 
Else 
Delay 555
猎人完成1 
Delay 555
Exit do 
End If
End If

End If
Loop

    Else 
    TracePrint "没有完成返回上一个步骤重新操作"
    Delay 555
End If
End Sub

Sub 奇异前操作()
    Delay 1222
    重置啊
    dan = 0
    ling = 0
    XY=Plugin.Color.FindMutiColor(0,0,800,600,"E2E2E7","1|0|CFCFD4,2|0|CFCFD4,3|0|E5E5EA,4|0|E5E5EA,5|0|CFCFD4,6|0|CFCFD4,6|-1|000000,4|-1|9E9EA2,3|-1|9E9EA2,2|-1|000000",1)
    dim dan
    dan = Split(XY, "|")
    X = CInt(dan(0)) : Y = CInt(dan(1))
    ER=Plugin.Color.FindMutiColor(0,0,800,600,"BDBDC0","1|0|BDBDC0,2|0|C4C4C8,3|0|C8C8CC,4|0|BDBDC0,5|0|BDBDC0,0|-2|ADADB1,1|-2|ADADB1,2|-2|ADADB1,3|-2|ADADB1,4|-2|ADADB1,5|-2|ADADB1",1)
    dim ling
    ling = Split(ER, "|")
    E = CInt(ling(0)): R = CInt(ling(1))
    If X > 0 Then 
        MoveTo X, Y
        Delay 333
        RightClick 1
        Delay 444
        RightClick 1
        TracePrint "已默认右键招式"
        Delay 777
        MoveTo 44, 44
    ElseIf E > 0 Then
        MoveTo E, R
        Delay 333
        RightClick 1
        Delay 444
        RightClick 1
        TracePrint "已默认右键招式"
        Delay 777
        MoveTo 44, 44
        Q=0
        QW=Plugin.Color.FindMutiColor(0,0,800,600,"88F0D8","-4|-1|A07008,-7|-2|88F0D8,-15|-1|F0F5D9,-16|-1|F0F5D9,-17|-1|F0F5D9,-21|-1|F0F5D9",1)
        dim mubiao
        mubiao = Split(QW, "|")
        Q = CInt(mubiao(0)): W = CInt(mubiao(1))
        If Q > 0 Then 
            MoveTo Q, W
            Delay 666
            LeftClick 1
            TracePrint "目标已关闭"
        End If
    End If
End Sub
Sub 奇异动物()
Do
D = 0
A = 0
O = 0
U = 0
T = 0
E = 0
Q = 0
G = 0
J = 0
L = 0
C = 0
FindPic 0, 19, 465, 425, "C:\狼.bmp", 0.4, Q, W
FindPic 0, 19, 465, 425, "C:\影狼.bmp", 0.4, E, R
FindPic 0, 19, 465, 425, "C:\翼虎.bmp", 0.4, T, Y
FindPic 0, 19, 465, 425, "C:\螃蟹.bmp", 0.4, U, I
FindPic 0, 19, 465, 425, "C:\鱼.bmp", 0.4, O, P
FindPic 0, 19, 465, 425, "C:\蝎子.bmp", 0.4, A, S
FindPic 0, 19, 465, 425, "C:\兔.bmp", 0.4, D, F
FindPic 0, 19, 465, 425, "C:\青蛙.bmp", 0.4, G, H
FindPic 0, 19, 465, 425, "C:\鬼火.bmp", 0.4, J, K
FindPic 0, 19, 465, 425, "C:\狐狸.bmp", 0.4, L, Z
FindColorEx 0, 19, 465, 425, "BCF048", 1,1.0, C, V
If D > 0 Then 
TracePrint "兔子"
Call 兔()
Exit do
ElseIf A > 0 Then
TracePrint "蝎子"
Call 蝎子()
Exit do
ElseIf O > 0 Then
TracePrint "鱼"
Call 鱼()
Exit do 
ElseIf U > 0 Then
TracePrint "螃蟹"
Call 螃蟹()
Exit do 
ElseIf T > 0 Then
TracePrint "翼虎"
Call 翼虎()
Exit do 
ElseIf E > 0 Then
TracePrint "影狼"
Call 影狼()
Exit do 
ElseIf Q > 0 Then
TracePrint "狼"
Call 狼()
Exit Do
ElseIf G > 0 Then
TracePrint "青蛙"
Call 青蛙()
Exit Do

ElseIf J > 0 Then
TracePrint "鬼火"
Call 鬼火()
Exit Do

ElseIf L > 0 Then
TracePrint "狐狸"
Call 狐狸()
Exit Do

ElseIf C > 0 Then
TracePrint "小猫女"
Call 小猫女()
Exit Do

Else 
TracePrint "啥也不是没看到，重新找"
Delay 111
End if 
Loop
End Sub

Sub 狼()
Delay 111
X = 0
FindColorEx 286,514,516,627,"282498",0,1.0,X,Y
If X > 0 And Y > 0 Then 
TracePrint "是在战斗哦！"
Else 
TracePrint "退出了战斗了"
Exit sub 
End If

Q = 0
E = 0
T = 0
U = 0
O = 0
A = 0
D=0
TracePrint "开始看狼的饰品用颜色"
FindColorEx 0, 19, 465, 425, "D9FDFD", 1, 0.98, Q, W
FindColorEx 0, 19, 465, 425, "B0C9FF", 1, 0.98, E, R
FindColorEx 0, 19, 465, 425, "FFE1FF", 1, 0.98, T, Y
FindColorEx 0, 19, 465, 425, "E6DCF2", 1, 0.98, U, I
FindColorEx 0, 19, 465, 425, "7EB9FF", 1, 0.98, O, P
FindColorEx 0, 19, 465, 425, "D5DCE5", 1, 0.98, A, S
FindColorEx 0, 19, 465, 425, "FFB290", 1, 0.98, D, F
If Q > 0 And W > 0 Then 
Delay 555
MoveTo Q, W
TracePrint Q
TracePrint W
Delay 555
RightClick 33
Delay 555
TracePrint "找到啦且点过啦"

elseIf E > 0 And R > 0 Then 
Delay 555
MoveTo E,R
Delay 555
RightClick 33
Delay 555
TracePrint "找到啦且点过啦"

elseIf T > 0 And Y > 0 Then 
Delay 555
MoveTo T,Y
Delay 555
RightClick 33
Delay 555
TracePrint "找到啦且点过啦"

elseIf U > 0 And I > 0 Then 
Delay 555
MoveTo U,I
Delay 555
RightClick 33
Delay 555
TracePrint "找到啦且点过啦"

elseIf O > 0 And P > 0 Then 
Delay 555
MoveTo O,P
Delay 555
RightClick 33
Delay 555
TracePrint "找到啦且点过啦"

elseIf A > 0 And S > 0 Then 
Delay 555
MoveTo A,S
Delay 555
RightClick 33
Delay 555
TracePrint "找到啦且点过啦"

elseIf D > 0 And F > 0 Then 
Delay 555
MoveTo D,F
Delay 555
RightClick 33
Delay 555
TracePrint "找到啦且点过啦"

Else 
TracePrint "啥也没有，重新找"
Call 狼()
Exit sub 
Delay 555
End If

Call 判断奇异打完没()
End Sub
Sub 影狼()
Delay 111
X = 0
FindColorEx 286,514,516,627,"282498",0,1.0,X,Y
If X > 0 And Y > 0 Then 
TracePrint "是在战斗哦！"
Else 
TracePrint "退出了战斗了"
Exit sub 
End If
Q = 0
E = 0
T = 0
U = 0
O = 0
A = 0
D=0
TracePrint "开始看影狼的饰品用颜色"
FindColorEx 0, 19, 465, 425, "7A3A5D", 1, 0.98, Q, W
FindColorEx 0, 19, 465, 425, "C9C5E6", 1, 0.98, E, R
FindColorEx 0, 19, 465, 425, "E4A2AE", 1, 0.98, T, Y
FindColorEx 0, 19, 465, 425, "9BAFFF", 1, 0.98, U, I
FindColorEx 0, 19, 465, 425, "738444", 1, 0.98, O, P
FindColorEx 0, 19, 465, 425, "70F2FF", 1, 0.98, A, S
FindColorEx 0, 19, 465, 425, "70F2FF", 1, 0.98, D, F
If Q > 0 And W > 0 Then 
Delay 555
MoveTo Q, W
TracePrint Q
TracePrint W
Delay 555
RightClick 33
Delay 555
TracePrint "找到啦且点过啦"

elseIf E > 0 And R > 0 Then 
Delay 555
MoveTo E,R
Delay 555
RightClick 33
Delay 555
TracePrint "找到啦且点过啦"

elseIf T > 0 And Y > 0 Then 
Delay 555
MoveTo T,Y
Delay 555
RightClick 33
Delay 555
TracePrint "找到啦且点过啦"

elseIf U > 0 And I > 0 Then 
Delay 555
MoveTo U,I
Delay 555
RightClick 33
Delay 555
TracePrint "找到啦且点过啦"

elseIf O > 0 And P > 0 Then 
Delay 555
MoveTo O,P
Delay 555
RightClick 33
Delay 555
TracePrint "找到啦且点过啦"

elseIf A > 0 And S > 0 Then 
Delay 555
MoveTo A,S
Delay 555
RightClick 33
Delay 555
TracePrint "找到啦且点过啦"

elseIf D > 0 And F > 0 Then 
Delay 555
MoveTo D,F
Delay 555
RightClick 33
Delay 555
TracePrint "找到啦且点过啦"

Else 
TracePrint "啥也没有，重新找"
Call 影狼()
Exit sub 
Delay 555
End If

Call 判断奇异打完没()
End Sub
Sub 翼虎()
Delay 111
X = 0
FindColorEx 286,514,516,627,"282498",0,1.0,X,Y
If X > 0 And Y > 0 Then 
TracePrint "是在战斗哦！"
Else 
TracePrint "退出了战斗了"
Exit sub 
End If
Q = 0
E = 0
T = 0
U = 0
O = 0
A = 0
D=0
TracePrint "开始看翼虎的饰品用颜色"
FindColorEx 0, 19, 465, 425, "A2A1A6", 1, 0.98, Q, W
FindColorEx 0, 19, 465, 425, "C0A9AC", 1, 0.98, E, R
FindColorEx 0, 19, 465, 425, "94ADA4", 1, 0.98, T, Y
FindColorEx 0, 19, 465, 425, "8FA9C8", 1, 0.98, U, I
FindColorEx 0, 19, 465, 425, "F398D7", 1, 0.98, O, P
FindColorEx 0, 19, 465, 425, "91ABBA", 1, 0.98, A, S
FindColorEx 0, 19, 465, 425, "91ABBA", 1, 0.98, D, F
If Q > 0 And W > 0 Then 
Delay 555
MoveTo Q, W
TracePrint Q
TracePrint W
Delay 555
RightClick 33
Delay 555
TracePrint "找到啦且点过啦"

elseIf E > 0 And R > 0 Then 
Delay 555
MoveTo E,R
Delay 555
RightClick 33
Delay 555
TracePrint "找到啦且点过啦"

elseIf T > 0 And Y > 0 Then 
Delay 555
MoveTo T,Y
Delay 555
RightClick 33
Delay 555
TracePrint "找到啦且点过啦"

elseIf U > 0 And I > 0 Then 
Delay 555
MoveTo U,I
Delay 555
RightClick 33
Delay 555
TracePrint "找到啦且点过啦"

elseIf O > 0 And P > 0 Then 
Delay 555
MoveTo O,P
Delay 555
RightClick 33
Delay 555
TracePrint "找到啦且点过啦"

elseIf A > 0 And S > 0 Then 
Delay 555
MoveTo A,S
Delay 555
RightClick 33
Delay 555
TracePrint "找到啦且点过啦"

elseIf D > 0 And F > 0 Then 
Delay 555
MoveTo D,F
Delay 555
RightClick 33
Delay 555
TracePrint "找到啦且点过啦"

Else 
TracePrint "啥也没有，重新找"
Call 翼虎()
Exit sub 
Delay 555
End If
Call 判断奇异打完没()
End Sub
Sub 青蛙()
Delay 111
X = 0
FindColorEx 286,514,516,627,"282498",0,1.0,X,Y
If X > 0 And Y > 0 Then 
TracePrint "是在战斗哦！"
Else 
TracePrint "退出了战斗了"
Exit sub 
End If
Q = 0
E = 0
T = 0
U = 0
O = 0
A = 0
D=0
TracePrint "开始看影狼的饰品用颜色"
FindColorEx 0, 19, 465, 425, "53A3BD", 1, 0.98, Q, W
FindColorEx 0, 19, 465, 425, "4B4D4F", 1, 0.98, E, R
FindColorEx 0, 19, 465, 425, "FF9D43", 1, 0.98, T, Y
FindColorEx 0, 19, 465, 425, "5951CF", 1, 0.98, U, I
FindColorEx 0, 19, 465, 425, "63CB8D", 1, 0.98, O, P
FindColorEx 0, 19, 465, 425, "80E2FF", 1, 0.98, A, S
FindColorEx 0, 19, 465, 425, "80E2FF", 1, 0.98, D, F
If Q > 0 And W > 0 Then 
Delay 555
MoveTo Q, W
TracePrint Q
TracePrint W
Delay 555
RightClick 33
Delay 555
TracePrint "找到啦且点过啦"

elseIf E > 0 And R > 0 Then 
Delay 555
MoveTo E,R
Delay 555
RightClick 33
Delay 555
TracePrint "找到啦且点过啦"

elseIf T > 0 And Y > 0 Then 
Delay 555
MoveTo T,Y
Delay 555
RightClick 33
Delay 555
TracePrint "找到啦且点过啦"

elseIf U > 0 And I > 0 Then 
Delay 555
MoveTo U,I
Delay 555
RightClick 33
Delay 555
TracePrint "找到啦且点过啦"

elseIf O > 0 And P > 0 Then 
Delay 555
MoveTo O,P
Delay 555
RightClick 33
Delay 555
TracePrint "找到啦且点过啦"

elseIf A > 0 And S > 0 Then 
Delay 555
MoveTo A,S
Delay 555
RightClick 33
Delay 555
TracePrint "找到啦且点过啦"

elseIf D > 0 And F > 0 Then 
Delay 555
MoveTo D,F
Delay 555
RightClick 33
Delay 555
TracePrint "找到啦且点过啦"

Else 
TracePrint "啥也没有，重新找"
Call 青蛙()
Exit sub 
Delay 555
End If

Call 判断奇异打完没()
End Sub
Sub 狐狸()
Delay 111
X = 0
FindColorEx 286,514,516,627,"282498",0,1.0,X,Y
If X > 0 And Y > 0 Then 
TracePrint "是在战斗哦！"
Else 
TracePrint "退出了战斗了"
Exit sub 
End If
Q = 0
E = 0
T = 0
U = 0
O = 0
A = 0
D=0
TracePrint "开始看狐狸的饰品用颜色"
FindColorEx 0, 19, 465, 425, "87CA94", 1, 0.98, Q, W
FindColorEx 0, 19, 465, 425, "8D8F99", 1, 0.98, E, R
FindColorEx 0, 19, 465, 425, "ADC171", 1, 0.98, T, Y
FindColorEx 0, 19, 465, 425, "FFA94B", 1, 0.98, U, I
FindColorEx 0, 19, 465, 425, "51B4E6", 1, 0.98, O, P
FindColorEx 0, 19, 465, 425, "FF6DA7", 1, 0.98, A, S
FindColorEx 0, 19, 465, 425, "FF6DA7", 1, 0.98, D, F
If Q > 0 And W > 0 Then 
Delay 555
MoveTo Q, W
TracePrint Q
TracePrint W
Delay 555
RightClick 33
Delay 555
TracePrint "找到啦且点过啦"

elseIf E > 0 And R > 0 Then 
Delay 555
MoveTo E,R
Delay 555
RightClick 33
Delay 555
TracePrint "找到啦且点过啦"

elseIf T > 0 And Y > 0 Then 
Delay 555
MoveTo T,Y
Delay 555
RightClick 33
Delay 555
TracePrint "找到啦且点过啦"

elseIf U > 0 And I > 0 Then 
Delay 555
MoveTo U,I
Delay 555
RightClick 33
Delay 555
TracePrint "找到啦且点过啦"

elseIf O > 0 And P > 0 Then 
Delay 555
MoveTo O,P
Delay 555
RightClick 33
Delay 555
TracePrint "找到啦且点过啦"

elseIf A > 0 And S > 0 Then 
Delay 555
MoveTo A,S
Delay 555
RightClick 33
Delay 555
TracePrint "找到啦且点过啦"

elseIf D > 0 And F > 0 Then 
Delay 555
MoveTo D,F
Delay 555
RightClick 33
Delay 555
TracePrint "找到啦且点过啦"

Else 
TracePrint "啥也没有，重新找"
Call 狐狸()
Exit sub 
Delay 555
End If

Call 判断奇异打完没()
End Sub
Sub 小猫女()
Delay 111
X = 0
FindColorEx 286,514,516,627,"282498",0,1.0,X,Y
If X > 0 And Y > 0 Then 
TracePrint "是在战斗哦！"
Else 
TracePrint "退出了战斗了"
Exit sub 
End If
Q = 0
E = 0
T = 0
U = 0
O = 0
A = 0
TracePrint "开始看猫女的饰品用颜色"
FindColorEx 0, 19, 465, 425, "51C987", 1, 0.98, Q, W
FindColorEx 0, 19, 465, 425, "FCBD49", 1, 0.98, E, R
FindColorEx 0, 19, 465, 425, "FF8FCA", 1, 0.98, T, Y
FindColorEx 0, 19, 465, 425, "56FBFF", 1, 0.98, U, I
FindColorEx 0, 19, 465, 425, "664CFF", 1, 0.98, O, P
FindColorEx 0, 19, 465, 425, "FB6991", 1, 0.98, A, S
FindColorEx 0, 19, 465, 425, "D85F80", 1, 0.98, D, F
If Q > 0 And W > 0 Then 
Delay 555
MoveTo Q, W
TracePrint Q
TracePrint W
Delay 555
RightClick 33
Delay 555
TracePrint "找到啦且点过啦"

elseIf E > 0 And R > 0 Then 
Delay 555
MoveTo E,R
Delay 555
RightClick 33
Delay 555
TracePrint "找到啦且点过啦"

elseIf T > 0 And Y > 0 Then 
Delay 555
MoveTo T,Y
Delay 555
RightClick 33
Delay 555
TracePrint "找到啦且点过啦"

elseIf U > 0 And I > 0 Then 
Delay 555
MoveTo U,I
Delay 555
RightClick 33
Delay 555
TracePrint "找到啦且点过啦"

elseIf O > 0 And P > 0 Then 
Delay 555
MoveTo O,P
Delay 555
RightClick 33
Delay 555
TracePrint "找到啦且点过啦"

elseIf A > 0 And S > 0 Then 
Delay 555
MoveTo A,S
Delay 555
RightClick 33
Delay 555
TracePrint "找到啦且点过啦"

elseIf D > 0 And F > 0 Then 
Delay 555
MoveTo D,F
Delay 555
RightClick 33
Delay 555
TracePrint "找到啦且点过啦"

Else 
TracePrint "啥也没有，重新找"
Call 小猫女()
Exit sub 
Delay 555
End If

Call 判断奇异打完没()
End sub 

Sub 鬼火()
Delay 111
X = 0
FindColorEx 286,514,516,627,"282498",0,1.0,X,Y
If X > 0 And Y > 0 Then 
TracePrint "是在战斗哦！"
Else 
TracePrint "退出了战斗了"
Exit sub 
End If
Q = 0
E = 0
T = 0
U = 0
O = 0
A = 0
D = 0
H = 0

TracePrint "开始看鬼火的饰品用颜色"
FindColorEx 0, 19, 465, 425, "3C21D8", 1, 0.98, Q, W
FindColorEx 0, 19, 465, 425, "001327", 1, 0.98, E, R
FindColorEx 0, 19, 465, 425, "F94F81", 1, 0.98, T, Y
FindColorEx 0, 19, 465, 425, "757B77", 1, 0.98, U, I
FindColorEx 0, 19, 465, 425, "0DEDB0", 1, 0.98, O, P
FindColorEx 0, 19, 465, 425, "FFFFD8", 1, 0.98, A, S
FindColorEx 0, 19, 465, 425, "FFB290", 1, 0.98, D, F
FindColorEx 0, 19, 465, 425, "3900FF", 1, 0.98, G, H

If Q > 0 And W > 0 Then 
Delay 555
MoveTo Q, W
TracePrint Q
TracePrint W
Delay 555
RightClick 33
Delay 555
TracePrint "找到啦且点过啦"

elseIf E > 0 And R > 0 Then 
Delay 555
MoveTo E,R
Delay 555
RightClick 33
Delay 555
TracePrint "找到啦且点过啦"

elseIf T > 0 And Y > 0 Then 
Delay 555
MoveTo T,Y
Delay 555
RightClick 33
Delay 555
TracePrint "找到啦且点过啦"

elseIf U > 0 And I > 0 Then 
Delay 555
MoveTo U,I
Delay 555
RightClick 33
Delay 555
TracePrint "找到啦且点过啦"

elseIf O > 0 And P > 0 Then 
Delay 555
MoveTo O,P
Delay 555
RightClick 33
Delay 555
TracePrint "找到啦且点过啦"

elseIf A > 0 And S > 0 Then 
Delay 555
MoveTo A,S
Delay 555
RightClick 33
Delay 555
TracePrint "找到啦且点过啦"

elseIf D > 0 And F > 0 Then 
Delay 555
MoveTo D,F
Delay 555
RightClick 33
Delay 555
TracePrint "找到啦且点过啦"

ElseIf G > 0 Then
Delay 555
MoveTo G,H
Delay 555
RightClick 33
Delay 555
TracePrint "找到啦且点过啦"

Else 
TracePrint "啥也没有，重新找"
Delay 555
Call 鬼火()
Exit sub
End If
Delay 666
Call 判断奇异打完没()
End sub 
Sub 兔()
Delay 111
X = 0
FindColorEx 286,514,516,627,"282498",0,1.0,X,Y
If X > 0 And Y > 0 Then 
TracePrint "是在战斗哦！"
Else 
TracePrint "退出了战斗了"
Exit sub 
End If
MoveTo 444, 44
A = 0
S = 0
P = 0
I = 0
Y = 0
R = 0
W = 0
O = 0
U = 0
T = 0
E = 0
Q = 0
FindColorEx 0, 19, 465, 425, "EE8CFC", 1, 0.98, Q, W
FindColorEx 0, 19, 465, 425, "AEA7A3", 1, 0.98, E, R
FindColorEx 0, 19, 465, 425, "FF9842", 1, 0.98, T, Y
FindColorEx 0, 19, 465, 425, "5DABFF", 1, 0.98, U, I
FindColorEx 0, 19, 465, 425, "A19F2F", 1, 0.98, O, P
FindColorEx 0, 19, 465, 425, "E1A0FF", 1, 0.98, A, S
FindColorEx 0, 19, 465, 425, "E1A0FF", 1, 0.98, D, F

If A > 0 Then
TracePrint "找到饰品"
Delay 555
MoveTo A, S
Delay 555
RightClick 33
Delay 555

ElseIf O > 0 Then
TracePrint "找到饰品"
Delay 555
MoveTo O, P
Delay 555
RightClick 33
Delay 555

ElseIf U > 0 Then
TracePrint "找到饰品"
Delay 555
MoveTo U, I
Delay 555
RightClick 33
Delay 555

ElseIf T > 0 Then
TracePrint "找到饰品"
Delay 555
MoveTo T, Y
Delay 555
RightClick 33
Delay 555

ElseIf E > 0 Then 
TracePrint "找到饰品"
Delay 555
MoveTo E, R
Delay 555
RightClick 33
Delay 555

ElseIf Q > 0 Then
TracePrint "找到饰品"
Delay 555
MoveTo Q, W
Delay 555
RightClick 33
Delay 555

Else 
TracePrint "啥也不是没看到，重新找"
Call 兔子()
Exit sub 
Delay 111
End If

//Do
//MoveTo 444, 44
//A = 0
//S = 0
//P = 0
//I = 0
//Y = 0
//R = 0
//W = 0
//O = 0
//U = 0
//T = 0
//E = 0
//Q = 0
//FindPic 0, 19, 465, 425, "C:\兔sp1.bmp", 0.9, Q, W
//FindPic 0, 19, 465, 425, "C:\兔sp2.bmp", 0.9, E, R
//FindPic 0, 19, 465, 425, "C:\兔sp3.bmp", 0.9, T, Y
//FindPic 0, 19, 465, 425, "C:\兔sp4.bmp", 0.9, U, I
//FindPic 0, 19, 465, 425, "C:\兔sp5.bmp", 0.9, O, P
//FindPic 0, 19, 465, 425, "C:\兔sp6.bmp", 0.9, A, S
//
//If A > 0 Then
//TracePrint "找到饰品"
//Delay 555
//MoveTo A, S
//Delay 555
//RightClick 33
//Delay 555
//Exit Do 
//ElseIf O > 0 Then
//TracePrint "找到饰品"
//Delay 555
//MoveTo O, P
//Delay 555
//RightClick 33
//Delay 555
//Exit Do 
//ElseIf U > 0 Then
//TracePrint "找到饰品"
//Delay 555
//MoveTo U, I
//Delay 555
//RightClick 33
//Delay 555
//Exit Do 
//ElseIf T > 0 Then
//TracePrint "找到饰品"
//Delay 555
//MoveTo T, Y
//Delay 555
//RightClick 33
//Delay 555
//Exit Do 
//ElseIf E > 0 Then 
//TracePrint "找到饰品"
//Delay 555
//MoveTo E, R
//Delay 555
//RightClick 33
//Delay 555
//Exit Do 
//ElseIf Q > 0 Then
//TracePrint "找到饰品"
//Delay 555
//MoveTo Q, W
//Delay 555
//RightClick 33
//Delay 555
//Exit Do 
//Else 
//TracePrint "啥也不是没看到，重新找"
//Delay 111
//End If
//Loop
Call 判断奇异打完没()
End Sub
Sub 螃蟹()
Delay 111
X = 0
FindColorEx 286,514,516,627,"282498",0,1.0,X,Y
If X > 0 And Y > 0 Then 
TracePrint "是在战斗哦！"
Else 
TracePrint "退出了战斗了"
Exit sub 
End If
Q = 0
E = 0
T = 0
U = 0
O = 0
A = 0
D=0
TracePrint "开始看螃蟹的饰品用颜色"
FindColorEx 0, 19, 465, 425, "6AB7F1", 1, 0.98, Q, W
FindColorEx 0, 19, 465, 425, "9493FF", 1, 0.98, E, R
FindColorEx 0, 19, 465, 425, "5CF4B4", 1, 0.98, T, Y
FindColorEx 0, 19, 465, 425, "86FBFF", 1, 0.98, U, I
FindColorEx 0, 19, 465, 425, "FF92AB", 1, 0.98, O, P
FindColorEx 0, 19, 465, 425, "FFC3A8", 1, 0.98, A, S
FindColorEx 0, 19, 465, 425, "FFC3A8", 1, 0.98, D, F
If Q > 0 And W > 0 Then 
Delay 555
MoveTo Q, W
TracePrint Q
TracePrint W
Delay 555
RightClick 33
Delay 555
TracePrint "找到啦且点过啦"

elseIf E > 0 And R > 0 Then 
Delay 555
MoveTo E,R
Delay 555
RightClick 33
Delay 555
TracePrint "找到啦且点过啦"

elseIf T > 0 And Y > 0 Then 
Delay 555
MoveTo T,Y
Delay 555
RightClick 33
Delay 555
TracePrint "找到啦且点过啦"

elseIf U > 0 And I > 0 Then 
Delay 555
MoveTo U,I
Delay 555
RightClick 33
Delay 555
TracePrint "找到啦且点过啦"

elseIf O > 0 And P > 0 Then 
Delay 555
MoveTo O,P
Delay 555
RightClick 33
Delay 555
TracePrint "找到啦且点过啦"

elseIf A > 0 And S > 0 Then 
Delay 555
MoveTo A,S
Delay 555
RightClick 33
Delay 555
TracePrint "找到啦且点过啦"

elseIf D > 0 And F > 0 Then 
Delay 555
MoveTo D,F
Delay 555
RightClick 33
Delay 555
TracePrint "找到啦且点过啦"

Else 
TracePrint "啥也没有，重新找"
Delay 555
Call 螃蟹()
Exit sub
End If
Delay 666

Call 判断奇异打完没()
End Sub

Sub 判断奇异打完没()
Do
MoveTo 444, 44
Delay 555
zhan=0
FindPic 334,538,495,628,"C:\zhandou.bmp",0.8,zhan,dou
If zhan < 0 And dou < 0 Then 
Delay 1111
Exit do 
End If
Delay 2222
shu = 0
FindPic 268,37,530,303,"C:\战斗数字.bmp",0.9,shu,zi
If shu > 0 And zi > 0 Then 
TracePrint "再开始奇异动物的操作，call奇异动物"
Delay 1111
Call 奇异动物()
Exit Sub
End If
Loop
End Sub
Sub 蝎子()
Delay 222
Do
Delay 1
X = 0
FindColorEx 286,514,516,627,"282498",0,1.0,X,Y
If X > 0 And Y > 0 Then 
TracePrint "是在战斗哦！"
Else 
TracePrint "退出了战斗了"
Exit sub 
End If
MoveTo 444, 44
A = 0
S = 0
P = 0
I = 0
Y = 0
R = 0
W = 0
O = 0
U = 0
T = 0
E = 0
Q = 0
FindPic 0, 19, 465, 425, "C:\蝎子sp1.bmp", 0.33, Q, W
FindPic 0, 19, 465, 425, "C:\蝎子sp2.bmp", 0.33, E, R
FindPic 0, 19, 465, 425, "C:\蝎子sp3.bmp", 0.33, T, Y
FindPic 0, 19, 465, 425, "C:\蝎子sp4.bmp", 0.33, U, I
FindPic 0, 19, 465, 425, "C:\蝎子sp5.bmp", 0.33, O, P
FindPic 0, 19, 465, 425, "C:\蝎子sp6.bmp", 0.33, A, S

If A > 0 Then
TracePrint "找到饰品"
Delay 555
MoveTo A, S
Delay 555
RightClick 10
Delay 555
Exit Do 
ElseIf O > 0 Then
TracePrint "找到饰品"
Delay 555
MoveTo O, P
Delay 555
RightClick 10
Delay 555
Exit Do 
ElseIf U > 0 Then
TracePrint "找到饰品"
Delay 555
MoveTo U, I
Delay 555
RightClick 10
Delay 555
Exit Do 
ElseIf T > 0 Then
TracePrint "找到饰品"
Delay 555
MoveTo T, Y
Delay 555
RightClick 10
Delay 555
Exit Do 
ElseIf E > 0 Then 
TracePrint "找到饰品"
Delay 555
MoveTo E, R
Delay 555
RightClick 10
Delay 555
Exit Do 
ElseIf Q > 0 Then
TracePrint "找到饰品"
Delay 555
MoveTo Q, W
Delay 555
RightClick 10
Delay 555
Exit Do 
Else 
TracePrint "啥也不是没看到，重新找"
Delay 111
End If
Loop
Call 判断奇异打完没()
End Sub
Sub 鱼()
Delay 111
X = 0
FindColorEx 286,514,516,627,"282498",0,1.0,X,Y
If X > 0 And Y > 0 Then 
TracePrint "是在战斗哦！"
Else 
TracePrint "退出了战斗了"
Exit sub 
End If
Q = 0
E = 0
T = 0
U = 0
O = 0
A = 0
D=0
TracePrint "开始看鬼火的饰品用颜色"
FindColorEx 0, 19, 465, 425, "7BD8FC", 1, 0.98, Q, W
FindColorEx 0, 19, 465, 425, "FF749B", 1, 0.98, E, R
FindColorEx 0, 19, 465, 425, "FFC05A", 1, 0.98, T, Y
FindColorEx 0, 19, 465, 425, "98AFFF", 1, 0.98, U, I
FindColorEx 0, 19, 465, 425, "5A5BFC", 1, 0.98, O, P
FindColorEx 0, 19, 465, 425, "5AB269", 1, 0.98, A, S
FindColorEx 0, 19, 465, 425, "5AB269", 1, 0.98, D, F
If Q > 0 And W > 0 Then 
Delay 555
MoveTo Q, W
TracePrint Q
TracePrint W
Delay 555
RightClick 33
Delay 555
TracePrint "找到啦且点过啦"

elseIf E > 0 And R > 0 Then 
Delay 555
MoveTo E,R
Delay 555
RightClick 33
Delay 555
TracePrint "找到啦且点过啦"

elseIf T > 0 And Y > 0 Then 
Delay 555
MoveTo T,Y
Delay 555
RightClick 33
Delay 555
TracePrint "找到啦且点过啦"

elseIf U > 0 And I > 0 Then 
Delay 555
MoveTo U,I
Delay 555
RightClick 33
Delay 555
TracePrint "找到啦且点过啦"

elseIf O > 0 And P > 0 Then 
Delay 555
MoveTo O,P
Delay 555
RightClick 33
Delay 555
TracePrint "找到啦且点过啦"

elseIf A > 0 And S > 0 Then 
Delay 555
MoveTo A,S
Delay 555
RightClick 33
Delay 555
TracePrint "找到啦且点过啦"

elseIf D > 0 And F > 0 Then 
Delay 555
MoveTo D,F
Delay 555
RightClick 33
Delay 555
TracePrint "找到啦且点过啦"

Else 
TracePrint "啥也没有，重新找"
Delay 555
Call 鱼()
Exit sub
End If
Delay 666

Call 判断奇异打完没()
End Sub
Sub 找奇异()
Delay 555
TracePrint "开始奇异宠物字程序"
qi=0 and yi=0 
FindPic 579,152,802,543,"C:\奇异宠物.bmp",0.9,qi,yi
If qi > 0 And yi > 0 Then 

MoveTo qi+110, yi
Delay 111
Else 
Delay 2222
到目的地打开好友
Call 找奇异()
Exit sub 
End if 
Do
TracePrint "开始循环找奇异点击"
MoveTo 33, 33
Delay 222
qi=0 and yi=0 
FindPic 579,152,802,543,"C:\奇异宠物.bmp",0.9,qi,yi
If qi > 0 And yi > 0 Then 

MoveTo qi+110, yi
Delay 333
LeftClick 1
TracePrint "点了两次奇异"
Delay 333
End If

guan=0 and bi=0 
FindPic 490,168,707,329,"C:\guanbi.bmp",0.9,guan,bi
If guan > 0 And bi > 0 Then 
TracePrint "关闭找到了结束do"
Exit Do
End If
Loop

Delay 666
Call 点青色()
End Sub
Sub 清风车夫()
Do 
Delay 777
qing=0 
FindPic 24,10,240,76,"C:\清风村.bmp",0.9,qing,feng
If qing > 0 And feng > 0 Then 
TracePrint "找到清风村了"
Delay 555
Call 重置()
Call 稳定打开好友栏()
Call 纯净版周围()
FindPic 575,149,809,593,"C:\车夫.bmp",0.9,che,fu
If che > 0 And fu > 0 Then 
Delay 666
MoveTo che+88, fu
Delay 888
Leftdown 1
Leftup 1
Delay 777
Leftdown 1
Leftup 1
Delay 666
Leftdown 1
Leftup 1
Delay 555
Call 点青色()
Delay 666
Exit Do
Else 
TracePrint "清风车夫重新找"
call 清风车夫()
Exit sub 
End If
Else 
TracePrint "错误情况，想去天水去找车夫却又没找到清风村？那我直接结束清风车夫的子程序"
Exit Sub 
End If
Loop
End sub 
Sub 出售物品()
Delay 666
KeyDown 18, 1
KeyPress 69, 1
KeyUp 18, 1
MoveTo 44,44
Delay 1111
X=0
FindColor 545,371,762,610,"F0F060",X,Y
If X > 0 Then 
MoveTo X, Y-30
Delay 444
LeftClick 1
Delay 555
Else 
重置
Call 出售物品()
Exit Sub

End If

Q=0
FindColor 398,371,627,536,"B3FEFE",Q,W
If Q > 0 Then 
TracePrint "找到全选，先点到现金，再点全选"
MoveTo Q -123, W -233
Delay 555
LeftClick 3
Delay 555
MoveTo Q, W
Delay 555
LeftClick 1
Delay 555
Else 
TracePrint "没找到选的，重置下"
重置
Call 出售物品()
Exit Sub
End If

MoveTo Q + 100, W + 5
Delay 555
LeftClick 3
Delay 555
MoveTo 233, 327
Delay 555
LeftClick 3
Delay 666
重置
Exit Sub

End Sub

Sub 专门宝图任务()
稳定打开任务栏
Delay 333
Do
MoveTo 44, 44
Delay 444
Q=0
QW=Plugin.Color.FindMutiColor(0,0,800,600,"50F488","1|0|50F488,1|-1|58F488,18|-3|DAE2B4,19|-3|DAE2B4,20|-3|DAE2B4,21|-3|DAE2B4,22|-3|DAE2B4,23|-3|DAE2B4,20|-2|DAE2B4,20|-1|DAE2B4,20|0|DAE2B4,21|0|DAE2B4,22|0|DAE2B4,19|0|DAE2B4,18|0|DAE2B4,20|1|DAE2B4,20|2|DAE2B4,20|3|DAE2B4,20|4|DAE2B4,21|4|DAE2B4,22|4|DAE2B4,23|4|DAE2B4,24|4|DAE2B4,25|4|DAE2B4",1)
dim quanbuzhuizong
quanbuzhuizong = Split(QW, "|")
Q = CInt(quanbuzhuizong(0)): W = CInt(quanbuzhuizong(1))
If Q > 0 Then 
TracePrint "全部追踪是对号"
MoveTo Q, W
Delay 666
LeftClick 1
Exit Do
Else 
重置 
稳定打开任务栏
MoveTo 391, 148
Delay 555
LeftClick 1
Delay 222
End If
Loop

Do
Delay 222
X = 0
Y=0
XY=Plugin.Color.FindMutiColor(0,0,800,600,"F0F5D9","1|0|F0F5D9,2|0|F0F5D9,3|-1|F0F5D9,3|-4|F0F5D9,4|-5|F0F5D9,4|-6|F0F5D9,5|-8|F0F5D9,8|-8|F0F5D9,10|-8|F0F5D9,11|-8|F0F5D9,15|-3|F0F5D9,15|-2|F0F5D9,15|-1|F0F5D9,17|-1|F0F5D9",1)
dim MyArray
MyArray = Split(XY, "|")
X = CInt(MyArray(0)) : Y = CInt(MyArray(1))

If X > 0 Then 
MoveTo X+355-216, Y+5
Delay 444
LeftDown 1
LeftUp 1
Delay 444
Call 重置()
Delay 888
ER = Plugin.Pic.FindWordShape(0, 0, 800, 600, "宝图任务", "宋体", 9, 0, 0.9)
iZB = InStr(ER, "|")
E = CLng(Left(ER, iZB - 1))
R = CLng(Right(ER, Len(ER) - iZB))
If E > 0 Then 
Exit Do
Else 
TracePrint "发现了宝图任务任务追踪竟然没有？重新弄"
Call 重置()
专门宝图任务 
Exit Sub
End If

Else 
TracePrint "没接宝图任务呢，去接任务了"
重置
Exit sub 
End If

Loop

End Sub
Sub 稳定打开任务栏
Delay 444
MoveTo 44,44
KeyDown 18, 1
KeyPress 81, 1
KeyUp 18, 1
Delay 777
Do
X=0
FindColor 266,72,529,225,"E0F8D0",X,Y
If X > 0 Then 
Exit Do
Else 
重置 
稳定打开任务栏 
Exit Sub
End If
Loop
End Sub

Sub 屏蔽人物()
Do
Delay 4444
zhanya=0
FindColor 338,524,504,703,"484408",zhanya,douya
If zhanya > 0 Then 
Exit do 
End If
K = 0
L = 0
KL=Plugin.Color.FindMutiColor(0,0,800,600,"FEFEFE","30|-2|FEFEFE,31|-2|FEFEFE,32|-2|FEFEFE,33|-2|FEFEFE,34|-2|FEFEFE,35|-2|FEFEFE,36|-2|FEFEFE,37|-2|FEFEFE,37|2|FEFEFE,35|2|FEFEFE,30|4|FEFEFE,29|6|FEFEFE,28|7|FEFEFE,27|8|FEFEFE,23|7|FEFEFE,24|6|FEFEFE,22|3|FEFEFE,11|3|FEFEFE,11|2|FEFEFE,10|0|FEFEFE,8|0|FEFEFE",1)
dim sdwdsd
sdwdsd = Split(KL, "|")
K = CInt(sdwdsd(0)) : L = CInt(sdwdsd(1))
If K < 0 Then 
KeyPress "F9", 1
TracePrint "已屏蔽人物"
Delay 555
End If
Loop

End sub

Sub 关闭左边()
Do
重置
MoveTo 44,44
X = 0
Delay 333
XY=Plugin.Color.FindMutiColor(0,0,800,600,"809C38","0|1|88A440,0|2|98B850,0|3|98CC68,0|4|804400,1|4|804400,2|4|804400,2|5|803C00,2|6|783C00,3|6|783C00,4|6|783C00,5|6|783C00,6|6|783C00,7|6|783C00,9|6|A8E888,9|7|B0EC80,10|7|B0EC78,8|8|C0F890,6|1|88A840,7|1|88A440,7|0|809C38,8|0|809C38",1)
dim MyArwwray
MyArwwray = Split(XY, "|")
X = CInt(MyArwwray(0)) : Y = CInt(MyArwwray(1))
If X > 0 Then 
MoveTo X + 5, Y + 5
Delay 555
LeftDown 1
LeftUp 1
Delay 444
TracePrint "左边关了"
Else 
TracePrint "左边是关闭过的"
Exit do
End If
Loop  
End Sub

Sub 判断迷失()
MoveTo 444,44
X=0
XY = Plugin.Pic.FindWordShape(0, 0, 1024, 768, "感谢你的", "宋体", 11, 0, 0.9)
iZB = InStr(XY, "|")
X = CLng(Left(XY, iZB - 1))
Y = CLng(Right(XY, Len(XY) - iZB))
TracePrint XY
If X < 0 Then 
Delay 444
TracePrint "迷失房间任务没完成，下面消掉对话框，开始答题"
MoveTo 391, 383
Delay 666
RightClick 3
Delay 444
Else 
TracePrint "迷失任务已经完成"
End If
End Sub

Sub 进入到迷失房间()

Do
Delay 6666
X=0
XY=Plugin.Color.FindMutiColor(0,0,800,600,"33D7EA","1|0|33D7EA,2|0|33D7EA,3|0|33D7EA,4|0|33D7EA,5|0|33D7EA,5|3|33D7EA,4|3|33D7EA,3|3|33D7EA,2|3|33D7EA,1|3|33D7EA,0|3|33D7EA,-1|3|33D7EA,-2|3|33D7EA,-3|3|33D7EA,-4|3|33D7EA,-2|9|33D7EA,-2|10|33D7EA,-3|10|33D7EA,3|10|33D7EA,4|11|33D7EA,5|11|33D7EA,5|12|33D7EA,6|12|33D7EA",1)
dim mishi1
mishi1 = Split(XY, "|")
X = CInt(mishi1(0)): Y = CInt(mishi1(1))
MoveTo X, Y-10
Delay 2222
LeftClick 1
Delay 5000

MoveTo 401, 234

//这是进行找到对话框然后进行回答的点击

Delay 777
LeftClick 1
Delay 999
X=0
XY=Plugin.Color.FindMutiColor(0,0,800,600,"B8F8C0","5|3|200870,3|8|200878,-2|10|80CC88,-3|9|200878,-5|8|A0E888",1)
dim mishi2
mishi2 = Split(XY, "|")
X = CInt(mishi2(0)): Y = CInt(mishi2(1))
If X > 0 Then 
MoveTo X-420, Y+54
Delay 777
LeftClick 1
Exit do 
End If
Loop

KeyPress "F12", 1

Delay 777
bytu=0
xiaotuzi=0
xmifeng=0
bymifeng=0
wugui=0
bywugui=0
caotuan=0
bycaotuan=0
byshanzhu=0
shanzhu=0
xiaociwei=0
byxiaociwei=0

Call a1()
Call a2()
Call a3()
Call a4()
Call a5()
Call a6()
Call a7()
Call a8()
TracePrint bytu &"=变异兔子"
TracePrint xiaotuzi&"=兔子"
TracePrint xmifeng&"=小蜜蜂"
TracePrint bymifeng&"=变异小蜜蜂"
TracePrint wugui&"=乌龟"
TracePrint bywugui&"=变异乌龟"
TracePrint caotuan&"=草团"
TracePrint bycaotuan&"=变异草团"
TracePrint byshanzhu&"=变异山猪"
TracePrint shanzhu&"=山猪"
TracePrint xiaociwei & "=小刺猬"
TracePrint byxiaociwei & "=变异小刺猬"

Do
Delay 5555
TracePrint "等待答题中"
X=0
XY=Plugin.Color.FindMutiColor(0,0,800,600,"200878","0|1|302080,-2|2|200878,-2|4|383088,-3|6|80CC50,-4|7|78C848,-5|8|78C840",1)
dim MyArray
MyArray = Split(XY, "|")
X = CInt(MyArray(0)) : Y = CInt(MyArray(1))
If X > 0 Then 
Delay 1000
Call 答题()
Exit Do 
End If
Loop
End sub

Sub a1()
X=0
XY=Plugin.Color.FindShape(310,24,490,215,"0|-1|1,0|-2|1,0|-3|1,0|-4|1,0|-5|1,0|-6|1,0|-7|1,0|-8|1,0|-9|1,0|-10|1,0|-11|1,0|-12|0,1|-12|0,1|-11|0,1|-10|0,1|-9|0,1|-8|0,1|-7|0,1|-6|0,1|-5|0,1|-4|0,1|-3|0,1|-2|0,1|-1|0,1|0|0,1|1|0,0|1|1,-1|1|1,14|1|0,14|1|0,14|0|0,15|0|1,15|-1|0,16|-1|0,16|-2|0,17|-2|0,18|-2|1,18|-1|1,18|0|1,18|1|0,19|1|1,20|1|1,21|1|1,22|1|1,23|1|1,24|1|1,22|-1|1,21|-1|1,21|-2|1,21|-4|1,22|-4|1,22|-5|1,22|-6|1,22|-7|1,-35|-6|1,-34|-6|1,-33|-6|1,-32|-6|1,-31|-6|1,-30|-6|1,-29|-6|1,-29|-7|0,-30|-7|0,-34|-6|1,-35|-6|1,-36|-6|1,-36|-7|0,-35|-7|0,-34|-7|0,-33|-7|0,-32|-7|0,-31|-7|0,-30|-7|0,-29|-7|0,-29|-6|1,-28|-6|0,-28|-7|0",1)
dim bianyitu1
bianyitu1 = Split(XY, "|")
X = CInt(bianyitu1(0)): Y = CInt(bianyitu1(1))
If X > 0 Then 
    TracePrint "一位置发现了变异小兔子发现"
bytu= bytu+ 1
End If

Q=0
QW=Plugin.Color.FindShape(310,24,490,215,"1|0|1,2|0|1,3|0|1,4|0|1,5|0|1,5|-1|1,5|-2|1,5|-3|1,4|-3|1,3|-3|0,2|-3|0,1|-3|0,0|-3|1,0|-2|1,0|-1|0,0|0|1,0|1|1,1|1|1,1|2|1,1|3|1,1|4|1,1|5|0,2|5|1,3|5|1,4|5|1,5|5|1,6|5|1,7|5|1,7|4|0,6|4|0,15|5|1,16|5|1,17|5|1,-32|-7|0,-31|-7|0,-31|-6|0,-31|-5|0,-31|-4|0,-31|-3|0,-32|-3|0,-33|-3|0,-34|-3|0,-35|-3|0,-36|-3|0,-36|-2|0,-36|-1|0,-37|-1|0,-38|-1|0,-39|-1|0,-40|-1|0,-40|-1|0,-40|-2|0,-40|-3|0,-41|-3|0,-41|-4|0,-41|-5|0,-41|-6|0,-41|-7|0,-42|-7|0,-43|-7|0,-43|-6|0,-44|-6|0,-44|-5|0,-45|-5|0,-45|-4|0,-46|-4|0",1)
dim tu
tu = Split(QW, "|")
Q = CInt(tu(0)) : W = CInt(tu(1))
If Q > 0 Then 
    TracePrint "一位置发现了兔子发现"
    xiaotuzi= xiaotuzi+ 1
End If

E=0
ER=Plugin.Color.FindShape(310,24,490,215,"1|0|1,2|0|1,3|0|1,4|0|1,4|-1|1,4|-2|1,5|-2|1,6|-2|1,7|-2|1,8|-2|0,8|-3|0,8|-4|0,9|-4|0,10|-4|1,10|-5|0,10|-6|0,10|-7|1,9|-7|1,8|-7|0,7|-7|0,7|-6|1,6|-6|1,6|-5|1,5|-5|1,5|-4|0,4|-4|1,4|-5|0,4|-6|1,4|-7|0,4|-8|1,4|-9|1,5|-9|0,2|-8|0,1|-8|0,0|-8|0,-1|-8|0,-1|-7|0,-2|-7|0,-2|-6|1,-7|-1|1,-8|-2|1,-9|-3|1,-13|-3|1,-13|-2|1,-13|-1|1,-13|0|1,-13|1|1,-13|2|1,12|2|0,13|2|0,13|3|0,14|3|0,15|3|1,16|3|1,16|2|0,16|1|0,16|0|0,15|0|0,15|-1|1,15|-2|1,15|-3|1,15|-4|1,15|-5|1,16|-5|1,17|-5|1,18|-5|1,18|-4|0,17|-4|0,17|-3|0,18|-3|0,18|-2|0,17|-2|0,-38|-6|0,-37|-6|0,-37|-5|0,-37|-4|0,-38|-4|0,-39|-4|0,-40|-4|0,-41|-4|0,-41|-3|0,-40|-3|0,-40|-2|0,-39|-2|0,-39|-3|0,-39|-4|0,-38|-4|0,-37|-4|0,-36|-4|0,-35|-4|0,-34|-4|0,-33|-4|0,-32|-4|0,-32|-3|0,-31|-3|0,-30|-3|0,-29|-3|0,-28|-3|0,-27|-3|0,-26|-3|0,-26|-2|0,-26|-1|0,-26|0|0,-25|0|0,-24|0|0,-23|0|0,-23|1|0,-23|2|0,-24|2|0,-29|2|0,-30|2|0",1)
dim mifeng
mifeng = Split(ER, "|")
E = CInt(mifeng(0)) : R = CInt(mifeng(1))
If E > 0 Then 
    TracePrint "一位置发现了发现小蜜蜂"
    xmifeng= xmifeng+ 1
End If

Z=0
ZC=Plugin.Color.FindShape(310,24,490,215,"0|1|1,0|2|0,0|3|0,0|4|1,-1|4|1,-1|5|1,0|5|1,0|6|1,-1|6|1,-1|7|1,-1|8|1,-2|8|1,-3|8|0,-3|7|0,-4|7|0,-2|7|0,-7|7|1,-7|6|1,-7|5|1,-7|4|1,-8|4|1,-8|4|1,-9|4|0,-9|3|0,-9|2|1,-10|2|1,-11|2|1,-12|2|0,-12|1|0,-11|1|0,-10|1|0,-9|1|0,-8|1|1,-8|0|1,-8|-1|1,-8|-2|1,-7|-2|1,-10|-2|0,-10|-3|0,-10|-4|0,11|-4|1,11|-3|1,11|-2|1,11|-1|1,11|0|1,11|1|1,11|2|1,11|3|1,16|3|1,17|3|1,18|3|0,19|3|0,20|3|0,21|3|0,22|3|0,23|3|0,23|4|0,24|4|1,25|4|1,26|4|1,26|5|0,27|5|0,28|5|0,28|4|1,29|4|1,30|4|1,31|4|1,32|4|1,32|2|0,31|2|1,30|2|1,39|2|1,40|2|1,41|2|0,42|2|0,43|2|0,44|2|0",1)
dim bianyifeng
bianyifeng = Split(ZC, "|")
Z = CInt(bianyifeng(0)) : C = CInt(bianyifeng(1))
If Z > 0 Then 
    TracePrint "一位置发现了变异小蜜蜂"

    bymifeng= bymifeng+ 1
End If

D=0
DF=Plugin.Color.FindShape(310,24,490,215,"0|-1|1,0|-2|1,0|-3|1,0|-4|1,0|-5|1,1|-5|0,1|-4|0,1|-3|0,1|-2|0,1|-1|0,1|0|0,1|1|0,3|1|0,4|1|0,5|1|0,6|1|0,6|0|1,6|-1|1,7|-1|0,8|-1|0,9|-1|0,10|-1|0,10|0|0,10|1|0,11|1|1,12|1|1,13|1|1,14|1|1,15|1|1,16|1|1,17|1|1,18|1|1,19|1|1,20|1|1,20|0|0,19|0|0,18|0|0,17|0|0,16|0|0,16|-1|1,15|-1|1,14|-1|1,13|-1|1,12|-1|0,12|-2|0,12|-3|0,12|-4|0,13|-4|1,14|-4|0,0|0|1,-1|0|0,-2|0|0,-3|0|0,-4|0|0,-5|0|0,-6|0|0,-7|0|0,-8|0|0,-9|0|0,-10|0|0,-11|0|0,-12|0|0,-13|0|0,-14|0|0,-15|0|0,-16|0|0,-17|0|0,-18|0|0,-19|0|0,-20|0|0,-21|0|0,-22|0|0,-22|-1|0,-23|-1|0,-23|-2|0,-24|-2|0,-25|-2|0,-26|-2|0,-27|-2|0",1)
dim xiaowugui
xiaowugui = Split(DF, "|")
D = CInt(xiaowugui(0)): F = CInt(xiaowugui(1))
If D > 0 Then 
    TracePrint "一位置发现了小乌龟发现"
    wugui=wugui+1
End If

K=0
KM=Plugin.Color.FindShape(310,24,490,215,"0|-1|1,0|-2|1,-1|-2|1,-2|-2|1,3|-2|0,4|-2|0,5|-2|0,6|-2|0,7|-2|0,8|-2|0,9|-2|0,10|-2|0,11|-2|1,11|-1|1,11|0|1,12|0|0,13|0|0,14|0|0,14|1|0,15|1|1,16|1|0,16|2|1,17|2|0,17|3|1,18|3|0,19|3|0,24|3|1,25|3|1,26|3|1,27|3|1,28|3|1,29|3|1,30|3|1,31|3|1,32|3|1,33|3|1,34|3|1,34|4|0,33|4|1,32|4|0,31|4|0,30|4|0,29|4|0,28|4|0,27|4|0,26|4|0,25|4|0,25|5|1,26|5|1,27|5|1,28|5|1,29|5|1,30|5|1,31|5|1,32|5|0,33|5|0,34|5|0,41|5|1,42|5|1,43|5|1,44|5|1,45|5|1,45|4|1,45|3|1,45|2|1,45|1|1,45|0|1,45|-1|0,46|-1|0,47|-1|0,48|-1|0",1)
dim bianyigui
bianyigui = Split(KM, "|")
K = CInt(bianyigui(0)) : M = CInt(bianyigui(1))
If K > 0 Then 
    TracePrint "一位置发现了变异小乌龟"
    bywugui=bywugui+1
End If

G=0
GH=Plugin.Color.FindShape(310,24,490,215,"0|-1|1,0|-2|1,1|-2|1,2|-2|0,3|-2|0,4|-2|0,5|-2|0,6|-2|0,7|-2|0,7|-3|0,6|-3|0,0|-3|1,0|-4|1,0|-5|1,-1|-5|0,-2|-5|0,-3|-5|0,-3|-8|0,-2|-8|0,-1|-8|0,0|-8|1,0|-9|0,1|-9|1,2|-9|1,3|-9|1,4|-9|1,16|-9|1,16|-7|0,15|-6|0,14|-6|1,14|-5|1,14|-4|1,14|-3|1,15|-4|1,16|-4|1,17|-4|1,18|-4|1,19|-4|1,20|-4|1,-2|-5|0,-7|-5|0,-8|-5|0,-9|-5|0,-10|-5|0,-11|-5|0,-12|-5|0,-13|-5|0,-14|-5|0,-15|-5|0,-16|-5|0,-17|-5|0,-18|-5|0,-18|-4|0,-19|-4|0,-20|-4|0,-21|-4|0,-22|-4|0,-23|-4|0,-24|-4|0,-24|-5|0,-25|-5|0,-25|-6|0",1)
dim maocaotuan
maocaotuan = Split(GH, "|")
G = CInt(maocaotuan(0)) : H = CInt(maocaotuan(1))
If G > 0 Then 
    TracePrint "一位置发现了茅草团发现"
    caotuan=caotuan+1
End If

B = 0
BH=Plugin.Color.FindShape(310,24,490,215,"1|0|1,2|0|0,3|0|0,4|0|0,4|-1|0,5|-1|0,9|-1|0,10|-1|0,11|-1|0,12|-1|0,13|-1|0,14|-1|1,14|0|1,14|1|1,15|1|1,15|2|0,16|2|0,17|2|0,17|1|1,18|1|1,19|1|1,19|2|0,20|2|0,21|2|0,22|2|1,23|2|0,24|2|0,26|2|0,27|2|0,28|2|0,29|2|1,30|2|1,31|2|0,32|-1|0,33|-1|1,34|-1|1,35|-1|1,-10|-1|1,-10|-2|1,-11|-2|1,-12|-2|1,-12|-1|0,-13|-1|0,-14|-1|0,-15|-1|0,-16|-1|0,-17|-1|1,-18|-1|1,-19|-1|0",1)
dim bianyicao
bianyicao = Split(BH, "|")
B = CInt(bianyicao(0)) : H = CInt(bianyicao(1))
If B > 0 Then 
    TracePrint "一位置发现了变异茅草团"
    bycaotuan=bycaotuan+1
End If

H=0
HJ=Plugin.Color.FindShape(310,24,490,215,"0|-1|1,0|-2|1,0|-3|1,1|-4|0,2|-4|0,3|-4|0,3|-5|1,4|-5|1,5|-5|1,6|-5|1,6|-4|0,7|-4|1,7|-3|1,8|-3|0,14|-1|0,14|-2|1,15|-2|0,15|-3|1,15|-4|0,19|-4|0,18|-4|1,18|-3|1,18|-2|1,18|-1|1,18|0|1,25|0|0,24|0|1,24|-1|0,23|-1|1,30|-1|1,30|0|1,30|1|1,30|2|1,30|3|1,31|3|0,31|2|0,31|1|0,31|0|0,31|-1|0,31|-2|0,34|-3|0,35|-3|1,35|-2|1,35|-1|1,35|0|1,35|1|1,35|2|1,35|3|1,36|3|0,36|2|0,36|1|0,36|0|0,36|-1|0,36|-2|0,32|4|1,33|4|1,34|4|1,35|4|1,36|4|1,37|4|1,37|5|0,36|5|0,35|5|0,34|5|0,33|5|0,32|5|0",1)
dim bianyizhu
bianyizhu = Split(HJ, "|")
H = CInt(bianyizhu(0)) : J = CInt(bianyizhu(1))
If H > 0 Then 
    TracePrint "一位置发现了变异小山猪发现"
    byshanzhu=byshanzhu+1
End If

K=0
KL=Plugin.Color.FindShape(310,24,490,215,"0|-1|0,3|-1|1,3|0|1,3|1|1,3|2|1,3|3|1,3|4|1,3|5|1,4|5|0,4|4|0,4|3|0,4|2|0,4|1|0,4|0|0,4|-1|0,4|-2|0,7|1|1,8|2|1,15|2|1,15|3|1,15|4|1,15|5|1,15|6|1,16|6|0,16|5|0,16|4|0,16|3|0,20|3|1,20|4|1,20|5|1,20|6|1,21|6|0,21|5|0,21|4|0,25|4|1,26|4|0,26|5|0,26|6|0,26|7|0,24|7|1,23|7|1,22|7|1,21|7|1,20|7|1,19|7|1,1|6|0,0|6|0,-1|6|0,-2|6|0,-3|6|0,-4|6|0,-5|6|0,-6|6|0,-7|6|0,-8|6|0,-9|6|0,-10|6|0,-11|6|0,-12|6|0,-13|6|0,-14|6|0,-15|6|0,-16|6|0,-17|6|0,-18|6|0,-19|6|0,-20|6|0,-21|6|0",1)
dim xiaoshanzhu
xiaoshanzhu = Split(KL, "|")
K = CInt(xiaoshanzhu(0)) : L = CInt(xiaoshanzhu(1))
If K > 0 Then 
    TracePrint "一位置发现了小山猪发现"
    shanzhu=shanzhu+1
End If

V=0
VB=Plugin.Color.FindShape(310,24,490,215,"1|0|1,2|0|1,3|0|1,4|0|1,5|0|1,6|0|1,7|0|0,8|0|0,9|0|0,10|0|0,11|0|0,12|0|0,18|0|1,22|0|0,23|0|0,24|0|1,24|0|1,24|-1|1,23|-1|1,22|-1|1,26|-1|1,27|-1|1,28|-1|1,28|1|1,28|2|1,29|2|0,28|4|0,27|4|0,26|4|0,25|4|0,24|4|0,23|4|0,23|5|1,24|5|1,25|5|1,26|5|1,27|5|1,27|6|1,27|7|1,27|8|1,26|8|0,25|8|0,25|9|1,24|9|1,23|9|1,22|9|1,0|9|0,-1|9|0,-2|9|0,-3|9|0,-4|9|0,-5|9|0,-6|9|0,-7|9|0,-8|9|0,-9|9|0,-10|9|0,-11|9|0,-12|9|0,-13|9|0,-14|9|0,-15|9|0,-16|9|0",1)
dim ciwei
ciwei = Split(VB, "|")
V = CInt(ciwei(0)) : B = CInt(ciwei(1))
If V > 0 Then 
    TracePrint "一位置发现了刺猬发现"
    xiaociwei=xiaociwei+1
End If
N=0
NM=Plugin.Color.FindShape(310,24,490,215,"1|0|1,2|0|1,3|0|1,4|0|1,5|0|1,6|0|1,7|0|1,8|0|1,8|1|1,8|2|1,8|3|1,7|3|0,6|3|0,5|3|1,4|3|1,4|4|1,3|4|1,2|4|1,1|4|1,0|4|0,-1|4|0,-1|5|1,-2|5|1,-2|6|1,-3|6|0,-3|7|0,-3|8|0,-4|8|0,-4|9|0,-5|9|0,-9|9|0,-10|9|0,-11|9|0,-12|9|1,-13|9|0,-14|9|0,-15|9|1,-15|8|0,-15|7|1,-16|7|0,-17|7|1,-18|7|1,-18|6|0,-26|5|1,-26|4|1,-26|3|1,-26|2|1,-27|2|1,-28|2|1,-29|2|1,-30|2|1,-31|2|0,-31|3|0,-30|5|0,-30|4|0,-29|4|0,-29|3|0,-28|3|0",1)
dim bianyici
bianyici = Split(NM, "|")
N = CInt(bianyici(0)) : M = CInt(bianyici(1))
If N > 0 Then 
    TracePrint "一位置发现了发现变异刺猬"
    byxiaociwei=byxiaociwei+1
End If
 
End Sub

Sub a2()
X=0
XY=Plugin.Color.FindShape(48,47,286,255,"0|-1|1,0|-2|1,0|-3|1,0|-4|1,0|-5|1,0|-6|1,0|-7|1,0|-8|1,0|-9|1,0|-10|1,0|-11|1,0|-12|0,1|-12|0,1|-11|0,1|-10|0,1|-9|0,1|-8|0,1|-7|0,1|-6|0,1|-5|0,1|-4|0,1|-3|0,1|-2|0,1|-1|0,1|0|0,1|1|0,0|1|1,-1|1|1,14|1|0,14|1|0,14|0|0,15|0|1,15|-1|0,16|-1|0,16|-2|0,17|-2|0,18|-2|1,18|-1|1,18|0|1,18|1|0,19|1|1,20|1|1,21|1|1,22|1|1,23|1|1,24|1|1,22|-1|1,21|-1|1,21|-2|1,21|-4|1,22|-4|1,22|-5|1,22|-6|1,22|-7|1,-35|-6|1,-34|-6|1,-33|-6|1,-32|-6|1,-31|-6|1,-30|-6|1,-29|-6|1,-29|-7|0,-30|-7|0,-34|-6|1,-35|-6|1,-36|-6|1,-36|-7|0,-35|-7|0,-34|-7|0,-33|-7|0,-32|-7|0,-31|-7|0,-30|-7|0,-29|-7|0,-29|-6|1,-28|-6|0,-28|-7|0",1)
dim bianyitu
bianyitu = Split(XY, "|")
X = CInt(bianyitu(0)): Y = CInt(bianyitu(1))
If X > 0 Then 
    TracePrint "二位置发现了变异小兔子发现"
bytu= bytu+ 1
End If

Q=0
QW=Plugin.Color.FindShape(48,47,286,255,"1|0|1,2|0|1,3|0|1,4|0|1,5|0|1,5|-1|1,5|-2|1,5|-3|1,4|-3|1,3|-3|0,2|-3|0,1|-3|0,0|-3|1,0|-2|1,0|-1|0,0|0|1,0|1|1,1|1|1,1|2|1,1|3|1,1|4|1,1|5|0,2|5|1,3|5|1,4|5|1,5|5|1,6|5|1,7|5|1,7|4|0,6|4|0,15|5|1,16|5|1,17|5|1,-32|-7|0,-31|-7|0,-31|-6|0,-31|-5|0,-31|-4|0,-31|-3|0,-32|-3|0,-33|-3|0,-34|-3|0,-35|-3|0,-36|-3|0,-36|-2|0,-36|-1|0,-37|-1|0,-38|-1|0,-39|-1|0,-40|-1|0,-40|-1|0,-40|-2|0,-40|-3|0,-41|-3|0,-41|-4|0,-41|-5|0,-41|-6|0,-41|-7|0,-42|-7|0,-43|-7|0,-43|-6|0,-44|-6|0,-44|-5|0,-45|-5|0,-45|-4|0,-46|-4|0",1)
dim tu
tu = Split(QW, "|")
Q = CInt(tu(0)) : W = CInt(tu(1))
If Q > 0 Then 
    TracePrint "二位置发现了兔子发现"
    xiaotuzi= xiaotuzi+ 1
End If
E=0
ER=Plugin.Color.FindShape(48,47,286,255,"1|0|1,2|0|1,3|0|1,4|0|1,4|-1|1,4|-2|1,5|-2|1,6|-2|1,7|-2|1,8|-2|0,8|-3|0,8|-4|0,9|-4|0,10|-4|1,10|-5|0,10|-6|0,10|-7|1,9|-7|1,8|-7|0,7|-7|0,7|-6|1,6|-6|1,6|-5|1,5|-5|1,5|-4|0,4|-4|1,4|-5|0,4|-6|1,4|-7|0,4|-8|1,4|-9|1,5|-9|0,2|-8|0,1|-8|0,0|-8|0,-1|-8|0,-1|-7|0,-2|-7|0,-2|-6|1,-7|-1|1,-8|-2|1,-9|-3|1,-13|-3|1,-13|-2|1,-13|-1|1,-13|0|1,-13|1|1,-13|2|1,12|2|0,13|2|0,13|3|0,14|3|0,15|3|1,16|3|1,16|2|0,16|1|0,16|0|0,15|0|0,15|-1|1,15|-2|1,15|-3|1,15|-4|1,15|-5|1,16|-5|1,17|-5|1,18|-5|1,18|-4|0,17|-4|0,17|-3|0,18|-3|0,18|-2|0,17|-2|0,-38|-6|0,-37|-6|0,-37|-5|0,-37|-4|0,-38|-4|0,-39|-4|0,-40|-4|0,-41|-4|0,-41|-3|0,-40|-3|0,-40|-2|0,-39|-2|0,-39|-3|0,-39|-4|0,-38|-4|0,-37|-4|0,-36|-4|0,-35|-4|0,-34|-4|0,-33|-4|0,-32|-4|0,-32|-3|0,-31|-3|0,-30|-3|0,-29|-3|0,-28|-3|0,-27|-3|0,-26|-3|0,-26|-2|0,-26|-1|0,-26|0|0,-25|0|0,-24|0|0,-23|0|0,-23|1|0,-23|2|0,-24|2|0,-29|2|0,-30|2|0",1)
dim mifeng
mifeng = Split(ER, "|")
E = CInt(mifeng(0)) : R = CInt(mifeng(1))
If E > 0 Then 
    TracePrint "二位置发现了发现小蜜蜂"
xmifeng= xmifeng+ 1
End If
Z=0
ZC=Plugin.Color.FindShape(48,47,286,255,"0|1|1,0|2|0,0|3|0,0|4|1,-1|4|1,-1|5|1,0|5|1,0|6|1,-1|6|1,-1|7|1,-1|8|1,-2|8|1,-3|8|0,-3|7|0,-4|7|0,-2|7|0,-7|7|1,-7|6|1,-7|5|1,-7|4|1,-8|4|1,-8|4|1,-9|4|0,-9|3|0,-9|2|1,-10|2|1,-11|2|1,-12|2|0,-12|1|0,-11|1|0,-10|1|0,-9|1|0,-8|1|1,-8|0|1,-8|-1|1,-8|-2|1,-7|-2|1,-10|-2|0,-10|-3|0,-10|-4|0,11|-4|1,11|-3|1,11|-2|1,11|-1|1,11|0|1,11|1|1,11|2|1,11|3|1,16|3|1,17|3|1,18|3|0,19|3|0,20|3|0,21|3|0,22|3|0,23|3|0,23|4|0,24|4|1,25|4|1,26|4|1,26|5|0,27|5|0,28|5|0,28|4|1,29|4|1,30|4|1,31|4|1,32|4|1,32|2|0,31|2|1,30|2|1,39|2|1,40|2|1,41|2|0,42|2|0,43|2|0,44|2|0",1)
dim bianyifeng
bianyifeng = Split(ZC, "|")
Z = CInt(bianyifeng(0)) : C = CInt(bianyifeng(1))
If Z > 0 Then 
    TracePrint "二位置发现了变异小蜜蜂"
bymifeng= bymifeng+ 1
End If
D=0
DF=Plugin.Color.FindShape(48,47,286,255,"0|-1|1,0|-2|1,0|-3|1,0|-4|1,0|-5|1,1|-5|0,1|-4|0,1|-3|0,1|-2|0,1|-1|0,1|0|0,1|1|0,3|1|0,4|1|0,5|1|0,6|1|0,6|0|1,6|-1|1,7|-1|0,8|-1|0,9|-1|0,10|-1|0,10|0|0,10|1|0,11|1|1,12|1|1,13|1|1,14|1|1,15|1|1,16|1|1,17|1|1,18|1|1,19|1|1,20|1|1,20|0|0,19|0|0,18|0|0,17|0|0,16|0|0,16|-1|1,15|-1|1,14|-1|1,13|-1|1,12|-1|0,12|-2|0,12|-3|0,12|-4|0,13|-4|1,14|-4|0,0|0|1,-1|0|0,-2|0|0,-3|0|0,-4|0|0,-5|0|0,-6|0|0,-7|0|0,-8|0|0,-9|0|0,-10|0|0,-11|0|0,-12|0|0,-13|0|0,-14|0|0,-15|0|0,-16|0|0,-17|0|0,-18|0|0,-19|0|0,-20|0|0,-21|0|0,-22|0|0,-22|-1|0,-23|-1|0,-23|-2|0,-24|-2|0,-25|-2|0,-26|-2|0,-27|-2|0",1)
dim xiaowugui
xiaowugui = Split(DF, "|")
D = CInt(xiaowugui(0)): F = CInt(xiaowugui(1))
If D > 0 Then 
    TracePrint "二位置发现了小乌龟发现"
wugui=wugui+1
End If
K=0
KM=Plugin.Color.FindShape(48,47,286,255,"0|-1|1,0|-2|1,-1|-2|1,-2|-2|1,3|-2|0,4|-2|0,5|-2|0,6|-2|0,7|-2|0,8|-2|0,9|-2|0,10|-2|0,11|-2|1,11|-1|1,11|0|1,12|0|0,13|0|0,14|0|0,14|1|0,15|1|1,16|1|0,16|2|1,17|2|0,17|3|1,18|3|0,19|3|0,24|3|1,25|3|1,26|3|1,27|3|1,28|3|1,29|3|1,30|3|1,31|3|1,32|3|1,33|3|1,34|3|1,34|4|0,33|4|1,32|4|0,31|4|0,30|4|0,29|4|0,28|4|0,27|4|0,26|4|0,25|4|0,25|5|1,26|5|1,27|5|1,28|5|1,29|5|1,30|5|1,31|5|1,32|5|0,33|5|0,34|5|0,41|5|1,42|5|1,43|5|1,44|5|1,45|5|1,45|4|1,45|3|1,45|2|1,45|1|1,45|0|1,45|-1|0,46|-1|0,47|-1|0,48|-1|0",1)
dim bianyigui
bianyigui = Split(KM, "|")
K = CInt(bianyigui(0)) : M = CInt(bianyigui(1))
If K > 0 Then 
    TracePrint "二位置发现了变异小乌龟"
bywugui=bywugui+1
End If
G=0
GH=Plugin.Color.FindShape(48,47,286,255,"0|-1|1,0|-2|1,1|-2|1,2|-2|0,3|-2|0,4|-2|0,5|-2|0,6|-2|0,7|-2|0,7|-3|0,6|-3|0,0|-3|1,0|-4|1,0|-5|1,-1|-5|0,-2|-5|0,-3|-5|0,-3|-8|0,-2|-8|0,-1|-8|0,0|-8|1,0|-9|0,1|-9|1,2|-9|1,3|-9|1,4|-9|1,16|-9|1,16|-7|0,15|-6|0,14|-6|1,14|-5|1,14|-4|1,14|-3|1,15|-4|1,16|-4|1,17|-4|1,18|-4|1,19|-4|1,20|-4|1,-2|-5|0,-7|-5|0,-8|-5|0,-9|-5|0,-10|-5|0,-11|-5|0,-12|-5|0,-13|-5|0,-14|-5|0,-15|-5|0,-16|-5|0,-17|-5|0,-18|-5|0,-18|-4|0,-19|-4|0,-20|-4|0,-21|-4|0,-22|-4|0,-23|-4|0,-24|-4|0,-24|-5|0,-25|-5|0,-25|-6|0",1)
dim maocaotuan
maocaotuan = Split(GH, "|")
G = CInt(maocaotuan(0)) : H = CInt(maocaotuan(1))
If G > 0 Then 
    TracePrint "二位置发现了茅草团发现"
caotuan=caotuan+1
End If
B=0
BH=Plugin.Color.FindShape(48,47,286,255,"1|0|1,2|0|0,3|0|0,4|0|0,4|-1|0,5|-1|0,9|-1|0,10|-1|0,11|-1|0,12|-1|0,13|-1|0,14|-1|1,14|0|1,14|1|1,15|1|1,15|2|0,16|2|0,17|2|0,17|1|1,18|1|1,19|1|1,19|2|0,20|2|0,21|2|0,22|2|1,23|2|0,24|2|0,26|2|0,27|2|0,28|2|0,29|2|1,30|2|1,31|2|0,32|-1|0,33|-1|1,34|-1|1,35|-1|1,-10|-1|1,-10|-2|1,-11|-2|1,-12|-2|1,-12|-1|0,-13|-1|0,-14|-1|0,-15|-1|0,-16|-1|0,-17|-1|1,-18|-1|1,-19|-1|0",1)
dim bianyicao
bianyicao = Split(BH, "|")
B = CInt(bianyicao(0)) : H = CInt(bianyicao(1))
If B > 0 Then 
    TracePrint "二位置发现了变异茅草团"
bycaotuan=bycaotuan+1
End If
H=0
HJ=Plugin.Color.FindShape(48,47,286,255,"0|-1|1,0|-2|1,0|-3|1,1|-4|0,2|-4|0,3|-4|0,3|-5|1,4|-5|1,5|-5|1,6|-5|1,6|-4|0,7|-4|1,7|-3|1,8|-3|0,14|-1|0,14|-2|1,15|-2|0,15|-3|1,15|-4|0,19|-4|0,18|-4|1,18|-3|1,18|-2|1,18|-1|1,18|0|1,25|0|0,24|0|1,24|-1|0,23|-1|1,30|-1|1,30|0|1,30|1|1,30|2|1,30|3|1,31|3|0,31|2|0,31|1|0,31|0|0,31|-1|0,31|-2|0,34|-3|0,35|-3|1,35|-2|1,35|-1|1,35|0|1,35|1|1,35|2|1,35|3|1,36|3|0,36|2|0,36|1|0,36|0|0,36|-1|0,36|-2|0,32|4|1,33|4|1,34|4|1,35|4|1,36|4|1,37|4|1,37|5|0,36|5|0,35|5|0,34|5|0,33|5|0,32|5|0",1)
dim bianyizhu
bianyizhu = Split(HJ, "|")
H = CInt(bianyizhu(0)) : J = CInt(bianyizhu(1))
If H > 0 Then 
    TracePrint "二位置发现了变异小山猪发现"
byshanzhu=byshanzhu+1
End If
K=0
KL=Plugin.Color.FindShape(48,47,286,255,"0|-1|0,3|-1|1,3|0|1,3|1|1,3|2|1,3|3|1,3|4|1,3|5|1,4|5|0,4|4|0,4|3|0,4|2|0,4|1|0,4|0|0,4|-1|0,4|-2|0,7|1|1,8|2|1,15|2|1,15|3|1,15|4|1,15|5|1,15|6|1,16|6|0,16|5|0,16|4|0,16|3|0,20|3|1,20|4|1,20|5|1,20|6|1,21|6|0,21|5|0,21|4|0,25|4|1,26|4|0,26|5|0,26|6|0,26|7|0,24|7|1,23|7|1,22|7|1,21|7|1,20|7|1,19|7|1,1|6|0,0|6|0,-1|6|0,-2|6|0,-3|6|0,-4|6|0,-5|6|0,-6|6|0,-7|6|0,-8|6|0,-9|6|0,-10|6|0,-11|6|0,-12|6|0,-13|6|0,-14|6|0,-15|6|0,-16|6|0,-17|6|0,-18|6|0,-19|6|0,-20|6|0,-21|6|0",1)
dim xiaoshanzhu
xiaoshanzhu = Split(KL, "|")
K = CInt(xiaoshanzhu(0)) : L = CInt(xiaoshanzhu(1))
If K > 0 Then 
    TracePrint "二位置发现了小山猪发现"
shanzhu=shanzhu+1
End If
V=0
VB=Plugin.Color.FindShape(48,47,286,255,"1|0|1,2|0|1,3|0|1,4|0|1,5|0|1,6|0|1,7|0|0,8|0|0,9|0|0,10|0|0,11|0|0,12|0|0,18|0|1,22|0|0,23|0|0,24|0|1,24|0|1,24|-1|1,23|-1|1,22|-1|1,26|-1|1,27|-1|1,28|-1|1,28|1|1,28|2|1,29|2|0,28|4|0,27|4|0,26|4|0,25|4|0,24|4|0,23|4|0,23|5|1,24|5|1,25|5|1,26|5|1,27|5|1,27|6|1,27|7|1,27|8|1,26|8|0,25|8|0,25|9|1,24|9|1,23|9|1,22|9|1,0|9|0,-1|9|0,-2|9|0,-3|9|0,-4|9|0,-5|9|0,-6|9|0,-7|9|0,-8|9|0,-9|9|0,-10|9|0,-11|9|0,-12|9|0,-13|9|0,-14|9|0,-15|9|0,-16|9|0",1)
dim ciwei
ciwei = Split(VB, "|")
V = CInt(ciwei(0)) : B = CInt(ciwei(1))
If V > 0 Then 
    TracePrint "二位置发现了刺猬发现"
xiaociwei=xiaociwei+1
End If
N=0
NM=Plugin.Color.FindShape(48,47,286,255,"1|0|1,2|0|1,3|0|1,4|0|1,5|0|1,6|0|1,7|0|1,8|0|1,8|1|1,8|2|1,8|3|1,7|3|0,6|3|0,5|3|1,4|3|1,4|4|1,3|4|1,2|4|1,1|4|1,0|4|0,-1|4|0,-1|5|1,-2|5|1,-2|6|1,-3|6|0,-3|7|0,-3|8|0,-4|8|0,-4|9|0,-5|9|0,-9|9|0,-10|9|0,-11|9|0,-12|9|1,-13|9|0,-14|9|0,-15|9|1,-15|8|0,-15|7|1,-16|7|0,-17|7|1,-18|7|1,-18|6|0,-26|5|1,-26|4|1,-26|3|1,-26|2|1,-27|2|1,-28|2|1,-29|2|1,-30|2|1,-31|2|0,-31|3|0,-30|5|0,-30|4|0,-29|4|0,-29|3|0,-28|3|0",1)
dim bianyici
bianyici = Split(NM, "|")
N = CInt(bianyici(0)) : M = CInt(bianyici(1))
If N > 0 Then 
    TracePrint "二位置发现了发现变异刺猬"
byxiaociwei=byxiaociwei+1
End If
 
End Sub

Sub a3()
X=0
XY=Plugin.Color.FindShape(12,272,158,383,"0|-1|1,0|-2|1,0|-3|1,0|-4|1,0|-5|1,0|-6|1,0|-7|1,0|-8|1,0|-9|1,0|-10|1,0|-11|1,0|-12|0,1|-12|0,1|-11|0,1|-10|0,1|-9|0,1|-8|0,1|-7|0,1|-6|0,1|-5|0,1|-4|0,1|-3|0,1|-2|0,1|-1|0,1|0|0,1|1|0,0|1|1,-1|1|1,14|1|0,14|1|0,14|0|0,15|0|1,15|-1|0,16|-1|0,16|-2|0,17|-2|0,18|-2|1,18|-1|1,18|0|1,18|1|0,19|1|1,20|1|1,21|1|1,22|1|1,23|1|1,24|1|1,22|-1|1,21|-1|1,21|-2|1,21|-4|1,22|-4|1,22|-5|1,22|-6|1,22|-7|1,-35|-6|1,-34|-6|1,-33|-6|1,-32|-6|1,-31|-6|1,-30|-6|1,-29|-6|1,-29|-7|0,-30|-7|0,-34|-6|1,-35|-6|1,-36|-6|1,-36|-7|0,-35|-7|0,-34|-7|0,-33|-7|0,-32|-7|0,-31|-7|0,-30|-7|0,-29|-7|0,-29|-6|1,-28|-6|0,-28|-7|0",1)
dim bianyitu
bianyitu = Split(XY, "|")
X = CInt(bianyitu(0)): Y = CInt(bianyitu(1))
If X > 0 Then 
    TracePrint "三位置发现了变异小兔子发现"
    bytu= bytu+ 1

End If

Q=0
QW=Plugin.Color.FindShape(12,272,158,383,"1|0|1,2|0|1,3|0|1,4|0|1,5|0|1,5|-1|1,5|-2|1,5|-3|1,4|-3|1,3|-3|0,2|-3|0,1|-3|0,0|-3|1,0|-2|1,0|-1|0,0|0|1,0|1|1,1|1|1,1|2|1,1|3|1,1|4|1,1|5|0,2|5|1,3|5|1,4|5|1,5|5|1,6|5|1,7|5|1,7|4|0,6|4|0,15|5|1,16|5|1,17|5|1,-32|-7|0,-31|-7|0,-31|-6|0,-31|-5|0,-31|-4|0,-31|-3|0,-32|-3|0,-33|-3|0,-34|-3|0,-35|-3|0,-36|-3|0,-36|-2|0,-36|-1|0,-37|-1|0,-38|-1|0,-39|-1|0,-40|-1|0,-40|-1|0,-40|-2|0,-40|-3|0,-41|-3|0,-41|-4|0,-41|-5|0,-41|-6|0,-41|-7|0,-42|-7|0,-43|-7|0,-43|-6|0,-44|-6|0,-44|-5|0,-45|-5|0,-45|-4|0,-46|-4|0",1)
dim tu
tu = Split(QW, "|")
Q = CInt(tu(0)) : W = CInt(tu(1))
If Q > 0 Then 
    TracePrint "三位置发现了兔子发现"
    xiaotuzi= xiaotuzi+ 1
End If
E=0
ER=Plugin.Color.FindShape(12,272,158,383,"1|0|1,2|0|1,3|0|1,4|0|1,4|-1|1,4|-2|1,5|-2|1,6|-2|1,7|-2|1,8|-2|0,8|-3|0,8|-4|0,9|-4|0,10|-4|1,10|-5|0,10|-6|0,10|-7|1,9|-7|1,8|-7|0,7|-7|0,7|-6|1,6|-6|1,6|-5|1,5|-5|1,5|-4|0,4|-4|1,4|-5|0,4|-6|1,4|-7|0,4|-8|1,4|-9|1,5|-9|0,2|-8|0,1|-8|0,0|-8|0,-1|-8|0,-1|-7|0,-2|-7|0,-2|-6|1,-7|-1|1,-8|-2|1,-9|-3|1,-13|-3|1,-13|-2|1,-13|-1|1,-13|0|1,-13|1|1,-13|2|1,12|2|0,13|2|0,13|3|0,14|3|0,15|3|1,16|3|1,16|2|0,16|1|0,16|0|0,15|0|0,15|-1|1,15|-2|1,15|-3|1,15|-4|1,15|-5|1,16|-5|1,17|-5|1,18|-5|1,18|-4|0,17|-4|0,17|-3|0,18|-3|0,18|-2|0,17|-2|0,-38|-6|0,-37|-6|0,-37|-5|0,-37|-4|0,-38|-4|0,-39|-4|0,-40|-4|0,-41|-4|0,-41|-3|0,-40|-3|0,-40|-2|0,-39|-2|0,-39|-3|0,-39|-4|0,-38|-4|0,-37|-4|0,-36|-4|0,-35|-4|0,-34|-4|0,-33|-4|0,-32|-4|0,-32|-3|0,-31|-3|0,-30|-3|0,-29|-3|0,-28|-3|0,-27|-3|0,-26|-3|0,-26|-2|0,-26|-1|0,-26|0|0,-25|0|0,-24|0|0,-23|0|0,-23|1|0,-23|2|0,-24|2|0,-29|2|0,-30|2|0",1)
dim mifeng
mifeng = Split(ER, "|")
E = CInt(mifeng(0)) : R = CInt(mifeng(1))
If E > 0 Then 
    TracePrint "三位置发现了发现小蜜蜂"
xmifeng= xmifeng+ 1
End If
Z=0
ZC=Plugin.Color.FindShape(12,272,158,383,"0|1|1,0|2|0,0|3|0,0|4|1,-1|4|1,-1|5|1,0|5|1,0|6|1,-1|6|1,-1|7|1,-1|8|1,-2|8|1,-3|8|0,-3|7|0,-4|7|0,-2|7|0,-7|7|1,-7|6|1,-7|5|1,-7|4|1,-8|4|1,-8|4|1,-9|4|0,-9|3|0,-9|2|1,-10|2|1,-11|2|1,-12|2|0,-12|1|0,-11|1|0,-10|1|0,-9|1|0,-8|1|1,-8|0|1,-8|-1|1,-8|-2|1,-7|-2|1,-10|-2|0,-10|-3|0,-10|-4|0,11|-4|1,11|-3|1,11|-2|1,11|-1|1,11|0|1,11|1|1,11|2|1,11|3|1,16|3|1,17|3|1,18|3|0,19|3|0,20|3|0,21|3|0,22|3|0,23|3|0,23|4|0,24|4|1,25|4|1,26|4|1,26|5|0,27|5|0,28|5|0,28|4|1,29|4|1,30|4|1,31|4|1,32|4|1,32|2|0,31|2|1,30|2|1,39|2|1,40|2|1,41|2|0,42|2|0,43|2|0,44|2|0",1)
dim bianyifeng
bianyifeng = Split(ZC, "|")
Z = CInt(bianyifeng(0)) : C = CInt(bianyifeng(1))
If Z > 0 Then 
    TracePrint "三位置发现了变异小蜜蜂"
bymifeng= bymifeng+ 1
End If
D=0
DF=Plugin.Color.FindShape(12,272,158,383,"0|-1|1,0|-2|1,0|-3|1,0|-4|1,0|-5|1,1|-5|0,1|-4|0,1|-3|0,1|-2|0,1|-1|0,1|0|0,1|1|0,3|1|0,4|1|0,5|1|0,6|1|0,6|0|1,6|-1|1,7|-1|0,8|-1|0,9|-1|0,10|-1|0,10|0|0,10|1|0,11|1|1,12|1|1,13|1|1,14|1|1,15|1|1,16|1|1,17|1|1,18|1|1,19|1|1,20|1|1,20|0|0,19|0|0,18|0|0,17|0|0,16|0|0,16|-1|1,15|-1|1,14|-1|1,13|-1|1,12|-1|0,12|-2|0,12|-3|0,12|-4|0,13|-4|1,14|-4|0,0|0|1,-1|0|0,-2|0|0,-3|0|0,-4|0|0,-5|0|0,-6|0|0,-7|0|0,-8|0|0,-9|0|0,-10|0|0,-11|0|0,-12|0|0,-13|0|0,-14|0|0,-15|0|0,-16|0|0,-17|0|0,-18|0|0,-19|0|0,-20|0|0,-21|0|0,-22|0|0,-22|-1|0,-23|-1|0,-23|-2|0,-24|-2|0,-25|-2|0,-26|-2|0,-27|-2|0",1)
dim xiaowugui
xiaowugui = Split(DF, "|")
D = CInt(xiaowugui(0)): F = CInt(xiaowugui(1))
If D > 0 Then 
    TracePrint "三位置发现了小乌龟发现"
wugui=wugui+1
End If
K=0
KM=Plugin.Color.FindShape(12,272,158,383,"0|-1|1,0|-2|1,-1|-2|1,-2|-2|1,3|-2|0,4|-2|0,5|-2|0,6|-2|0,7|-2|0,8|-2|0,9|-2|0,10|-2|0,11|-2|1,11|-1|1,11|0|1,12|0|0,13|0|0,14|0|0,14|1|0,15|1|1,16|1|0,16|2|1,17|2|0,17|3|1,18|3|0,19|3|0,24|3|1,25|3|1,26|3|1,27|3|1,28|3|1,29|3|1,30|3|1,31|3|1,32|3|1,33|3|1,34|3|1,34|4|0,33|4|1,32|4|0,31|4|0,30|4|0,29|4|0,28|4|0,27|4|0,26|4|0,25|4|0,25|5|1,26|5|1,27|5|1,28|5|1,29|5|1,30|5|1,31|5|1,32|5|0,33|5|0,34|5|0,41|5|1,42|5|1,43|5|1,44|5|1,45|5|1,45|4|1,45|3|1,45|2|1,45|1|1,45|0|1,45|-1|0,46|-1|0,47|-1|0,48|-1|0",1)
dim bianyigui
bianyigui = Split(KM, "|")
K = CInt(bianyigui(0)) : M = CInt(bianyigui(1))
If K > 0 Then 
    TracePrint "三位置发现了变异小乌龟"
bywugui=bywugui+1
End If
G=0
GH=Plugin.Color.FindShape(12,272,158,383,"0|-1|1,0|-2|1,1|-2|1,2|-2|0,3|-2|0,4|-2|0,5|-2|0,6|-2|0,7|-2|0,7|-3|0,6|-3|0,0|-3|1,0|-4|1,0|-5|1,-1|-5|0,-2|-5|0,-3|-5|0,-3|-8|0,-2|-8|0,-1|-8|0,0|-8|1,0|-9|0,1|-9|1,2|-9|1,3|-9|1,4|-9|1,16|-9|1,16|-7|0,15|-6|0,14|-6|1,14|-5|1,14|-4|1,14|-3|1,15|-4|1,16|-4|1,17|-4|1,18|-4|1,19|-4|1,20|-4|1,-2|-5|0,-7|-5|0,-8|-5|0,-9|-5|0,-10|-5|0,-11|-5|0,-12|-5|0,-13|-5|0,-14|-5|0,-15|-5|0,-16|-5|0,-17|-5|0,-18|-5|0,-18|-4|0,-19|-4|0,-20|-4|0,-21|-4|0,-22|-4|0,-23|-4|0,-24|-4|0,-24|-5|0,-25|-5|0,-25|-6|0",1)
dim maocaotuan
maocaotuan = Split(GH, "|")
G = CInt(maocaotuan(0)) : H = CInt(maocaotuan(1))
If G > 0 Then 
    TracePrint "三位置发现了茅草团发现"
caotuan=caotuan+1
End If
B=0
BH=Plugin.Color.FindShape(12,272,158,383,"1|0|1,2|0|0,3|0|0,4|0|0,4|-1|0,5|-1|0,9|-1|0,10|-1|0,11|-1|0,12|-1|0,13|-1|0,14|-1|1,14|0|1,14|1|1,15|1|1,15|2|0,16|2|0,17|2|0,17|1|1,18|1|1,19|1|1,19|2|0,20|2|0,21|2|0,22|2|1,23|2|0,24|2|0,26|2|0,27|2|0,28|2|0,29|2|1,30|2|1,31|2|0,32|-1|0,33|-1|1,34|-1|1,35|-1|1,-10|-1|1,-10|-2|1,-11|-2|1,-12|-2|1,-12|-1|0,-13|-1|0,-14|-1|0,-15|-1|0,-16|-1|0,-17|-1|1,-18|-1|1,-19|-1|0",1)
dim bianyicao
bianyicao = Split(BH, "|")
B = CInt(bianyicao(0)) : H = CInt(bianyicao(1))
If B > 0 Then 
    TracePrint "三位置发现了变异茅草团"
bycaotuan=bycaotuan+1
End If
H=0
HJ=Plugin.Color.FindShape(12,272,158,383,"0|-1|1,0|-2|1,0|-3|1,1|-4|0,2|-4|0,3|-4|0,3|-5|1,4|-5|1,5|-5|1,6|-5|1,6|-4|0,7|-4|1,7|-3|1,8|-3|0,14|-1|0,14|-2|1,15|-2|0,15|-3|1,15|-4|0,19|-4|0,18|-4|1,18|-3|1,18|-2|1,18|-1|1,18|0|1,25|0|0,24|0|1,24|-1|0,23|-1|1,30|-1|1,30|0|1,30|1|1,30|2|1,30|3|1,31|3|0,31|2|0,31|1|0,31|0|0,31|-1|0,31|-2|0,34|-3|0,35|-3|1,35|-2|1,35|-1|1,35|0|1,35|1|1,35|2|1,35|3|1,36|3|0,36|2|0,36|1|0,36|0|0,36|-1|0,36|-2|0,32|4|1,33|4|1,34|4|1,35|4|1,36|4|1,37|4|1,37|5|0,36|5|0,35|5|0,34|5|0,33|5|0,32|5|0",1)
dim bianyizhu
bianyizhu = Split(HJ, "|")
H = CInt(bianyizhu(0)) : J = CInt(bianyizhu(1))
If H > 0 Then 
    TracePrint "三位置发现了变异小山猪发现"
byshanzhu=byshanzhu+1
End If
K=0
KL=Plugin.Color.FindShape(12,272,158,383,"0|-1|0,3|-1|1,3|0|1,3|1|1,3|2|1,3|3|1,3|4|1,3|5|1,4|5|0,4|4|0,4|3|0,4|2|0,4|1|0,4|0|0,4|-1|0,4|-2|0,7|1|1,8|2|1,15|2|1,15|3|1,15|4|1,15|5|1,15|6|1,16|6|0,16|5|0,16|4|0,16|3|0,20|3|1,20|4|1,20|5|1,20|6|1,21|6|0,21|5|0,21|4|0,25|4|1,26|4|0,26|5|0,26|6|0,26|7|0,24|7|1,23|7|1,22|7|1,21|7|1,20|7|1,19|7|1,1|6|0,0|6|0,-1|6|0,-2|6|0,-3|6|0,-4|6|0,-5|6|0,-6|6|0,-7|6|0,-8|6|0,-9|6|0,-10|6|0,-11|6|0,-12|6|0,-13|6|0,-14|6|0,-15|6|0,-16|6|0,-17|6|0,-18|6|0,-19|6|0,-20|6|0,-21|6|0",1)
dim xiaoshanzhu
xiaoshanzhu = Split(KL, "|")
K = CInt(xiaoshanzhu(0)) : L = CInt(xiaoshanzhu(1))
If K > 0 Then 
    TracePrint "三位置发现了小山猪发现"
shanzhu=shanzhu+1
End If
V=0
VB=Plugin.Color.FindShape(12,272,158,383,"1|0|1,2|0|1,3|0|1,4|0|1,5|0|1,6|0|1,7|0|0,8|0|0,9|0|0,10|0|0,11|0|0,12|0|0,18|0|1,22|0|0,23|0|0,24|0|1,24|0|1,24|-1|1,23|-1|1,22|-1|1,26|-1|1,27|-1|1,28|-1|1,28|1|1,28|2|1,29|2|0,28|4|0,27|4|0,26|4|0,25|4|0,24|4|0,23|4|0,23|5|1,24|5|1,25|5|1,26|5|1,27|5|1,27|6|1,27|7|1,27|8|1,26|8|0,25|8|0,25|9|1,24|9|1,23|9|1,22|9|1,0|9|0,-1|9|0,-2|9|0,-3|9|0,-4|9|0,-5|9|0,-6|9|0,-7|9|0,-8|9|0,-9|9|0,-10|9|0,-11|9|0,-12|9|0,-13|9|0,-14|9|0,-15|9|0,-16|9|0",1)
dim ciwei
ciwei = Split(VB, "|")
V = CInt(ciwei(0)) : B = CInt(ciwei(1))
If V > 0 Then 
    TracePrint "三位置发现了刺猬发现"
xiaociwei=xiaociwei+1
End If
N=0
NM=Plugin.Color.FindShape(12,272,158,383,"1|0|1,2|0|1,3|0|1,4|0|1,5|0|1,6|0|1,7|0|1,8|0|1,8|1|1,8|2|1,8|3|1,7|3|0,6|3|0,5|3|1,4|3|1,4|4|1,3|4|1,2|4|1,1|4|1,0|4|0,-1|4|0,-1|5|1,-2|5|1,-2|6|1,-3|6|0,-3|7|0,-3|8|0,-4|8|0,-4|9|0,-5|9|0,-9|9|0,-10|9|0,-11|9|0,-12|9|1,-13|9|0,-14|9|0,-15|9|1,-15|8|0,-15|7|1,-16|7|0,-17|7|1,-18|7|1,-18|6|0,-26|5|1,-26|4|1,-26|3|1,-26|2|1,-27|2|1,-28|2|1,-29|2|1,-30|2|1,-31|2|0,-31|3|0,-30|5|0,-30|4|0,-29|4|0,-29|3|0,-28|3|0",1)
dim bianyici
bianyici = Split(NM, "|")
N = CInt(bianyici(0)) : M = CInt(bianyici(1))
If N > 0 Then 
    TracePrint "三位置发现了发现变异刺猬"
byxiaociwei=byxiaociwei+1
End If
 
End Sub

Sub a4()
X=0
XY=Plugin.Color.FindShape(65,380,286,510,"0|-1|1,0|-2|1,0|-3|1,0|-4|1,0|-5|1,0|-6|1,0|-7|1,0|-8|1,0|-9|1,0|-10|1,0|-11|1,0|-12|0,1|-12|0,1|-11|0,1|-10|0,1|-9|0,1|-8|0,1|-7|0,1|-6|0,1|-5|0,1|-4|0,1|-3|0,1|-2|0,1|-1|0,1|0|0,1|1|0,0|1|1,-1|1|1,14|1|0,14|1|0,14|0|0,15|0|1,15|-1|0,16|-1|0,16|-2|0,17|-2|0,18|-2|1,18|-1|1,18|0|1,18|1|0,19|1|1,20|1|1,21|1|1,22|1|1,23|1|1,24|1|1,22|-1|1,21|-1|1,21|-2|1,21|-4|1,22|-4|1,22|-5|1,22|-6|1,22|-7|1,-35|-6|1,-34|-6|1,-33|-6|1,-32|-6|1,-31|-6|1,-30|-6|1,-29|-6|1,-29|-7|0,-30|-7|0,-34|-6|1,-35|-6|1,-36|-6|1,-36|-7|0,-35|-7|0,-34|-7|0,-33|-7|0,-32|-7|0,-31|-7|0,-30|-7|0,-29|-7|0,-29|-6|1,-28|-6|0,-28|-7|0",1)
dim bianyitu
bianyitu = Split(XY, "|")
X = CInt(bianyitu(0)): Y = CInt(bianyitu(1))
If X > 0 Then 
    TracePrint "四位置发现了变异小兔子发现"
    bytu= bytu+ 1

End If
Q=0
QW=Plugin.Color.FindShape(65,380,286,510,"1|0|1,2|0|1,3|0|1,4|0|1,5|0|1,5|-1|1,5|-2|1,5|-3|1,4|-3|1,3|-3|0,2|-3|0,1|-3|0,0|-3|1,0|-2|1,0|-1|0,0|0|1,0|1|1,1|1|1,1|2|1,1|3|1,1|4|1,1|5|0,2|5|1,3|5|1,4|5|1,5|5|1,6|5|1,7|5|1,7|4|0,6|4|0,15|5|1,16|5|1,17|5|1,-32|-7|0,-31|-7|0,-31|-6|0,-31|-5|0,-31|-4|0,-31|-3|0,-32|-3|0,-33|-3|0,-34|-3|0,-35|-3|0,-36|-3|0,-36|-2|0,-36|-1|0,-37|-1|0,-38|-1|0,-39|-1|0,-40|-1|0,-40|-1|0,-40|-2|0,-40|-3|0,-41|-3|0,-41|-4|0,-41|-5|0,-41|-6|0,-41|-7|0,-42|-7|0,-43|-7|0,-43|-6|0,-44|-6|0,-44|-5|0,-45|-5|0,-45|-4|0,-46|-4|0",1)
dim tu
tu = Split(QW, "|")
Q = CInt(tu(0)) : W = CInt(tu(1))
If Q > 0 Then 
    TracePrint "四位置发现了兔子发现"
    xiaotuzi= xiaotuzi+ 1
End If
E=0
ER=Plugin.Color.FindShape(65,380,286,510,"1|0|1,2|0|1,3|0|1,4|0|1,4|-1|1,4|-2|1,5|-2|1,6|-2|1,7|-2|1,8|-2|0,8|-3|0,8|-4|0,9|-4|0,10|-4|1,10|-5|0,10|-6|0,10|-7|1,9|-7|1,8|-7|0,7|-7|0,7|-6|1,6|-6|1,6|-5|1,5|-5|1,5|-4|0,4|-4|1,4|-5|0,4|-6|1,4|-7|0,4|-8|1,4|-9|1,5|-9|0,2|-8|0,1|-8|0,0|-8|0,-1|-8|0,-1|-7|0,-2|-7|0,-2|-6|1,-7|-1|1,-8|-2|1,-9|-3|1,-13|-3|1,-13|-2|1,-13|-1|1,-13|0|1,-13|1|1,-13|2|1,12|2|0,13|2|0,13|3|0,14|3|0,15|3|1,16|3|1,16|2|0,16|1|0,16|0|0,15|0|0,15|-1|1,15|-2|1,15|-3|1,15|-4|1,15|-5|1,16|-5|1,17|-5|1,18|-5|1,18|-4|0,17|-4|0,17|-3|0,18|-3|0,18|-2|0,17|-2|0,-38|-6|0,-37|-6|0,-37|-5|0,-37|-4|0,-38|-4|0,-39|-4|0,-40|-4|0,-41|-4|0,-41|-3|0,-40|-3|0,-40|-2|0,-39|-2|0,-39|-3|0,-39|-4|0,-38|-4|0,-37|-4|0,-36|-4|0,-35|-4|0,-34|-4|0,-33|-4|0,-32|-4|0,-32|-3|0,-31|-3|0,-30|-3|0,-29|-3|0,-28|-3|0,-27|-3|0,-26|-3|0,-26|-2|0,-26|-1|0,-26|0|0,-25|0|0,-24|0|0,-23|0|0,-23|1|0,-23|2|0,-24|2|0,-29|2|0,-30|2|0",1)
dim mifeng
mifeng = Split(ER, "|")
E = CInt(mifeng(0)) : R = CInt(mifeng(1))
If E > 0 Then 
    TracePrint "四位置发现了发现小蜜蜂"
xmifeng= xmifeng+ 1
End If
Z=0
ZC=Plugin.Color.FindShape(65,380,286,510,"0|1|1,0|2|0,0|3|0,0|4|1,-1|4|1,-1|5|1,0|5|1,0|6|1,-1|6|1,-1|7|1,-1|8|1,-2|8|1,-3|8|0,-3|7|0,-4|7|0,-2|7|0,-7|7|1,-7|6|1,-7|5|1,-7|4|1,-8|4|1,-8|4|1,-9|4|0,-9|3|0,-9|2|1,-10|2|1,-11|2|1,-12|2|0,-12|1|0,-11|1|0,-10|1|0,-9|1|0,-8|1|1,-8|0|1,-8|-1|1,-8|-2|1,-7|-2|1,-10|-2|0,-10|-3|0,-10|-4|0,11|-4|1,11|-3|1,11|-2|1,11|-1|1,11|0|1,11|1|1,11|2|1,11|3|1,16|3|1,17|3|1,18|3|0,19|3|0,20|3|0,21|3|0,22|3|0,23|3|0,23|4|0,24|4|1,25|4|1,26|4|1,26|5|0,27|5|0,28|5|0,28|4|1,29|4|1,30|4|1,31|4|1,32|4|1,32|2|0,31|2|1,30|2|1,39|2|1,40|2|1,41|2|0,42|2|0,43|2|0,44|2|0",1)
dim bianyifeng
bianyifeng = Split(ZC, "|")
Z = CInt(bianyifeng(0)) : C = CInt(bianyifeng(1))
If Z > 0 Then 
    TracePrint "四位置发现了变异小蜜蜂"
bymifeng= bymifeng+ 1
End If
D=0
DF=Plugin.Color.FindShape(65,380,286,510,"0|-1|1,0|-2|1,0|-3|1,0|-4|1,0|-5|1,1|-5|0,1|-4|0,1|-3|0,1|-2|0,1|-1|0,1|0|0,1|1|0,3|1|0,4|1|0,5|1|0,6|1|0,6|0|1,6|-1|1,7|-1|0,8|-1|0,9|-1|0,10|-1|0,10|0|0,10|1|0,11|1|1,12|1|1,13|1|1,14|1|1,15|1|1,16|1|1,17|1|1,18|1|1,19|1|1,20|1|1,20|0|0,19|0|0,18|0|0,17|0|0,16|0|0,16|-1|1,15|-1|1,14|-1|1,13|-1|1,12|-1|0,12|-2|0,12|-3|0,12|-4|0,13|-4|1,14|-4|0,0|0|1,-1|0|0,-2|0|0,-3|0|0,-4|0|0,-5|0|0,-6|0|0,-7|0|0,-8|0|0,-9|0|0,-10|0|0,-11|0|0,-12|0|0,-13|0|0,-14|0|0,-15|0|0,-16|0|0,-17|0|0,-18|0|0,-19|0|0,-20|0|0,-21|0|0,-22|0|0,-22|-1|0,-23|-1|0,-23|-2|0,-24|-2|0,-25|-2|0,-26|-2|0,-27|-2|0",1)
dim xiaowugui
xiaowugui = Split(DF, "|")
D = CInt(xiaowugui(0)): F = CInt(xiaowugui(1))
If D > 0 Then 
    TracePrint "四位置发现了小乌龟发现"
wugui=wugui+1
End If
K=0
KM=Plugin.Color.FindShape(65,380,286,510,"0|-1|1,0|-2|1,-1|-2|1,-2|-2|1,3|-2|0,4|-2|0,5|-2|0,6|-2|0,7|-2|0,8|-2|0,9|-2|0,10|-2|0,11|-2|1,11|-1|1,11|0|1,12|0|0,13|0|0,14|0|0,14|1|0,15|1|1,16|1|0,16|2|1,17|2|0,17|3|1,18|3|0,19|3|0,24|3|1,25|3|1,26|3|1,27|3|1,28|3|1,29|3|1,30|3|1,31|3|1,32|3|1,33|3|1,34|3|1,34|4|0,33|4|1,32|4|0,31|4|0,30|4|0,29|4|0,28|4|0,27|4|0,26|4|0,25|4|0,25|5|1,26|5|1,27|5|1,28|5|1,29|5|1,30|5|1,31|5|1,32|5|0,33|5|0,34|5|0,41|5|1,42|5|1,43|5|1,44|5|1,45|5|1,45|4|1,45|3|1,45|2|1,45|1|1,45|0|1,45|-1|0,46|-1|0,47|-1|0,48|-1|0",1)
dim bianyigui
bianyigui = Split(KM, "|")
K = CInt(bianyigui(0)) : M = CInt(bianyigui(1))
If K > 0 Then 
    TracePrint "四位置发现了变异小乌龟"
bywugui=bywugui+1
End If
G=0
GH=Plugin.Color.FindShape(65,380,286,510,"0|-1|1,0|-2|1,1|-2|1,2|-2|0,3|-2|0,4|-2|0,5|-2|0,6|-2|0,7|-2|0,7|-3|0,6|-3|0,0|-3|1,0|-4|1,0|-5|1,-1|-5|0,-2|-5|0,-3|-5|0,-3|-8|0,-2|-8|0,-1|-8|0,0|-8|1,0|-9|0,1|-9|1,2|-9|1,3|-9|1,4|-9|1,16|-9|1,16|-7|0,15|-6|0,14|-6|1,14|-5|1,14|-4|1,14|-3|1,15|-4|1,16|-4|1,17|-4|1,18|-4|1,19|-4|1,20|-4|1,-2|-5|0,-7|-5|0,-8|-5|0,-9|-5|0,-10|-5|0,-11|-5|0,-12|-5|0,-13|-5|0,-14|-5|0,-15|-5|0,-16|-5|0,-17|-5|0,-18|-5|0,-18|-4|0,-19|-4|0,-20|-4|0,-21|-4|0,-22|-4|0,-23|-4|0,-24|-4|0,-24|-5|0,-25|-5|0,-25|-6|0",1)
dim maocaotuan
maocaotuan = Split(GH, "|")
G = CInt(maocaotuan(0)) : H = CInt(maocaotuan(1))
If G > 0 Then 
    TracePrint "四位置发现了茅草团发现"
caotuan=caotuan+1
End If
B=0
BH=Plugin.Color.FindShape(65,380,286,510,"1|0|1,2|0|0,3|0|0,4|0|0,4|-1|0,5|-1|0,9|-1|0,10|-1|0,11|-1|0,12|-1|0,13|-1|0,14|-1|1,14|0|1,14|1|1,15|1|1,15|2|0,16|2|0,17|2|0,17|1|1,18|1|1,19|1|1,19|2|0,20|2|0,21|2|0,22|2|1,23|2|0,24|2|0,26|2|0,27|2|0,28|2|0,29|2|1,30|2|1,31|2|0,32|-1|0,33|-1|1,34|-1|1,35|-1|1,-10|-1|1,-10|-2|1,-11|-2|1,-12|-2|1,-12|-1|0,-13|-1|0,-14|-1|0,-15|-1|0,-16|-1|0,-17|-1|1,-18|-1|1,-19|-1|0",1)
dim bianyicao
bianyicao = Split(BH, "|")
B = CInt(bianyicao(0)) : H = CInt(bianyicao(1))
If B > 0 Then 
    TracePrint "四位置发现了变异茅草团"
bycaotuan=bycaotuan+1
End If
H=0
HJ=Plugin.Color.FindShape(65,380,286,510,"0|-1|1,0|-2|1,0|-3|1,1|-4|0,2|-4|0,3|-4|0,3|-5|1,4|-5|1,5|-5|1,6|-5|1,6|-4|0,7|-4|1,7|-3|1,8|-3|0,14|-1|0,14|-2|1,15|-2|0,15|-3|1,15|-4|0,19|-4|0,18|-4|1,18|-3|1,18|-2|1,18|-1|1,18|0|1,25|0|0,24|0|1,24|-1|0,23|-1|1,30|-1|1,30|0|1,30|1|1,30|2|1,30|3|1,31|3|0,31|2|0,31|1|0,31|0|0,31|-1|0,31|-2|0,34|-3|0,35|-3|1,35|-2|1,35|-1|1,35|0|1,35|1|1,35|2|1,35|3|1,36|3|0,36|2|0,36|1|0,36|0|0,36|-1|0,36|-2|0,32|4|1,33|4|1,34|4|1,35|4|1,36|4|1,37|4|1,37|5|0,36|5|0,35|5|0,34|5|0,33|5|0,32|5|0",1)
dim bianyizhu
bianyizhu = Split(HJ, "|")
H = CInt(bianyizhu(0)) : J = CInt(bianyizhu(1))
If H > 0 Then 
    TracePrint "四位置发现了变异小山猪发现"
byshanzhu=byshanzhu+1
End If
K=0
KL=Plugin.Color.FindShape(65,380,286,510,"0|-1|0,3|-1|1,3|0|1,3|1|1,3|2|1,3|3|1,3|4|1,3|5|1,4|5|0,4|4|0,4|3|0,4|2|0,4|1|0,4|0|0,4|-1|0,4|-2|0,7|1|1,8|2|1,15|2|1,15|3|1,15|4|1,15|5|1,15|6|1,16|6|0,16|5|0,16|4|0,16|3|0,20|3|1,20|4|1,20|5|1,20|6|1,21|6|0,21|5|0,21|4|0,25|4|1,26|4|0,26|5|0,26|6|0,26|7|0,24|7|1,23|7|1,22|7|1,21|7|1,20|7|1,19|7|1,1|6|0,0|6|0,-1|6|0,-2|6|0,-3|6|0,-4|6|0,-5|6|0,-6|6|0,-7|6|0,-8|6|0,-9|6|0,-10|6|0,-11|6|0,-12|6|0,-13|6|0,-14|6|0,-15|6|0,-16|6|0,-17|6|0,-18|6|0,-19|6|0,-20|6|0,-21|6|0",1)
dim xiaoshanzhu
xiaoshanzhu = Split(KL, "|")
K = CInt(xiaoshanzhu(0)) : L = CInt(xiaoshanzhu(1))
If K > 0 Then 
    TracePrint "四位置发现了小山猪发现"
shanzhu=shanzhu+1
End If
V=0
VB=Plugin.Color.FindShape(65,380,286,510,"1|0|1,2|0|1,3|0|1,4|0|1,5|0|1,6|0|1,7|0|0,8|0|0,9|0|0,10|0|0,11|0|0,12|0|0,18|0|1,22|0|0,23|0|0,24|0|1,24|0|1,24|-1|1,23|-1|1,22|-1|1,26|-1|1,27|-1|1,28|-1|1,28|1|1,28|2|1,29|2|0,28|4|0,27|4|0,26|4|0,25|4|0,24|4|0,23|4|0,23|5|1,24|5|1,25|5|1,26|5|1,27|5|1,27|6|1,27|7|1,27|8|1,26|8|0,25|8|0,25|9|1,24|9|1,23|9|1,22|9|1,0|9|0,-1|9|0,-2|9|0,-3|9|0,-4|9|0,-5|9|0,-6|9|0,-7|9|0,-8|9|0,-9|9|0,-10|9|0,-11|9|0,-12|9|0,-13|9|0,-14|9|0,-15|9|0,-16|9|0",1)
dim ciwei
ciwei = Split(VB, "|")
V = CInt(ciwei(0)) : B = CInt(ciwei(1))
If V > 0 Then 
    TracePrint "四位置发现了刺猬发现"
xiaociwei=xiaociwei+1
End If
N=0
NM=Plugin.Color.FindShape(65,380,286,510,"1|0|1,2|0|1,3|0|1,4|0|1,5|0|1,6|0|1,7|0|1,8|0|1,8|1|1,8|2|1,8|3|1,7|3|0,6|3|0,5|3|1,4|3|1,4|4|1,3|4|1,2|4|1,1|4|1,0|4|0,-1|4|0,-1|5|1,-2|5|1,-2|6|1,-3|6|0,-3|7|0,-3|8|0,-4|8|0,-4|9|0,-5|9|0,-9|9|0,-10|9|0,-11|9|0,-12|9|1,-13|9|0,-14|9|0,-15|9|1,-15|8|0,-15|7|1,-16|7|0,-17|7|1,-18|7|1,-18|6|0,-26|5|1,-26|4|1,-26|3|1,-26|2|1,-27|2|1,-28|2|1,-29|2|1,-30|2|1,-31|2|0,-31|3|0,-30|5|0,-30|4|0,-29|4|0,-29|3|0,-28|3|0",1)
dim bianyici
bianyici = Split(NM, "|")
N = CInt(bianyici(0)) : M = CInt(bianyici(1))
If N > 0 Then 
    TracePrint "四位置发现了发现变异刺猬"
byxiaociwei=byxiaociwei+1
End If
 
End Sub

Sub a5()
X=0
XY=Plugin.Color.FindShape(299,401,519,556,"0|-1|1,0|-2|1,0|-3|1,0|-4|1,0|-5|1,0|-6|1,0|-7|1,0|-8|1,0|-9|1,0|-10|1,0|-11|1,0|-12|0,1|-12|0,1|-11|0,1|-10|0,1|-9|0,1|-8|0,1|-7|0,1|-6|0,1|-5|0,1|-4|0,1|-3|0,1|-2|0,1|-1|0,1|0|0,1|1|0,0|1|1,-1|1|1,14|1|0,14|1|0,14|0|0,15|0|1,15|-1|0,16|-1|0,16|-2|0,17|-2|0,18|-2|1,18|-1|1,18|0|1,18|1|0,19|1|1,20|1|1,21|1|1,22|1|1,23|1|1,24|1|1,22|-1|1,21|-1|1,21|-2|1,21|-4|1,22|-4|1,22|-5|1,22|-6|1,22|-7|1,-35|-6|1,-34|-6|1,-33|-6|1,-32|-6|1,-31|-6|1,-30|-6|1,-29|-6|1,-29|-7|0,-30|-7|0,-34|-6|1,-35|-6|1,-36|-6|1,-36|-7|0,-35|-7|0,-34|-7|0,-33|-7|0,-32|-7|0,-31|-7|0,-30|-7|0,-29|-7|0,-29|-6|1,-28|-6|0,-28|-7|0",1)
dim bianyitu
bianyitu = Split(XY, "|")
X = CInt(bianyitu(0)): Y = CInt(bianyitu(1))
If X > 0 Then 
    TracePrint "五位置发现了变异小兔子发现"
    bytu= bytu+ 1
End If

Q=0
QW=Plugin.Color.FindShape(299,401,519,556,"1|0|1,2|0|1,3|0|1,4|0|1,5|0|1,5|-1|1,5|-2|1,5|-3|1,4|-3|1,3|-3|0,2|-3|0,1|-3|0,0|-3|1,0|-2|1,0|-1|0,0|0|1,0|1|1,1|1|1,1|2|1,1|3|1,1|4|1,1|5|0,2|5|1,3|5|1,4|5|1,5|5|1,6|5|1,7|5|1,7|4|0,6|4|0,15|5|1,16|5|1,17|5|1,-32|-7|0,-31|-7|0,-31|-6|0,-31|-5|0,-31|-4|0,-31|-3|0,-32|-3|0,-33|-3|0,-34|-3|0,-35|-3|0,-36|-3|0,-36|-2|0,-36|-1|0,-37|-1|0,-38|-1|0,-39|-1|0,-40|-1|0,-40|-1|0,-40|-2|0,-40|-3|0,-41|-3|0,-41|-4|0,-41|-5|0,-41|-6|0,-41|-7|0,-42|-7|0,-43|-7|0,-43|-6|0,-44|-6|0,-44|-5|0,-45|-5|0,-45|-4|0,-46|-4|0",1)
dim tu
tu = Split(QW, "|")
Q = CInt(tu(0)) : W = CInt(tu(1))
If Q > 0 Then 
    TracePrint "五位置发现了兔子发现"
    xiaotuzi = xiaotuzi + 1
End If
E=0
ER=Plugin.Color.FindShape(299,401,519,556,"1|0|1,2|0|1,3|0|1,4|0|1,4|-1|1,4|-2|1,5|-2|1,6|-2|1,7|-2|1,8|-2|0,8|-3|0,8|-4|0,9|-4|0,10|-4|1,10|-5|0,10|-6|0,10|-7|1,9|-7|1,8|-7|0,7|-7|0,7|-6|1,6|-6|1,6|-5|1,5|-5|1,5|-4|0,4|-4|1,4|-5|0,4|-6|1,4|-7|0,4|-8|1,4|-9|1,5|-9|0,2|-8|0,1|-8|0,0|-8|0,-1|-8|0,-1|-7|0,-2|-7|0,-2|-6|1,-7|-1|1,-8|-2|1,-9|-3|1,-13|-3|1,-13|-2|1,-13|-1|1,-13|0|1,-13|1|1,-13|2|1,12|2|0,13|2|0,13|3|0,14|3|0,15|3|1,16|3|1,16|2|0,16|1|0,16|0|0,15|0|0,15|-1|1,15|-2|1,15|-3|1,15|-4|1,15|-5|1,16|-5|1,17|-5|1,18|-5|1,18|-4|0,17|-4|0,17|-3|0,18|-3|0,18|-2|0,17|-2|0,-38|-6|0,-37|-6|0,-37|-5|0,-37|-4|0,-38|-4|0,-39|-4|0,-40|-4|0,-41|-4|0,-41|-3|0,-40|-3|0,-40|-2|0,-39|-2|0,-39|-3|0,-39|-4|0,-38|-4|0,-37|-4|0,-36|-4|0,-35|-4|0,-34|-4|0,-33|-4|0,-32|-4|0,-32|-3|0,-31|-3|0,-30|-3|0,-29|-3|0,-28|-3|0,-27|-3|0,-26|-3|0,-26|-2|0,-26|-1|0,-26|0|0,-25|0|0,-24|0|0,-23|0|0,-23|1|0,-23|2|0,-24|2|0,-29|2|0,-30|2|0",1)
dim mifeng
mifeng = Split(ER, "|")
E = CInt(mifeng(0)) : R = CInt(mifeng(1))
If E > 0 Then 
    TracePrint "五位置发现了发现小蜜蜂"
xmifeng= xmifeng+ 1
End If
Z=0
ZC=Plugin.Color.FindShape(299,401,519,556,"0|1|1,0|2|0,0|3|0,0|4|1,-1|4|1,-1|5|1,0|5|1,0|6|1,-1|6|1,-1|7|1,-1|8|1,-2|8|1,-3|8|0,-3|7|0,-4|7|0,-2|7|0,-7|7|1,-7|6|1,-7|5|1,-7|4|1,-8|4|1,-8|4|1,-9|4|0,-9|3|0,-9|2|1,-10|2|1,-11|2|1,-12|2|0,-12|1|0,-11|1|0,-10|1|0,-9|1|0,-8|1|1,-8|0|1,-8|-1|1,-8|-2|1,-7|-2|1,-10|-2|0,-10|-3|0,-10|-4|0,11|-4|1,11|-3|1,11|-2|1,11|-1|1,11|0|1,11|1|1,11|2|1,11|3|1,16|3|1,17|3|1,18|3|0,19|3|0,20|3|0,21|3|0,22|3|0,23|3|0,23|4|0,24|4|1,25|4|1,26|4|1,26|5|0,27|5|0,28|5|0,28|4|1,29|4|1,30|4|1,31|4|1,32|4|1,32|2|0,31|2|1,30|2|1,39|2|1,40|2|1,41|2|0,42|2|0,43|2|0,44|2|0",1)
dim bianyifeng
bianyifeng = Split(ZC, "|")
Z = CInt(bianyifeng(0)) : C = CInt(bianyifeng(1))
If Z > 0 Then 
    TracePrint "五位置发现了变异小蜜蜂"
bymifeng= bymifeng+ 1
End If
D=0
DF=Plugin.Color.FindShape(299,401,519,556,"0|-1|1,0|-2|1,0|-3|1,0|-4|1,0|-5|1,1|-5|0,1|-4|0,1|-3|0,1|-2|0,1|-1|0,1|0|0,1|1|0,3|1|0,4|1|0,5|1|0,6|1|0,6|0|1,6|-1|1,7|-1|0,8|-1|0,9|-1|0,10|-1|0,10|0|0,10|1|0,11|1|1,12|1|1,13|1|1,14|1|1,15|1|1,16|1|1,17|1|1,18|1|1,19|1|1,20|1|1,20|0|0,19|0|0,18|0|0,17|0|0,16|0|0,16|-1|1,15|-1|1,14|-1|1,13|-1|1,12|-1|0,12|-2|0,12|-3|0,12|-4|0,13|-4|1,14|-4|0,0|0|1,-1|0|0,-2|0|0,-3|0|0,-4|0|0,-5|0|0,-6|0|0,-7|0|0,-8|0|0,-9|0|0,-10|0|0,-11|0|0,-12|0|0,-13|0|0,-14|0|0,-15|0|0,-16|0|0,-17|0|0,-18|0|0,-19|0|0,-20|0|0,-21|0|0,-22|0|0,-22|-1|0,-23|-1|0,-23|-2|0,-24|-2|0,-25|-2|0,-26|-2|0,-27|-2|0",1)
dim xiaowugui
xiaowugui = Split(DF, "|")
D = CInt(xiaowugui(0)): F = CInt(xiaowugui(1))
If D > 0 Then 
    TracePrint "五位置发现了小乌龟发现"
wugui=wugui+1
End If
K=0
KM=Plugin.Color.FindShape(299,401,519,556,"0|-1|1,0|-2|1,-1|-2|1,-2|-2|1,3|-2|0,4|-2|0,5|-2|0,6|-2|0,7|-2|0,8|-2|0,9|-2|0,10|-2|0,11|-2|1,11|-1|1,11|0|1,12|0|0,13|0|0,14|0|0,14|1|0,15|1|1,16|1|0,16|2|1,17|2|0,17|3|1,18|3|0,19|3|0,24|3|1,25|3|1,26|3|1,27|3|1,28|3|1,29|3|1,30|3|1,31|3|1,32|3|1,33|3|1,34|3|1,34|4|0,33|4|1,32|4|0,31|4|0,30|4|0,29|4|0,28|4|0,27|4|0,26|4|0,25|4|0,25|5|1,26|5|1,27|5|1,28|5|1,29|5|1,30|5|1,31|5|1,32|5|0,33|5|0,34|5|0,41|5|1,42|5|1,43|5|1,44|5|1,45|5|1,45|4|1,45|3|1,45|2|1,45|1|1,45|0|1,45|-1|0,46|-1|0,47|-1|0,48|-1|0",1)
dim bianyigui
bianyigui = Split(KM, "|")
K = CInt(bianyigui(0)) : M = CInt(bianyigui(1))
If K > 0 Then 
    TracePrint "五位置发现了变异小乌龟"
bywugui=bywugui+1
End If
G=0
GH=Plugin.Color.FindShape(299,401,519,556,"0|-1|1,0|-2|1,1|-2|1,2|-2|0,3|-2|0,4|-2|0,5|-2|0,6|-2|0,7|-2|0,7|-3|0,6|-3|0,0|-3|1,0|-4|1,0|-5|1,-1|-5|0,-2|-5|0,-3|-5|0,-3|-8|0,-2|-8|0,-1|-8|0,0|-8|1,0|-9|0,1|-9|1,2|-9|1,3|-9|1,4|-9|1,16|-9|1,16|-7|0,15|-6|0,14|-6|1,14|-5|1,14|-4|1,14|-3|1,15|-4|1,16|-4|1,17|-4|1,18|-4|1,19|-4|1,20|-4|1,-2|-5|0,-7|-5|0,-8|-5|0,-9|-5|0,-10|-5|0,-11|-5|0,-12|-5|0,-13|-5|0,-14|-5|0,-15|-5|0,-16|-5|0,-17|-5|0,-18|-5|0,-18|-4|0,-19|-4|0,-20|-4|0,-21|-4|0,-22|-4|0,-23|-4|0,-24|-4|0,-24|-5|0,-25|-5|0,-25|-6|0",1)
dim maocaotuan
maocaotuan = Split(GH, "|")
G = CInt(maocaotuan(0)) : H = CInt(maocaotuan(1))
If G > 0 Then 
    TracePrint "五位置发现了茅草团发现"
caotuan=caotuan+1
End If
B=0
BH=Plugin.Color.FindShape(299,401,519,556,"1|0|1,2|0|0,3|0|0,4|0|0,4|-1|0,5|-1|0,9|-1|0,10|-1|0,11|-1|0,12|-1|0,13|-1|0,14|-1|1,14|0|1,14|1|1,15|1|1,15|2|0,16|2|0,17|2|0,17|1|1,18|1|1,19|1|1,19|2|0,20|2|0,21|2|0,22|2|1,23|2|0,24|2|0,26|2|0,27|2|0,28|2|0,29|2|1,30|2|1,31|2|0,32|-1|0,33|-1|1,34|-1|1,35|-1|1,-10|-1|1,-10|-2|1,-11|-2|1,-12|-2|1,-12|-1|0,-13|-1|0,-14|-1|0,-15|-1|0,-16|-1|0,-17|-1|1,-18|-1|1,-19|-1|0",1)
dim bianyicao
bianyicao = Split(BH, "|")
B = CInt(bianyicao(0)) : H = CInt(bianyicao(1))
If B > 0 Then 
    TracePrint "五位置发现了变异茅草团"
bycaotuan=bycaotuan+1
End If
H=0
HJ=Plugin.Color.FindShape(299,401,519,556,"0|-1|1,0|-2|1,0|-3|1,1|-4|0,2|-4|0,3|-4|0,3|-5|1,4|-5|1,5|-5|1,6|-5|1,6|-4|0,7|-4|1,7|-3|1,8|-3|0,14|-1|0,14|-2|1,15|-2|0,15|-3|1,15|-4|0,19|-4|0,18|-4|1,18|-3|1,18|-2|1,18|-1|1,18|0|1,25|0|0,24|0|1,24|-1|0,23|-1|1,30|-1|1,30|0|1,30|1|1,30|2|1,30|3|1,31|3|0,31|2|0,31|1|0,31|0|0,31|-1|0,31|-2|0,34|-3|0,35|-3|1,35|-2|1,35|-1|1,35|0|1,35|1|1,35|2|1,35|3|1,36|3|0,36|2|0,36|1|0,36|0|0,36|-1|0,36|-2|0,32|4|1,33|4|1,34|4|1,35|4|1,36|4|1,37|4|1,37|5|0,36|5|0,35|5|0,34|5|0,33|5|0,32|5|0",1)
dim bianyizhu
bianyizhu = Split(HJ, "|")
H = CInt(bianyizhu(0)) : J = CInt(bianyizhu(1))
If H > 0 Then 
    TracePrint "五位置发现了变异小山猪发现"
byshanzhu=byshanzhu+1
End If
K=0
KL=Plugin.Color.FindShape(299,401,519,556,"0|-1|0,3|-1|1,3|0|1,3|1|1,3|2|1,3|3|1,3|4|1,3|5|1,4|5|0,4|4|0,4|3|0,4|2|0,4|1|0,4|0|0,4|-1|0,4|-2|0,7|1|1,8|2|1,15|2|1,15|3|1,15|4|1,15|5|1,15|6|1,16|6|0,16|5|0,16|4|0,16|3|0,20|3|1,20|4|1,20|5|1,20|6|1,21|6|0,21|5|0,21|4|0,25|4|1,26|4|0,26|5|0,26|6|0,26|7|0,24|7|1,23|7|1,22|7|1,21|7|1,20|7|1,19|7|1,1|6|0,0|6|0,-1|6|0,-2|6|0,-3|6|0,-4|6|0,-5|6|0,-6|6|0,-7|6|0,-8|6|0,-9|6|0,-10|6|0,-11|6|0,-12|6|0,-13|6|0,-14|6|0,-15|6|0,-16|6|0,-17|6|0,-18|6|0,-19|6|0,-20|6|0,-21|6|0",1)
dim xiaoshanzhu
xiaoshanzhu = Split(KL, "|")
K = CInt(xiaoshanzhu(0)) : L = CInt(xiaoshanzhu(1))
If K > 0 Then 
    TracePrint "五位置发现了小山猪发现"
shanzhu=shanzhu+1
End If
V=0
VB=Plugin.Color.FindShape(299,401,519,556,"1|0|1,2|0|1,3|0|1,4|0|1,5|0|1,6|0|1,7|0|0,8|0|0,9|0|0,10|0|0,11|0|0,12|0|0,18|0|1,22|0|0,23|0|0,24|0|1,24|0|1,24|-1|1,23|-1|1,22|-1|1,26|-1|1,27|-1|1,28|-1|1,28|1|1,28|2|1,29|2|0,28|4|0,27|4|0,26|4|0,25|4|0,24|4|0,23|4|0,23|5|1,24|5|1,25|5|1,26|5|1,27|5|1,27|6|1,27|7|1,27|8|1,26|8|0,25|8|0,25|9|1,24|9|1,23|9|1,22|9|1,0|9|0,-1|9|0,-2|9|0,-3|9|0,-4|9|0,-5|9|0,-6|9|0,-7|9|0,-8|9|0,-9|9|0,-10|9|0,-11|9|0,-12|9|0,-13|9|0,-14|9|0,-15|9|0,-16|9|0",1)
dim ciwei
ciwei = Split(VB, "|")
V = CInt(ciwei(0)) : B = CInt(ciwei(1))
If V > 0 Then 
    TracePrint "五位置发现了刺猬发现"
xiaociwei=xiaociwei+1
End If
N=0
NM=Plugin.Color.FindShape(299,401,519,556,"1|0|1,2|0|1,3|0|1,4|0|1,5|0|1,6|0|1,7|0|1,8|0|1,8|1|1,8|2|1,8|3|1,7|3|0,6|3|0,5|3|1,4|3|1,4|4|1,3|4|1,2|4|1,1|4|1,0|4|0,-1|4|0,-1|5|1,-2|5|1,-2|6|1,-3|6|0,-3|7|0,-3|8|0,-4|8|0,-4|9|0,-5|9|0,-9|9|0,-10|9|0,-11|9|0,-12|9|1,-13|9|0,-14|9|0,-15|9|1,-15|8|0,-15|7|1,-16|7|0,-17|7|1,-18|7|1,-18|6|0,-26|5|1,-26|4|1,-26|3|1,-26|2|1,-27|2|1,-28|2|1,-29|2|1,-30|2|1,-31|2|0,-31|3|0,-30|5|0,-30|4|0,-29|4|0,-29|3|0,-28|3|0",1)
dim bianyici
bianyici = Split(NM, "|")
N = CInt(bianyici(0)) : M = CInt(bianyici(1))
If N > 0 Then 
    TracePrint "五位置发现了发现变异刺猬"
byxiaociwei=byxiaociwei+1
End If
 
End Sub

Sub a6()
X=0
XY=Plugin.Color.FindShape(521,335,706,487,"0|-1|1,0|-2|1,0|-3|1,0|-4|1,0|-5|1,0|-6|1,0|-7|1,0|-8|1,0|-9|1,0|-10|1,0|-11|1,0|-12|0,1|-12|0,1|-11|0,1|-10|0,1|-9|0,1|-8|0,1|-7|0,1|-6|0,1|-5|0,1|-4|0,1|-3|0,1|-2|0,1|-1|0,1|0|0,1|1|0,0|1|1,-1|1|1,14|1|0,14|1|0,14|0|0,15|0|1,15|-1|0,16|-1|0,16|-2|0,17|-2|0,18|-2|1,18|-1|1,18|0|1,18|1|0,19|1|1,20|1|1,21|1|1,22|1|1,23|1|1,24|1|1,22|-1|1,21|-1|1,21|-2|1,21|-4|1,22|-4|1,22|-5|1,22|-6|1,22|-7|1,-35|-6|1,-34|-6|1,-33|-6|1,-32|-6|1,-31|-6|1,-30|-6|1,-29|-6|1,-29|-7|0,-30|-7|0,-34|-6|1,-35|-6|1,-36|-6|1,-36|-7|0,-35|-7|0,-34|-7|0,-33|-7|0,-32|-7|0,-31|-7|0,-30|-7|0,-29|-7|0,-29|-6|1,-28|-6|0,-28|-7|0",1)
dim bianyitu
bianyitu = Split(XY, "|")
X = CInt(bianyitu(0)): Y = CInt(bianyitu(1))
If X > 0 Then 
    TracePrint "六位置发现了变异小兔子发现"
    bytu= bytu+ 1

End If
Q=0
QW=Plugin.Color.FindShape(521,335,706,487,"1|0|1,2|0|1,3|0|1,4|0|1,5|0|1,5|-1|1,5|-2|1,5|-3|1,4|-3|1,3|-3|0,2|-3|0,1|-3|0,0|-3|1,0|-2|1,0|-1|0,0|0|1,0|1|1,1|1|1,1|2|1,1|3|1,1|4|1,1|5|0,2|5|1,3|5|1,4|5|1,5|5|1,6|5|1,7|5|1,7|4|0,6|4|0,15|5|1,16|5|1,17|5|1,-32|-7|0,-31|-7|0,-31|-6|0,-31|-5|0,-31|-4|0,-31|-3|0,-32|-3|0,-33|-3|0,-34|-3|0,-35|-3|0,-36|-3|0,-36|-2|0,-36|-1|0,-37|-1|0,-38|-1|0,-39|-1|0,-40|-1|0,-40|-1|0,-40|-2|0,-40|-3|0,-41|-3|0,-41|-4|0,-41|-5|0,-41|-6|0,-41|-7|0,-42|-7|0,-43|-7|0,-43|-6|0,-44|-6|0,-44|-5|0,-45|-5|0,-45|-4|0,-46|-4|0",1)
dim tu
tu = Split(QW, "|")
Q = CInt(tu(0)) : W = CInt(tu(1))
If Q > 0 Then 
    TracePrint "六位置发现了兔子发现"
    xiaotuzi= xiaotuzi+ 1
End If
E=0
ER=Plugin.Color.FindShape(521,335,706,487,"1|0|1,2|0|1,3|0|1,4|0|1,4|-1|1,4|-2|1,5|-2|1,6|-2|1,7|-2|1,8|-2|0,8|-3|0,8|-4|0,9|-4|0,10|-4|1,10|-5|0,10|-6|0,10|-7|1,9|-7|1,8|-7|0,7|-7|0,7|-6|1,6|-6|1,6|-5|1,5|-5|1,5|-4|0,4|-4|1,4|-5|0,4|-6|1,4|-7|0,4|-8|1,4|-9|1,5|-9|0,2|-8|0,1|-8|0,0|-8|0,-1|-8|0,-1|-7|0,-2|-7|0,-2|-6|1,-7|-1|1,-8|-2|1,-9|-3|1,-13|-3|1,-13|-2|1,-13|-1|1,-13|0|1,-13|1|1,-13|2|1,12|2|0,13|2|0,13|3|0,14|3|0,15|3|1,16|3|1,16|2|0,16|1|0,16|0|0,15|0|0,15|-1|1,15|-2|1,15|-3|1,15|-4|1,15|-5|1,16|-5|1,17|-5|1,18|-5|1,18|-4|0,17|-4|0,17|-3|0,18|-3|0,18|-2|0,17|-2|0,-38|-6|0,-37|-6|0,-37|-5|0,-37|-4|0,-38|-4|0,-39|-4|0,-40|-4|0,-41|-4|0,-41|-3|0,-40|-3|0,-40|-2|0,-39|-2|0,-39|-3|0,-39|-4|0,-38|-4|0,-37|-4|0,-36|-4|0,-35|-4|0,-34|-4|0,-33|-4|0,-32|-4|0,-32|-3|0,-31|-3|0,-30|-3|0,-29|-3|0,-28|-3|0,-27|-3|0,-26|-3|0,-26|-2|0,-26|-1|0,-26|0|0,-25|0|0,-24|0|0,-23|0|0,-23|1|0,-23|2|0,-24|2|0,-29|2|0,-30|2|0",1)
dim mifeng
mifeng = Split(ER, "|")
E = CInt(mifeng(0)) : R = CInt(mifeng(1))
If E > 0 Then 
    TracePrint "六位置发现了发现小蜜蜂"
xmifeng= xmifeng+ 1
End If
Z=0
ZC=Plugin.Color.FindShape(521,335,706,487,"0|1|1,0|2|0,0|3|0,0|4|1,-1|4|1,-1|5|1,0|5|1,0|6|1,-1|6|1,-1|7|1,-1|8|1,-2|8|1,-3|8|0,-3|7|0,-4|7|0,-2|7|0,-7|7|1,-7|6|1,-7|5|1,-7|4|1,-8|4|1,-8|4|1,-9|4|0,-9|3|0,-9|2|1,-10|2|1,-11|2|1,-12|2|0,-12|1|0,-11|1|0,-10|1|0,-9|1|0,-8|1|1,-8|0|1,-8|-1|1,-8|-2|1,-7|-2|1,-10|-2|0,-10|-3|0,-10|-4|0,11|-4|1,11|-3|1,11|-2|1,11|-1|1,11|0|1,11|1|1,11|2|1,11|3|1,16|3|1,17|3|1,18|3|0,19|3|0,20|3|0,21|3|0,22|3|0,23|3|0,23|4|0,24|4|1,25|4|1,26|4|1,26|5|0,27|5|0,28|5|0,28|4|1,29|4|1,30|4|1,31|4|1,32|4|1,32|2|0,31|2|1,30|2|1,39|2|1,40|2|1,41|2|0,42|2|0,43|2|0,44|2|0",1)
dim bianyifeng
bianyifeng = Split(ZC, "|")
Z = CInt(bianyifeng(0)) : C = CInt(bianyifeng(1))
If Z > 0 Then 
    TracePrint "六位置发现了变异小蜜蜂"
bymifeng= bymifeng+ 1
End If
D=0
DF=Plugin.Color.FindShape(521,335,706,487,"0|-1|1,0|-2|1,0|-3|1,0|-4|1,0|-5|1,1|-5|0,1|-4|0,1|-3|0,1|-2|0,1|-1|0,1|0|0,1|1|0,3|1|0,4|1|0,5|1|0,6|1|0,6|0|1,6|-1|1,7|-1|0,8|-1|0,9|-1|0,10|-1|0,10|0|0,10|1|0,11|1|1,12|1|1,13|1|1,14|1|1,15|1|1,16|1|1,17|1|1,18|1|1,19|1|1,20|1|1,20|0|0,19|0|0,18|0|0,17|0|0,16|0|0,16|-1|1,15|-1|1,14|-1|1,13|-1|1,12|-1|0,12|-2|0,12|-3|0,12|-4|0,13|-4|1,14|-4|0,0|0|1,-1|0|0,-2|0|0,-3|0|0,-4|0|0,-5|0|0,-6|0|0,-7|0|0,-8|0|0,-9|0|0,-10|0|0,-11|0|0,-12|0|0,-13|0|0,-14|0|0,-15|0|0,-16|0|0,-17|0|0,-18|0|0,-19|0|0,-20|0|0,-21|0|0,-22|0|0,-22|-1|0,-23|-1|0,-23|-2|0,-24|-2|0,-25|-2|0,-26|-2|0,-27|-2|0",1)
dim xiaowugui
xiaowugui = Split(DF, "|")
D = CInt(xiaowugui(0)): F = CInt(xiaowugui(1))
If D > 0 Then 
    TracePrint "六位置发现了小乌龟发现"
wugui=wugui+1
End If
K=0
KM=Plugin.Color.FindShape(521,335,706,487,"0|-1|1,0|-2|1,-1|-2|1,-2|-2|1,3|-2|0,4|-2|0,5|-2|0,6|-2|0,7|-2|0,8|-2|0,9|-2|0,10|-2|0,11|-2|1,11|-1|1,11|0|1,12|0|0,13|0|0,14|0|0,14|1|0,15|1|1,16|1|0,16|2|1,17|2|0,17|3|1,18|3|0,19|3|0,24|3|1,25|3|1,26|3|1,27|3|1,28|3|1,29|3|1,30|3|1,31|3|1,32|3|1,33|3|1,34|3|1,34|4|0,33|4|1,32|4|0,31|4|0,30|4|0,29|4|0,28|4|0,27|4|0,26|4|0,25|4|0,25|5|1,26|5|1,27|5|1,28|5|1,29|5|1,30|5|1,31|5|1,32|5|0,33|5|0,34|5|0,41|5|1,42|5|1,43|5|1,44|5|1,45|5|1,45|4|1,45|3|1,45|2|1,45|1|1,45|0|1,45|-1|0,46|-1|0,47|-1|0,48|-1|0",1)
dim bianyigui
bianyigui = Split(KM, "|")
K = CInt(bianyigui(0)) : M = CInt(bianyigui(1))
If K > 0 Then 
    TracePrint "六位置发现了变异小乌龟"
bywugui=bywugui+1
End If
G=0
GH=Plugin.Color.FindShape(521,335,706,487,"0|-1|1,0|-2|1,1|-2|1,2|-2|0,3|-2|0,4|-2|0,5|-2|0,6|-2|0,7|-2|0,7|-3|0,6|-3|0,0|-3|1,0|-4|1,0|-5|1,-1|-5|0,-2|-5|0,-3|-5|0,-3|-8|0,-2|-8|0,-1|-8|0,0|-8|1,0|-9|0,1|-9|1,2|-9|1,3|-9|1,4|-9|1,16|-9|1,16|-7|0,15|-6|0,14|-6|1,14|-5|1,14|-4|1,14|-3|1,15|-4|1,16|-4|1,17|-4|1,18|-4|1,19|-4|1,20|-4|1,-2|-5|0,-7|-5|0,-8|-5|0,-9|-5|0,-10|-5|0,-11|-5|0,-12|-5|0,-13|-5|0,-14|-5|0,-15|-5|0,-16|-5|0,-17|-5|0,-18|-5|0,-18|-4|0,-19|-4|0,-20|-4|0,-21|-4|0,-22|-4|0,-23|-4|0,-24|-4|0,-24|-5|0,-25|-5|0,-25|-6|0",1)
dim maocaotuan
maocaotuan = Split(GH, "|")
G = CInt(maocaotuan(0)) : H = CInt(maocaotuan(1))
If G > 0 Then 
    TracePrint "六位置发现了茅草团发现"
caotuan=caotuan+1
End If
B=0
BH=Plugin.Color.FindShape(521,335,706,487,"1|0|1,2|0|0,3|0|0,4|0|0,4|-1|0,5|-1|0,9|-1|0,10|-1|0,11|-1|0,12|-1|0,13|-1|0,14|-1|1,14|0|1,14|1|1,15|1|1,15|2|0,16|2|0,17|2|0,17|1|1,18|1|1,19|1|1,19|2|0,20|2|0,21|2|0,22|2|1,23|2|0,24|2|0,26|2|0,27|2|0,28|2|0,29|2|1,30|2|1,31|2|0,32|-1|0,33|-1|1,34|-1|1,35|-1|1,-10|-1|1,-10|-2|1,-11|-2|1,-12|-2|1,-12|-1|0,-13|-1|0,-14|-1|0,-15|-1|0,-16|-1|0,-17|-1|1,-18|-1|1,-19|-1|0",1)
dim bianyicao
bianyicao = Split(BH, "|")
B = CInt(bianyicao(0)) : H = CInt(bianyicao(1))
If B > 0 Then 
    TracePrint "六位置发现了变异茅草团"
bycaotuan=bycaotuan+1
End If
H=0
HJ=Plugin.Color.FindShape(521,335,706,487,"0|-1|1,0|-2|1,0|-3|1,1|-4|0,2|-4|0,3|-4|0,3|-5|1,4|-5|1,5|-5|1,6|-5|1,6|-4|0,7|-4|1,7|-3|1,8|-3|0,14|-1|0,14|-2|1,15|-2|0,15|-3|1,15|-4|0,19|-4|0,18|-4|1,18|-3|1,18|-2|1,18|-1|1,18|0|1,25|0|0,24|0|1,24|-1|0,23|-1|1,30|-1|1,30|0|1,30|1|1,30|2|1,30|3|1,31|3|0,31|2|0,31|1|0,31|0|0,31|-1|0,31|-2|0,34|-3|0,35|-3|1,35|-2|1,35|-1|1,35|0|1,35|1|1,35|2|1,35|3|1,36|3|0,36|2|0,36|1|0,36|0|0,36|-1|0,36|-2|0,32|4|1,33|4|1,34|4|1,35|4|1,36|4|1,37|4|1,37|5|0,36|5|0,35|5|0,34|5|0,33|5|0,32|5|0",1)
dim bianyizhu
bianyizhu = Split(HJ, "|")
H = CInt(bianyizhu(0)) : J = CInt(bianyizhu(1))
If H > 0 Then 
    TracePrint "六位置发现了变异小山猪发现"
byshanzhu=byshanzhu+1
End If
K=0
KL=Plugin.Color.FindShape(521,335,706,487,"0|-1|0,3|-1|1,3|0|1,3|1|1,3|2|1,3|3|1,3|4|1,3|5|1,4|5|0,4|4|0,4|3|0,4|2|0,4|1|0,4|0|0,4|-1|0,4|-2|0,7|1|1,8|2|1,15|2|1,15|3|1,15|4|1,15|5|1,15|6|1,16|6|0,16|5|0,16|4|0,16|3|0,20|3|1,20|4|1,20|5|1,20|6|1,21|6|0,21|5|0,21|4|0,25|4|1,26|4|0,26|5|0,26|6|0,26|7|0,24|7|1,23|7|1,22|7|1,21|7|1,20|7|1,19|7|1,1|6|0,0|6|0,-1|6|0,-2|6|0,-3|6|0,-4|6|0,-5|6|0,-6|6|0,-7|6|0,-8|6|0,-9|6|0,-10|6|0,-11|6|0,-12|6|0,-13|6|0,-14|6|0,-15|6|0,-16|6|0,-17|6|0,-18|6|0,-19|6|0,-20|6|0,-21|6|0",1)
dim xiaoshanzhu
xiaoshanzhu = Split(KL, "|")
K = CInt(xiaoshanzhu(0)) : L = CInt(xiaoshanzhu(1))
If K > 0 Then 
    TracePrint "六位置发现了小山猪发现"
shanzhu=shanzhu+1
End If
V=0
VB=Plugin.Color.FindShape(521,335,706,487,"1|0|1,2|0|1,3|0|1,4|0|1,5|0|1,6|0|1,7|0|0,8|0|0,9|0|0,10|0|0,11|0|0,12|0|0,18|0|1,22|0|0,23|0|0,24|0|1,24|0|1,24|-1|1,23|-1|1,22|-1|1,26|-1|1,27|-1|1,28|-1|1,28|1|1,28|2|1,29|2|0,28|4|0,27|4|0,26|4|0,25|4|0,24|4|0,23|4|0,23|5|1,24|5|1,25|5|1,26|5|1,27|5|1,27|6|1,27|7|1,27|8|1,26|8|0,25|8|0,25|9|1,24|9|1,23|9|1,22|9|1,0|9|0,-1|9|0,-2|9|0,-3|9|0,-4|9|0,-5|9|0,-6|9|0,-7|9|0,-8|9|0,-9|9|0,-10|9|0,-11|9|0,-12|9|0,-13|9|0,-14|9|0,-15|9|0,-16|9|0",1)
dim ciwei
ciwei = Split(VB, "|")
V = CInt(ciwei(0)) : B = CInt(ciwei(1))
If V > 0 Then 
    TracePrint "六位置发现了刺猬发现"
xiaociwei=xiaociwei+1
End If
N=0
NM=Plugin.Color.FindShape(521,335,706,487,"1|0|1,2|0|1,3|0|1,4|0|1,5|0|1,6|0|1,7|0|1,8|0|1,8|1|1,8|2|1,8|3|1,7|3|0,6|3|0,5|3|1,4|3|1,4|4|1,3|4|1,2|4|1,1|4|1,0|4|0,-1|4|0,-1|5|1,-2|5|1,-2|6|1,-3|6|0,-3|7|0,-3|8|0,-4|8|0,-4|9|0,-5|9|0,-9|9|0,-10|9|0,-11|9|0,-12|9|1,-13|9|0,-14|9|0,-15|9|1,-15|8|0,-15|7|1,-16|7|0,-17|7|1,-18|7|1,-18|6|0,-26|5|1,-26|4|1,-26|3|1,-26|2|1,-27|2|1,-28|2|1,-29|2|1,-30|2|1,-31|2|0,-31|3|0,-30|5|0,-30|4|0,-29|4|0,-29|3|0,-28|3|0",1)
dim bianyici
bianyici = Split(NM, "|")
N = CInt(bianyici(0)) : M = CInt(bianyici(1))
If N > 0 Then 
    TracePrint "六位置发现了发现变异刺猬"
byxiaociwei=byxiaociwei+1
End If
 
End Sub

Sub a7()
X=0
XY=Plugin.Color.FindShape(634,235,822,402,"0|-1|1,0|-2|1,0|-3|1,0|-4|1,0|-5|1,0|-6|1,0|-7|1,0|-8|1,0|-9|1,0|-10|1,0|-11|1,0|-12|0,1|-12|0,1|-11|0,1|-10|0,1|-9|0,1|-8|0,1|-7|0,1|-6|0,1|-5|0,1|-4|0,1|-3|0,1|-2|0,1|-1|0,1|0|0,1|1|0,0|1|1,-1|1|1,14|1|0,14|1|0,14|0|0,15|0|1,15|-1|0,16|-1|0,16|-2|0,17|-2|0,18|-2|1,18|-1|1,18|0|1,18|1|0,19|1|1,20|1|1,21|1|1,22|1|1,23|1|1,24|1|1,22|-1|1,21|-1|1,21|-2|1,21|-4|1,22|-4|1,22|-5|1,22|-6|1,22|-7|1,-35|-6|1,-34|-6|1,-33|-6|1,-32|-6|1,-31|-6|1,-30|-6|1,-29|-6|1,-29|-7|0,-30|-7|0,-34|-6|1,-35|-6|1,-36|-6|1,-36|-7|0,-35|-7|0,-34|-7|0,-33|-7|0,-32|-7|0,-31|-7|0,-30|-7|0,-29|-7|0,-29|-6|1,-28|-6|0,-28|-7|0",1)
dim bianyitu
bianyitu = Split(XY, "|")
X = CInt(bianyitu(0)): Y = CInt(bianyitu(1))
If X > 0 Then 
    TracePrint "七位置发现了变异小兔子发现"
bytu= bytu+ 1

End If
Q=0
QW=Plugin.Color.FindShape(634,235,822,402,"1|0|1,2|0|1,3|0|1,4|0|1,5|0|1,5|-1|1,5|-2|1,5|-3|1,4|-3|1,3|-3|0,2|-3|0,1|-3|0,0|-3|1,0|-2|1,0|-1|0,0|0|1,0|1|1,1|1|1,1|2|1,1|3|1,1|4|1,1|5|0,2|5|1,3|5|1,4|5|1,5|5|1,6|5|1,7|5|1,7|4|0,6|4|0,15|5|1,16|5|1,17|5|1,-32|-7|0,-31|-7|0,-31|-6|0,-31|-5|0,-31|-4|0,-31|-3|0,-32|-3|0,-33|-3|0,-34|-3|0,-35|-3|0,-36|-3|0,-36|-2|0,-36|-1|0,-37|-1|0,-38|-1|0,-39|-1|0,-40|-1|0,-40|-1|0,-40|-2|0,-40|-3|0,-41|-3|0,-41|-4|0,-41|-5|0,-41|-6|0,-41|-7|0,-42|-7|0,-43|-7|0,-43|-6|0,-44|-6|0,-44|-5|0,-45|-5|0,-45|-4|0,-46|-4|0",1)
dim tu
tu = Split(QW, "|")
Q = CInt(tu(0)) : W = CInt(tu(1))
If Q > 0 Then 
    TracePrint "七位置发现了兔子发现"
    xiaotuzi= xiaotuzi+ 1
End If
E=0
ER=Plugin.Color.FindShape(634,235,822,402,"1|0|1,2|0|1,3|0|1,4|0|1,4|-1|1,4|-2|1,5|-2|1,6|-2|1,7|-2|1,8|-2|0,8|-3|0,8|-4|0,9|-4|0,10|-4|1,10|-5|0,10|-6|0,10|-7|1,9|-7|1,8|-7|0,7|-7|0,7|-6|1,6|-6|1,6|-5|1,5|-5|1,5|-4|0,4|-4|1,4|-5|0,4|-6|1,4|-7|0,4|-8|1,4|-9|1,5|-9|0,2|-8|0,1|-8|0,0|-8|0,-1|-8|0,-1|-7|0,-2|-7|0,-2|-6|1,-7|-1|1,-8|-2|1,-9|-3|1,-13|-3|1,-13|-2|1,-13|-1|1,-13|0|1,-13|1|1,-13|2|1,12|2|0,13|2|0,13|3|0,14|3|0,15|3|1,16|3|1,16|2|0,16|1|0,16|0|0,15|0|0,15|-1|1,15|-2|1,15|-3|1,15|-4|1,15|-5|1,16|-5|1,17|-5|1,18|-5|1,18|-4|0,17|-4|0,17|-3|0,18|-3|0,18|-2|0,17|-2|0,-38|-6|0,-37|-6|0,-37|-5|0,-37|-4|0,-38|-4|0,-39|-4|0,-40|-4|0,-41|-4|0,-41|-3|0,-40|-3|0,-40|-2|0,-39|-2|0,-39|-3|0,-39|-4|0,-38|-4|0,-37|-4|0,-36|-4|0,-35|-4|0,-34|-4|0,-33|-4|0,-32|-4|0,-32|-3|0,-31|-3|0,-30|-3|0,-29|-3|0,-28|-3|0,-27|-3|0,-26|-3|0,-26|-2|0,-26|-1|0,-26|0|0,-25|0|0,-24|0|0,-23|0|0,-23|1|0,-23|2|0,-24|2|0,-29|2|0,-30|2|0",1)
dim mifeng
mifeng = Split(ER, "|")
E = CInt(mifeng(0)) : R = CInt(mifeng(1))
If E > 0 Then 
    TracePrint "七位置发现了发现小蜜蜂"
xmifeng= xmifeng+ 1
End If
Z=0
ZC=Plugin.Color.FindShape(634,235,822,402,"0|1|1,0|2|0,0|3|0,0|4|1,-1|4|1,-1|5|1,0|5|1,0|6|1,-1|6|1,-1|7|1,-1|8|1,-2|8|1,-3|8|0,-3|7|0,-4|7|0,-2|7|0,-7|7|1,-7|6|1,-7|5|1,-7|4|1,-8|4|1,-8|4|1,-9|4|0,-9|3|0,-9|2|1,-10|2|1,-11|2|1,-12|2|0,-12|1|0,-11|1|0,-10|1|0,-9|1|0,-8|1|1,-8|0|1,-8|-1|1,-8|-2|1,-7|-2|1,-10|-2|0,-10|-3|0,-10|-4|0,11|-4|1,11|-3|1,11|-2|1,11|-1|1,11|0|1,11|1|1,11|2|1,11|3|1,16|3|1,17|3|1,18|3|0,19|3|0,20|3|0,21|3|0,22|3|0,23|3|0,23|4|0,24|4|1,25|4|1,26|4|1,26|5|0,27|5|0,28|5|0,28|4|1,29|4|1,30|4|1,31|4|1,32|4|1,32|2|0,31|2|1,30|2|1,39|2|1,40|2|1,41|2|0,42|2|0,43|2|0,44|2|0",1)
dim bianyifeng
bianyifeng = Split(ZC, "|")
Z = CInt(bianyifeng(0)) : C = CInt(bianyifeng(1))
If Z > 0 Then 
    TracePrint "七位置发现了变异小蜜蜂"
bymifeng= bymifeng+ 1
End If
D=0
DF=Plugin.Color.FindShape(634,235,822,402,"0|-1|1,0|-2|1,0|-3|1,0|-4|1,0|-5|1,1|-5|0,1|-4|0,1|-3|0,1|-2|0,1|-1|0,1|0|0,1|1|0,3|1|0,4|1|0,5|1|0,6|1|0,6|0|1,6|-1|1,7|-1|0,8|-1|0,9|-1|0,10|-1|0,10|0|0,10|1|0,11|1|1,12|1|1,13|1|1,14|1|1,15|1|1,16|1|1,17|1|1,18|1|1,19|1|1,20|1|1,20|0|0,19|0|0,18|0|0,17|0|0,16|0|0,16|-1|1,15|-1|1,14|-1|1,13|-1|1,12|-1|0,12|-2|0,12|-3|0,12|-4|0,13|-4|1,14|-4|0,0|0|1,-1|0|0,-2|0|0,-3|0|0,-4|0|0,-5|0|0,-6|0|0,-7|0|0,-8|0|0,-9|0|0,-10|0|0,-11|0|0,-12|0|0,-13|0|0,-14|0|0,-15|0|0,-16|0|0,-17|0|0,-18|0|0,-19|0|0,-20|0|0,-21|0|0,-22|0|0,-22|-1|0,-23|-1|0,-23|-2|0,-24|-2|0,-25|-2|0,-26|-2|0,-27|-2|0",1)
dim xiaowugui
xiaowugui = Split(DF, "|")
D = CInt(xiaowugui(0)): F = CInt(xiaowugui(1))
If D > 0 Then 
    TracePrint "七位置发现了小乌龟发现"
wugui=wugui+1
End If
K=0
KM=Plugin.Color.FindShape(634,235,822,402,"0|-1|1,0|-2|1,-1|-2|1,-2|-2|1,3|-2|0,4|-2|0,5|-2|0,6|-2|0,7|-2|0,8|-2|0,9|-2|0,10|-2|0,11|-2|1,11|-1|1,11|0|1,12|0|0,13|0|0,14|0|0,14|1|0,15|1|1,16|1|0,16|2|1,17|2|0,17|3|1,18|3|0,19|3|0,24|3|1,25|3|1,26|3|1,27|3|1,28|3|1,29|3|1,30|3|1,31|3|1,32|3|1,33|3|1,34|3|1,34|4|0,33|4|1,32|4|0,31|4|0,30|4|0,29|4|0,28|4|0,27|4|0,26|4|0,25|4|0,25|5|1,26|5|1,27|5|1,28|5|1,29|5|1,30|5|1,31|5|1,32|5|0,33|5|0,34|5|0,41|5|1,42|5|1,43|5|1,44|5|1,45|5|1,45|4|1,45|3|1,45|2|1,45|1|1,45|0|1,45|-1|0,46|-1|0,47|-1|0,48|-1|0",1)
dim bianyigui
bianyigui = Split(KM, "|")
K = CInt(bianyigui(0)) : M = CInt(bianyigui(1))
If K > 0 Then 
    TracePrint "七位置发现了变异小乌龟"
bywugui=bywugui+1
End If
G=0
GH=Plugin.Color.FindShape(634,235,822,402,"0|-1|1,0|-2|1,1|-2|1,2|-2|0,3|-2|0,4|-2|0,5|-2|0,6|-2|0,7|-2|0,7|-3|0,6|-3|0,0|-3|1,0|-4|1,0|-5|1,-1|-5|0,-2|-5|0,-3|-5|0,-3|-8|0,-2|-8|0,-1|-8|0,0|-8|1,0|-9|0,1|-9|1,2|-9|1,3|-9|1,4|-9|1,16|-9|1,16|-7|0,15|-6|0,14|-6|1,14|-5|1,14|-4|1,14|-3|1,15|-4|1,16|-4|1,17|-4|1,18|-4|1,19|-4|1,20|-4|1,-2|-5|0,-7|-5|0,-8|-5|0,-9|-5|0,-10|-5|0,-11|-5|0,-12|-5|0,-13|-5|0,-14|-5|0,-15|-5|0,-16|-5|0,-17|-5|0,-18|-5|0,-18|-4|0,-19|-4|0,-20|-4|0,-21|-4|0,-22|-4|0,-23|-4|0,-24|-4|0,-24|-5|0,-25|-5|0,-25|-6|0",1)
dim maocaotuan
maocaotuan = Split(GH, "|")
G = CInt(maocaotuan(0)) : H = CInt(maocaotuan(1))
If G > 0 Then 
    TracePrint "七位置发现了茅草团发现"
caotuan=caotuan+1
End If
B=0
BH=Plugin.Color.FindShape(634,235,822,402,"1|0|1,2|0|0,3|0|0,4|0|0,4|-1|0,5|-1|0,9|-1|0,10|-1|0,11|-1|0,12|-1|0,13|-1|0,14|-1|1,14|0|1,14|1|1,15|1|1,15|2|0,16|2|0,17|2|0,17|1|1,18|1|1,19|1|1,19|2|0,20|2|0,21|2|0,22|2|1,23|2|0,24|2|0,26|2|0,27|2|0,28|2|0,29|2|1,30|2|1,31|2|0,32|-1|0,33|-1|1,34|-1|1,35|-1|1,-10|-1|1,-10|-2|1,-11|-2|1,-12|-2|1,-12|-1|0,-13|-1|0,-14|-1|0,-15|-1|0,-16|-1|0,-17|-1|1,-18|-1|1,-19|-1|0",1)
dim bianyicao
bianyicao = Split(BH, "|")
B = CInt(bianyicao(0)) : H = CInt(bianyicao(1))
If B > 0 Then 
    TracePrint "七位置发现了变异茅草团"
bycaotuan=bycaotuan+1
End If
H=0
HJ=Plugin.Color.FindShape(634,235,822,402,"0|-1|1,0|-2|1,0|-3|1,1|-4|0,2|-4|0,3|-4|0,3|-5|1,4|-5|1,5|-5|1,6|-5|1,6|-4|0,7|-4|1,7|-3|1,8|-3|0,14|-1|0,14|-2|1,15|-2|0,15|-3|1,15|-4|0,19|-4|0,18|-4|1,18|-3|1,18|-2|1,18|-1|1,18|0|1,25|0|0,24|0|1,24|-1|0,23|-1|1,30|-1|1,30|0|1,30|1|1,30|2|1,30|3|1,31|3|0,31|2|0,31|1|0,31|0|0,31|-1|0,31|-2|0,34|-3|0,35|-3|1,35|-2|1,35|-1|1,35|0|1,35|1|1,35|2|1,35|3|1,36|3|0,36|2|0,36|1|0,36|0|0,36|-1|0,36|-2|0,32|4|1,33|4|1,34|4|1,35|4|1,36|4|1,37|4|1,37|5|0,36|5|0,35|5|0,34|5|0,33|5|0,32|5|0",1)
dim bianyizhu
bianyizhu = Split(HJ, "|")
H = CInt(bianyizhu(0)) : J = CInt(bianyizhu(1))
If H > 0 Then 
    TracePrint "七位置发现了变异小山猪发现"
byshanzhu=byshanzhu+1
End If
K=0
KL=Plugin.Color.FindShape(634,235,822,402,"0|-1|0,3|-1|1,3|0|1,3|1|1,3|2|1,3|3|1,3|4|1,3|5|1,4|5|0,4|4|0,4|3|0,4|2|0,4|1|0,4|0|0,4|-1|0,4|-2|0,7|1|1,8|2|1,15|2|1,15|3|1,15|4|1,15|5|1,15|6|1,16|6|0,16|5|0,16|4|0,16|3|0,20|3|1,20|4|1,20|5|1,20|6|1,21|6|0,21|5|0,21|4|0,25|4|1,26|4|0,26|5|0,26|6|0,26|7|0,24|7|1,23|7|1,22|7|1,21|7|1,20|7|1,19|7|1,1|6|0,0|6|0,-1|6|0,-2|6|0,-3|6|0,-4|6|0,-5|6|0,-6|6|0,-7|6|0,-8|6|0,-9|6|0,-10|6|0,-11|6|0,-12|6|0,-13|6|0,-14|6|0,-15|6|0,-16|6|0,-17|6|0,-18|6|0,-19|6|0,-20|6|0,-21|6|0",1)
dim xiaoshanzhu
xiaoshanzhu = Split(KL, "|")
K = CInt(xiaoshanzhu(0)) : L = CInt(xiaoshanzhu(1))
If K > 0 Then 
    TracePrint "七位置发现了小山猪发现"
shanzhu=shanzhu+1
End If
V=0
VB=Plugin.Color.FindShape(634,235,822,402,"1|0|1,2|0|1,3|0|1,4|0|1,5|0|1,6|0|1,7|0|0,8|0|0,9|0|0,10|0|0,11|0|0,12|0|0,18|0|1,22|0|0,23|0|0,24|0|1,24|0|1,24|-1|1,23|-1|1,22|-1|1,26|-1|1,27|-1|1,28|-1|1,28|1|1,28|2|1,29|2|0,28|4|0,27|4|0,26|4|0,25|4|0,24|4|0,23|4|0,23|5|1,24|5|1,25|5|1,26|5|1,27|5|1,27|6|1,27|7|1,27|8|1,26|8|0,25|8|0,25|9|1,24|9|1,23|9|1,22|9|1,0|9|0,-1|9|0,-2|9|0,-3|9|0,-4|9|0,-5|9|0,-6|9|0,-7|9|0,-8|9|0,-9|9|0,-10|9|0,-11|9|0,-12|9|0,-13|9|0,-14|9|0,-15|9|0,-16|9|0",1)
dim ciwei
ciwei = Split(VB, "|")
V = CInt(ciwei(0)) : B = CInt(ciwei(1))
If V > 0 Then 
    TracePrint "七位置发现了刺猬发现"
xiaociwei=xiaociwei+1
End If
N=0
NM=Plugin.Color.FindShape(634,235,822,402,"1|0|1,2|0|1,3|0|1,4|0|1,5|0|1,6|0|1,7|0|1,8|0|1,8|1|1,8|2|1,8|3|1,7|3|0,6|3|0,5|3|1,4|3|1,4|4|1,3|4|1,2|4|1,1|4|1,0|4|0,-1|4|0,-1|5|1,-2|5|1,-2|6|1,-3|6|0,-3|7|0,-3|8|0,-4|8|0,-4|9|0,-5|9|0,-9|9|0,-10|9|0,-11|9|0,-12|9|1,-13|9|0,-14|9|0,-15|9|1,-15|8|0,-15|7|1,-16|7|0,-17|7|1,-18|7|1,-18|6|0,-26|5|1,-26|4|1,-26|3|1,-26|2|1,-27|2|1,-28|2|1,-29|2|1,-30|2|1,-31|2|0,-31|3|0,-30|5|0,-30|4|0,-29|4|0,-29|3|0,-28|3|0",1)
dim bianyici
bianyici = Split(NM, "|")
N = CInt(bianyici(0)) : M = CInt(bianyici(1))
If N > 0 Then 
    TracePrint "七位置发现了发现变异刺猬"
byxiaociwei=byxiaociwei+1
End If
 
End Sub

Sub a8()
X=0
XY=Plugin.Color.FindShape(545,160,715,273,"0|-1|1,0|-2|1,0|-3|1,0|-4|1,0|-5|1,0|-6|1,0|-7|1,0|-8|1,0|-9|1,0|-10|1,0|-11|1,0|-12|0,1|-12|0,1|-11|0,1|-10|0,1|-9|0,1|-8|0,1|-7|0,1|-6|0,1|-5|0,1|-4|0,1|-3|0,1|-2|0,1|-1|0,1|0|0,1|1|0,0|1|1,-1|1|1,14|1|0,14|1|0,14|0|0,15|0|1,15|-1|0,16|-1|0,16|-2|0,17|-2|0,18|-2|1,18|-1|1,18|0|1,18|1|0,19|1|1,20|1|1,21|1|1,22|1|1,23|1|1,24|1|1,22|-1|1,21|-1|1,21|-2|1,21|-4|1,22|-4|1,22|-5|1,22|-6|1,22|-7|1,-35|-6|1,-34|-6|1,-33|-6|1,-32|-6|1,-31|-6|1,-30|-6|1,-29|-6|1,-29|-7|0,-30|-7|0,-34|-6|1,-35|-6|1,-36|-6|1,-36|-7|0,-35|-7|0,-34|-7|0,-33|-7|0,-32|-7|0,-31|-7|0,-30|-7|0,-29|-7|0,-29|-6|1,-28|-6|0,-28|-7|0",1)
dim bianyitu
bianyitu = Split(XY, "|")
X = CInt(bianyitu(0)): Y = CInt(bianyitu(1))
If X > 0 Then 
    TracePrint "8位置发现了变异小兔子发现"
    bytu= bytu+ 1
End If
Q=0
QW=Plugin.Color.FindShape(545,160,715,273,"1|0|1,2|0|1,3|0|1,4|0|1,5|0|1,5|-1|1,5|-2|1,5|-3|1,4|-3|1,3|-3|0,2|-3|0,1|-3|0,0|-3|1,0|-2|1,0|-1|0,0|0|1,0|1|1,1|1|1,1|2|1,1|3|1,1|4|1,1|5|0,2|5|1,3|5|1,4|5|1,5|5|1,6|5|1,7|5|1,7|4|0,6|4|0,15|5|1,16|5|1,17|5|1,-32|-7|0,-31|-7|0,-31|-6|0,-31|-5|0,-31|-4|0,-31|-3|0,-32|-3|0,-33|-3|0,-34|-3|0,-35|-3|0,-36|-3|0,-36|-2|0,-36|-1|0,-37|-1|0,-38|-1|0,-39|-1|0,-40|-1|0,-40|-1|0,-40|-2|0,-40|-3|0,-41|-3|0,-41|-4|0,-41|-5|0,-41|-6|0,-41|-7|0,-42|-7|0,-43|-7|0,-43|-6|0,-44|-6|0,-44|-5|0,-45|-5|0,-45|-4|0,-46|-4|0",1)
dim tu
tu = Split(QW, "|")
Q = CInt(tu(0)) : W = CInt(tu(1))
If Q > 0 Then 
    TracePrint "八位置发现了兔子发现"
    xiaotuzi= xiaotuzi+ 1
End If
E=0
ER=Plugin.Color.FindShape(545,160,715,273,"1|0|1,2|0|1,3|0|1,4|0|1,4|-1|1,4|-2|1,5|-2|1,6|-2|1,7|-2|1,8|-2|0,8|-3|0,8|-4|0,9|-4|0,10|-4|1,10|-5|0,10|-6|0,10|-7|1,9|-7|1,8|-7|0,7|-7|0,7|-6|1,6|-6|1,6|-5|1,5|-5|1,5|-4|0,4|-4|1,4|-5|0,4|-6|1,4|-7|0,4|-8|1,4|-9|1,5|-9|0,2|-8|0,1|-8|0,0|-8|0,-1|-8|0,-1|-7|0,-2|-7|0,-2|-6|1,-7|-1|1,-8|-2|1,-9|-3|1,-13|-3|1,-13|-2|1,-13|-1|1,-13|0|1,-13|1|1,-13|2|1,12|2|0,13|2|0,13|3|0,14|3|0,15|3|1,16|3|1,16|2|0,16|1|0,16|0|0,15|0|0,15|-1|1,15|-2|1,15|-3|1,15|-4|1,15|-5|1,16|-5|1,17|-5|1,18|-5|1,18|-4|0,17|-4|0,17|-3|0,18|-3|0,18|-2|0,17|-2|0,-38|-6|0,-37|-6|0,-37|-5|0,-37|-4|0,-38|-4|0,-39|-4|0,-40|-4|0,-41|-4|0,-41|-3|0,-40|-3|0,-40|-2|0,-39|-2|0,-39|-3|0,-39|-4|0,-38|-4|0,-37|-4|0,-36|-4|0,-35|-4|0,-34|-4|0,-33|-4|0,-32|-4|0,-32|-3|0,-31|-3|0,-30|-3|0,-29|-3|0,-28|-3|0,-27|-3|0,-26|-3|0,-26|-2|0,-26|-1|0,-26|0|0,-25|0|0,-24|0|0,-23|0|0,-23|1|0,-23|2|0,-24|2|0,-29|2|0,-30|2|0",1)
dim mifeng
mifeng = Split(ER, "|")
E = CInt(mifeng(0)) : R = CInt(mifeng(1))
If E > 0 Then 
    TracePrint "八位置发现了发现小蜜蜂"
xmifeng= xmifeng+ 1
End If
Z=0
ZC=Plugin.Color.FindShape(545,160,715,273,"0|1|1,0|2|0,0|3|0,0|4|1,-1|4|1,-1|5|1,0|5|1,0|6|1,-1|6|1,-1|7|1,-1|8|1,-2|8|1,-3|8|0,-3|7|0,-4|7|0,-2|7|0,-7|7|1,-7|6|1,-7|5|1,-7|4|1,-8|4|1,-8|4|1,-9|4|0,-9|3|0,-9|2|1,-10|2|1,-11|2|1,-12|2|0,-12|1|0,-11|1|0,-10|1|0,-9|1|0,-8|1|1,-8|0|1,-8|-1|1,-8|-2|1,-7|-2|1,-10|-2|0,-10|-3|0,-10|-4|0,11|-4|1,11|-3|1,11|-2|1,11|-1|1,11|0|1,11|1|1,11|2|1,11|3|1,16|3|1,17|3|1,18|3|0,19|3|0,20|3|0,21|3|0,22|3|0,23|3|0,23|4|0,24|4|1,25|4|1,26|4|1,26|5|0,27|5|0,28|5|0,28|4|1,29|4|1,30|4|1,31|4|1,32|4|1,32|2|0,31|2|1,30|2|1,39|2|1,40|2|1,41|2|0,42|2|0,43|2|0,44|2|0",1)
dim bianyifeng
bianyifeng = Split(ZC, "|")
Z = CInt(bianyifeng(0)) : C = CInt(bianyifeng(1))
If Z > 0 Then 
    TracePrint "八位置发现了变异小蜜蜂"
bymifeng= bymifeng+ 1
End If
D=0
DF=Plugin.Color.FindShape(545,160,715,273,"0|-1|1,0|-2|1,0|-3|1,0|-4|1,0|-5|1,1|-5|0,1|-4|0,1|-3|0,1|-2|0,1|-1|0,1|0|0,1|1|0,3|1|0,4|1|0,5|1|0,6|1|0,6|0|1,6|-1|1,7|-1|0,8|-1|0,9|-1|0,10|-1|0,10|0|0,10|1|0,11|1|1,12|1|1,13|1|1,14|1|1,15|1|1,16|1|1,17|1|1,18|1|1,19|1|1,20|1|1,20|0|0,19|0|0,18|0|0,17|0|0,16|0|0,16|-1|1,15|-1|1,14|-1|1,13|-1|1,12|-1|0,12|-2|0,12|-3|0,12|-4|0,13|-4|1,14|-4|0,0|0|1,-1|0|0,-2|0|0,-3|0|0,-4|0|0,-5|0|0,-6|0|0,-7|0|0,-8|0|0,-9|0|0,-10|0|0,-11|0|0,-12|0|0,-13|0|0,-14|0|0,-15|0|0,-16|0|0,-17|0|0,-18|0|0,-19|0|0,-20|0|0,-21|0|0,-22|0|0,-22|-1|0,-23|-1|0,-23|-2|0,-24|-2|0,-25|-2|0,-26|-2|0,-27|-2|0",1)
dim xiaowugui
xiaowugui = Split(DF, "|")
D = CInt(xiaowugui(0)): F = CInt(xiaowugui(1))
If D > 0 Then 
    TracePrint "八位置发现了小乌龟发现"
wugui=wugui+1
End If
K=0
KM=Plugin.Color.FindShape(545,160,715,273,"0|-1|1,0|-2|1,-1|-2|1,-2|-2|1,3|-2|0,4|-2|0,5|-2|0,6|-2|0,7|-2|0,8|-2|0,9|-2|0,10|-2|0,11|-2|1,11|-1|1,11|0|1,12|0|0,13|0|0,14|0|0,14|1|0,15|1|1,16|1|0,16|2|1,17|2|0,17|3|1,18|3|0,19|3|0,24|3|1,25|3|1,26|3|1,27|3|1,28|3|1,29|3|1,30|3|1,31|3|1,32|3|1,33|3|1,34|3|1,34|4|0,33|4|1,32|4|0,31|4|0,30|4|0,29|4|0,28|4|0,27|4|0,26|4|0,25|4|0,25|5|1,26|5|1,27|5|1,28|5|1,29|5|1,30|5|1,31|5|1,32|5|0,33|5|0,34|5|0,41|5|1,42|5|1,43|5|1,44|5|1,45|5|1,45|4|1,45|3|1,45|2|1,45|1|1,45|0|1,45|-1|0,46|-1|0,47|-1|0,48|-1|0",1)
dim bianyigui
bianyigui = Split(KM, "|")
K = CInt(bianyigui(0)) : M = CInt(bianyigui(1))
If K > 0 Then 
    TracePrint "八位置发现了变异小乌龟"
bywugui=bywugui+1
End If
G=0
GH=Plugin.Color.FindShape(545,160,715,273,"0|-1|1,0|-2|1,1|-2|1,2|-2|0,3|-2|0,4|-2|0,5|-2|0,6|-2|0,7|-2|0,7|-3|0,6|-3|0,0|-3|1,0|-4|1,0|-5|1,-1|-5|0,-2|-5|0,-3|-5|0,-3|-8|0,-2|-8|0,-1|-8|0,0|-8|1,0|-9|0,1|-9|1,2|-9|1,3|-9|1,4|-9|1,16|-9|1,16|-7|0,15|-6|0,14|-6|1,14|-5|1,14|-4|1,14|-3|1,15|-4|1,16|-4|1,17|-4|1,18|-4|1,19|-4|1,20|-4|1,-2|-5|0,-7|-5|0,-8|-5|0,-9|-5|0,-10|-5|0,-11|-5|0,-12|-5|0,-13|-5|0,-14|-5|0,-15|-5|0,-16|-5|0,-17|-5|0,-18|-5|0,-18|-4|0,-19|-4|0,-20|-4|0,-21|-4|0,-22|-4|0,-23|-4|0,-24|-4|0,-24|-5|0,-25|-5|0,-25|-6|0",1)
dim maocaotuan
maocaotuan = Split(GH, "|")
G = CInt(maocaotuan(0)) : H = CInt(maocaotuan(1))
If G > 0 Then 
    TracePrint "八位置发现了茅草团发现"
caotuan=caotuan+1
End If
B=0
BH=Plugin.Color.FindShape(545,160,715,273,"1|0|1,2|0|0,3|0|0,4|0|0,4|-1|0,5|-1|0,9|-1|0,10|-1|0,11|-1|0,12|-1|0,13|-1|0,14|-1|1,14|0|1,14|1|1,15|1|1,15|2|0,16|2|0,17|2|0,17|1|1,18|1|1,19|1|1,19|2|0,20|2|0,21|2|0,22|2|1,23|2|0,24|2|0,26|2|0,27|2|0,28|2|0,29|2|1,30|2|1,31|2|0,32|-1|0,33|-1|1,34|-1|1,35|-1|1,-10|-1|1,-10|-2|1,-11|-2|1,-12|-2|1,-12|-1|0,-13|-1|0,-14|-1|0,-15|-1|0,-16|-1|0,-17|-1|1,-18|-1|1,-19|-1|0",1)
dim bianyicao
bianyicao = Split(BH, "|")
B = CInt(bianyicao(0)) : H = CInt(bianyicao(1))
If B > 0 Then 
    TracePrint "八位置发现了变异茅草团"
bycaotuan=bycaotuan+1
End If
H=0
HJ=Plugin.Color.FindShape(545,160,715,273,"0|-1|1,0|-2|1,0|-3|1,1|-4|0,2|-4|0,3|-4|0,3|-5|1,4|-5|1,5|-5|1,6|-5|1,6|-4|0,7|-4|1,7|-3|1,8|-3|0,14|-1|0,14|-2|1,15|-2|0,15|-3|1,15|-4|0,19|-4|0,18|-4|1,18|-3|1,18|-2|1,18|-1|1,18|0|1,25|0|0,24|0|1,24|-1|0,23|-1|1,30|-1|1,30|0|1,30|1|1,30|2|1,30|3|1,31|3|0,31|2|0,31|1|0,31|0|0,31|-1|0,31|-2|0,34|-3|0,35|-3|1,35|-2|1,35|-1|1,35|0|1,35|1|1,35|2|1,35|3|1,36|3|0,36|2|0,36|1|0,36|0|0,36|-1|0,36|-2|0,32|4|1,33|4|1,34|4|1,35|4|1,36|4|1,37|4|1,37|5|0,36|5|0,35|5|0,34|5|0,33|5|0,32|5|0",1)
dim bianyizhu
bianyizhu = Split(HJ, "|")
H = CInt(bianyizhu(0)) : J = CInt(bianyizhu(1))
If H > 0 Then 
    TracePrint "八位置发现了变异小山猪发现"
byshanzhu=byshanzhu+1
End If
K=0
KL=Plugin.Color.FindShape(545,160,715,273,"0|-1|0,3|-1|1,3|0|1,3|1|1,3|2|1,3|3|1,3|4|1,3|5|1,4|5|0,4|4|0,4|3|0,4|2|0,4|1|0,4|0|0,4|-1|0,4|-2|0,7|1|1,8|2|1,15|2|1,15|3|1,15|4|1,15|5|1,15|6|1,16|6|0,16|5|0,16|4|0,16|3|0,20|3|1,20|4|1,20|5|1,20|6|1,21|6|0,21|5|0,21|4|0,25|4|1,26|4|0,26|5|0,26|6|0,26|7|0,24|7|1,23|7|1,22|7|1,21|7|1,20|7|1,19|7|1,1|6|0,0|6|0,-1|6|0,-2|6|0,-3|6|0,-4|6|0,-5|6|0,-6|6|0,-7|6|0,-8|6|0,-9|6|0,-10|6|0,-11|6|0,-12|6|0,-13|6|0,-14|6|0,-15|6|0,-16|6|0,-17|6|0,-18|6|0,-19|6|0,-20|6|0,-21|6|0",1)
dim xiaoshanzhu
xiaoshanzhu = Split(KL, "|")
K = CInt(xiaoshanzhu(0)) : L = CInt(xiaoshanzhu(1))
If K > 0 Then 
    TracePrint "八位置发现了小山猪发现"
shanzhu=shanzhu+1
End If
V=0
VB=Plugin.Color.FindShape(545,160,715,273,"1|0|1,2|0|1,3|0|1,4|0|1,5|0|1,6|0|1,7|0|0,8|0|0,9|0|0,10|0|0,11|0|0,12|0|0,18|0|1,22|0|0,23|0|0,24|0|1,24|0|1,24|-1|1,23|-1|1,22|-1|1,26|-1|1,27|-1|1,28|-1|1,28|1|1,28|2|1,29|2|0,28|4|0,27|4|0,26|4|0,25|4|0,24|4|0,23|4|0,23|5|1,24|5|1,25|5|1,26|5|1,27|5|1,27|6|1,27|7|1,27|8|1,26|8|0,25|8|0,25|9|1,24|9|1,23|9|1,22|9|1,0|9|0,-1|9|0,-2|9|0,-3|9|0,-4|9|0,-5|9|0,-6|9|0,-7|9|0,-8|9|0,-9|9|0,-10|9|0,-11|9|0,-12|9|0,-13|9|0,-14|9|0,-15|9|0,-16|9|0",1)
dim ciwei
ciwei = Split(VB, "|")
V = CInt(ciwei(0)) : B = CInt(ciwei(1))
If V > 0 Then 
    TracePrint "八位置发现了刺猬发现"
xiaociwei=xiaociwei+1
End If
N=0
NM=Plugin.Color.FindShape(545,160,715,273,"1|0|1,2|0|1,3|0|1,4|0|1,5|0|1,6|0|1,7|0|1,8|0|1,8|1|1,8|2|1,8|3|1,7|3|0,6|3|0,5|3|1,4|3|1,4|4|1,3|4|1,2|4|1,1|4|1,0|4|0,-1|4|0,-1|5|1,-2|5|1,-2|6|1,-3|6|0,-3|7|0,-3|8|0,-4|8|0,-4|9|0,-5|9|0,-9|9|0,-10|9|0,-11|9|0,-12|9|1,-13|9|0,-14|9|0,-15|9|1,-15|8|0,-15|7|1,-16|7|0,-17|7|1,-18|7|1,-18|6|0,-26|5|1,-26|4|1,-26|3|1,-26|2|1,-27|2|1,-28|2|1,-29|2|1,-30|2|1,-31|2|0,-31|3|0,-30|5|0,-30|4|0,-29|4|0,-29|3|0,-28|3|0",1)
dim bianyici
bianyici = Split(NM, "|")
N = CInt(bianyici(0)) : M = CInt(bianyici(1))
If N > 0 Then 
    TracePrint "八位置发现了发现变异刺猬"
byxiaociwei=byxiaociwei+1
End If
 
End Sub

Sub 答题()
X=0
XY = Plugin.Pic.FindWordShape(0, 0, 1024, 768, "刚才出现变异的刺猬有几只", "宋体", 11, 0, 0.9)
iZB = InStr(XY, "|")
X = CLng(Left(XY, iZB - 1))
Y = CLng(Right(XY, Len(XY) - iZB))
TracePrint XY
If X > 0 Then 
If byxiaociwei = 0 Then 
zhi0 
ElseIf byxiaociwei = 1 then
zhi1 
ElseIf byxiaociwei = 2 Then
zhi2 
Else 
zhi3 
End If
Exit sub 
End If
X=0
XY = Plugin.Pic.FindWordShape(0, 0, 1024, 768, "刚才出现变异的毛草团有几只", "宋体", 11, 0, 0.9)
iZB = InStr(XY, "|")
X = CLng(Left(XY, iZB - 1))
Y = CLng(Right(XY, Len(XY) - iZB))
TracePrint XY
If X > 0 Then 
If bycaotuan = 0 Then 
zhi0 
ElseIf bycaotuan = 1 then
zhi1 
ElseIf bycaotuan = 2 Then
zhi2 
Else 
zhi3 
End If
Exit sub 
End If

X=0
XY = Plugin.Pic.FindWordShape(0, 0, 1024, 768, "刚才出现变异的小山猪有几只", "宋体", 11, 0, 0.9)
iZB = InStr(XY, "|")
X = CLng(Left(XY, iZB - 1))
Y = CLng(Right(XY, Len(XY) - iZB))
TracePrint XY
If X > 0 Then 
If byshanzhu = 0 Then 
zhi0 
ElseIf byshanzhu = 1 then
zhi1 
ElseIf byshanzhu = 2 Then
zhi2 
Else 
zhi3 
End If
Exit sub 
End If

X=0
XY = Plugin.Pic.FindWordShape(0, 0, 1024, 768, "刚才出现变异的小蜜蜂有几只", "宋体", 11, 0, 0.9)
iZB = InStr(XY, "|")
X = CLng(Left(XY, iZB - 1))
Y = CLng(Right(XY, Len(XY) - iZB))
TracePrint XY
If X > 0 Then 
If bymifeng = 0 Then 
zhi0 
ElseIf bymifeng = 1 then
zhi1 
ElseIf bymifeng = 2 Then
zhi2 
Else 
zhi3 
End If
Exit sub 
End If

X=0
XY = Plugin.Pic.FindWordShape(0, 0, 1024, 768, "刚才出现变异的小兔子有几只", "宋体", 11, 0, 0.9)
iZB = InStr(XY, "|")
X = CLng(Left(XY, iZB - 1))
Y = CLng(Right(XY, Len(XY) - iZB))
TracePrint XY
If X > 0 Then 
If bytu = 0 Then 
zhi0 
ElseIf bytu = 1 then
zhi1 
ElseIf bytu = 2 Then
zhi2 
Else 
zhi3 
End If
Exit sub 
End If

X=0
XY = Plugin.Pic.FindWordShape(0, 0, 1024, 768, "刚才出现变异的小乌龟有几只", "宋体", 11, 0, 0.9)
iZB = InStr(XY, "|")
X = CLng(Left(XY, iZB - 1))
Y = CLng(Right(XY, Len(XY) - iZB))
TracePrint XY
If X > 0 Then 
If bywugui = 0 Then 
zhi0 
ElseIf bywugui = 1 then
zhi1 
ElseIf bywugui = 2 Then
zhi2 
Else 
zhi3 
End If
Exit sub 
End If

X=0
XY = Plugin.Pic.FindWordShape(0, 0, 1024, 768, "刚才出现的刺猬有几只", "宋体", 11, 0, 0.9)
iZB = InStr(XY, "|")
X = CLng(Left(XY, iZB - 1))
Y = CLng(Right(XY, Len(XY) - iZB))
TracePrint XY
If X > 0 Then 
If byxiaociwei+ xiaociwei= 0 Then 
zhi0 
ElseIf byxiaociwei+ xiaociwei = 1 then
zhi1 
ElseIf byxiaociwei+ xiaociwei = 2 Then
zhi2 
Else 
zhi3 
End If
Exit sub 
End If

X=0
XY = Plugin.Pic.FindWordShape(0, 0, 1024, 768, "刚才出现的毛草团有几只", "宋体", 11, 0, 0.9)
iZB = InStr(XY, "|")
X = CLng(Left(XY, iZB - 1))
Y = CLng(Right(XY, Len(XY) - iZB))
TracePrint XY
If X > 0 Then 
If caotuan+ bycaotuan= 0 Then 
zhi0 
ElseIf caotuan+ bycaotuan = 1 then
zhi1 
ElseIf caotuan+ bycaotuan = 2 Then
zhi2 
Else 
zhi3 
End If
Exit sub 
End If

X=0
XY = Plugin.Pic.FindWordShape(0, 0, 1024, 768, "刚才出现的小山猪有几只", "宋体", 11, 0, 0.9)
iZB = InStr(XY, "|")
X = CLng(Left(XY, iZB - 1))
Y = CLng(Right(XY, Len(XY) - iZB))
TracePrint XY
If X > 0 Then 
If shanzhu+ byshanzhu= 0 Then 
zhi0 
ElseIf shanzhu+ byshanzhu = 1 then
zhi1 
ElseIf shanzhu+ byshanzhu = 2 Then
zhi2 
Else 
zhi3 
End If
Exit sub 
End If

X=0
XY = Plugin.Pic.FindWordShape(0, 0, 1024, 768, "刚才出现的小乌龟有几只", "宋体", 11, 0, 0.9)
iZB = InStr(XY, "|")
X = CLng(Left(XY, iZB - 1))
Y = CLng(Right(XY, Len(XY) - iZB))
TracePrint XY
If X > 0 Then 
If bywugui+ wugui= 0 Then 
zhi0 
ElseIf bywugui+ wugui = 1 then
zhi1 
ElseIf bywugui+ wugui = 2 Then
zhi2 
Else 
zhi3 
End If
Exit sub 
End If

X=0
XY = Plugin.Pic.FindWordShape(0, 0, 1024, 768, "刚才出现的小兔子有几只", "宋体", 11, 0, 0.9)
iZB = InStr(XY, "|")
X = CLng(Left(XY, iZB - 1))
Y = CLng(Right(XY, Len(XY) - iZB))
TracePrint XY
If X > 0 Then 
If xiaotuzi+ bytu= 0 Then 
zhi0 
ElseIf xiaotuzi+ bytu = 1 then
zhi1 
ElseIf xiaotuzi+ bytu = 2 Then
zhi2 
Else 
zhi3 
End If
Exit sub 
End If

X=0
XY = Plugin.Pic.FindWordShape(0, 0, 1024, 768, "刚才出现的小蜜蜂有几只", "宋体", 11, 0, 0.9)
iZB = InStr(XY, "|")
X = CLng(Left(XY, iZB - 1))
Y = CLng(Right(XY, Len(XY) - iZB))
TracePrint XY
If X > 0 Then 
If xmifeng+ bymifeng= 0 Then 
zhi0 
ElseIf xmifeng+ bymifeng = 1 then
zhi1 
ElseIf xmifeng+ bymifeng = 2 Then
zhi2 
Else 
zhi3 
End If
Exit sub 
End If

X=0
XY = Plugin.Pic.FindWordShape(0, 0, 1024, 768, "刚才有出现小蜜蜂吗", "宋体", 11, 0, 0.9)
iZB = InStr(XY, "|")
X = CLng(Left(XY, iZB - 1))
Y = CLng(Right(XY, Len(XY) - iZB))
TracePrint XY
If X > 0 Then 
If xmifeng + bymifeng > 0 Then 
zhi0 
Else 
zhi3 
End If
Exit sub 
End If
X=0
XY = Plugin.Pic.FindWordShape(0, 0, 1024, 768, "刚才有出现小乌龟吗", "宋体", 11, 0, 0.9)
iZB = InStr(XY, "|")
X = CLng(Left(XY, iZB - 1))
Y = CLng(Right(XY, Len(XY) - iZB))
TracePrint XY
If X > 0 Then 
If bywugui+ wugui > 0 Then 
zhi0 
Else 
zhi3 
End If
Exit sub 
End If

X=0
XY = Plugin.Pic.FindWordShape(0, 0, 1024, 768, "刚才有出现小兔子吗", "宋体", 11, 0, 0.9)
iZB = InStr(XY, "|")
X = CLng(Left(XY, iZB - 1))
Y = CLng(Right(XY, Len(XY) - iZB))
TracePrint XY
If X > 0 Then 
If xiaotuzi+ bytu > 0 Then 
zhi0 
Else 
zhi3 
End If
Exit sub 
End If
X=0
XY = Plugin.Pic.FindWordShape(0, 0, 1024, 768, "刚才有出现毛草团吗", "宋体", 11, 0, 0.9)
iZB = InStr(XY, "|")
X = CLng(Left(XY, iZB - 1))
Y = CLng(Right(XY, Len(XY) - iZB))
TracePrint XY
If X > 0 Then 
If caotuan+ bycaotuan > 0 Then 
zhi0 
Else 
zhi3 
End If
Exit sub 
End If

X=0
XY = Plugin.Pic.FindWordShape(0, 0, 1024, 768, "刚才有出现刺猬吗", "宋体", 11, 0, 0.9)
iZB = InStr(XY, "|")
X = CLng(Left(XY, iZB - 1))
Y = CLng(Right(XY, Len(XY) - iZB))
TracePrint XY
If X > 0 Then 
If byxiaociwei+ xiaociwei > 0 Then 
zhi0 
Else 
zhi3 
End If
Exit sub 
End If
X=0
XY = Plugin.Pic.FindWordShape(0, 0, 1024, 768, "刚才有出现小山猪吗", "宋体", 11, 0, 0.9)
iZB = InStr(XY, "|")
X = CLng(Left(XY, iZB - 1))
Y = CLng(Right(XY, Len(XY) - iZB))
TracePrint XY
If X > 0 Then 
If shanzhu+ byshanzhu > 0 Then 
zhi0 
Else 
zhi3 
End If
Exit sub 
End If
End Sub

Function zhi0()
Delay 555
MoveTo 191, 309
Delay 555
LeftDown 1
LeftUp 1
Delay 555
End Function

Function zhi1()
Delay 555
MoveTo 187, 329

Delay 555
LeftDown 1
LeftUp 1
Delay 555
End Function

Function zhi2()
Delay 555
MoveTo 188, 348

Delay 555
LeftDown 1
LeftUp 1
Delay 555
End Function

Function zhi3()
Delay 555
MoveTo 413, 310

Delay 555
LeftDown 1
LeftUp 1
Delay 555
End Function

Function lol()
Delay 444
LeftDown x
LeftUp x
Delay 444
End Function

Sub 迷失识别()
Delay 3333
group = ""
group1=""
x = 0
y = 0
code = ""
num=""
uy = 0
ux = 0
FindPic 363,160,847,523,"C:\任务园区左边.bmp",0.5,inO,inQ
If inO> 0 And inQ> 0 Then
End If
T=0 
TG=Plugin.Color.FindShape(111,111,800,600,"-1|1|1,-2|2|1,-2|3|1,-2|4|1,-2|5|1,-2|6|1,-2|7|1,-1|8|1,0|9|1,-1|9|0,-2|8|0,-3|7|0,-3|6|0,-3|5|0,-3|4|0,-3|3|0,-3|2|0,-3|1|0,-2|1|0,-1|0|0,0|-1|0,0|1|0,-1|2|0,-1|3|0,-1|4|0,-1|5|0,-1|6|0,-1|7|0,0|8|0,1|9|0,0|10|0,-3|10|0,-3|9|0,-3|8|0,-3|7|0,-4|7|0,-4|6|0,-4|5|0,-4|4|0,-4|3|0",1)

dim kuohao
kuohao = Split(TG, "|")
T = CInt(kuohao(0)) : G = CInt(kuohao(1))
Q = T - 3
W = G - 1
FindColor Q + 7, W + 11, Q + 28, W + 28, "00FE00", E, R
If Q > 0 And W > 0 Then 
TracePrint Q
TracePrint W
TracePrint E 
TracePrint R
TracePrint "yes,下面是通过判断，和（的距离来计算中间取几个格子来写数字，不然遇到（3，111）的情况会出现判断为31的情况"
If E - Q > 10 Then 
    t = 3
    Else t=2
    TracePrint t
End If
ux = Q+4
uy = W+2
x = ux
y = uy

For t
code = ""
    y = uy
For 8
x = ux
For 5
GetColor=GetPixelColor(x,y)
If GetColor = "00FE00" Then 
 i="1"
Else 
i= "0"
End If

code = code & i 
x = x + 1
Next
y = y + 1
Next

NO0="0111010001100011000110001100011000101110"
NO1="0010001100001000010000100001000010001110"
NO2="0111010001100010001000100010001000011111"
NO3="0111010001000010011000001000011000101110"
NO4="0001000110010100101010010011110001000011"
NO5="1111110000100001111000001000011000101110"
NO6="0111010010100001111010001100011000101110"
NO7="1111110010000100010000100001000010000100"
NO8="0111010001100010111010001100011000101110"
NO9 = "0111010001100011000101111000010100101110"

If code = NO0 Then 
    num = "0"
    ElseIf code = NO1 Then
    num = "1"
    ElseIf code = NO2 Then
    num = "2"
    ElseIf code = NO3 Then
    num = "3"
    ElseIf code = NO4 Then
    num = "4"
    ElseIf code = NO5 Then
    num = "5"
    ElseIf code = NO6 Then
    num = "6"
    ElseIf code = NO7 Then
    num = "7"
    ElseIf code = NO8 Then
    num = "8"
    ElseIf code = NO9 Then
    num = "9"
    Else 
    num = ""
End If
ux = ux + 6
group = group & num

Next
TracePrint group
TracePrint Q
TracePrint W
End If

FindColor Q+7,W+11,Q+28,W+28,"00FE00",E,R
If E> 0 And R > 0 Then 
TracePrint  "yes"
MoveTo E, R
ux = E + 6
uy = R - 9
x = ux
y = uy
For 3
code = ""
    y = uy
For 8
x = ux
For 5
GetColor=GetPixelColor(x,y)
If GetColor = "00FE00" Then 
 i="1"
Else 
i= "0"
End If

code = code & i 
x = x + 1
Next
y = y + 1
Next

NO0="0111010001100011000110001100011000101110"
NO1="0010001100001000010000100001000010001110"
NO2="0111010001100010001000100010001000011111"
NO3="0111010001000010011000001000011000101110"
NO4="0001000110010100101010010011110001000011"
NO5="1111110000100001111000001000011000101110"
NO6="0111010010100001111010001100011000101110"
NO7="1111110010000100010000100001000010000100"
NO8="0111010001100010111010001100011000101110"
NO9 = "0111010001100011000101111000010100101110"

If code = NO0 Then 
    num = "0"
    ElseIf code = NO1 Then
    num = "1"
    ElseIf code = NO2 Then
    num = "2"
    ElseIf code = NO3 Then
    num = "3"
    ElseIf code = NO4 Then
    num = "4"
    ElseIf code = NO5 Then
    num = "5"
    ElseIf code = NO6 Then
    num = "6"
    ElseIf code = NO7 Then
    num = "7"
    ElseIf code = NO8 Then
    num = "8"
    ElseIf code = NO9 Then
    num = "9"
    Else 
    num = ""
End If
ux = ux + 6
group1 = group1 & num

Next
TracePrint  group1
End If
x = 0
y = 0
code = ""
num=""
uy = 0
ux = 0
If group > 0 and group1 > 0 Then 
TracePrint "坐标看到了成功"
Else 
Delay 333
TracePrint "坐标没看到，考虑到可能是师门任务出现，取消师门"
Call 重置()
Call 专门宝图任务()
Call 看是哪种任务？()
Exit sub
End If
End sub

Function 道士旁边
XY=Plugin.Color.FindMutiColor(295,211,510,427,"FEDEB4","1|0|FEDEB4,2|0|FEDEB4,3|0|FEDEB4,4|0|FEDEB4,5|0|FEDEB4,6|0|FEDEB4,3|1|FEDEB4,3|2|FEDEB4,3|3|FEDEB4,3|4|FEDEB4,3|5|FEDEB4,3|6|FEDEB4,1|6|FEDEB4,4|6|FEDEB4,5|6|FEDEB4,6|6|FEDEB4,9|17|33D7EA,10|17|33D7EA,11|17|33D7EA,12|17|33D7EA",1)
dim MyArray
MyArray = Split(XY, "|")
X = CInt(MyArray(0)) : Y = CInt(MyArray(1))
If X > 0 Then 
Exit Function
Else 
Delay 1111
End If
End Function

Sub 判断卡死
//等待看180秒之内能不能看到等待数字，如果能看到等待数字，退出继续找
//180秒之内找不到，退出循环重新开始
Delay 1111
Do
Delay 1333
v=0
For 250
kaka = 0
Delay 1000
FindColor 0,0,1175,971,"0084F0",kaka,sisi
If kaka > 0 Then 
v = v + 1
TracePrint v
End If
Next

If v > 0 Then 
    TracePrint "没卡"

    Else 
    TracePrint "卡了重新开始"
    MoveTo 133, 33
    Delay 555
    LeftClick 2
重置 
    RestartScript 
End If

Delay 1111
Loop 

End Sub