你的位置：
发个DNF跑动的代码
来源: 按键精灵资源站
[i=s] 本帖最后由 yxp10010 于
21:21 编辑
[hide=d1200]Sub 跑动函数(坐标X,坐标Y)
& & Randomize& & '初始化随机数生成器。
& & Call 判断是否卡屏()
& & Delay 100
& & x2 =int(split(rwzb, &,&)(0)):y2 = int(split(rwzb, &,&)(1))//角色坐标 （起始坐标）
& & TracePrint &角色坐标& & x2 & &,& & y2
& & x5=坐标X:y5=坐标Y//终点坐标 [hide=d1200]Sub 跑动函数(坐标X,坐标Y)
& & Randomize& & '初始化随机数生成器。
& & Call 判断是否卡屏()
& & Delay 100
& & x2 =int(split(rwzb, &,&)(0)):y2 = int(split(rwzb, &,&)(1))//角色坐标 （起始坐标）
& & TracePrint &角色坐标& & x2 & &,& & y2
& & x5=坐标X:y5=坐标Y//终点坐标
& & //& & y5=BC
& & //& & x5=AC
& & TracePrint &终点坐标&&x5&&,&&y5
& & 横向=Clng((Abs(x2-x5))/13):纵向=Clng((Abs(y2-y5))/5)
& & ay = y5 : by = y2
& & ax=x5:bx=x2
& & TracePrint ay&&,&&by
& & If bx&ax Then
& && &&&dm.KeyPress 37
& && &&&Delay 50
& && &&&dm.KeyDown 37
& && &&&TracePrint &向左&
& && &&&//↑如果，人物脚底X坐标 & 边框X坐标。那么，向左
& & ElseIf bx&ax Then
& && &&&dm.KeyPress 39
& && &&&Delay 50
& && &&&dm.KeyDown 39
& && &&&TracePrint &向右&
& & End If
& & Delay 50
& & //-------------------------
& & If by&ay Then
& && &&&dm.KeyDown 38
& && &&&//↑如果，人物脚底Y坐标 & 边框Y坐标。那么，向上
& && &&&TracePrint &向上&
& & ElseIf by&ay Then
& && &&&dm.KeyDown 40
& && &&&TracePrint &向下&
& & End If
& & //--------------------------
& & TracePrint &纵向&&纵向&&,横向&&(横向-1)
& & dm_ret = Plugin.Sys.GetTime()
& & A时= Clng(dm_ret)
& && &&&Delay ys(9,15)
& && &&&dm_ret = Plugin.Sys.GetTime()
& && &&&B时 = Clng(dm_ret )
//& && &&&TracePrint Clng(Round((B时 - A时)/00/50)
& && &&&If Clng(Round((B时 - A时)/00/50) &= (横向-2) Then
//& && && && &TracePrint &完1&
& && && && &dm.KeyUp 37
& && && && &dm.KeyUp 39
& && && && &bL = 1
& && &&&End If
& && &&&If Clng(Round((B时 - A时)/00/50) &= 纵向 Then& &
//& && && && &TracePrint &完2&
& && && && &dm.KeyUp 38
& && && && &dm.KeyUp 40
& && && && &bL1=1
& && &&&End If&&
& && &&&If bL = 1 and bL1 = 1 Then
//& && && && &TracePrint &完&
& && && && &dm.KeyUp 37
& && && && &dm.KeyUp 39& && &
& && && && &dm.KeyUp 38
& && && && &dm.KeyUp 40
& && && && &Exit Do
& && &&&End If
Function rwzb()
& & intX = &&:inty = &&
& & Randomize& & '初始化随机数生成器。
& & dm_ret = Plugin.Sys.GetTime()
& & A时 = Clng(dm_ret/1000)
& && &&&Delay 50
& && &&&//& && &&&dm_ret = dm.FindPic(0,29,795,520,&Lv1.bmp|Lv.bmp&,&,0,intX,intY)
& && &&&dm_ret = dm.FindStrFast(0,103,802,600,&Lv&,&ffffff-050505|fadc64-050505|&,1,intX,intY)
& && &&&If intX &= 0 and intY &= 0 Then
& && && && &intX = intX + 34: intY = intY + 109
& && && && &rwzb=intx&&,&&inty
& && && && &Exit Do
& && &&&Else
& && && && &dm.KeyPress Int((4 * Rnd) + 37)
& && && && &TracePrint &让人物走动一下&
& && && && &Delay 50
& && &&&End If
& && &&&dm_ret = Plugin.Sys.GetTime()
& && &&&B时 = Clng(dm_ret/1000)&&
& && &&&If B时-A时 &= 400 Then
& && && && &Exit Do
& && &&&End If
End Function
& & //& & y5=BC
& & //& & x5=AC
& & TracePrint &终点坐标&&x5&&,&&y5
& & 横向=Clng((Abs(x2-x5))/13):纵向=Clng((Abs(y2-y5))/5)
& & ay = y5 : by = y2
& & ax=x5:bx=x2
& & TracePrint ay&&,&&by
& & If bx&ax Then
& && &&&dm.KeyPress 37
& && &&&Delay 50
& && &&&dm.KeyDown 37
& && &&&TracePrint &向左&
& && &&&//↑如果，人物脚底X坐标 & 边框X坐标。那么，向左
& & ElseIf bx&ax Then
& && &&&dm.KeyPress 39
& && &&&Delay 50
& && &&&dm.KeyDown 39
& && &&&TracePrint &向右&
& & End If
& & Delay 50
& & //-------------------------
& & If by&ay Then
& && &&&dm.KeyDown 38
& && &&&//↑如果，人物脚底Y坐标 & 边框Y坐标。那么，向上
& && &&&TracePrint &向上&
& & ElseIf by&ay Then
& && &&&dm.KeyDown 40
& && &&&TracePrint &向下&
& & End If
& & //--------------------------
& & TracePrint &纵向&&纵向&&,横向&&(横向-1)
& & dm_ret = Plugin.Sys.GetTime()
& & A时= Clng(dm_ret)
& && &&&Delay ys(9,15)
& && &&&dm_ret = Plugin.Sys.GetTime()
& && &&&B时 = Clng(dm_ret )
//& && &&&TracePrint Clng(Round((B时 - A时)/00/50)
& && &&&If Clng(Round((B时 - A时)/00/50) &= (横向-2) Then
//& && && && &TracePrint &完1&
& && && && &dm.KeyUp 37
& && && && &dm.KeyUp 39
& && && && &bL = 1
& && &&&End If
& && &&&If Clng(Round((B时 - A时)/00/50) &= 纵向 Then& &
//& && && && &TracePrint &完2&
& && && && &dm.KeyUp 38
& && && && &dm.KeyUp 40
& && && && &bL1=1
& && &&&End If&&
& && &&&If bL = 1 and bL1 = 1 Then
//& && && && &TracePrint &完&
& && && && &dm.KeyUp 37
& && && && &dm.KeyUp 39& && &
& && && && &dm.KeyUp 38
& && && && &dm.KeyUp 40
& && && && &Exit Do
& && &&&End If
Function rwzb()
& & intX = &&:inty = &&
& & Randomize& & '初始化随机数生成器。
& & dm_ret = Plugin.Sys.GetTime()
& & A时 = Clng(dm_ret/1000)
& && &&&Delay 50
& && &&&//& && &&&dm_ret = dm.FindPic(0,29,795,520,&Lv1.bmp|Lv.bmp&,&,0,intX,intY)
& && &&&dm_ret = dm.FindStrFast(0,103,802,600,&Lv&,&ffffff-050505|fadc64-050505|&,1,intX,intY)
& && &&&If intX &= 0 and intY &= 0 Then
& && && && &intX = intX + 34: intY = intY + 109
& && && && &rwzb=intx&&,&&inty
& && && && &Exit Do
& && &&&Else
& && && && &dm.KeyPress Int((4 * Rnd) + 37)
& && && && &TracePrint &让人物走动一下&
& && && && &Delay 50
& && &&&End If
& && &&&dm_ret = Plugin.Sys.GetTime()
& && &&&B时 = Clng(dm_ret/1000)&&
& && &&&If B时-A时 &= 400 Then
& && && && &Exit Do
& && &&&End If
End Function文档贡献者
该文档贡献者很忙，什么也没留下。
下载此文档
正在努力加载中...
查看最新技能代码-DNF外挂地下城与勇士外挂DNF免费外挂第一发布站-
文档星级：
内容提示：查看最新技能代码-DNF外挂地下城与勇士外挂DNF免费外挂第一发布站-
文档格式：PDF|
浏览次数：413|
上传日期： 10:01:20|
下载积分：
该用户还上传了这些文档
官方公共微信
下载文档:查看最新技能代码-DNF外挂地下城与勇士外挂DNF免费外挂第一发布站-.PDF　　 dnf官方论坛 越火线游戏外挂网 dnf光剑代码大全.rar
dnf官方论坛 越火线游戏外挂网 dnf光剑代码大全.rar
mengduoduo　
　最新上传共享文件：
& 请稍候...
　　　　　　　　　　　　
　　　　　　　　　　　　
　　　　　　　　　　　　
　热门资源
　　　　　　　　　　
1.免责声明：“dnf官方论坛 越火线游戏外挂网 dnf光剑代码大全.rar”文件由 mengduoduo 自行上传管理，我们不保证此文件的安全和健康性，如果您下载后发现此文件有违法和其它不良的内容，请。我们会尽快处理！本文件内容和3ADisk网站无关。
2.下载超出流量限制：非无流量限制网盘级别每天的下载流量是有限制的，当超过这个流量限制时，当天不能再从空间内下载文件。
3.免费注册网盘：上传时间：
热搜风云榜
56官方微信
扫一扫发现精彩