- 注释:6.1更新增加随机数、识别战斗状态,测试无错误
- 注释:在我接触按键一月以来感谢【爱? 老婆'炜儿】一直以来的指导、帮助,一个很低调很热心的朋友,大哥哥,发自内心的感谢你...(此处省去1W字,O(∩_∩)O哈哈~)希望我们的友谊天长地久---------感恩版
- 注释:此脚本功能简单,由于还在学习大漠所以当时没有用上插件,这是半月前写出来的,早想编译出来了,可是学车耽误半月。。。
- 注释:测试地图:江南野外、大唐国境
- 注释:备注:附赠源码,只为交流学习,如有喜欢交流的朋友论坛找我吧
- 注释:论坛名字:豪燕
- 注释:QQ:839552004
- 用户定义变量 Var1=DropList{"物理攻击":"A"|"法术攻击":"Q"}=0 "人物攻击"
- 用户定义变量 Var2=DropList{"物理攻击":"A"|"法术攻击":"Q"}=0 "宠物攻击"
- 令 Hwnd = Window.Foreground()
- 令 sRect = Window.GetClientRect(Hwnd)
- 定义变量 MyArray
- 令 MyArray = Split(sRect,"|")
- 令 Ux = CLng(MyArray(0))
- 令 Uy = CLng(MyArray(1))
- 调用 Window.Move(Hwnd,0,0)
- 令 Hwndck = Window.Find(0,"梦幻西游 聊天窗口")
- 调用 Window.Hide(Hwndck)
- 标记 开始
- (键盘)按 "Tab" 键, 1次
- 延时 200 毫秒
- 令 i = 0
- 循环当 i = 0 时
- 从左上到右下查找图片 "Attachment:\地图.bmp",把找到的坐标保存到 (dituX, dituY),指定区域(左:0 上:0 右:1024 下:768),相似度 0.2
- 如果 dituX > 0 并且 dituY > 0 则
- 延时 200 毫秒
- 调用 随机数()
- 令 i = 1
- 调用 战斗()
- 否则
- (键盘)按 "Tab" 键, 1次
- 输入文本 "没找到图"
- 条件结束
- 循环结束
- (键盘)按 "Tab" 键, 1次
- 调用 战斗()
- 延时 8000 毫秒
- 跳转到标记 开始
- 子程序 战斗()
- 按 从左上到右下 的方式查找颜色 "F8FCF8",把找到的坐标保存到 (intX, intY),指定区域(左:286 + Ux 上:34 + Uy 右:368 + Ux 下:81 + Uy),相似度 0.9
- 如果 intX > Ux 并且 intY > Uy 则
- 输入文本 "调用战斗"
- 标记 战斗(子程序 战斗)
- 从左上到右下查找图片 "Attachment:\法术.bmp",把找到的坐标保存到 (intX, intY),指定区域(左:Ux 上:Uy 右:Ux + 640 下:Uy + 480),相似度 0.9
- 如果 intX > 0 并且 intY > 0 则
- 输入文本 "战斗开始"
- (鼠标)移动到 (Ux, Uy)
- (鼠标)左键单击, 1次
- (键盘)按下 Alt 键
- 如果 Var1 = "A" 则
- (键盘)按 "A" 键, 1次
- 否则如果 Var1 = "Q" 则
- (键盘)按 "Q" 键, 1次
- 条件结束
- (键盘)弹起 Alt 键
- 延时 500 毫秒
- (键盘)按下 Alt 键
- 如果 Var2 = "A" 则
- (键盘)按 "A" 键, 1次
- 否则如果 Var2 = "Q" 则
- (键盘)按 "Q" 键, 1次
- 条件结束
- (键盘)弹起 Alt 键
- 条件结束
- 延时 8000 毫秒
- 按 从左上到右下 的方式查找颜色 "F8FCF8",把找到的坐标保存到 (intX, intY),指定区域(左:286 + Ux 上:34 + Uy 右:368 + Ux 下:81 + Uy),相似度 0.9
- 如果 intX > Ux 并且 intY > Uy 则
- 跳转到标记 战斗(子程序 战斗)
- 否则
- 跳转到标记 战斗结束(子程序 战斗)
- 条件结束
- 条件结束
- 标记 战斗结束(子程序 战斗)
- 延时 1000 毫秒
- (鼠标)移动到 (Ux, Uy)
- 子程序结束
- 子程序 随机数()
- Randomize
- 注释:获得0-3的随机数
- 令 n = Int(rnd * 4)
- 如果 n = 0 则
- (鼠标)移动到 (151 + dituX, 87 + dituY)
- 延时 50 毫秒
- (鼠标)左键单击, 1次
- 条件结束
- 如果 n = 1 则
- (鼠标)移动到 (355 + dituX, 61 + dituY)
- 延时 50 毫秒
- (鼠标)左键单击, 1次
- 条件结束
- 如果 n = 2 则
- (鼠标)移动到 (126 + dituX, 224 + dituY)
- 延时 50 毫秒
- (鼠标)左键单击, 1次
- 条件结束
- 如果 n = 3 则
- (鼠标)移动到 (370 + dituX, 226 + dituY)
- 延时 50 毫秒
- (鼠标)左键单击, 1次
- 条件结束