• 新浪微博:
  • 微信 :
按键精灵电脑版
立即下载

软件版本:2014.05
软件大小:21.6M
更新时间:07-04

按键精灵安卓版
立即下载

软件版本:3.3.0
软件大小:62.5M
更新时间:5-24

按键精灵iOS版
立即下载

软件版本:1.3.3
软件大小:29.2M
更新时间:06-14

按键精灵Mac版
立即下载

软件版本:1.1.0
软件大小:12.3M
更新时间:12-29

快捷导航

登录 后使用快捷导航
没有帐号? 注册

登录 注册
返回列表 12345678» / 19
发新话题 回复该主题

[源码分享] 欢乐西游自动刷副本升级英雄源码分享…… [复制链接]

1#
代码写多了,还是阅读性挺重要,等你感觉不爽的时候,就改一下嘛,这次更新只整理了一下代码排版,看看逻辑就行了,功能估计早就不能用了


首先说明这个代码只写到了前6关,也就只能用在前6关,新手教程也需要自己完成。如果使用到后面需要自己修改……看懂了很容易修改。
反正自己没事的时候是用这个挂脚本的。支持480*854,720*1280等分辨率
不会的,可以学习下思路。
  1. //战斗流程
  2. SetControlBarPos 0
  3. SetScreenScale 480,854,1

  4. Dim intx,inty
  5. Dim n,spa,n1,n11
  6. spa=81
  7. n1=1 '第一关卡
  8. n11=2'选择升级列表第一英雄,如果第一英雄满级,会卡住……n11=2选择第二英雄
  9. N=0

  10. Dim 三星(),一星(),出战(),自动(),好友助战(),托管()
  11. 三星=Array("381,352","406|352|D1C1A8,381|352|D1C1A8,434|354|D1C1A8")
  12. 出战=Array("251,801","251|801|FFFFFF,313|816|12A7F4,192|798|52DCFD")
  13. 自动=Array("14,840","14|840|22A3F9,6|833|36DDFE,36|839|1A9CFF,145|23|F7FD85")
  14. 托管=Array("442,833","442|833|48DCFE,467|829|4BD8F5,433|834|5DDCFE")
  15. 好友助战=Array("430,326","381|398|47C857,322|305|FFE4BB,438|226|2DD4F3")
  16. Dim 吞噬(),取消()
  17. 吞噬=Array("161,509","161|509|1AA0FA,65|505|E5B74C,68|280|228AFB")
  18. 取消=Array("65,505","161|509|1AA0FA,65|505|E5B74C,68|280|228AFB")

  19. //升级卡片流程
  20. Dim 选卡() ,升级卡牌(),一键添加(),一键升级(),手动选卡()
  21. 选卡=Array("202,305","202|305|774D2A,142|650|979797,334|650|989898")
  22. 升级卡牌=Array("318,277","318|277|FFECCD,322|305|FFE4BB,165|232|E8A266,438|226|D78E54")
  23. 一键添加=Array("93,654","93|654|35CFFA,367|653|979797,234|495|B5894E")
  24. 一键升级=Array("366,657","93|654|35CFFA,366|657|36D9FA,234|495|B5894E")
  25. 手动选卡=Array("279,496","93|654|35CFFA,367|653|979797,279|496|25AFFF")

  26. //主页
  27. Dim 副本,开始游戏(),主页()
  28. 副本=array(204,818)
  29. 开始游戏=Array("238,699","238|699|CDB8FF,49|799|6DC0F4,207|160|CF830B")
  30. Dim 友情结算(),发送(),体力不足宽(),友情结算1()
  31. 友情结算=Array("349,605","201|602|FABC18,349|605|22AFFF,316|227|E39D62")
  32. 发送=Array("52,744","52|744|C3E6F4,260|96|B0DAFF,371|675|37D6FB")
  33. 友情结算1=Array("273,602","201|602|21ADFF,321|229|E59F63,186|217|F8FBF2")
  34. 体力不足宽=Array("210,500","210|500|F9BE1B,212|347|FEFFFE,350|498|23A5F9,278|499|25A9F6")


  35. //关卡
  36. Dim 关卡1,关卡2,关卡3,关卡4,关卡5,关卡6,关卡7,关卡8,关卡9,关卡10,关卡(),普通
  37. 普通=Array("50,223","50|223|ECA96A,270|157|CF830B,200|158|CF830B")
  38. 关卡=Array("300,608","50|223|ECA96A,270|157|CF830B,200|158|CF830B")
  39. 关卡1=Array("300,608","50|223|ECA96A,270|157|CF830B,200|158|CF830B")
  40. 关卡2=Array("115,549","50|223|ECA96A,270|157|CF830B,200|158|CF830B")
  41. 关卡3=Array("303,493","50|223|ECA96A,270|157|CF830B,200|158|CF830B")
  42. 关卡4=Array("385,382","50|223|ECA96A,270|157|CF830B,200|158|CF830B")
  43. 关卡5=Array("100,355","50|223|ECA96A,270|157|CF830B,200|158|CF830B")
  44. 关卡6=Array("249,311","50|223|ECA96A,270|157|CF830B,200|158|CF830B")

  45. Dim 金币不足,没自动(),体力不足()
  46. 金币不足=Array("205,482","205|482|83E0FF,277|499|24B3FF")
  47. 没自动=Array("18,841","18|841|079CFF-100505,13|832|40D3FF-100505,9|824|1E9CFE-100505")
  48. 体力不足=Array("277,483","277|483|5BC8FE,81|340|9F8CF9,209|483|7DDEFF")

  49. Dim screenY,screenX
  50. screenY = GetScreenY()
  51. screenX = GetScreenX()

  52. If (screenX=480 and screenY=854) or (screenX=540 and screenY=960) or (screenX=720 and screenY=1280) or (screenX=1080 and screenY=1920) then
  53. Call 主线程()
  54. Else
  55. ShowMessage "分辨率不支持,脚本结束"
  56. EndScript
  57. End if

  58. Function 主线程()
  59. delay 1000
  60. Tap 副本(0),副本(1)
  61. Delay 500
  62. Do
  63. KeepCapture
  64. Delay 500
  65. If 多点判断(三星) then
  66. 点击(三星)
  67. ElseIf 多点判断(开始游戏) then
  68. 点击(开始游戏)
  69. ElseIf 多点判断(吞噬) then
  70. 点击(吞噬)
  71. ElseIf 多点判断(体力不足宽) then
  72. 点击(体力不足宽)
  73. ShowMessage "体力不足,脚本停止"
  74. Delay 3000
  75. EndScript
  76. ElseIf 多点判断(手动选卡) then
  77. 点击(手动选卡)
  78. delay 1500
  79. Tap 副本(0),副本(1)
  80. ElseIf 多点判断(体力不足) then
  81. 点击(体力不足)
  82. delay 1500
  83. Tap 主页(0) ,主页(1)
  84. ElseIf 区域找点() then
  85. Tap intx,inty
  86. ElseIf 多点判断(出战) then
  87. 点击(出战)
  88. ElseIf 多点判断(好友助战) then
  89. 点击(好友助战)
  90. ElseIf 多点判断(托管) then
  91. 点击(托管)
  92. elseIf 多点判断(没自动) then
  93. 点击(没自动)
  94. ElseIf 多点判断(选卡) then
  95. 点击(选卡)
  96. ElseIf 多点判断(升级卡牌) then
  97. tap 318,277+(n11-1)*spa
  98. ElseIf 多点判断(一键添加) then
  99. 点击(一键添加)
  100. ElseIf 多点判断(一键升级) then
  101. 点击(一键升级)
  102. ElseIf 多点判断(友情结算) then
  103. 点击(友情结算)
  104. ElseIf 多点判断(友情结算1) then
  105. 点击(友情结算1)
  106. ElseIf 多点判断(发送) then
  107. 点击(发送)
  108. ElseIf 多点判断(关卡2) then
  109. TracePrint 1
  110. Select Case n1
  111. Case 1
  112. 点击(关卡1)
  113. Case 2
  114. 点击(关卡2)
  115. Case 3
  116. 点击(关卡3)
  117. Case 4
  118. 点击(关卡4)
  119. Case 5
  120. 点击(关卡5)
  121. Case 6
  122. 点击(关卡6)
  123. End Select
  124. Else
  125. Tap 1,1
  126. End If
  127. ReleaseCapture
  128. Delay 1500
  129. Loop
  130. End Function

  131. Function 点击(数组)
  132. Dim arr(),坐标()
  133. arr=数组
  134. 坐标=Split(arr(0),",")
  135. Tap 坐标(0),坐标(1)
  136. TracePrint 坐标(0),坐标(1)
  137. End Function

  138. Function 多点判断(数组)
  139. Dim arr()
  140. arr=数组
  141. 多点判断=False
  142. If CmpColorEx(arr(1),0.9) =1 then
  143. 多点判断=true
  144. End If
  145. End Function

  146. Function 区域找点()
  147. 区域找点=False
  148. FindMultiColor 430,330,434,695,"D4C3AC","-6|4|D2C2A9,3|10|D1C1A8,-154|10|FFECCD,-53|1|3AE9FB",0,0.95,intx,inty
  149. If intx>0 then
  150. 区域找点=true
  151. TracePrint intx*2.25,inty*2.25
  152. n=0
  153. Exit Function
  154. End if
  155. FindMultiColor 363,330,463,695,"25BDFE","8|-35|FFEBCF,-30|-43|37EDFE-200505,-57|-43|3CE7FB-200505",0,0.95,intx,inty
  156. if intx>0 then
  157. 下拉()
  158. N=n+1
  159. If n>2 then
  160. ShowMessage "已经全部三心,脚本结束"
  161. Delay 5000
  162. Tap 主页(0) ,主页(1)
  163. EndScript
  164. End if
  165. End If
  166. End Function

  167. Function 下拉()
  168. TouchDown 250,600,1
  169. TouchMove 250,300,1
  170. Delay 100
  171. End Function
