按鍵自用
i = 0
While i = 0
??? call 歸位
Wend
While i = 1
??? call 尋寶
Wend
Sub 尋寶
??? Delay 100
??? FindColorEx 141,717,280,860,"7EBA8D",0,0.8,intX,intY
??? If intX > 0 And intY > 0 Then
??????? Tx = intX
??????? Ty = intY
??? Else
??????? Delay 100
??????? FindColorEx 141,717,280,860,"120933",0,0.9,intX,intY
??????? If intX > 0 And intY > 0 Then
??????????? Tx = intX
??????????? Ty = intY
??????? End if
??? End If
??? Delay 100
??? FindColor 199,779,215,795,"166F7E",intX,intY
??? If intX > 0 And intY > 0 Then
??????? Zx = intX
??????? Zy = intY
??? Else
??????? Rem 等
??????? FindColorEx 60,860,150,890,"2F97C8",0,0.9,intX,intY
??????? If intX > 0 And intY > 0 Then
??????????? Delay 5000
??????????? Goto 等
??????? Else
??????????? MoveTo 200,800
??????????? Delay 100
??????????? LeftClick 1
??????????? Delay 100
??????????? MoveTo X, Y
??????????? Delay 2000
??????????? i = 0
??????? End If
??? End If
??? x = Tx - Zx
??? y = Ty - Zy
??? X = x * 2 + 960
??? Y = y * 2 + 576
??? MoveTo X, Y
??? Delay 100
??? LeftClick 1
End Sub
Sub 歸位
??? FindColorEx 1715,85,1870,225,"DFDFDF",0,0.9,intX,intY
??? If intX > 0 And intY > 0 Then
??????? Tx = intX
??????? Ty = intY
?????? ?
??????? TracePrint 1
??? Else
//E7E9E4 找墓碑點(diǎn)時(shí)要吧小地圖周圍相似顏色的圖標(biāo)遮擋起來哦
??????? FindColorEx 1715,85,1870,225,"E7E9E4",0,0.9,intX,intY
??????? If intX > 0 And intY > 0 Then
??????????? Tx = intX
??????????? Ty = intY
????????? ??? ?sx = intX
??????? End If
??? End If
??? FindColorEx 1780,147,1814,174,"55E8F0",0,0.9,intX,intY
??? If intX > 0 And intY > 0 Then
??????? Zx = intX
??????? Zy = intY
????? ?
??? End If
??? x1 = sx - Zx
??? xx = Tx - Zx
??? yy = Ty - Zy
??? X = xx * 3 + 960
??? Y = yy * 3 + 576
??? TracePrint x1
??? If x1 >= -10 Then
?? ?
??????? MoveTo 200, 800
??????? LeftClick 1
??????? Delay 50
??????? MoveTo 960, 576
??????? Delay 4000
??????? i = 1
??? End If
??? MoveTo X, Y
??? Delay 100
??? LeftClick 1
??? Delay 100
End Sub
?