天天酷跑无敌脚本 天天酷跑脚本下载( 二 )

  • 再来一局 = Array(257, 649, 355, 752, "2874CE", "23|3|EAF5FC,-8|303|1CEAFB")
  • 返回 = Array(113,539,190,621,"EBF5F9","12|1|FFFFFF,217|7|4BCCF8,-98|13|4A79B8,247|-27|F2FFFF")
  • 确认 = Array(82, 507, 209, 638, "1358B5", "-6|74|F0F8FF,-96|96|75879F,-20|118|235DAE,114|144|EF9415")
  • 复制代码
    对于部分按钮因为位置都是固定的 , 并且出现的时机也是固定的 , 所以可以直接取他们的坐标点 , 不用费劲的去取色
    1. 开始游戏 = Array(116, 1616)
    2. 跳跃 = Array(169, 1735)
    复制代码
    2、封装函数子程序
    在编写代码的时候需要养成一些好的习惯 , 可以把不同的步骤封装成不同的子程序 , 这样只要在需要的时候直接调用子程序即可 , 在后期维护和修改方面也可以更省力 。
    比如在进入对战之后需要单独的去循环判断人物是否死 亡 , 甚至可以做的更智能一些 , 去判断是否出现了障碍 , 然后通过下滑来躲避障碍 。所以我们可以把这部分单独封装成函数 , 在识别到进入游戏画面之后就调用这个函数 , 在识别到人物**后就跳出这个循环 。
    1. Function 游戏
    2. Do
    3. If 找多点(再来一局, 1) = True Then
    4. TracePrint "再来一局"
    5. ElseIf 找多点(返回, 1) = True Then
    6. TracePrint "返回"
    7. Exit do
    8. Else
    9. 点击 跳跃
    10. Delay 300
    11. 点击 跳跃
    12. End If
    13. Delay 100
    14. Loop
    15. End Function
    复制代码
    脚本中还有涉及到点击的操作 , 所以可以把点击的操作单独的封装成函数 , 这样只要我们直接把坐标数组传递进去 , 就可以直接进行点击的操作 。
    1. Function 点击(数组)
    2. Dim arr
    3. arr = 数组
    4. Tap arr(0),arr(1)
    5. End Function
    复制代码
    3、完整代码
    1. Function 对战积分
    2. Call 点击(切换模式)
    3. Delay 500
    4. Call 点击(经典模式)
    5. Do
    6. If 找多点(对战, 1) Then
    7. TracePrint "PK对战"
    8. ElseIf 找多点(世界对战, 1) Then
    9. TracePrint "点击世界对战"
    10. ElseIf 找多点(入场, 1) Then
    11. TracePrint "点击入场"
    12. Delay 1000
    13. Call 点击(开始游戏)
    14. ElseIf 找多点(进入游戏, 0) Then
    15. TracePrint "进入游戏"
    16. call 游戏()
    17. ElseIf 找多点(爱心不足, 1) Then
    18. TracePrint "爱心不足,脚本停止"
    19. ShowMessage "爱心不足 , 脚本停止"
    20. EndScript
    21. ElseIf 找多点(返回, 1) Then
    22. TracePrint "点击返回"
    23. ElseIf 找多点(确认, 1) Then
    24. TracePrint "点击确定"
    25. End If
    26. Delay 300
    27. Loop
    28. End Function
    29. Function 游戏
    30. Do
    31. If 找多点(再来一局, 1) = True Then
    32. TracePrint "再来一局"
    33. ElseIf 找多点(返回, 1) = True Then
    34. TracePrint "返回"
    35. Exit do
    36. Else
    37. 点击 跳跃
    38. Delay 300
    39. 点击 跳跃
    40. End If
    41. Delay 100
    42. Loop
    43. End Function
    44. Function 点击(数组)
    45. Dim arr
    46. arr = 数组
    47. Tap arr(0),arr(1)
    48. End Function
    49. Function 找多点(数组,模式)
    50. 找多点 = False
    51. Dim arr,intX,intY
    52. arr = 数组
    53. FindMultiColor arr(0), arr(1), arr(2), arr(3), arr(4), arr(5), 0, 0.9, intX, intY
    54. If intX > -1 Then
    55. 找多点 = True
    56. If 模式 = 1 Then
    57. Tap intX, intY
    58. End If
    59. End If
    60. End Function


    特别声明:本站内容均来自网友提供或互联网,仅供参考,请勿用于商业和其他非法用途。如果侵犯了您的权益请与我们联系,我们将在24小时内删除。