万王之王 KOK King of Kings

 找回密码
 加入我们
查看: 941|回复: 7

各种国家、各种24人钱坑全通用咒术师1~5坑钱坑高效代码【完美版】【重启可重连】

[复制链接]
发表于 2017-12-1 22:12 | 显示全部楼层 |阅读模式
本帖最后由 wizard 于 2017-12-5 22:53 编辑
  1. ///////////////////////////////////////////////////////下面参数自己设///////////////////////////////////////////////////////
  2. //要打几坑就写几,本例中写的是2
  3. Dim tk
  4. tk=2
  5. //x y 是标准24人坑中心坐标 可以设5个(一国钱坑最多5个)
  6. Dim x(5)
  7. x(1) = 31
  8. x(2) = 31
  9. x(3) = 11
  10. x(4) = 17
  11. x(5) = 11

  12. Dim y(5)
  13. y(1) = 36
  14. y(2) = 76
  15. y(3) = 36
  16. y(4) = 84
  17. y(5) = 36

  18. //商店的地址码,SD(1)对应 X1,Y1
  19. Dim sd(5)
  20. sd(1) = 1703973
  21. sd(2) = 1835085
  22. sd(3) = 524324
  23. sd(4) = 983126
  24. sd(5) = 524324
  25. /////////////////////自定义部分结束,下面的除了帐号密码外其他全部不要改/////////////////////

  26. Dim fz
  27. fz = 3
  28. Dim j
  29. Dim Hwnd
  30. Dim a(24)

  31. Sub mob
  32. a(1) = x(j) * 65536 + y(j) + 131081
  33. a(2) = a(1) + 65537
  34. a(3) = a(1) - 327680
  35. a(4) = a(1) - 327679
  36. a(5) = a(1) - 16
  37. a(6) = a(1) + 65519
  38. a(7) = a(1) - 327697
  39. a(8) = a(1) - 458751
  40. a(9) = a(1) - 393233
  41. a(10) = a(1) - 393232
  42. a(11) = a(1) - 393215
  43. a(12) = a(1) - 393216
  44. a(13) = a(1) + 65520
  45. a(14) = a(1) + 131055
  46. a(15) = a(1) + 65536
  47. a(16) = a(1) + 131073
  48. a(17) = a(1) + 131056
  49. a(18) = a(1) + 131072
  50. a(19) = a(1) + 196609
  51. a(20) = a(1) + 196591
  52. a(21) = a(1) - 458768
  53. a(22) = a(1) - 458769
  54. a(23) = a(1) - 458752
  55. a(24) = a(1) - 327696
  56. End Sub

  57. Dim u(8)

  58. Sub item
  59. //正上
  60. u(1) = x(j) * 65536 + y(j) - 2
  61. //右上
  62. u(2) = u(1) + 1
  63. //正右
  64. u(3)=u(1)+65538
  65. //右下
  66. u(4) = u(1) + 3
  67. //正下
  68. u(5) = u(1) + 4
  69. //左下
  70. u(6) = u(1) - 65533
  71. //正左
  72. u(7) = u(1) - 65534
  73. //左上
  74. u(8) = u(1) - 65535
  75. End Sub

  76. Sub pan
  77. f = HOUR(now)
  78. g = minute(now)
  79. If f=07 and g>=02 and g<=05
  80.         Goto reconect
  81.         Else
  82. End If
  83. Delay 1000
  84. End Sub

  85. Sub star
  86. Delay 200
  87. Call Plugin.Bkgnd.SendString(Hwnd, "run "&x(j)&","&y(j))
  88. Call Plugin.Bkgnd.KeyPress(Hwnd, 13)
  89. Delay 10000
  90. End Sub

  91. Sub sha
  92. For 7
  93. For 6
  94. Call Plugin.Bkgnd.SendString(Hwnd, "cast mind_blast on")
  95. Call Plugin.Bkgnd.KeyPress(Hwnd, 13)
  96. Delay 300
  97. Next
  98. Delay 5500
  99. Next
  100. Call pan
  101. End Sub


  102. Sub jian
  103. Dim z
  104. For z = 1 To 3
  105. Call Plugin.Bkgnd.SendString(Hwnd, "get ALL_ITEM_IN "&u(z))
  106. Call Plugin.Bkgnd.KeyPress(Hwnd, 13)
  107. Delay 300
  108. Next
  109. Call Plugin.Bkgnd.SendString(Hwnd, "look 1@"&sd(j))
  110. Call Plugin.Bkgnd.KeyPress(Hwnd, 13)
  111. Delay 300
  112. For t = 1 To fz * 4
  113. Call Plugin.Bkgnd.SendString(Hwnd, "sell 1")
  114. Call Plugin.Bkgnd.KeyPress(Hwnd, 13)
  115. Delay 300
  116. Next

  117. For z = 4 To 6
  118. Call Plugin.Bkgnd.SendString(Hwnd, "get ALL_ITEM_IN "&u(z))
  119. Call Plugin.Bkgnd.KeyPress(Hwnd, 13)
  120. Delay 300
  121. Next
  122. Call Plugin.Bkgnd.SendString(Hwnd, "look 1@"&sd(j))
  123. Call Plugin.Bkgnd.KeyPress(Hwnd, 13)
  124. Delay 300
  125. For t = 1 To fz * 4
  126. Call Plugin.Bkgnd.SendString(Hwnd, "sell 1")
  127. Call Plugin.Bkgnd.KeyPress(Hwnd, 13)
  128. Delay 300
  129. Next

  130. For z = 7 To 8
  131. Call Plugin.Bkgnd.SendString(Hwnd, "get ALL_ITEM_IN "&u(z))
  132. Call Plugin.Bkgnd.KeyPress(Hwnd, 13)
  133. Delay 300
  134. Next
  135. Call Plugin.Bkgnd.SendString(Hwnd, "look 1@"&sd(j))
  136. Call Plugin.Bkgnd.KeyPress(Hwnd, 13)
  137. Delay 300
  138. For t = 1 To fz * 4
  139. Call Plugin.Bkgnd.SendString(Hwnd, "sell 1")
  140. Call Plugin.Bkgnd.KeyPress(Hwnd, 13)
  141. Delay 300
  142. Next
  143. End Sub

  144. Sub kill
  145. Dim i
  146. For i = 1 To 24
  147. Delay 1000
  148. Call Plugin.Bkgnd.SendString(Hwnd, "kill "&a(i))
  149. Call Plugin.Bkgnd.KeyPress(Hwnd, 13)
  150. Delay 400
  151. If i = 8 Then
  152.         Call sha
  153.         Call jian        
  154.         End If

  155. If i = 16 Then
  156.         Call sha
  157.         Call jian        
  158.         End If
  159. If i = 24 Then
  160.         Call sha
  161.         Call jian        
  162.         End If
  163. Next

  164. End Sub

  165. Rem window
  166. Delay 1000
  167. Hwnd = Plugin.Window.MousePoint()
  168. Delay 1000
  169. Call Plugin.Window.SetText(Hwnd, "咒术师打坑")
  170. Delay 1000
  171. Goto start

  172. Rem start
  173. For j = 1 To TK
  174. Delay 1000
  175. Call star
  176. Delay 1000
  177. Call mob
  178. Delay 1000
  179. Call item
  180. Delay 1000
  181. Call kill
  182. Delay 1000
  183. Next
  184. Goto start

  185. Rem reconect
  186. Call Plugin.Window.Active(Hwnd)
  187. Delay 5000
  188. Call Plugin.Window.Restore(Hwnd)
  189. Delay 20000
  190. MoveTo 1091, 701
  191. Delay 3000
  192. LeftClick 1
  193. Delay 5000
  194. MoveTo 1173, 724
  195. Delay 3000
  196. LeftClick 1
  197. Delay 5000
  198. Call Plugin.Bkgnd.SendString(Hwnd, "你的帐号")
  199. Delay 3000
  200. Call Plugin.Bkgnd.KeyPress(Hwnd, 9)
  201. Delay 3000
  202. Call Plugin.Bkgnd.SendString(Hwnd, "你的密码")
  203. Delay 3000
  204. Call Plugin.Bkgnd.KeyPress(Hwnd, 13)
  205. Delay 3000
  206. MoveTo 1151, 774
  207. Delay 3000
  208. LeftClick 1
  209. Delay 3000
  210. MoveTo 1158, 782
  211. Delay 3000
  212. LeftClick 1
  213. Delay 3000
  214. Call Plugin.Window.Min(Hwnd)
  215. Delay 60000
  216. Goto start
