1. 注释:6.1更新增加随机数、识别战斗状态,测试无错误
  2. 注释:在我接触按键一月以来感谢【爱? 老婆'炜儿】一直以来的指导、帮助,一个很低调很热心的朋友,大哥哥,发自内心的感谢你...(此处省去1W字,O(∩_∩)O哈哈~)希望我们的友谊天长地久---------感恩版
  3. 注释:此脚本功能简单,由于还在学习大漠所以当时没有用上插件,这是半月前写出来的,早想编译出来了,可是学车耽误半月。。。
  4. 注释:测试地图:江南野外、大唐国境
  5. 注释:备注:附赠源码,只为交流学习,如有喜欢交流的朋友论坛找我吧
  6. 注释:论坛名字:豪燕
  7. 注释:QQ:839552004
  8. 用户定义变量 Var1=DropList{"物理攻击":"A"|"法术攻击":"Q"}=0 "人物攻击"
  9. 用户定义变量 Var2=DropList{"物理攻击":"A"|"法术攻击":"Q"}=0 "宠物攻击"
  10. 令 Hwnd = Window.Foreground()
  11. 令 sRect = Window.GetClientRect(Hwnd)
  12. 定义变量 MyArray
  13. 令 MyArray = Split(sRect,"|")
  14. 令 Ux = CLng(MyArray(0))
  15. 令 Uy = CLng(MyArray(1))
  16. 调用 Window.Move(Hwnd,0,0)
  17. 令 Hwndck = Window.Find(0,"梦幻西游 聊天窗口")
  18. 调用 Window.Hide(Hwndck)
  19. 标记 开始
  20. (键盘)按 "Tab" 键, 1次
  21. 延时 200 毫秒
  22. 令 i = 0
  23. 循环当 i = 0 时
  24.     从左上到右下查找图片 "Attachment:\地图.bmp",把找到的坐标保存到 (dituX, dituY),指定区域(左:0 上:0 右:1024 下:768),相似度 0.2
  25.     如果 dituX > 0 并且 dituY > 0 则
  26.         延时 200 毫秒
  27.         调用 随机数()
  28.         令 i = 1
  29.         调用 战斗()
  30.     否则
  31.         (键盘)按 "Tab" 键, 1次
  32.         输入文本 "没找到图"
  33.     条件结束
  34. 循环结束
  35. (键盘)按 "Tab" 键, 1次
  36. 调用 战斗()
  37. 延时 8000 毫秒
  38. 跳转到标记 开始
  39. 子程序 战斗()
  40.     按 从左上到右下 的方式查找颜色 "F8FCF8",把找到的坐标保存到 (intX, intY),指定区域(左:286 + Ux 上:34 + Uy 右:368 + Ux 下:81 + Uy),相似度 0.9
  41.     如果 intX > Ux 并且 intY > Uy 则
  42.         输入文本 "调用战斗"
  43.         标记 战斗(子程序 战斗)
  44.         从左上到右下查找图片 "Attachment:\法术.bmp",把找到的坐标保存到 (intX, intY),指定区域(左:Ux 上:Uy 右:Ux + 640 下:Uy + 480),相似度 0.9
  45.         如果 intX > 0 并且 intY > 0 则
  46.             输入文本 "战斗开始"
  47.             (鼠标)移动到 (Ux, Uy)
  48.             (鼠标)左键单击, 1次
  49.             (键盘)按下 Alt 键
  50.             如果 Var1 = "A" 则
  51.                 (键盘)按 "A" 键, 1次
  52.             否则如果 Var1 = "Q" 则
  53.                 (键盘)按 "Q" 键, 1次
  54.             条件结束
  55.             (键盘)弹起 Alt 键
  56.             延时 500 毫秒
  57.             (键盘)按下 Alt 键
  58.             如果 Var2 = "A" 则
  59.                 (键盘)按 "A" 键, 1次
  60.             否则如果 Var2 = "Q" 则
  61.                 (键盘)按 "Q" 键, 1次
  62.             条件结束
  63.             (键盘)弹起 Alt 键
  64.         条件结束
  65.         延时 8000 毫秒
  66.         按 从左上到右下 的方式查找颜色 "F8FCF8",把找到的坐标保存到 (intX, intY),指定区域(左:286 + Ux 上:34 + Uy 右:368 + Ux 下:81 + Uy),相似度 0.9
  67.         如果 intX > Ux 并且 intY > Uy 则
  68.             跳转到标记 战斗(子程序 战斗)
  69.         否则
  70.             跳转到标记 战斗结束(子程序 战斗)
  71.         条件结束
  72.     条件结束
  73.     标记 战斗结束(子程序 战斗)
  74.     延时 1000 毫秒
  75.     (鼠标)移动到 (Ux, Uy)
  76. 子程序结束
  77. 子程序 随机数()
  78.     Randomize
  79.     注释:获得0-3的随机数
  80.     令 n = Int(rnd * 4)
  81.     如果 n = 0 则
  82.         (鼠标)移动到 (151 + dituX, 87 + dituY)
  83.         延时 50 毫秒
  84.         (鼠标)左键单击, 1次
  85.     条件结束
  86.     如果 n = 1 则
  87.         (鼠标)移动到 (355 + dituX, 61 + dituY)
  88.         延时 50 毫秒
  89.         (鼠标)左键单击, 1次
  90.     条件结束
  91.     如果 n = 2 则
  92.         (鼠标)移动到 (126 + dituX, 224 + dituY)
  93.         延时 50 毫秒
  94.         (鼠标)左键单击, 1次
  95.     条件结束
  96.     如果 n = 3 则
  97.         (鼠标)移动到 (370 + dituX, 226 + dituY)
  98.         延时 50 毫秒
  99.         (鼠标)左键单击, 1次
  100.     条件结束