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

软件版本:2014.06
软件大小:22.9M
更新时间:03-18

按键精灵安卓版
立即下载

软件版本:3.3.8
软件大小:62.5M
更新时间:12-18

按键精灵iOS版
立即下载

软件版本:1.7.1
软件大小:29.2M
更新时间:06-22

最新企业版UiBot
立即下载

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

快捷导航

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

登录 注册
返回列表 12345678» / 9
发新话题 回复该主题

[◆大漠专区] 根据NPC名字从中心向外渐开找怪[野狼工作室] [复制链接]

1#
用处1:可以用来点游戏里的怪来杀怪
用处2:可以用来点游戏里的NPC来打开对话框
用处3:可以用来过传送用
用处4:可以用来捡物品(根据设置的物品名字)本段小码功能,从中心向外渐开,根据NPC名字来判断鼠标是否在怪上,当名字与设置的名字一样时跳到杀怪代码,如果循环结束都不相同退出循环。
可以设置圈数、间距、NPC名字、移动间隔时间、中心坐标
代码可以直接拿来用,只要改一下变量就行,游戏必需能关闭名字显示
//call 注册插件//自己改,要加载字库
//绑定窗口,自己绑定,前台绑定测试
Hwnd = Plugin.Window.Foreground()
dm_ret = DM.BINDWINDOW(hwnd, "normal", "normal", "normal", 0)
If 点NPC("日用|品|商人", 4, "fff610-222222") = 1 Then
    MessageBox "点到。日用|品|商人。"
    Else
    MessageBox "没点到。日用|品|商人。"
End If
Function 点NPC(mingzi, quanshu, dianyanse)
    //参数说明:mingzi(要点怪的名字), quanshu(圈数), dianyanse(名字颜色)
Dim j,k,kkk,jianju,dianfanwei_q_x,dianfanwei_q_y,dianfanwei_j_x,dianfanwei_j_y,intx,inty
点NPC = 0//返回值
intx = 490//中间x
inty = 300//中间y
jianju = 40//间距
dianfanwei_q_x = 201//查找范围左边
dianfanwei_q_y = 50//查找范围左上
dianfanwei_j_x = 1000//查找范围右边
dianfanwei_j_y = 700//查找范围右下
Do
dm.moveto intx, inty
Delay 100
dm_ret = dm.FindStr(dianfanwei_q_x,dianfanwei_q_y,dianfanwei_j_x,dianfanwei_j_y,mingzi, dianyanse, 1.0, X, Y)
If x > 0 Then Exit Do
For j = 1 To quanshu        
For k = - j To j             
dm.MoveTo intx + jianju * k, inty + jianju * - j
Delay 40
dm_ret = dm.FindStr(dianfanwei_q_x,dianfanwei_q_y,dianfanwei_j_x,dianfanwei_j_y,mingzi, dianyanse, 1.0, X, Y)
If x > 0 Then Exit Do
Next
For k = - j To j
dm.MoveTo intx + jianju * j, inty + jianju * k
Delay 40
dm_ret = dm.FindStr(dianfanwei_q_x, dianfanwei_q_y,dianfanwei_j_x, dianfanwei_j_y,mingzi,dianyanse, 1.0, X, Y)
If x > 0 Then Exit Do
Next
For k = - j To j
If k < 0 Then kk = abs(k)
If k > 0 Then kk = k - 2 * k
If k = 0 Then kk = 0
dm.MoveTo intx + jianju * kk, inty + jianju * j
Delay 40
dm_ret = dm.FindStr(dianfanwei_q_x, dianfanwei_q_y,dianfanwei_j_x, dianfanwei_j_y,mingzi,dianyanse, 1.0, X, Y)
If x > 0 Then Exit Do
Next
For k = - j To j
If k < 0 Then kk = abs(k)
If k > 0 Then kk = k - 2 * k
If k = 0 Then kk = 0
dm.MoveTo intx + jianju * - j , inty + jianju * kk
Delay 40
dm_ret = dm.FindStr(dianfanwei_q_x, dianfanwei_q_y,dianfanwei_j_x, dianfanwei_j_y, mingzi,dianyanse, 1.0, X, Y)
If x > 0 Then Exit Do
Next
Next
Exit Function //如果找不到退出
Loop
Delay 300
dm.leftclick
点NPC=1
End Function

最后编辑liuzhongpeng 最后编辑于 2016-11-13 11:20:47
2#

121321e12

3#

rfgdgdrfg

4#

学习下

5#

额我过分uujsfhgf

6#

回复 1楼liuzhongpeng的帖子

学习下

7#


8#


9#

放大发顺丰

10#


11#

学习下

12#

我是小白,前来学习

13#

好东西

14#

[quote][quote][quote][quote][quote]
[/quote][/quote][/quote][/quote][/quote]

15#


16#

DDDDDDDDDDDDDDDDDDDD

17#

sldfksjlkfakfldajflkdafa

18#

ddddddddd

19#

看看

20#

来学习啦

发新话题 回复该主题