qq幻想世界用冒泡幻想三国按键精灵灵怎么设置变树

来源：蜘蛛抓取(WebSpider) 时间：2016-10-26 00:51 标签： 最终幻想14按键精灵
你的位置：
【无偿】QQ幻想世界挖图
21:48:55 |
来源: 按键精灵资源站
本帖最后由 n 于
23:26 编辑
QQ幻想世界挖图.没有固定NPC.该怎么做有人解答下吗.寻宝可以做出.挖图就不怎么会做.小白一枚求大神.给个码哇.你的位置：
QQ幻想世界【王者灯杀手】（支持后台）
14:08:10 |
来源: 按键精灵资源站
新手作品，欢迎指正！
//运行前需要先将字库文件sys_dict.txt复制到c:\temp目录下，
//将鼠标移动到游戏窗口再开启。
//支持前后台。
UserVar houtai=DropList{&前台&:&0&|&后台&:&1&}=0 &设置前后台&
Call 初始化()
//========主程序开始=======
Delay 1000
& & Call 复活检测
& & Call 目标检测
Delay 1000
dm_ret = dm.UnBindWindow()
//========主程序结束========
////////////////////////////////////////////////////////////////////////
//========子程序============
Sub 复活检测
& & Delay 500
& & s = dm.Ocr(110, 40, 240, 54, &ffffff-000000&, 1.0) '检测生命值
& & s1 = Round(Eval(s),2)*100
& & If&&s1=0&&Then
& && &&&dm.MoveTo 5, 190
& && &&&dm.LeftClick '激活【选择复活方式】窗口,
& && &&&Delay 200
& && &&&dm.MoveTo 610, 285
& && &&&dm.LeftClick '点击【复活点复活】
& && &&&Delay 1800
& && &&&dm.KeyPress 113 'F2上坐骑
& && &&&Delay 2000
& && &&&Call 寻路
& && &&&Call 输出(&生命值正常......&)& &
& & End If
Sub 目标检测
& & Delay 300
& & dm_ret = dm.FindStrFast(400,10,550,40,&王者忠义灯|&,&ffffff-.0,intX,intY)
& & If intX &= 0 and intY &= 0 Then
& && &&&Call 输出(&目标已选定......&)
& && &&&Call 攻击&&
& && &&&Call 寻路
& && &&&dm.KeyPress 9 '选灯
& && &&&Delay 50
& && &&&dm.KeyPress 9 '选灯
& && &&&Delay 50
& && &&&dm.KeyPress 9 '选灯
& && &&&Call 输出(&选择目标......&)& &
& & End If
& & dm.KeyPress 77 '打开地图
& & Delay 800
& & dm.MoveTo 442, 97&&'坐标40.5，王者 & & & & & & & && &&&
& & dm.LeftDoubleClick
& & Delay 200
& & dm.KeyPress 77 '关闭地图
& & Delay 300
& & DG = 1
& & Call 输出(&正在打灯...& & DG)
& & dm.KeyPress 52 '技能4
& & Delay 300
& & Call 输出(&技能 4...&)
& & dm.KeyPress 85 '法宝技能U
& & Delay 300
& & Call 输出(&法宝技能 U...&)
& & dm.KeyPress 65 '宠物技能A
& & Delay 300
& & Call 输出(&宠物技能 A...&)
& & dm.KeyPress 90 '宠物技能Z
& & Delay 300
& & Call 输出(&宠物技能 Z...&)
& & dm.KeyPress 53 '技能5
& & Delay 300
& & Call 输出(&技能 5...&)
& & dm.KeyPress 54 '技能6
& & Delay 300
& & Call 输出(&技能 6...&)
& & dm.KeyPress 55 '技能7
& & Delay 300
& & Call 输出(&技能 7...&)
& & dm.KeyPress 56 '技能8
& & Delay 300
& & Call 输出(&技能 8...&)
//===================================================================
Sub 初始化()
& & PutAttachment &c:\temp& ,&*.*&
& & set dm = createobject(&dm.dmsoft&)
& & dm_ret = dm.SetPath(&c:\temp&)
& & dm_ret = dm.SetDict(0,&sys_dict.txt&)
& & Hwnd = dm.GetMousePointWindow()
& & dm.MoveWindow hwnd,-5,0
& & Delay 100
& & dm_ret = dm.SetWindowState(hwnd, 1)
& & Delay 300
& & If houtai = 1 Then
& && &&&dm_ret = dm.BindWindow(hwnd, &dx2&, &dx&, &dx&,1)
& && &&&dm_ret = dm.BindWindow(hwnd, &normal&, &normal&, &normal&,0)
& & End If
& & Delay 300
& & If dm_ret = 0 Then
& && &&&MessageBox &绑定失败！&
& && &&&EndScript
& & End If
& & foobar = dm.CreateFoobarRect(0,60,610,200,76)
& & dm_ret = dm.FoobarFillRect(foobar,0,0,200,80,&2b2b32&)
& & dm_ret = dm.FoobarTextRect(foobar, 5, 5, 190, 70)
& & dm_ret = dm.FoobarUpdate(foobar)
& & dm_ret = dm.FoobarSetFont(foobar, &宋体&, 9, 0)
& & dm_ret = dm.FoobarTextLineGap(foobar,5)
& & dm_ret = dm.SetWindowTransparent(foobar, 200)
& & If houtai = 0 Then
& && &&&dm_ret = dm.SetWindowState(hwnd, 1)& & & &
& & End If
Sub 鼠标复位
& & Delay 100
& & dm.MoveTo 5,5
Sub 输出(x)
& & dm_ret = dm.FoobarPrintText(foobar,Time&&-&&x,&00f000&)
& & dm_ret = dm.FoobarUpdate(foobar)
& & TracePrint x
Sub OnScriptExit()
& & dm_ret = dm.UnBindWindow()
//======================================================
( 14:06:56, Size: 66.7 KB, Downloads: 26)

我要回帖

更多关于 最终幻想14按键精灵 的文章

 

随机推荐