打图啊啊啊啊

//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, "9