【院刊】-【201504期】按键有屎以来最智能寻路系列

mimi_rice

按键有屎以来最智能寻路系列

直接输入坐标即时寻路

本文由按键学院提供技术支持

众所周知，自动寻路是脚本编写中非常重要的一环,如何高效并稳定的实现让脚本模拟人工操作进行智能自动寻路成为脚本编写的必修课之一，然而是通过什么让游戏角色可以自动寻路呢？小编认为百分之九十九的游戏自动寻路方式都依赖于本身的游戏地图，擅用游戏地图对我们写脚本往往有事半功倍的效果，所以本期小编打算从易到难出一个关于自动寻路系列的院刊，希望大家多多支持哈~

地图寻路方式
关于游戏的地图寻路方式，小编认为可以大致分为这几类：

1、在地图上某个位置输入坐标后点寻路，比如烈焰、赤月传说等页游 2、根据地图配合键盘移动来达到寻路方式，比如XNF、疾风之刃 3、根据地图上找Npc名称或标志物进行寻路，但是无法精确到达指定点，比如太极 4、地图上的坐标点有误差，需要换算坐标，比如神途 5、根据地图上的路径点进行寻路，比如lol 5、待定···

:P以上纯属个人看法，个人玩过的游戏及思维能力有限，有补充和其他想法的童鞋欢迎回帖说明，小编会不定时查看的，小编今天就以烈焰这款网页游戏为例，跟大家分享下第1种最简单的—直接输入坐标寻路方法

游戏地图

从图上我们就能比较直观的看出这款游戏一个大概的寻路流程

思路流程

技术难点：
1.X、Y字符不是纯色的，并且X、Y字符偏色程度也是不一样的
2.游戏输入坐标处默认会保存一个0，并且每次打开地图不会自动清空上一次输入的坐标，如何才能正确的输入寻路坐标
3.移动过程中，如何判断人物是否已经移动到了指定坐标点，开始下一步动作



绑定窗口

{:5_138:}今天我们写的脚本有用到大漠插件，并且是后台的

因为是单开脚本，并且客户区句柄隐藏的也比较深，所以用的是FindWindowSuper命令，该命令内容较多，具体说明请查看大漠接口说明

后台绑定模式：
      图色模式：dx2
      鼠标模式：windows
      键盘模式：windows

关于大漠绑定模式如何获知
请参阅相关院刊：
该链接无法确定安全




打开地图
为了避免地图已经打开的情况
我们要先判断地图有没有打开，没有打开的话才去按M键打开地图
因为后面我们找字的时候就是要在地图上找字，所以我们先进行找字
没找到字的情况下说明地图没打开，再按m键打开地图



大漠找字
因为要分别找X、Y、前往字符，为了降低代码重复度，
所以我们应该想到把找字做成一个带参数的函数，
参数为要找的字符、偏色、相似度，
找到X、Y字符的时候我们要进行计算，
找到后进行相应的坐标偏移才能准确点到坐标输入框，
然而找字符"前往"的话坐标不需要偏移。
所以我们在代码里要加入判断当前查找的字符是不是"前往"，
如果是的话执行不一样的移动操作

相关代码

1. Function 找字(string, color_format, sim)
   
2.     dm_ret = dm.SetExactOcr(1)//设置找字方式为精确查找，避免类似字符的干扰
   
3.     Do
   
4.         dm_ret=dm.FindStrFast(0,0,w,h,string,color_format,sim,intX,intY)
   
5.         If intX > 0 and string<>"前往"Then //找到X、Y字符的操作
   
6.             TracePrint "找到了"
   
7. Delay 100
   
8.             dm.MoveTo intX + 66, intY + 8//鼠标漂移相应坐标后点击输入框
   
9.             Delay 100
   
10.             dm.LeftClick
    
11.             Delay 100
    
12.             Call 清除坐标
    
13.             Exit Do
    
14.         Elseif intX > 0 and string="前往" Then //找到前往字符的操作
    
15.             dm.MoveTo intX , intY
    
16.             Delay 100
    
17.             dm.LeftClick
    
18.             Exit Do
    
19.         Else
    
20.             TracePrint "地图没打开，所以找不到"
    
21.             dm.KeyPress 77//按M键打开地图
    
22.         End If
    
23.         Delay 100
    
24.     Loop
    
25. End Function

复制代码

{:4_92:}输入坐标后点击前往后，人物就开始移动了
那怎么才能知道人物已经移动到指定点了呢？

小编认为最简便的方法就是莫过于用大漠的IsDisplayDead函数来判断了，
关于这个函数的说明与使用方法已经在之前的院刊已经重点的介绍过了，
有不懂的童鞋可以查看：该链接无法确定安全
那除了使用这个函数的方法外或者我们本身不知道有这个函数的话，是否还有其他方法呢？
答案显示是有的，小编今天就再给大家重点介绍一个识别数字后分割坐标的方法



坐标识别法

