If CInt(MyArray(0)) > 0 And CInt(MyArray(1)) > 0 Then
UX=CInt(MyArray(0))-4-76:UY=CInt(MyArray(1))-30+39:Call 左键单击()
Rem 判断8
XY=Plugin.Color.FindMutiColor(0,0,1440,900,"8F9165","6|11|9CA252,9|11|767044,6|4|8F8F47,7|7|100810,6|15|94865A,12|19|34404A,7|22|0D1E58,2|20|0D124F,1|21|1B2697,3|21|2938DE,-2|22|100852",1)//巡逻令
MyArray = Split(XY, "|")
If CInt(MyArray(0)) > 0 And CInt(MyArray(1)) > 0 Then
UX=CInt(MyArray(0))-4:UY=CInt(MyArray(1))-30
Call 右键单击()
Delay 1000
Call 清窗()
Call 打怪()
Call 收尾(任务)
Else
Delay 500
Goto 判断8
End If
Else
Delay 1000
Goto 按键
End If
End Sub
Sub 探访()
UX=CInt(MyArray(0))-4+30:UY=CInt(MyArray(1))-30+5:Call 左键单击()
Call 清窗()
Call 人物是否正在移动()
Delay 1000
Call 师门任务()
Call 清窗()
Call 收尾(任务)
End Sub
Sub 放河灯()
UX=CInt(MyArray(0))-4-60:UY=CInt(MyArray(1))-30+5:Call 左键单击()
Delay 200
Call 清窗()
Delay 200
Call 人物是否正在移动()
Rem 按键1
Call Plugin.Bkgnd.KeyPress(Hwnd, 88)//按键“X”
Delay 1000
XY=Plugin.Color.FindMutiColor(0,0,1440,900,"51C9F6","1|1|4CC0EE,2|2|45B4E2,5|2|45B4E2,7|0|4BBBE8,6|1|4CC0EE,0|8|145E8C,7|8|145E8C",1)//窗口关闭按钮
MyArray = Split(XY, "|")
If CInt(MyArray(0)) > 0 And CInt(MyArray(1)) > 0 Then
UX=CInt(MyArray(0))-4-76:UY=CInt(MyArray(1))-30+39:Call 左键单击()
Rem 判断7
XY=Plugin.Color.FindMutiColor(0,0,1440,900,"EFFBFF","5|0|DEF7FF,9|0|E7E7FF,11|5|731EBD,10|8|8C52AD,2|8|BD96BD,-5|5|6E3D94,-1|10|865B7B,4|10|864891,3|-4|395F6B,10|-3|4F4A5A",1)//河灯
MyArray = Split(XY, "|")
If CInt(MyArray(0)) > 0 And CInt(MyArray(1)) > 0 Then
UX=CInt(MyArray(0))-4:UY=CInt(MyArray(1))-30
Call 右键单击()
Delay 10000
Call 清窗()
Call 收尾(任务)
Else
Delay 500
Goto 判断7
End If
Else
Delay 1000
Goto 按键1
End If
End Sub
Sub 器衣饰(任务)
UX=CInt(MyArray(0))-4+30:UY=CInt(MyArray(1))-30+5:Call 左键单击()
Call 清窗()
Call 人物是否正在移动()
Call 武器衣服饰品店(任务)
End Sub
Sub 武器衣服饰品店(任务)
TracePrint 任务
dim i
i=0
Rem 判断3
Delay 1000
If 任务="武器" Then
XY=Plugin.Color.FindMutiColor(0,0,1440,900,"FFFFFF","2|-3|FFFFFF,3|-3|414431,1|-3|414431,3|4|414431,3|2|414431,3|3|FFFFFF,20|2|FFFFFF,20|1|414431,32|-1|414431,33|-1|FFFFFF,48|6|FFFFFF,58|1|FFFFFF,58|0|414431",1)//杭州武器店
Elseif 任务="戒指"
XY=Plugin.Color.FindMutiColor(0,0,1440,900,"FFFFFF","-1|0|414431,2|1|414431,3|1|FFFFFF,1|1|FFFFFF,0|1|414431,4|0|FFFFFF,1|8|FFFFFF,1|9|414431,1|7|414431,5|7|FFFFFF,10|1|FFFFFF,10|3|414431,11|3|414431,12|3|FFFFFF,9|3|FFFFFF,16|10|FFFFFF,18|9|FFFFFF,22|10|414431,21|10|FFFFFF,30|10|FFFFFF,27|0|FFFFFF,28|0|414431,26|0|414431",1)//杭州饰品店
Elseif 任务="衣服"
XY=Plugin.Color.FindMutiColor(0,0,1440,900,"FFFFFF","1|2|414431,-1|2|414431,0|2|FFFFFF,1|7|414431,0|8|414431,1|8|FFFFFF,6|8|414431,7|8|FFFFFF,17|2|414431,18|2|FFFFFF,19|4|FFFFFF,19|5|414431,27|5|414431,28|5|FFFFFF,31|5|FFFFFF,30|9|414431",1)//杭州衣服店
End If
MyArray = Split(XY, "|")
Delay 1000
If CInt(MyArray(0)) > 0 And CInt(MyArray(1)) > 0 Then
UX=CInt(MyArray(0))-4+30:UY=CInt(MyArray(1))-30+5:Call 左键单击()
Rem 判断4
Delay 1000
If 任务="武器" Then
XY=Plugin.Color.FindMutiColor(0,0,1440,900,"3B38AA","-2|3|312F85,5|-5|313076,6|-8|313076,9|-11|22227C,8|-11|22227C,16|-17|262482,17|-15|252363,21|-18|2D3B6E,23|-18|4D76AD,24|-20|415E90,20|-13|303E76,14|-13|344D84,8|-8|51538A",1)//武器
Elseif 任务="戒指"
//因特殊要求需要判断！
If i=0 Then
XY=Plugin.Color.FindMutiColor(0,0,1440,900,"000000","27|8|A5DEE4,31|11|8CCFFF,36|18|162231,44|18|0D1726,41|10|101018,38|9|0B1623,35|5|101C31,30|3|080810,23|3|315063,27|6|BDFFFF,27|10|6396AD,31|10|7BAEC6,31|13|2E4155,36|14|2C3E58,35|18|162231",1)//买32戒指
Else
XY=Plugin.Color.FindMutiColor(0,0,1440,900,"425F6E","1|-6|000408,1|-4|081829,5|-4|080810,11|0|131726,14|2|0B1623,15|8|0B0E1B,20|10|294152,16|14|182C42,12|12|101926,7|8|2C475A,7|4|8CCFFF,5|-2|6596AA,-1|1|212B37,8|6|000000,12|9|000408",1)//提交32戒指
End If
Elseif 任务="衣服"
XY=Plugin.Color.FindMutiColor(0,0,1440,900,"4E6192","7|0|2C2F6B,5|-4|3B5084,-2|-6|4462A4,-6|0|596592,11|-2|314279,9|-7|4A7098,5|-7|496496,1|5|4A5E9D,6|7|282E69,6|12|3B4C8D,1|13|252369,1|18|2D338C,8|17|3B4882,11|-2|314279,1|2|3F4887",1)//33衣服
End If
MyArray = Split(XY, "|")