- 幼儿园
- 3872815
- 12
- 0
- 0 朵
- 58 个
- 0 个
- 560
- 2016-04-18
|
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 FunctionFunction 对战积分 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
|