Function 对战积分
Call 点击(切换模式)
Delay 500
Call 点击(经典模式)
Do
If 找多点(对战, 1) Then
TracePrint "
K对战"
ElseIf 找多点(世界对战, 1) Then
TracePrint "点击世界对战"
ElseIf 找多点(入场, 1) Then
TracePrint "点击入场"
Delay 1000
Call 点击(开始游戏)
ElseIf 找多点(进入游戏, 0) Then
TracePrint "进入游戏"
call 游戏()
ElseIf 找多点(爱心不足, 1) Then
TracePrint "爱心不足,脚本停止"
ShowMessage "爱心不足,脚本停止"
EndScript
ElseIf 找多点(返回, 1) Then
TracePrint "点击返回"
ElseIf 找多点(确认, 1) Then
TracePrint "点击确定"
End If
Delay 300
Loop
End Function
Function 游戏
Do
If 找多点(再来一局, 1) = True Then
TracePrint "再来一局"
ElseIf 找多点(返回, 1) = True Then
TracePrint "返回"
Exit do
Else
点击 跳跃
Delay 300
点击 跳跃
End If
Delay 100
Loop
End Function
Function 点击(数组)
Dim arr
arr = 数组
Tap arr(0),arr(1)
End Function
Function 找多点(数组,模式)
找多点 = False
Dim arr,intX,intY
arr = 数组
FindMultiColor arr(0), arr(1), arr(2), arr(3), arr(4), arr(5), 0, 0.9, intX, intY
If intX > -1 Then
找多点 = True
If 模式 = 1 Then
Tap intX, intY
End If
End If
End Function