这个手游实在是太费时间了 玩不起 把这个分享给你们 坐标不对的 自己修改 完全没有延时 一直都在用 力战和奋战就不发了
Rem kt
FindColor 326,511,501,571,"0102DD",intX,intY
If intX > 0 And intY > 0 Then
MoveTo intX, intY
Delay 400
LeftClick 1
Else
FindColor 646,612,864,684,"626A1A",intX,intY
If intX > 0 And intY > 0 Then
MoveTo intX, intY
Delay 400
LeftClick 1
Delay 400
Call xz()
FindColor 534,553,752,623,"778821",intX,intY
If intX > 0 And intY > 0 Then
MoveTo intX, intY
Delay 400
LeftClick 1
Delay 400
Call xz()
Goto kt
End If
End If
End If
Sub xz()
FindColor 744,273,920,423,"9955DD",intX,intY
If intX > 0 And intY > 0 Then
MoveTo intX, intY
Delay 400
LeftClick 1
Else
FindColor 744,273,920,423,"2F48D0",intX,intY
If intX > 0 And intY > 0 Then
MoveTo intX, intY
Delay 400
LeftClick 1
Else
FindColor 551,267,728,420,"9955DD",intX,intY
If intX > 0 And intY > 0 Then
MoveTo intX, intY
Delay 400
LeftClick 1
Else
FindColor 551,267,728,420,"2F48D0",intX,intY
If intX > 0 And intY > 0 Then
MoveTo intX, intY
Delay 400
LeftClick 1
Else
FindColor 744,273,920,423,"55D5FB",intX,intY
If intX > 0 And intY > 0 Then
MoveTo intX, intY
Delay 400
LeftClick 1
Else
FindColor 744,273,920,423,"A4992C",intX,intY
If intX > 0 And intY > 0 Then
MoveTo intX, intY
Delay 400
LeftClick 1
Else
FindColor 551,267,728,420,"55D5FB",intX,intY
If intX > 0 And intY > 0 Then
MoveTo intX, intY
Delay 400
LeftClick 1
Else
FindColor 556,270,719,426,"9E9926",intX,intY
If intX > 0 And intY > 0 Then
MoveTo intX, intY
Delay 400
LeftClick 1
Goto kt
End If
End If
End If
End If
End If
End If
End If
End If
End Sub