复制代码
代码仍然是借鉴@张容恺的代码思路

然后进行了改良

本代码可供咒术师打1~5坑(自定义)钱坑

根据刚才的测试,效率相当滴高。

已经修复了所有BUG

大概4分钟多一点就可以打完一坑,完美支持2坑的高效挂坑~

注:因为我目前不会使用那个相对鼠标坐标,所以这个代码的断线重连功能只能在1920*1080的分辨率下使用
发表于 2017-12-1 22:27 | 显示全部楼层
顶起,能文能武,前台幕后样样出色,尼克简直是万能选手!
发表于 2017-12-1 23:59 | 显示全部楼层
按键刚学了下就转TC了,所以看不太懂代码。
断线重连,用大漠绑定窗口正确的话,出现断线的那个图,坐标是固定的,如果没绑定窗口,找字找图都很麻烦。断线重连我是这么弄的,找iKing窗口标题,正常游戏时,标题是iKing [ID],断线了是iKing,后面没带ID了,这样找好象效率高点,而且万一断线了不出那个断线图也能重连。找到了,直接关闭iKing窗口,点鼠标效率实在是不高。然后直接重新启动游戏。刚出来的那个公示窗口,不用太管的,输账密,按确定,那个会自动消失。
 楼主| 发表于 2017-12-2 01:52 | 显示全部楼层
