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

软件版本：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

快捷导航

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

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

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

阿皮
头像

阿皮

  • 按键精灵会员
  • 310264
  • 333
  • 6
  • 590 朵
  • 742 个
  • 163 个
  • 40740
  • 2009-09-11
黄瓜勋章管理人员小红帽
1#
t T
发表于 2010-04-29 18:09 | |只看楼主
自动打怪实战脚本系列第四弹！

主要适用于《冒险岛》《彩虹岛》这类的横版游戏。

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


视频版本：
http://www.aipai.com/c9/ODY9JSkhJ2gnaiAg.html

上集



源代码
  1. SetSimMode 2


  4. Hwnd = Plugin.Window.GetKeyFocusWnd()
  5. sRect = Plugin.Window.GetClientRect(Hwnd)
  6. Dim MyArray
  7. MyArray = Split(sRect, "|")
  8. Ux = CLng(MyArray(0))
  9. Uy = CLng(MyArray(1))

  11. Rem 开始右跑
  12. i=0
  13. KeyPress "Right", 1
  14. Delay 20
  15. KeyDown "Right", 1
  16. Rem 继续右跑
  17. Call 吃药()
  18. Call 出界判定()
  19. Call 攻击子程序()
  20. If i = 1 Then
  21. Goto 开始右跑
  22. End If
  23. Delay 100
  24. Goto 继续右跑


  27. Rem 开始左跑
  28. i=0
  29. KeyPress "Left", 1
  30. Delay 20
  31. KeyDown "Left", 1
  32. Rem 继续左跑
  33. Call 吃药()
  34. Call 出界判定()
  35. Call 攻击子程序()
  36. If i = 1 Then
  37. Goto 开始左跑
  38. End If
  39. Delay 100
  40. Goto 继续左跑


  43. Sub 出界判定()


  46. FindColor 614+Ux,37+Uy,798+Ux,48+Uy,"00FF55",pointX,pointY
  47. If pointX > 786 + Ux Then
  48. KeyUp "Right", 1
  49. Delay 200
  50. Goto 开始左跑
  51. End If

  53. If pointX > 0 And pointX < 627 + Ux Then
  54. KeyUp "Left", 1
  55. Delay 200
  56. Goto 开始右跑
  57. End If
  58. End Sub

  60. Sub 攻击子程序()



  64. Rem 攻击开始
  65. Call 吃药()


  68. FindPic Ux,Uy,Ux+800,Uy+600,"Attachment:\1.bmp",1,zijiX,zijiY
  69. If zijiX > 0 And zijiY > 0 Then


  72. FindPic zijiX-370,zijiY-100,zijiX+230,zijiY+100,"Attachment:\2.bmp",1,guaiX,guaiY
  73. If guaiX > 0 And guaiY > 0 Then
  74. i = 1
  75. KeyUp "Right", 1
  76. KeyUp "Left", 1

  78. If guaiX > zijiX - 70 Then
  79. KeyDown "Right", 1
  80. Else
  81. KeyDown "Left", 1
  82. End If
  83. KeyPress "A", 1
  84. KeyPress "S", 1
  85. KeyPress "D", 1
  86. KeyPress "F", 1
  87. KeyPress "Z", 1
  88. KeyPress "X", 1
  89. KeyPress "C", 1
  90. KeyUp "Right", 1
  91. KeyUp "Left", 1
  92. Delay 100
  93. Goto 攻击开始
  94. Else
  95. Goto 攻击结束


  98. End If

  100. Else
  101. Goto 攻击结束

  103. End If

  105. Rem 攻击结束
  106. End Sub

  108. Sub 吃药()


  111. IfColor 93+Ux,29+Uy,"88BBFF",1 Then
  112. KeyPress "1", 1
  113. End If

  115. IfColor 93+Ux,45+Uy,"EEBB88",1 Then
  116. KeyPress "2", 1
  117. End If

  119. IfColor 73+Ux,29+Uy,"88BBFF",1 Then
  120. KeyPress "3", 1
  121. End If

  123. IfColor 73+Ux,45+Uy,"EEBB88",1 Then
  124. KeyPress "3", 1
  125. End If


  128. End Sub
复制代码
点赞
回顶部
侧脸丶
头像

侧脸丶

  • 小学一年级
  • 8580852
  • 5
  • 0
  • 6 朵
  • 6 个
  • 6 个
  • 0
  • 2021-12-25
2#
t T
发表于 2021-12-28 10:23 | |只看该用户

怎么精确算出自己跟怪物的距离

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