- 初中一年级
- 2314582
- 240
- 0
- 358 朵
- 1358 个
- 49 个
- 1920
- 2013-12-26
|
1#
t
T
发表于 2014-09-25 18:33
|
|只看楼主
DNF遍历背包卖物 单重循环遍历背包思路提供者: [backcolor=rgb(229, 237, 242)]wbxxxbw 游戏挂机一段时间,号子上的背包满了怎么办?我们需要清理背包,该分解的分解该卖的卖。 清理背包第一步:遍历背包 第二步:判断背包格里是否有物品 第三步:判断物品的名称等级 第四步:执行清包操作。
具体该怎么操作呢?我们一起来学习下。 | 第一步:单重循环搞定背包遍历
- 您所在的用户组无法下载或查看附件
[attach]162918[/attach]
以dnf游戏为例,小编的号,背包格数是 8*4 总共32格 单重循环遍历大致思路: 1、取第一格背包的中心点坐标。 2、获取一格背包的宽度和高度是多少。 3、 遍历公式:第二格背包中心x坐标=背包第一格中心X坐标 + (2 mod 背包总列数) * 每格宽 第二格背包中心y坐标=背包第一格中心Y坐标 + (2\ 背包总列数) * 每格高 注意:为什么x坐标添加的每隔宽用 mod取余呢? 因为背包横向走的时候,x坐标是在变化,而背包竖向走的时候,也就是从第一行最后一格跳转到第二行第一格的时候,x坐标是不变的。如图:
- 您所在的用户组无法下载或查看附件
单重循环遍历背包代码:
- Call 横向自上往下背包遍历(1, 32, 8, 489, 277, 30, 30)//调用背包遍历
- Sub 横向自上往下背包遍历(开始格数,结束格数,背包总列数,背包第一格中心X坐标,背包第一格中心Y坐标,每格宽,每格高)
- For i = 开始格数-1 To 结束格数-1 //因为数组下标是0起始,所以这里开始格数要减去1
- MoveTo 背包第一格中心X坐标 + (i mod 背包总列数) * 每格宽, 背包第一格中心Y坐标 + (i \ 背包总列数) * 每格高
- TracePrint (背包第一格中心X坐标 + (i mod 背包总列数) * 每格宽)&","&(背包第一格中心Y坐标 + (i \ 背包总列数) * 每格高)
- Delay 500
- //移动到这格后,这里写你在这格要做的事情的代码
- Next
- End Sub
复制代码
第二步:判断当前背包格子里是否有物品
- 您所在的用户组无法下载或查看附件
- 您所在的用户组无法下载或查看附件
我们观察上面两张图,如果格子里没有物品,鼠标移动上去之后是没有物品属性显示的。所以,装备两个字可以看见。如果格子里有物品,那么装备两个字就会被遮挡。(游戏里不变的参照物是很多的,童鞋们也可以取其他的参照物来代替装备两个字)
好了,我们发现这个特点之后,就可以进行判断,找到装备两个字就说明格子里没有物品,反之则有物品。 小编使用的是,大漠插件来找字。 首先,建立一个字库。DNF游戏的字体是系统字体,小编的系统是宋体9号字。
- 您所在的用户组无法下载或查看附件
然后,按照图里的步骤建立好字库以后,将字库文件添加到按键精灵附件中。
判断当前背包是否有物品代码:
- Call 横向自上往下背包遍历(1, 32, 8, 489, 277, 30, 30)//调用背包遍历
- Sub 横向自上往下背包遍历(开始格数,结束格数,背包总列数,背包第一格中心X坐标,背包第一格中心Y坐标,每格宽,每格高)
- For i = 开始格数-1 To 结束格数-1//因为数组下标是0起始,所以这里开始格数要减去1
- j=j+1//记录当前遍历到的格数
- MoveTo 背包第一格中心X坐标 + (i mod 背包总列数) * 每格宽, 背包第一格中心Y坐标 + (i \ 背包总列数) * 每格高
- TracePrint (背包第一格中心X坐标 + (i mod 背包总列数) * 每格宽)&","&(背包第一格中心Y坐标 + (i \ 背包总列数) * 每格高)
- Delay 500
- w = dm.Ocr(478, 238, 511,253,"ffffb8",1.0)
- If w= "装备" Then //找装备字眼,如果没有找到,说明背包格子里有东西
- TracePrint "第"& j & "格没物品"
- Else
- TracePrint "第" & j & "格有物品"
- End If
-
- Next
- End Sub
复制代码
第三步,判断物品名称
要如何判断物品名称呢?遍历背包的时候,发现格子里有物品的时候,我们开始判断物品的名称。但是,这些物品的属性窗口并不是固定显示在一个地方的 |
- 您所在的用户组无法下载或查看附件
- 您所在的用户组无法下载或查看附件
细心的童鞋很快就能发现,这里的物品属性框有两种,一种显示的是当前物品的信息,一种显示的是角色现在穿戴物的物品属性。 而且,“穿戴中的物品"这几个字是没有变化的
- 您所在的用户组无法下载或查看附件
判断物品名称大致思路: 1、用大漠插件找字,找“穿戴中的物品” 这几个字,找到之后记录它的坐标值。所以这里不使用dm.ocr找字,使用dm.FindStr来找字。 拓展知识:dm.ocr找字,是在你不知道要找什么字的情况下,通过定义查找范围和字体颜色去找字,返回值就是找到的文字。 dm.FindStr找字,是你知道你要找什么字,然后定义查找范围和字体颜色去找字,返回值是文字所在的坐标。 2、通过“穿戴中的物品”这几个字所在的坐标,计算物品名称的出现的范围。 3、用dm.ocr找字在获取到的物品名称范围内进行找字。 4、找到之后,可以继续查找物品的其他属性,耐久属性等等,来判断出售分解还是其他,由于种类很多,小编就不写这类代码了。 注意:如果身上并没有穿戴装备,那么物品属性就只会显示当前物品属性,“穿戴中的物品”这几个字无法找到,这样的情况可以在代码里继续做判断,找不到“穿戴中的物品”时,可以去找物品重量后面的单位KG(为什么前面不找KG呢?因为当有两个物品属性窗口的时候,当前物品属性窗口和穿戴中的物品属性窗口中都有KG字样,有两个的话,就无法确定位置。)
全部代码:
- call register()
- PutAttachment "G:\test", "DNF.txt" //释放字库文件到G:\test文件夹里
- dm_ret = dm.SetDict(0, "G:\test\DNF.txt") //加载字库文件
- hwnd= Plugin.Window.Find("地下城与勇士", 0)
- Call Plugin.Window.Size(hwnd,800,600)
- Call Plugin.Window.move(hwnd, 0, 0)
- Call Plugin.Window.Active(hwnd)
- Delay 1000
- KeyPress "I", 1
- Call 横向自上往下背包遍历(1, 32, 8, 489, 277, 30, 30)//调用背包遍历
- Sub 横向自上往下背包遍历(开始格数,结束格数,背包总列数,背包第一格中心X坐标,背包第一格中心Y坐标,每格宽,每格高)
- For i = 开始格数 - 1 To 结束格数 - 1
- j=i+1
- MoveTo 背包第一格中心X坐标 + (i mod 背包总列数) * 每格宽, 背包第一格中心Y坐标 + (i \ 背包总列数) * 每格高
- TracePrint (背包第一格中心X坐标 + (i mod 背包总列数) * 每格宽)&","&(背包第一格中心Y坐标 + (i \ 背包总列数) * 每格高)
- Delay 500
- w = dm.Ocr(478, 238, 511,253,"ffffb8",1.0)
- If w= "装备" Then //找装备字眼,如果没有找到,说明背包格子里有东西
- TracePrint "第"& j & "格没物品"
- Else
- TracePrint "第" & j & "格有物品"
-
- dm_ret = dm.FindStr(423, 22, 771, 342, "穿戴中的物品", "e8cda4", 1.0, intX, intY)//查找穿戴中的物品,找到之后获取它的坐标,以它的坐标为基点去找当前物品的名称。
- If intX >= 0 and intY >= 0 Then
- s = dm.Ocr( intX-300,intY,intX-60,intY+50, "68d5ed|b36bff", 1.0)//蓝色装备和粉色装备都找
- MessageBox s
- End if
- End If
- Next
- End Sub
- Sub register() //注册大漠
- Set ws = createobject("Wscript.Shell")
- ws.run "regsvr32 atl.dll /s"
- Set ws = nothing
- PutAttachment "G:\test", "dm.dll"
- PutAttachment ".\Plugin" ,"RegDll.dll"
- call Plugin.RegDll.Reg ( "G:\test\dm.dll")
- Set dm = createobject("dm.dmsoft")
- ver = dm.ver()
- If len(ver) = 0 Then
- MessageBox "插件注册失败,检查系统是否禁用了vbs脚本权限"
- EndScript
- End If
- End Sub
复制代码 DNF遍历背包.Q:- 您所在的用户组无法下载或查看附件
本文由按键学院提供技术支持 按键学院实战班(入驻最终幻想)火热招生 按键学院基础视频抢先观看
|