如图所示，很多游戏小地图上通常都是类似这样显示当前坐标的，而且坐标的颜色通常都是固定的，所以我们不妨分别提取出0-9的数字，以及逗号做成一个独立字库，不会使用大漠做字库的童鞋可以参考：该链接无法确定安全

字库做完后，我们就可以通过这个字库使用大漠插件的Ocr函数来识别这个范围的坐标值了，因为里面刚好有个逗号，我们就可以用逗号来分割出X坐标和Y坐标，通过循环一直获取坐标与我们要寻路到达的坐标作比较，由于这个游戏寻路到达坐标的时候坐标都会少1，所以我们用绝对值来对比距离差，允许些许容差

命令名称	Ocr
命令功能	识别屏幕范围(x1,y1,x2,y2)内符合color_format的字符串,并且相似度为sim,sim取值范围(0.1-1.0)
命令参数	x1 整形数:区域的左上X坐标 y1 整形数:区域的左上Y坐标 x2 整形数:区域的右下X坐标 y2 整形数:区域的右下Y坐标 color_format 字符串:颜色格式串. RGB和HSV颜色格式都支持. sim 双精度浮点数:相似度,取值范围0.1-1.0
返 回 值	字符串: 返回识别到的字符串

相关代码

1. Do
   
2.         s = dm.Ocr(500, 30, w, h, "ff9912-000000", 0.9)
   
3.         If len(s) > 0 Then
   
4.             TracePrint "找到了"
   
5.             坐标 = split(s, ",")
   
6.             TracePrint cint(坐标(0))//即当前位置X坐标
   
7.             TracePrint cint(坐标(1))//即当前位置Y坐标
   
8.             If (abs(x坐标 -cint(坐标(0)))<3) and (abs(y坐标 - cint(坐标(1)))<3) Then //当前位置坐标与指定坐标的距离差的绝对值小于3则判断到达指定坐标
   
9.                 Call Plugin.Msg.Tips("到达指定坐标，寻路结束")//托盘信息提示到达指定坐标
   
10.                 Exit Do
    
11.                 Else  Call Plugin.Msg.Tips("寻路中！！！") //托盘信息提示还未到达指定坐标
    
12.             End If
    
13.         End If
    
14.         Delay 500//每隔500毫秒检测一次，可自定义
    
15.     Loop

复制代码

小拓展：小编这里只是用坐标做是否寻路到达的判断，
其实通过识别游戏的当前坐标我们可以做很多其他判断和操作的，
当然这是个仁者见仁、智者见智的问题了，小编在此就不讨论了


整体代码

1.     Call 找字("X", "A6AB56-0C0E35", 0.9)//找地图上的X字
   
2.     dm.SendString hwnd,cstr(x坐标)//向后台窗口输入X坐标（这里要注意类型需要转换下）
   
3.     Delay 500
   
4.     Call 找字("Y", "A8AE42-0C1343", 0.9)//找地图上的Y字
   
5.     dm.SendString hwnd, cstr(y坐标)//向后台窗口输入Y坐标（这里要注意类型需要转换下）
   
6.     Delay 500
   
7.     Call 找字("前往", "f2e627-000000", 0.9)//找小地图上的前往字符
   
8.     //以下代码是每隔500毫秒，识别一下当前位置坐标与指定坐标的距离差，循环判断是否到达指定坐标
   
9.     Do
   
10.         s = dm.Ocr(500, 30, w, h, "ff9912-000000", 0.9)
    
11.         If len(s) > 0 Then
    
12.             坐标 = split(s, ",")
    
13.             TracePrint "当前角色所在x坐标为"&s
    
14.             //            TracePrint cint(坐标(0))
    
15.             //            TracePrint cint(坐标(1))
    
16.             If (abs(x坐标 - cint(坐标(0))) < 3) and (abs(y坐标 - cint(坐标(1))) < 3) Then //当前位置坐标与指定坐标的距离差的绝对值小于3则判断到达指定坐标
    
17.                 dm.keypress 77//关闭地图
    
18.                 Call Plugin.Msg.Tips("到达指定坐标，寻路结束并关闭地图")//托盘信息提示到达指定坐标
    
19.                 Exit Do
    
20.                 Else  Call Plugin.Msg.Tips("寻路中！！！") //托盘信息提示还未到达指定坐标
    
21.             End If
    
22.         End If
    
23.         Delay 500
    
24.     Loop
    
25. End Function
    
26. Function 找字(string, color_format, sim)
    
27.     dm_ret = dm.SetExactOcr(1)//设置找字方式为精确查找，避免类似字符的干扰
    
28.     Do
    
29.         dm_ret=dm.FindStrFast(0,0,w,h,string,color_format,sim,intX,intY)
    
30.         If intX > 0 and string<>"前往"Then //找到X、Y字符的操作
    
31.             TracePrint "找到地图了"
    
32.             TracePrint "x字符坐标为"&intx
    
