ShowMessage "开始"
Dim m=1
Do while m=1
Call 入场()
Delay 1000
Call 开始()
Delay 60000
Call 再来一局()
Delay 500
Tap 800, 1000
Delay 500
Call 返回()
Delay 2000
Call 胜利与否()
loop
Sub 入场()
Dim intX, intY
intx=-1
Do while(intx=-1)
For(2)
FindColor 223, 512, 181, 691, "16AEE8", 0, 0.9, intX, intY
If intX >-1 And intY >-1 Then
Exit For
End If
Next
If intX >0 And intY >0 Then
Tap IntX, IntY
End If
loop
End Sub
Sub 开始()
Dim intX, intY
intx=-1
Do while(intx=-1)
For(2)
FindColor 147, 1190, 63, 1694, "01C1F6", 0, 0.9, intX, intY
If intX >-1 And intY >-1 Then
Exit For
End If
Next
If intX >0 And intY >0 Then
Tap IntX, IntY
End If
loop
End Sub
Sub 再来一局()
Dim intX, intY
intx=-1
Do while(intx=-1)
ShowMessage "判断"
For(2)
FindColor 257, 759, 230, 524, "DEF3FF", 0, 0.9, intX, intY
If intX >-1 And intY >-1 Then
Exit For
End If
Next
If intX >0 And intY >0 Then
Tap IntX, IntY
Else
ShowMessage "重试"
Delay 500
End If
loop
End Sub
Sub 返回()
Dim intX, intY
intx=-1
Do while(intx=-1)
ShowMessage "返回"
For(2)
FindColor 164, 421, 83, 611, "62810D", 0, 0.9, intX, intY
If intX >-1 And intY >-1 Then
Exit For
End If
Next
If intX >0 And intY >0 Then
Tap IntX, IntY
End If
loop
End Sub
Sub 胜利与否()
Dim intX, intY
intx=-1
Do while(intx=-1)
ShowMessage "确定"
For(2)
FindColor 195, 693, 92, 859, "69C512", 0, 0.9, intX, intY
If intX >-1 And intY >-1 Then
Exit For
End If
Next
If intX >0 And intY >0 Then
Tap IntX, IntY
Else
Tap 139, 944
End If
loop
End Sub