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

软件版本:2014.06
软件大小:22.9M
更新时间:03-18

按键精灵安卓版
立即下载

软件版本:3.6.5
软件大小:46.2M
更新时间:03-02

按键精灵iOS版
立即下载

软件版本:1.7.6
软件大小:29.2M
更新时间:12-06

最新企业版UiBot
立即下载

软件版本:3.3
软件大小:282M
更新时间:08-06

快捷导航

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

发新话题 回复该主题

庆论坛浴火重生,分享一份传奇手游脚本,并带常规思路 [复制链接]

1#
ps:近期接到比较多的朋友咨询CQ手游脚本,现来分享一下脚本思路以及常规代码,其实并不是什么高深的的算法,代码,思路也很简单,下面粗略介绍一下
首先。传奇手游,无非围绕着,打金,回收,自动下图等等……

接下来 分享一份之前自己开发的无卡点脚本(现在游戏是否还在运营我也不知道了)
  1. ///-----初始运行
  2. Import "zm.luae"
  3. zm.Init
  4. Dim 当前应用包名
  5. 当前应用包名 = sys.GetFront()
  6. TracePrint 当前应用包名
  7. zm.SetShowLog "显示"
  8. Dim 等待最小=clng(ReadUIConfig("等待最小")*1000*60),等待最大=clng(ReadUIConfig("等待最大")*1000*60),密码=ReadUIConfig("密码"),攻击=ReadUIConfig("攻击模式"),模式=ReadUIConfig("模式")
  9. Dim 使用开关=0,检测开关=0,关闭开关=0,ret ,i,x,y,死亡计数=0,初始元宝,现元宝数值,地图打开卡屏=0,卡屏次数 = 0
  10. Dim 地图=ReadUIConfig("地图"),子地图=ReadUIConfig("子地图"),城战=ReadUIConfig("城战"),血量开关=ReadUIConfig("血量")
  11. tsxx ("初始化中,请稍后")
  12. Delay 1000
  13. If 城战 = True Then
  14. tsxx ("初始化中,请稍后" & "\n开启城战等待模式。")
  15. Delay 2000
  16. If 血量开关 = True Then
  17. tsxx ("初始化中,请稍后" & "\n开启城战等待模式" & "\n开启血量检测保护模式。")
  18. Delay 2000
  19. Else
  20. tsxx ("初始化中,请稍后" & "\n开启城战等待模式" & "\n关闭血量检测保护模式。")
  21. Delay 2000
  22. End If
  23. Else
  24. tsxx ("初始化中,请稍后" & "\n关闭城战等待模式。")
  25. Delay 1000
  26. If 血量开关 = True Then
  27. tsxx ("初始化中,请稍后" & "\n关闭城战等待模式" & "\n开启血量检测保护模式。")
  28. Delay 1000
  29. Else
  30. tsxx ("初始化中,请稍后" & "\n关闭城战等待模式" & "\n关闭血量检测保护模式。")
  31. Delay 1000
  32. End If
  33. End If
  34. tsxx ("初始化完成即将开始脚本")
  35. Delay 3000
  36. ///-----------------------------数组类别--------------------//
  37. Dim 死亡(),血量()
  38. dim 元宝={300,125,661,691,"0074C4","24|20|0499D5,-9|18|007ADA,6|14|022A91,18|32|0B84AD,-11|34|5E3410"}
  39. Dim 元宝1={300,125,661,691,"358ADF","0|-8|29A9D4,9|2|3587D8,-14|5|1D91DD,-8|12|38BCE8,-8|-10|32A8D2,-4|15|1C31CA,16|-3|0B51C5,7|-13|005BDC"}
  40. 死亡["死亡1"]={239,721,391,954,"4C4640","-11|5|958E8E,-3|12|4E4C50,-11|30|938C8C,1|32|000008,-11|41|747172,-2|41|929288,-4|22|4D555D",true}
  41. 死亡["死亡2"]={239,721,391,954,"1C161E","-1|5|7D756E,-6|13|857A7C,4|10|9B9183,1|9|5B5A57,-6|30|4F4C50,-6|41|777771,1|34|62605A",true}
  42. 血量["血量点1"] = {101, 421, 121, 451, "FCFEFE"}
  43. 血量["血量点2"] = {101, 421, 121, 451, "FFFFFF"}
  44. ///-----------------------------数组类别结束--------------------//
  45. '=====================================================================================
  46. //------------------------------自定义色值------------------------//
  47. Dim 盟重={640,1149,706,1257,"424342","-11|6|A6A7A7,-15|13|FAFAFA,-15|26|F4F4F4,-7|25|C6C6C6,-13|38|BBBBBB,-2|43|AAAAAA,-6|44|A6A7A7,-13|49|B1B2B2"}
  48. Dim 回收={"DFDAD8","8|-1|0D0B0A,11|8|CBC4C0,3|15|E2DDDA,13|21|B1AAA5,4|25|F8F7F6,13|34|D8D2CF,2|36|453830,7|46|714830,7|9|221D1A"}
  49. Dim 回收1={"E1DEDC","-7|10|F2EFED,-12|14|F6F5F4,2|20|FAFAFA,-8|20|FEFEFE,-13|25|B5ADA8,2|29|FCFCFB,-10|31|E8E3E1,1|34|948B86,-8|24|E8E4E1"}
  50. Dim 自动战斗={317,1078,458,1243,"86CFE1","-9|7|599DBD,-23|12|92E0FF,-24|23|85D2F2,-1|33|8DE2F9,-32|4|BFD5DE,-38|21|7CACBF,-19|19|6DC5ED"}
  51. //------------------------------自定义色值结束------------------------//
  52. Dim 返回数组()
  53. 初始设置
  54. Do
  55. For i = 0 To 300
  56. 死亡检测
  57. 土城
  58. 战斗检测
  59. 主程序判断合集()
  60. Next
  61. 卡屏检测()
  62. Tap 464, 1237'打开背包
  63. Delay 2000
  64. 检测背包
  65. 使用物品 (元宝)
  66. 使用物品 (元宝1)
  67. Tap 656,727'关闭背包
  68. Delay 1000
  69. Loop
  70. Function 主程序判断合集()
  71. If 攻击 = 1 Then
  72. TouchDown 120, 1189, 1
  73. TouchMove 185, 1251, 300, 1
  74. TouchUp 1
  75. End If
  76. If 血量开关 = true Then
  77. 检测血量()
  78. End If
  79. End Function
  80. Function 战斗检测()
  81. ret = zm.FindMultiColor(自动战斗)
  82. If ret Then
  83. tsxx("正在战斗中"&"\n红包检测倒计时:"&300-i&"秒"&"\n已死亡:"&死亡计数&"次"&"\n已产出元宝:"&现元宝数值-初始元宝)
  84. Else
  85. tsxx("未开启自动战斗,即将开启")
  86. Tap 383, 1153
  87. Delay 1000
  88. End If
  89. End Function
  90. Function 时间判断()
  91. If 城战 = True Then
  92. Do
  93. dim g = DateTime.Hour(now)
  94. If g >= 20 and g < 22 Then
  95. TracePrint "在晚8点,到10点之间"
  96. tsxx("在晚8点,到10点之间")
  97. Delay 10000
  98. Else
  99. Exit Do
  100. End If
  101. Loop
  102. End If
  103. End Function
  104. Function 检测血量()
  105. Dim t = zm.FindColorTable(血量)
  106. If t Then
  107. TracePrint "血量低,回城"
  108. Delay 500
  109. Tap 178,909'随机
  110. Delay 500
  111. Else
  112. TracePrint "血量健康,继续战斗"
  113. End If
  114. End Function
  115. Function 检测回城石()
  116. ret = zm.FindMultiColor(136,588,187,639,"392042-292929","-1|11|660872,9|10|8E4C86,8|0|C61B8D,0|-7|A73399,-8|-1|4A0D52,11|17|4B4F55,11|3|CAC7C7,4|-3|A594A1")
  117. // ret = zm.FindPic(136,588,187,639,"回城石.png",0.85)
  118. If ret Then
  119. TracePrint "有回城石"
  120. Else
  121. TracePrint "没回城石,进行购买回城石"
  122. 购买回城石()
  123. End If
  124. End Function
  125. Function 购买回城石()
  126. Tap 46,382'打开商城
  127. Delay 2000
  128. Tap 211,369'点击购买回城石
  129. Delay 1500
  130. Tap 272,874'购买
  131. Delay 1500
  132. Tap 633,1088'关闭商城界面
  133. Delay 2000
  134. End Function
  135. Function 检测背包()
  136. Do
  137. ret = zm.FindPic(157,0,467,1270,"回收.png|回收1.png", true)
  138. If ret Then
  139. Delay 500
  140. 关闭开关 = 0
  141. TracePrint "找到回收"
  142. Delay 2000
  143. Tap 316,287'点击回收
  144. Delay 1000
  145. Tap 697,389'关闭回收
  146. Delay 1000
  147. Exit Do
  148. Exit Function
  149. Else
  150. TracePrint "没找到回收"
  151. Tap 464, 1237
  152. Delay 1500
  153. 关闭开关 = 关闭开关 + 1
  154. End If
  155. If 关闭开关 = 10 Then
  156. Delay 500
  157. 关闭开关 = 0
  158. Delay 1000
  159. KillApp "com.nnsmt.librxhj"
  160. Delay 8000
  161. zm.CollectGarbage
  162. Delay 1000
  163. RunApp "com.nnsmt.librxhj"
  164. Delay 5000
  165. 启动游戏()
  166. End If
  167. Loop
  168. End Function
  169. Function 坐标检测(地图名)
  170. ret = zm.FindPic(493,1203,538,1284,地图名&".png")
  171. If ret Then
  172. Delay 500
  173. 关闭开关 = 0
  174. TracePrint "已到指定坐标"
  175. Else
  176. Delay 500
  177. 关闭开关 = 关闭开关 + 1
  178. 找色单击 (死亡)
  179. TouchDown 232, 226, 1
  180. Delay 300
  181. TouchMove 157, 318,1,300
  182. Delay 1000
  183. TouchUp 1
  184. TracePrint "坐标检测"
  185. 判断寻路
  186. End If
  187. If 关闭开关 = 5 Then
  188. Delay 500
  189. 关闭开关 = 0
  190. Delay 1000
  191. KillApp "com.nnsmt.librxhj"
  192. Delay 8000
  193. zm.CollectGarbage
  194. Delay 1000
  195. RunApp "com.nnsmt.librxhj"
  196. Delay 5000
  197. 启动游戏
  198. End If
  199. End Function
  200. Function 找色单击(参数)
  201. dim sw = zm.FindMultiColorTable(参数)
  202. If ret Then
  203. tsxx("已点击确认")
  204. Delay 1000
  205. Else
  206. TracePrint "没找到确认"
  207. Delay 500
  208. End If
  209. End Function
  210. Function 死亡检测()
  211. ret = zm.FindPic("确定1.png|确定2.png|确定3.png|开始.png",true)
  212. If ret Then
  213. 死亡1
  214. 死亡计数 = 死亡计数 + 1
  215. Else
  216. TracePrint "还未死亡"
  217. End If
  218. End Function
  219. Function 死亡1()
  220. Do
  221. ret = zm.FindMultiColor(盟重)
  222. If ret Then
  223. Delay 5000
  224. zm.Delay(等待最小,等待最大)
  225. 时间判断
  226. zm.Delay 1000, 2000
  227. 启动游戏备用()'单次查找
  228. If ReadUIConfig("血量") = true Then
  229. 检测回城石()
  230. Delay 2500
  231. End If
  232. TracePrint "找到土城,技能打开地图"
  233. 判断寻路
  234. Exit Do
  235. Exit Function
  236. Else
  237. TracePrint "没在土城"
  238. Delay 500
  239. ret = zm.FindPic("确定1.png|确定2.png|确定3.png|开始.png", true)
  240. Delay 300
  241. 启动游戏备用()'单次查找
  242. End If
  243. Loop
  244. End Function
  245. Function 土城()
  246. ret = zm.FindMultiColor(盟重)
  247. If ret Then
  248. Delay 5000
  249. 时间判断
  250. Delay 1000
  251. If ReadUIConfig("血量") = true Then
  252. 检测回城石
  253. End If
  254. TracePrint "在土城"
  255. 找色单击 (死亡)
  256. Delay 2500
  257. TracePrint "找到土城,技能打开地图"
  258. 判断寻路()
  259. Else
  260. TracePrint "没在土城"
  261. Delay 1000
  262. End If
  263. End Function
  264. Function 判断寻路()
  265. Select Case 地图
  266. Case 0
  267. 四地图
  268. Case 1
  269. 四地图
  270. Case 2
  271. 四地图
  272. Case 3
  273. 四地图
  274. Case 4
  275. 四地图
  276. Case 5
  277. 九地图
  278. Case 6
  279. 九地图
  280. Case 7
  281. TracePrint "7号图"
  282. 九地图
  283. Case 8
  284. 九地图
  285. Case 9
  286. 九地图
  287. Case 10
  288. 十地图
  289. Case 11
  290. 十地图
  291. Case 12
  292. 十地图
  293. Case 13
  294. 十地图
  295. Case 14
  296. 十地图
  297. Case 15
  298. 十一地图
  299. Case 16
  300. 老兵地图
  301. End Select
  302. End Function
  303. Function 老兵地图()
  304. 打开地图
  305. Tap 481,571'寻路
  306. Delay 300
  307. 关闭地图()
  308. 坐标检测 ("老兵坐标")
  309. TracePrint "4"
  310. 判断进图
  311. End Function
  312. Function 四地图()
  313. 打开地图
  314. // tap 474,569
  315. Tap 475,569'寻路
  316. Delay 300
  317. 关闭地图()
  318. 坐标检测 ("0-4坐标")
  319. TracePrint "4"
  320. 判断进图
  321. End Function
  322. Function 九地图()
  323. 打开地图()
  324. Tap 475,558'寻路
  325. Delay 300
  326. 关闭地图()
  327. 坐标检测 ("5-9坐标")
  328. TracePrint "9"
  329. 判断进图
  330. End Function
  331. Function 十地图()
  332. 打开地图()
  333. Tap 475,548'寻路
  334. Delay 300
  335. 关闭地图()
  336. 坐标检测 ("10-14坐标")
  337. TracePrint "10-14"
  338. 判断进图
  339. End Function
  340. Function 十一地图()
  341. 打开地图()
  342. Tap 475,538'寻路
  343. Delay 300
  344. 关闭地图()
  345. 坐标检测 ("十一坐标")
  346. TracePrint "十一坐标"
  347. 判断进图
  348. End Function
  349. Function 判断进图
  350. Select Case 地图
  351. Case 0
  352. Tap 377, 912'进入血路
  353. Delay 1000
  354. 进入地图
  355. 开启战斗
  356. Case 1
  357. Tap 405,711 '点击玛雅
  358. Delay 1000
  359. 进入地图
  360. 开启战斗
  361. Case 2
  362. Tap 382,504 '散人之家
  363. Delay 1000
  364. 进入地图
  365. 开启战斗
  366. Case 3
  367. Tap 379,307 '猪洞九层
  368. Delay 1000
  369. 进入地图
  370. 开启战斗
  371. Case 4
  372. Tap 399,99'地下皇陵
  373. Delay 1000
  374. 进入地图
  375. Delay 200
  376. TracePrint "调用皇陵子地图"
  377. 皇陵子地图
  378. Case 5
  379. Tap 399,970'传奇之路
  380. Delay 1000
  381. 进入地图
  382. 开启战斗
  383. Case 6
  384. Tap 394,772'火龙巢穴
  385. Delay 1000
  386. 进入地图
  387. 开启战斗
  388. Case 7
  389. Tap 401,569'雷炎洞穴
  390. Delay 1000
  391. 进入地图
  392. 雷炎子地图
  393. Case 8
  394. Tap 376,381'英雄之路
  395. Delay 1000
  396. 进入地图
  397. 开启战斗
  398. Case 9
  399. Tap 374,176'玛法古墓
  400. Delay 1000
  401. 进入地图
  402. 开启战斗
  403. Case 10'恶魔殿堂
  404. Tap 335,966'恶魔殿堂
  405. Delay 1000
  406. 进入地图
  407. 开启战斗
  408. Case 11'绝情谷底
  409. Tap 357,781'绝情谷底
  410. Delay 1000
  411. 进入地图
  412. 绝情子地图()
  413. Case 12'藏剑山庄
  414. Tap 351,573'藏剑山庄
  415. Delay 1000
  416. 进入地图
  417. 开启战斗
  418. Case 13'热血幻境
  419. Tap 354,369'热血幻境
  420. Delay 1000
  421. 进入地图
  422. 开启战斗
  423. Case 14'世外桃源
  424. Tap 352,166'世外桃源
  425. Delay 1000
  426. 进入地图
  427. 开启战斗
  428. Case 15'冰雪之城
  429. Tap 364, 915'冰雪之城
  430. Delay 1000
  431. 进入地图
  432. 开启战斗
  433. Case 16
  434. Tap 415,706'传送员
  435. Delay 1000
  436. 盟重传送员地图
  437. Delay 1000
  438. 开启战斗
  439. End Select
  440. End Function
  441. Function 盟重传送员地图()
  442. Select Case 子地图
  443. Case 0
  444. Tap 286,513'幻境7层
  445. Case 1
  446. Tap 286,666'王者禁地
  447. Case 2
  448. Tap 331,360'赤月老巢
  449. Case 3
  450. Tap 284,360'藏宝阁
  451. End Select
  452. End Function
  453. Function 绝情子地图()
  454. Select Case 子地图
  455. Case 0
  456. tsxx("当前选择,绝情谷底地图一层挂机")
  457. 开启战斗
  458. Case 1
  459. ret = zm.FindPic(609,1087,720,1284,"绝情第一层.png")
  460. If ret Then
  461. tsxx("当前选择,绝情谷底地图二层挂机")
  462. 绝情子地图二层寻路()
  463. Else
  464. tsxx("当前选择,绝情谷底地图一层挂机")
  465. 开启战斗
  466. End If
  467. End Select
  468. End Function
  469. Function 绝情子地图二层寻路()
  470. tsxx("当前选择,绝情谷底二层挂机")
  471. 打开地图
  472. Tap 554,958'雷炎2寻路
  473. 关闭地图
  474. 子地图寻路检测 "绝情一坐标", 40, 554, 958
  475. TracePrint "到坐标"
  476. Tap 398,438'点击NPC
  477. Delay 1000
  478. Tap 289,410'进入第二层
  479. Delay 2000
  480. tsxx("已达到绝情谷底二层,即将开启挂机")
  481. 开启战斗
  482. End Function
  483. Function 雷炎子地图()
  484. Select Case 子地图
  485. Case 0
  486. tsxx("当前选择,雷炎洞穴地图一层挂机")
  487. 开启战斗
  488. Case 1
  489. ret = zm.FindPic(609,1087,720,1284,"雷炎第一层.png")
  490. If ret Then
  491. tsxx("当前选择,雷炎地图二层挂机")
  492. 雷炎子地图二层寻路()
  493. Else
  494. tsxx("当前选择,雷炎地图一层挂机")
  495. 开启战斗
  496. End If
  497. End Select
  498. End Function
  499. Function 雷炎子地图二层寻路()
  500. tsxx("当前选择,雷炎洞穴二层挂机")
  501. 打开地图
  502. Tap 411,376'雷炎2寻路
  503. 关闭地图
  504. 子地图寻路检测 "雷炎二层", 10, 411,376
  505. Tap 290,642'点击NPC
  506. Delay 1000
  507. Tap 289, 403'进入第二层
  508. Delay 2000
  509. tsxx("已达到雷炎二层,即将开启挂机")
  510. 开启战斗
  511. End Function
  512. Function 皇陵子地图()
  513. TracePrint 子地图
  514. Select Case 子地图
  515. Case 0
  516. tsxx("当前选择,皇陵地图一层挂机")
  517. 开启战斗
  518. Case 1
  519. ret = zm.FindPic(609,1087,720,1284,"皇陵第一层.png")
  520. If ret Then
  521. 皇陵子地图二层寻路()
  522. Else
  523. tsxx("当前选择,皇陵地图一层挂机")
  524. 开启战斗
  525. End If
  526. Case 2
  527. Do
  528. ret = zm.FindPic(609, 1087, 720, 1284, "皇陵第一层.png|皇陵第二层.png|皇陵第三层.png", 0.8, 返回数组)
  529. If ret Then
  530. If 返回数组["id"] = 0 Then
  531. 皇陵子地图二层寻路
  532. Delay 1000
  533. ElseIf 返回数组["id"] = 1 Then
  534. 皇陵子地图三层寻路
  535. Delay 1000
  536. ElseIf 返回数组["id"] = 2 Then
  537. tsxx ("已到达第三层,开始自动战斗")
  538. 开启战斗
  539. Exit Do
  540. End If
  541. Else
  542. ShowMessage "出问题啦,请检查问题"
  543. TracePrint "出问题了,请检查问题"
  544. EndScript
  545. End If
  546. Loop
  547. End Select
  548. End Function
  549. Function 皇陵子地图二层寻路()
  550. tsxx("当前选择,皇陵地图二层挂机")
  551. 打开地图
  552. Tap 446,693'皇陵2寻路
  553. 关闭地图
  554. 子地图寻路检测 "皇陵二层", 30, 446,693
  555. Tap 353,504'点击NPC
  556. Delay 1000
  557. Tap 289, 403'进入第二层
  558. Delay 2000
  559. tsxx("已达到地下二层,即将开启挂机")
  560. 开启战斗
  561. End Function
  562. Function 皇陵子地图三层寻路()
  563. tsxx ("当前选择,皇陵地图三层挂机")
  564. TracePrint "调用三层"
  565. 打开地图
  566. Tap 273,915'皇陵3寻路
  567. 关闭地图
  568. 子地图寻路检测 "皇陵三层", 30, 273, 915
  569. TracePrint "进入1"
  570. Tap 263,566'点击NPC
  571. Delay 1000
  572. Tap 289, 403'进入第三层
  573. Delay 2000
  574. tsxx("已达到地下三层,即将开启挂机")
  575. 开启战斗
  576. End Function
  577. Function 子地图寻路检测(地图, 等待时间, x, y)
  578. TracePrint "调用"
  579. Do
  580. ret = zm.FindPic(493,1203,538,1284,地图&".png")
  581. If ret Then
  582. tsxx("已到指定坐标")
  583. 检测开关 = 0
  584. TracePrint "结束"
  585. Exit Do
  586. Exit Function
  587. Else
  588. Delay 1000
  589. 检测开关 = 检测开关 + 1
  590. End If
  591. If 检测开关 = 等待时间 Then
  592. 检测开关 = 0
  593. 多次未到指定点(30)'自动战斗N秒
  594. 打开地图
  595. Tap x,y'皇陵1寻路
  596. 关闭地图
  597. End If
  598. tsxx("寻路延迟倒计时:"&等待时间-检测开关&"秒")
  599. Loop
  600. End Function
  601. Function tsxx(x)
  602. ShowMessage x,0,1000, 1000
  603. End Function
  604. Function 多次未到指定点(循环)
  605. 开启战斗
  606. For i = 0 to 循环
  607. Delay 1000
  608. tsxx("自动战斗循环等待倒计时:"&循环-i&"秒")
  609. Next
  610. End Function
  611. Function 开启战斗()
  612. For 2
  613. Tap 267, 1214'召唤神兽
  614. Delay 1500
  615. Next
  616. Tap 386,1158'自动战斗
  617. Delay 1000
  618. End Function
  619. Function 关闭地图()
  620. Delay 300
  621. Tap 663,1057'关闭地图
  622. Delay 4000
  623. End Function
  624. Function 打开地图()
  625. Tap 625,1190'打开地图
  626. Delay 1200
  627. 地图打开验证()
  628. End Function
  629. Function 地图打开验证()
  630. Do
  631. ret = zm.FindMultiColor(597,596,703,1139,"265B79","-6|0|2A759F,-14|14|2893CE,0|19|27698E,-14|18|2892CE,0|30|286D96,-14|32|2892CE,0|38|214459,-14|48|2894D1,-7|406|6BA1D4")
  632. If ret Then
  633. tsxx("已打开地图即将进行随机检测")
  634. Exit Do
  635. Exit Function
  636. Else
  637. 死亡检测
  638. Delay 500
  639. Tap 625,1190'打开地图
  640. Delay 1800
  641. 地图打开卡屏 = 地图打开卡屏 + 1
  642. End If
  643. If 地图打开卡屏 = 5 Then
  644. 卡屏次数 = 1
  645. 卡屏检测()
  646. End If
  647. Loop
  648. End Function
  649. Function 进入地图()
  650. Tap 488,140'进入神殿
  651. Delay 2000
  652. End Function
  653. Function 卡屏检测()
  654. //在5秒内判断屏幕100,100,200,200范围是否卡屏
  655. tsxx("调用卡屏检测")
  656. Dim 卡屏 = zm.IsDisplayDead(3,808,27,1273,5000,0.9,10,-2)
  657. If 卡屏 or 卡屏次数 >= 1 Then
  658. 卡屏次数 = 0
  659. TracePrint "出现卡屏了"
  660. Delay 1000
  661. KillApp "com.nnsmt.librxhj"
  662. Delay 8000
  663. RunApp "com.nnsmt.librxhj"
  664. Delay 8500
  665. tsxx("调用游戏启动")
  666. 启动游戏()
  667. Else
  668. tsxx("没有卡屏")
  669. TracePrint "没有卡屏"
  670. End If
  671. End Function
  672. Function 启动游戏()
  673. Do
  674. ret = zm.FindPic(201,588,433,865,"登陆.png",0.9)
  675. If ret Then
  676. tsxx("已找到登陆,即将进行密码登陆")
  677. Delay 500
  678. Tap 391, 732
  679. Delay 800
  680. InputText 密码
  681. Delay 1000
  682. Tap ret(1), ret(2)
  683. Delay 2000
  684. 死亡1
  685. Exit Do
  686. Exit Function
  687. Else
  688. tsxx("未找到登陆,自动检测当前界面")
  689. Delay 1000
  690. ret = zm.FindPic("启动确定.png|进入游戏.png", true,0.9)
  691. If ret Then
  692. tsxx("检测到正在启动进入游戏界面,请耐心等待")
  693. End If
  694. End If
  695. Loop
  696. End Function
  697. Function 启动游戏备用()
  698. ret = zm.FindPic(201,588,433,865,"登陆.png",0.9)
  699. If ret Then
  700. Delay 500
  701. Tap 391, 732
  702. Delay 800
  703. InputText 密码
  704. Delay 1000
  705. Tap ret(1), ret(2)
  706. Delay 2000
  707. Else
  708. Delay 1000
  709. ret = zm.FindPic("启动确定.png|进入游戏.png", true)
  710. If ret Then
  711. tsxx("检测到正在启动进入游戏界面,请耐心等待")
  712. End If
  713. End If
  714. End Function
  715. Function 使用物品(参数)
  716. Do
  717. ret = zm.FindMultiColor(参数)
  718. If ret Then
  719. 使用开关 = 0
  720. tsxx ("使用物品中,请稍等")
  721. For 2
  722. Tap ret(1), ret(2)
  723. Delay 30
  724. Next
  725. Else
  726. tsxx("没有找到元宝, 不执行点击")
  727. 使用开关 = 使用开关 + 1
  728. Tap 276,530'整理按钮
  729. Delay 800
  730. End If
  731. TracePrint 使用开关
  732. If 使用开关 = 2 Then
  733. 使用开关 = 0
  734. tsxx("多次未检测到,即将退出")
  735. Exit Do
  736. Exit Function
  737. End If
  738. Loop
  739. End Function
  740. Function 初始设置()
  741. //---修改攻击模式
  742. Tap 554, 1097'点击模式
  743. Delay 800
  744. Select Case 攻击
  745. Case 0
  746. Tap 549,842'和平
  747. Case 1
  748. Select Case 模式
  749. Case 0
  750. Tap 549,777'全体攻击
  751. Delay 500
  752. Case 1
  753. Tap 545,905'编组攻击
  754. Delay 500
  755. Case 2
  756. Tap 550,967'行会攻击
  757. Delay 500
  758. Case 3
  759. Tap 552,1028'善恶攻击
  760. Delay 500
  761. End Select
  762. End Select
  763. //-----识别元宝
  764. End Function
复制代码

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

    2#

    学习。。。

    3#

    学习学习..

    承接各类游戏脚本制作,post,手游,端游,办公,自动化

    有偿解决任何按键基础问题(可远程讲解、教会为止)

    如果我的回答能帮助了你,大家可以加个好友互相了解
    QQ : 262832680
    4#

    总算可以交流学习了 观摩下大佬们的脚本 认真学习

    诚交天下好友:VX:stnvip
    5#

    观摩下大佬们的脚本大师傅

    6#

    大佬,周围角色数量和被攻击 图色可以判定吗

    7#

    该用户帖子内容已被屏蔽

    8#

    该用户帖子内容已被屏蔽

    9#

    该用户帖子内容已被屏蔽

    10#

    该用户帖子内容已被屏蔽

    11#

    该用户帖子内容已被屏蔽

    12#

    老大,请问我的脚本为什么死亡回城后不会自动运行

    13#

    好久没来了

    <b><b><font color="Red"><font color="Red">承接各类游戏脚本制作,<font color="Blue">post</font>,手游,<font color="Blue">端游</font>,办公,<font color="Blue">自动化</font></b><br/><br/>有偿解决任何按键基础问题(可远程讲解、教会为止)</font></b>
    发新话题 回复该主题