33.             TracePrint "y字符坐标为" & inty
    
34.             Delay 100
    
35.             dm.MoveTo intX + 66, intY + 8//鼠标漂移相应坐标后点击输入框
    
36.             Delay 100
    
37.             dm.LeftClick
    
38.             Delay 100
    
39.             Call 清除坐标
    
40.             Exit Do
    
41.         Elseif intX > 0 and string="前往" Then //找到前往字符的操作
    
42.             dm.MoveTo intX , intY
    
43.             Delay 100
    
44.             dm.LeftClick
    
45.             TracePrint"点击前往按钮"
    
46.             Exit Do
    
47.         Else
    
48.             TracePrint "未找到地图，按m键打开地图"
    
49.             Delay 100
    
50.             dm.KeyPress 77//按M键打开小地图
    
51.         End If
    
52.         Delay 100
    
53.     Loop
    
54. End Function
    
55. Function 清除坐标
    
56.     For 10     //打开小地图后按10次backspace键先对原先的坐标进行清除
    
57.         dm.keypress 8
    
58.         Delay 100
    
59.     Next
    
60.     TracePrint "清空地图初始坐标"
    
61.     dm.keypress 39//按右方向键一次保证坐标不会被0影响
    
62. End Function
    
63. Function 找句柄
    
64.     For i = 0 To 20
    
65.         hwnd = dm.FindWindowSuper("MacromediaFlashPlayerActiveX",2,1,"Internet Explorer_Server",6,0) //根据俩组设置条件，获得烈焰窗口句柄
    
66.         Delay 2000
    
67.         If hwnd > 0 Then
    
68.             TracePrint hwnd
    
69.             dm_ret = dm.GetClientSize(hwnd,w,h) //获取窗口客户区大小
    
70.             TracePrint "游戏客户区宽度:" & w & ",高度:" & h
    
71.             dm_ret = dm.SetWindowState(hwnd, 1)
    
72.             Exit For
    
73.             Elseif  i >= 20 Then  MsgBox"未检测到游戏窗口，请确认游戏窗口已经打开"
    
74.         End If
    
75.     Next
    
76. End Function
    
77. Function 注册大漠()
    
78.     Dim i
    
79.     //释放附件内容
    
80.     PutAttachment "D:\test", "*.*"
    
81.     Set ws = createobject("Wscript.Shell")
    
82.     For i = 0 To 20
    
83.         //注册atl跟dm插件
    
84.         ws.run("regsvr32 atl.dll -s")
    
85.         ws.run ("regsvr32 D:\test\dm.dll -s")
    
86.         Delay 200
    
87.         Set ws = nothing
    
88.         Set dm = createobject("dm.dmsoft")
    
89.         ver = dm.ver()
    
90.         //输出版本号
    
91.         If ver <> "" Then
    
92.             Exit For
    
93.         End If
    
94.     Next
    
95.     If i >= 20 Then
    
96.         TracePrint "大漠插件注册失败！"
    
97.         EndScript
    
98.     End If
    
99.     Set dm = nothing
    
100.     Delay 10
     
101. End Function
     
102. Function 大漠绑定
     
103.     For i = 0 To 20
     
104.         dm_ret = dm.BindWindowEx(hwnd, "dx2", "windows", "windows", "", 0)'绑定窗口
     
105.         Delay 500
     
106.         If dm_ret = 1 Then
     
107.             TracePrint "绑定窗口成功"
     
108.             Exit For
     
109.             Elseif i>=20 Then TracePrint "绑定失败"
     
110.         End If
     
111.     Next
     
112. End Function
     
113. Sub OnScriptExit()//解绑大漠
     
114.     dm_ret = dm.UnBindWindow()
     
115. End Sub
     

复制代码

后记

关于初级寻路今天就介绍到这里了，欲知其他寻路方式的解决办法，请听下回分解！

谢谢大家阅读，记得给小编送支花花 ！  顺手点个赞

该链接无法确定安全	该链接无法确定安全
招生对象：零基础用户，快速学会按键精灵安卓版 招生人数：70人 【报名时间】：3/18——4/6 【学费】：128RMB 【学习日期】：1个月（2015.4.6-2015.4.27） 【上课时间】：周1、周3、周5  19：30--21：30 【上课导师】：梦幻小飞侠 【实战游戏】：[天天富翁][三国之刃][梦幻西游][TL八部]	本期重点：回合制游戏--神武 学习时效：终生有效 上课时间：周2、周4、周6的   20：00--22：00 导师：工程师07 技术支持：果儿（院刊编辑）
该链接无法确定安全   招生细节进群咨询招生办主任：2群-372671254（优先加入）    1群-376122403

联系我时，请说是在 挂海论坛 上看到的，谢谢！

fengjikou

强烈支持楼主ing……

yuzhibo

就喜欢楼主这样的哈哈哈

zhangyang

楼主很给力哈,在此代表需要的人对楼主表示无尽的感激之情