• 按键公众号 ：
按键精灵电脑版
立即下载

软件版本：2014.06
软件大小：22.9M
更新时间：2021-12-03

按键精灵安卓版
立即下载

软件版本：3.7.2
软件大小：46.2M
更新时间：2023-05-10

按键精灵iOS版
立即下载

软件版本：1.8.0
软件大小：29.2M
更新时间：2023-03-21

按键手机助手
立即下载

软件版本：3.8.0
软件大小：262M
更新时间：2023-05-30

快捷导航

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

登录 注册
返回列表
发新话题 回复该主题
查看: 27243|回复: 8

【官方】高级教程——自动打怪实战脚本(2D网游篇)下 [复制链接]

阿皮
头像

阿皮

  • 按键精灵会员
  • 310264
  • 333
  • 6
  • 590 朵
  • 742 个
  • 163 个
  • 40740
  • 2009-09-11
黄瓜勋章管理人员小红帽
1#
t T
发表于 2010-03-29 17:45 | |只看楼主
【官方视频】高级教程——自动打怪实战脚本(2D网游篇)下

自动打怪实战脚本系列第三弹！2D游戏依然主流网游市场之一，这个教程突破了以往的找怪思路，适用于各种2D甚至2.5D的游戏，如《剑侠世界》、《大明龙权》等等

如无法观看，请点击下载：按键精灵视频教程全集



源代码：
  1. Hwnd = Plugin.Window.Find(0, "剑侠世界")
  2. sRect = Plugin.Window.GetClientRect(Hwnd)
  3. Dim MyArray
  4. MyArray=Split(sRect,"|")
  5. Ux = Clng(MyArray(0))
  6. Uy = Clng(MyArray(1))

  8. Rem 战斗开始
  9. Call 吃药()


  12. KeyPress "Space", 1
  13. Delay 50
  14. KeyPress "Space", 1
  15. Delay 50
  16. KeyPress "Space", 1
  17. Delay 50

  19. Rem 出界判定


  22. Cx = 662 + Ux
  23. Cy = 44 + Uy
  24. Call 坐标读取()
  25. Zx = group
  26. Cx = 686 + Ux
  27. Call 坐标读取()
  28. Zy = group


  31. If Zx > 201 Then
  32. MoveTo 30 + Ux, 300 + Uy
  33. Delay 50
  34. LeftClick 1
  35. Delay 2000
  36. End If


  39. If Zx < 198 Then
  40. MoveTo 770 + Ux, 300 + Uy
  41. Delay 50
  42. LeftClick 1
  43. Delay 2000
  44. End If


  47. If Zy > 232 Then
  48. MoveTo 400 + Ux, 100 + Uy
  49. Delay 50
  50. LeftClick 1
  51. Delay 2000
  52. End If



  56. If Zy < 231 Then
  57. MoveTo 400 + Ux, 500 + Uy
  58. Delay 50
  59. LeftClick 1
  60. Delay 2000
  61. End If


  64. If Zx > 197 And Zx < 202 And Zy > 230 And Zy < 233 Then
  65. Delay 50
  66. Else
  67. Goto 出界判定

  69. End If


  72. FindColor 706+Ux,86+Uy,738+Ux,102+Uy,"FF59D6",intX,intY
  73. If intX > 0 And intY > 0 Then

  75. Qx=(intX-Ux-724)*16+374+Ux
  76. Qy=(intY-Uy-94)*16+290+Uy

  78. MoveTo Qx, Qy

  80. Delay 50
  81. LeftClick 1

  83. a = 0


  86. Rem 战斗中
  87. Call 吃药()


  90. Delay 1000

  92. a = a + 1
  93. If a > 10 Then
  94. Goto 战斗开始

  96. End If


  99. IfColor 97,110,"B5B6B5",0 Then

  101. Goto 战斗中

  103. End If

  105. Else

  107. Call 寻怪()
  108. End If
  109. Delay 50
  110. Goto 战斗开始
  111. Sub 寻怪()
  112. Randomize

  114. //获得0-3的随机数
  115. n = Int(rnd * 4)

  117. If n = 0 Then
  118. MoveTo 208+Ux, 140+Uy
  119. Delay 50
  120. LeftClick 1
  121. End If


  124. If n = 1 Then
  125. MoveTo 559+Ux, 128+Uy
  126. Delay 50
  127. LeftClick 1
  128. End If


  131. If n = 2 Then
  132. MoveTo 559+Ux, 426+Uy
  133. Delay 50
  134. LeftClick 1
  135. End If


  138. If n = 3 Then
  139. MoveTo 227+Ux, 428+Uy
  140. Delay 50
  141. LeftClick 1
  142. End If

  144. Delay 1800


  147. End Sub

  149. Sub 坐标读取()


  152. group=""
  153. For 3
  154. code=""
  155. y=Cy
  156. For 8
  157. x=Cx
  158. For 5
  159. color=GetPixelColor(x,y)
  160. If color="00FF00"
  161. i="1"
  162. Else
  163. i="0"
  164. End If
  165. code=code & i
  166. x=x+1
  167. Next
  168. y=y+1
  169. Next
  170. NO0="0111010001100011000110001100011000101110"
  171. NO1="0010001100001000010000100001000010001110"
  172. NO2="0111010001100010001000100010001000011111"
  173. NO3="0111010001000010011000001000011000101110"
  174. NO4="0001000110010100101010010011110001000011"
  175. NO5="1111110000100001111000001000011000101110"
  176. NO6="0111010010100001111010001100011000101110"
  177. NO7="1111110010000100010000100001000010000100"
  178. NO8="0111010001100010111010001100011000101110"
  179. NO9="0111010001100011000101111000010100101110"
  180. If code=NO0
  181. number="0"
  182. ElseIf code=NO1
  183. number="1"
  184. ElseIf code=NO2
  185. number="2"
  186. ElseIf code=NO3
  187. number="3"
  188. ElseIf code=NO4
  189. number="4"
  190. ElseIf code=NO5
  191. number="5"
  192. ElseIf code=NO6
  193. number="6"
  194. ElseIf code=NO7
  195. number="7"
  196. ElseIf code=NO8
  197. number="8"
  198. ElseIf code=NO9
  199. number="9"
  200. Else
  201. number="?"
  202. End If
  203. Cx=Cx+6
  204. group=group & number
  205. Next


  208. End Sub

  210. Sub 吃药()
  211. IfColor 312+Ux,20+Uy,"AD",1 Then
  212. KeyPress "1", 1
  213. Delay 50
  214. End If
  215. End Sub