复制代码




学习网站:
lua在线编译器
lua官网
lua中国开发者


本人插件:
字符操作
文件操作
好爱答题
lua插件调用按键函数例子
lua资料

其它:
进制转换
辅助源码

    已有4评分我要评分查看所有评分

    最后编辑zhou164902127 最后编辑于 2017-06-06 21:48:46
    2#

    技术活 !该赏

    3#

    欢乐西游自动刷副本升级英雄源码分享……

    4#

    fgjdDfggdsggfdssggggewfg

    5#

    hhhhhhhhhhhhhhhhhhhhhhhhhh

    6#

    DFDGSSD

    7#


    8#

    RE:区域遍历所有图片(找图,多点找色)----1个函数实现修改000

    9#

    感谢分享

    10#

    技术活. 该赏

    11#

    啊啊啊

    12#

    hhhhhhhhhhhhhhhhhhhh

    13#

    1212111313

    14#

    希望是真正的源码

    15#

    上的风格的十分

    16#

    看看是什么

    17#

    不会的,可以学习下思路

    18#
    19#

    谢谢楼主

    http://bbs.anjian.com/showtopic-600038-1.aspx
    按键精灵安卓版v3.0支持安卓6.0系统啦~支持6.0,支持6.0,支持6.0啦~
    20#


    发新话题 回复该主题