Delay 7000
Call 开始()
Sub 开始()
Tap 695, 1080
Delay 3000
Tap 216, 806
For 90
Delay 1000
Dim 是否相等
是否相等 = CmpColor(697,585,"FFC647",0.8)
If 是否相等 > -1 Then
Call 选机甲确认1()
Else
Delay 1000
End If
Next
End Sub
Sub 选机甲确认1()
Dim 是否相等
是否相等 = CmpColor(700,715,"4545FF",0.8)
If 是否相等 > -1 Then
Call 选机甲确认2()
Else
End If
End Sub
Sub 选机甲确认2()
Dim 是否相等
是否相等 = CmpColor(301,595,"F4E5C7",0.8)
If 是否相等 > -1 Then
Call 选机架()
Else
End If
End Sub
Sub 选机架()
Tap 110, 290
Delay 3000
For 20
Dim 是否相等
是否相等 = CmpColor(671,6,"69C40E",0.8)
If 是否相等 > -1 Then
Call 确认战斗1()
Else
Delay 1000
End If
Next
Tap 110, 290
Call 战斗()
End Sub
Sub 确认战斗1()
Dim 是否相等
是否相等 = CmpColor(215,1084,"3E40C7",0.8)
If 是否相等 > -1 Then
Call 确认战斗2()
Else
End If
End Sub
Sub 确认战斗2()
Dim 是否相等
是否相等 = CmpColor(165,142,"80776C",0.8)
If 是否相等 > -1 Then
Call 战斗()
Else
End If
End Sub
Sub 战斗()
Delay 5000
Tap 459, 1180
For 116
Call 前往机库()
Call 是否退出()
Tap 130, 1110
Delay 1000
Tap 130, 1110
Next
Call 退出1()
End Sub
Sub 退出1()
Dim 是否相等
是否相等 = CmpColor(685,1270,"BEB7A8",0.9)
If 是否相等 > -1 Then
Call 退出()
Else
Call 退出2()
End If
End Sub
Sub 退出2()
Dim intX, intY
FindColor 120, 420, 450, 850, "C7AB63", 1, 0.95, intX, intY
If intX > -1 And intY > -1 Then
Tap intx,intY
Delay 1000
End If
Call 退出()
End Sub
Sub 退出()
Tap 680, 1180
Delay 1000
Tap 380, 640
Delay 1000
Tap 290, 800
Delay 10000
For 30
Dim 是否相等
是否相等 = CmpColor(646,18,"15AAF4",0.8)
If 是否相等 > -1 Then
Delay 1000
Call 开始()
Else
Delay 1000
End If
Next
Call 提前退出()
End Sub
Sub 是否退出()
Dim 是否相等
是否相等 = CmpColor(697,585,"FFC647",0.8)
If 是否相等 > -1 Then
Else
Call 提前退出1()
End If
End Sub
Sub 提前退出1()
For 30
Dim 是否相等
是否相等 = CmpColor(355,625,"0D9ADD",0.8)
If 是否相等 > -1 Then
Delay 1000
Call 提前退出()
Else
Delay 1000
End If
Next
Call 提前退出()
End Sub
Sub 提前退出()
Tap 47, 638
Delay 1000
Tap 41, 129
Delay 5000
For 25
Dim 是否相等
是否相等 = CmpColor(670,1084,"02229B",0.8)
If 是否相等 > -1 Then
Delay 1000
Call 开始()
Else
Delay 1000
End If
Next
Call 开始()
End Sub
Sub 前往机库()
Dim 是否相等
是否相等 = CmpColor(399,660,"F6F4EC",0.8)
If 是否相等 > -1 Then
Tap 399, 660
Delay 20000
Call 前往机库1()
Else
End If
End Sub
Sub 前往机库1()
Dim 是否相等
是否相等 = CmpColor(304,606,"FFF8D6",0.8)
If 是否相等 > -1 Then
Call 前往机库2()
Else
End If
End Sub
Sub 前往机库2()
Dim 是否相等
是否相等 = CmpColor(460,526,"977430",0.8)
If 是否相等 > -1 Then
Tap 310, 637
Delay 20000
Call 开始()
Else
End If
End Sub