小手妄动 发表于 2017-12-1 23:59
按键刚学了下就转TC了,所以看不太懂代码。
断线重连,用大漠绑定窗口正确的话,出现断线的那个图,坐标是 ...

通用就是为了不用大漠的后台

而且我那个断线重连其实只是针对每天早上7点的服务器重启,其他时间段因为LAG而掉线的管不了。。
发表于 2017-12-2 07:10 | 显示全部楼层
本帖最后由 KillDS 于 2017-12-2 07:13 编辑

還在看按鍵精靈官網的視頻教學. 用笨代碼一步一步地打. 每個按鍵都要對應一個NPC 然後設定地址碼快捷鍵. 所以我一個坑只能打18隻NPC.

沒有那麼多按鍵去應對......

你這代碼根本看不懂啊.....簡直天書  不明覺厲

話說 有巫術的幫寫個......
 楼主| 发表于 2017-12-2 11:11 | 显示全部楼层
KillDS 发表于 2017-12-2 07:10
還在看按鍵精靈官網的視頻教學. 用笨代碼一步一步地打. 每個按鍵都要對應一個NPC 然後設定地址碼快捷鍵. 所 ...


实际上这个代码只需要把sub sha那段使用的技能部分改成巫术师的就好,这也是整个代码唯一一个能体现职业区别的地方而已。。

但我觉得巫术师效率比不上咒术师

毕竟没办法保持MP全程都满,所以你铁定要通过吸魂/冥想来回魔

然而吸魂、兰达、冰刃风暴的话又可能造成自己被炸死。。。

所以其实打钱坑还是推荐续航比较好的职业。。。
发表于 2017-12-6 14:06 | 显示全部楼层
多谢大佬,很有用处
发表于 2017-12-6 15:34 | 显示全部楼层
还是用笨办法先挂着,反正也没那么多坑给我挂
您需要登录后才可以回帖 登录 | 加入我们

本版积分规则

小黑屋|手机版|万王之王 king of kings

GMT+8, 2024-3-28 22:49

Powered by Discuz! X3.4

© 2001-2017 Comsenz Inc.

快速回复 返回顶部 返回列表