复制代码

    已有2评分我要评分查看所有评分
    点赞
    回顶部
    447041
    头像

    菜鸟

    • 小学一年级
    • 4746033
    • 22
    • 0
    • 5 朵
    • 68 个
    • 9 个
    • 460
    • 2017-11-25
    2#
    t T
    发表于 2017-12-14 14:34 | |只看该用户

    视屏在哪里

    回顶部
    q290015129
    头像

    q290015129

    • 小学一年级
    • 5333461
    • 2
    • 0
    • 0 朵
    • 12 个
    • 0 个
    • 640
    • 2018-06-24
    3#
    t T
    发表于 2018-07-14 02:04 | |只看该用户

    我想说 我的窗口石800-600的Qx=(intX-Ux-724)*16+374+Ux

    Qy=(intY-Uy-94)*16+290+Uy怎么填

    回顶部
    a121717356
    头像

    • 按键精灵会员
    • 6360466
    • 2
    • 0
    • 0 朵
    • 62 个
    • 0 个
    • 0
    • 2019-04-09
    4#
    t T
    发表于 2019-04-12 10:33 | |只看该用户

    感谢楼主分享

    回顶部
    zzx878
    头像

    zzx878

    • 小学二年级
    • 399794
    • 31
    • 0
    • 0 朵
    • 250 个
    • 0 个
    • 940
    • 2010-04-20
    5#
    t T
    发表于 2020-05-09 01:51 | |只看该用户

    感谢楼主分享，我要认真学习一下

    回顶部
    bsi841231
    头像

    • 幼儿园
    • 6699405
    • 8
    • 0
    • 0 朵
    • 31 个
    • 0 个
    • 0
    • 2019-07-06
    6#
    t T
    发表于 2020-07-13 20:10 | |只看该用户

    好难

    回顶部
    bsi841231
    头像

    • 幼儿园
    • 6699405
    • 8
    • 0
    • 0 朵
    • 31 个
    • 0 个
    • 0
    • 2019-07-06
    7#
    t T
    发表于 2020-07-13 20:11 | |只看该用户

    希望 后续 介绍下 按键 功能 所有 细节

    回顶部
    5532816
    头像

    5532816

    • 小学一年级
    • 5460664
    • 7
    • 0
    • 4 朵
    • 17 个
    • 7 个
    • 20
    • 2018-08-07
    8#
    t T
    发表于 2022-09-12 12:14 | |只看该用户

    以这个思路做了个简单的回到原位的脚本可是一直不成功一直固定朝着一个方向跑怎么办呢

    Rem 开始
    ux = 908
    uy = 83
    Call 坐标()
    ZX=group
    ux = 932
    Call 坐标()
    ZY=group
    If ZX> 211 Then
    MoveTo 415, 380
    Delay 50
    LeftClick 1
    Delay 2000
    End If


    If ZX < 207 Then
    MoveTo 940, 380
    Delay 50
    LeftClick 1
    Delay 2000
    End If
    If ZY > 147 Then
    MoveTo 675, 155
    Delay 50
    LeftClick 1
    Delay 2000
    End If


    If ZY < 142 Then
    MoveTo 675, 520
    Delay 50
    LeftClick 1
    Delay 2000
    End If
    Goto 开始
    Sub 坐标()
    For 3
    code=""
    y = uy
    For 8
    x = ux
    For 5
    GetColor=GetPixelColor(x,y)
    If GetColor = "00FFFF" Then
    i = "1"
    Else
    i = "0"

    End If

    code = code & i
    x = x + 1
    Next
    y = y + 1

    Next

    NO0="0111010001100011000110001100011000101110"
    NO1="0010001100001000010000100001000010001110"
    NO2="0111010001100010001000100010001000011111"
    NO3="0111010001000010011000001000011000101110"
    NO4="0001000110010100101010010011110001000011"
    NO5="1111110000100001111000001000011000101110"
    NO6="0111010010100001111010001100011000101110"
    NO7="1111110010000100010000100001000010000100"
    NO8="0111010001100010111010001100011000101110"
    NO9 = "0111010001100011000101111000010100101110"

    If code=NO0 Then
    num="0"
    ElseIf code=NO1 Then
    num="1"
    ElseIf code=NO2 Then
    num="2"
    ElseIf code=NO3 Then
    num="3"
    ElseIf code=NO4 Then
    num="4"
    ElseIf code=NO5 Then
    num="5"
    ElseIf code=NO6 Then
    num="6"
    ElseIf code=NO7 Then
    num="7"
    ElseIf code=NO8 Then
    num="8"
    ElseIf code=NO9 Then
    num="9"
    Else
    num="?"
    End If

    ux = ux + 6
    group = group & num

    Next
    End Sub

    回顶部
    5532816
    头像

    5532816

    • 小学一年级
    • 5460664
    • 7
    • 0
    • 4 朵
    • 17 个
    • 7 个
    • 20
    • 2018-08-07
    9#
    t T
    发表于 2022-09-12 12:17 | |只看该用户

    以这个思路做了个简单的回到原位的脚本可是一直不成功一直固定朝着一个方向跑怎么办呢

    Rem 开始
    ux = 908
    uy = 83
    Call 坐标()
    ZX=group
    ux = 932
    Call 坐标()
    ZY=group
    If ZX> 211 Then
    MoveTo 415, 380
    Delay 50
    LeftClick 1
    Delay 2000
    End If


    If ZX < 207 Then
    MoveTo 940, 380
    Delay 50
    LeftClick 1
    Delay 2000
    End If
    If ZY > 147 Then
    MoveTo 675, 155
    Delay 50
    LeftClick 1
    Delay 2000
    End If


    If ZY < 142 Then
    MoveTo 675, 520
    Delay 50
    LeftClick 1
    Delay 2000
    End If
    Goto 开始
    Sub 坐标()
    For 3
    code=""
    y = uy
    For 8
    x = ux
    For 5
    GetColor=GetPixelColor(x,y)
    If GetColor = "00FFFF" Then
    i = "1"
    Else
    i = "0"

    End If

    code = code & i
    x = x + 1
    Next
    y = y + 1

    Next

    NO0="0111010001100011000110001100011000101110"
    NO1="0010001100001000010000100001000010001110"
    NO2="0111010001100010001000100010001000011111"
    NO3="0111010001000010011000001000011000101110"
    NO4="0001000110010100101010010011110001000011"
    NO5="1111110000100001111000001000011000101110"
    NO6="0111010010100001111010001100011000101110"
    NO7="1111110010000100010000100001000010000100"
    NO8="0111010001100010111010001100011000101110"
    NO9 = "0111010001100011000101111000010100101110"

    If code=NO0 Then
    num="0"
    ElseIf code=NO1 Then
    num="1"
    ElseIf code=NO2 Then
    num="2"
    ElseIf code=NO3 Then
    num="3"
    ElseIf code=NO4 Then
    num="4"
    ElseIf code=NO5 Then
    num="5"
    ElseIf code=NO6 Then
    num="6"
    ElseIf code=NO7 Then
    num="7"
    ElseIf code=NO8 Then
    num="8"
    ElseIf code=NO9 Then
    num="9"
    Else
    num="?"
    End If

    ux = ux + 6
    group = group & num

    Next
    End Sub

    回顶部
    上一主题| 下一主题
    返回列表
    发新话题 回复该主题
    高级编辑器高级编辑器