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

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

快捷导航

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

发新话题 回复该主题

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

1#
【官方视频】高级教程——自动打怪实战脚本(横版网游篇)下集

自动打怪实战脚本系列第四弹!

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

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


下集



源代码
  1. SetSimMode 2


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

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


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


  36. Sub 出界判定()


  37. FindColor 614+Ux,37+Uy,798+Ux,48+Uy,"00FF55",pointX,pointY
  38. If pointX > 786 + Ux Then
  39. KeyUp "Right", 1
  40. Delay 200
  41. Goto 开始左跑
  42. End If

  43. If pointX > 0 And pointX < 627 + Ux Then
  44. KeyUp "Left", 1
  45. Delay 200
  46. Goto 开始右跑
  47. End If
  48. End Sub

  49. Sub 攻击子程序()



  50. Rem 攻击开始
  51. Call 吃药()


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


  54. FindPic zijiX-370,zijiY-100,zijiX+230,zijiY+100,"Attachment:\2.bmp",1,guaiX,guaiY
  55. If guaiX > 0 And guaiY > 0 Then
  56. i = 1
  57. KeyUp "Right", 1
  58. KeyUp "Left", 1

  59. If guaiX > zijiX - 70 Then
  60. KeyDown "Right", 1
  61. Else
  62. KeyDown "Left", 1
  63. End If
  64. KeyPress "A", 1
  65. KeyPress "S", 1
  66. KeyPress "D", 1
  67. KeyPress "F", 1
  68. KeyPress "Z", 1
  69. KeyPress "X", 1
  70. KeyPress "C", 1
  71. KeyUp "Right", 1
  72. KeyUp "Left", 1
  73. Delay 100
  74. Goto 攻击开始
  75. Else
  76. Goto 攻击结束


  77. End If

  78. Else
  79. Goto 攻击结束

  80. End If

  81. Rem 攻击结束
  82. End Sub

  83. Sub 吃药()


  84. IfColor 93+Ux,29+Uy,"88BBFF",1 Then
  85. KeyPress "1", 1
  86. End If

  87. IfColor 93+Ux,45+Uy,"EEBB88",1 Then
  88. KeyPress "2", 1
  89. End If

  90. IfColor 73+Ux,29+Uy,"88BBFF",1 Then
  91. KeyPress "3", 1
  92. End If

  93. IfColor 73+Ux,45+Uy,"EEBB88",1 Then
  94. KeyPress "3", 1
  95. End If


  96. End Sub
复制代码

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

    2#

    地下城这种横版游戏如何进下图 什么写?有时跑路老被障碍物挡住.

    3#

    现在看不知道还能用到不

    4#

    回复 1楼阿皮的帖子

    学习了,非常感谢

    5#

    讲的太缩水

    6#

    超高层

    7#

    如果我打怪的攻击命令很长,导致人物偏离了到了图的两侧,能否有随时判断的语句让角色在图中间一直找怪

    8#

    学习了,非常感谢

    发新话题 回复该主题