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

软件版本:2014.05
软件大小:21.6M
更新时间:07-04

按键精灵安卓版
立即下载

软件版本:3.3.5
软件大小:62.5M
更新时间:9-25

按键精灵iOS版
立即下载

软件版本:1.3.5
软件大小:29.2M
更新时间:06-14

最新企业版UiBot
立即下载

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

快捷导航

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

登录 注册
发新话题 回复该主题

[其他] 魔兽世界 5.3 范围路径循环跑路源码 [复制链接]

1#
本帖最后由 wxyzyou 于 2013-5-30 00:40 编辑

此源码为 牛头人新手村 31.5 50.5 处 小范围跑圈 例子
抛砖引玉 大家加上自动打怪就成了 范围循环跑路打怪了
当然也可以做自动任务等等‘
(记得打开鼠标点击移动功能)
尊重成果 回复可见


用到大漠插件,自行准备
  1. PutAttachment "C:\GAME","regdll.dll"
  2. PutAttachment "C:\GAME\yr", "dm.dll"
  3. PutAttachment "C:\GAME\yr", "*.txt"
  4. Call Plugin.RegDll.Reg("C:\GAME\yr\dm.dll")
  5. set dm = createobject("dm.dmsoft")
  6. ver = dm.Ver()
  7. If len(ver) = 0 Then
  8. MessageBox "错误!"
  9. EndScript
  10. End If
  11. hwnd = dm.GetForegroundFocus()
  12. JX="+C8F388"
  13. JY="+C8F384"
  14. JZ="+C8F38C"
  15. ZL="+C8F314"

  16. KX="+C16124"
  17. KY="+C16120"
  18. KZ="+C16128"
  19. Dim s(5)
  20. s(0)="-313.2637,-3175.407,46.66066"
  21. s(1)="-312.7603,-3175.48,46.64926"
  22. s(2)="-286.5636,-3170.323,47.62336"
  23. s(3)="-248.8925,-3180.083,47.52575"
  24. s(4)="-192.6804,-3179.135,46.59473"
  25. s(5)="-178.4765,-3221.91,39.47536"
  26. do
  27. b=split(s(0),",")
  28. dm_ret = dm.WriteFloat(hwnd,JX,b(0))'X
  29. dm_ret = dm.WriteFloat(hwnd,JY,b(1))'Y
  30. dm_ret = dm.WriteFloat(hwnd,JZ,b(2))'Z
  31. dm_ret = dm.WriteInt(hwnd,ZL,0,4)'指令 4\13
  32. For i= 0 to UBound(s)
  33. b=split(s(i),",")
  34. XX=0:YY=0:ZZ=0
  35. do
  36. X = dm.ReadFloat(hwnd,KX)
  37. Y = dm.ReadFloat(hwnd,KY)
  38. Z = dm.ReadFloat(hwnd,KZ)
  39. If XX=X and YY=Y and ZZ=Z Then
  40. b=split(s(i+1),",")
  41. dm_ret = dm.WriteFloat(hwnd,JX,b(0))'X
  42. dm_ret = dm.WriteFloat(hwnd,JY,b(1))'Y
  43. dm_ret = dm.WriteFloat(hwnd,JZ,b(2))'Z
  44. dm_ret = dm.WriteInt(hwnd,ZL,0,4)'指令 4\13
  45. End If
  46. XX=X:YY=Y:ZZ=Z
  47. If abs(X-b(0))<=6 and abs(Y-b(1))<=6 and abs(Z-b(2))<=6 then
  48. If i>=UBound(s) Then Exit do
  49. b=split(s(i+1),",")
  50. dm_ret = dm.WriteFloat(hwnd,JX,b(0))'X
  51. dm_ret = dm.WriteFloat(hwnd,JY,b(1))'Y
  52. dm_ret = dm.WriteFloat(hwnd,JZ,b(2))'Z
  53. dm_ret = dm.WriteInt(hwnd,ZL,0,4)'指令 4\13
  54. Exit Do
  55. End If
  56. Delay 300
  57. loop
  58. Next
  59. loop
复制代码

收徒、填表、POST、游戏、办公、网页等 各种脚本定制
收徒、填表、POST、游戏、办公、网页等 各种脚本定制
2#


3#

太好乐乐 绿卡的身份阿斯顿是啊

4#

谢谢,太需要了

5#

找这个好久了 谢谢分享

6#

Hgtrrrr

7#

这个要学习下

新人,望点拨.,,...一下拨不动,请多拨两下....
8#

顶顶顶顶顶顶顶顶顶顶顶

9#

z546618137

10#

供热费个人无法沟通完

11#

三十三岁是是是试试试试试试

12#

学习一下,看看

13#

DDDDDDDDDDDDDDDDDDDDDDDDDDDDDD

14#

00000000000

15#

12312312414

16#

不要是前台

17#

看看呢

18#


19#

**** 该内容需您回复才可浏览 *****

20#

呵呵

发新话题 回复该主题