你的位置：
新人梦幻诛仙全自动打宝图脚本(希望GGJJ来帮忙指点指点)
00:20:48 |
来源: 按键精灵资源站
本帖最后由 haozijiaxu 于
00:26 编辑
我在家测试时,已经正确可自动循环了,
忘GG,JJ些多指点指点,看看思路是否正确,
有错误忘帮小弟指出,小第在这里谢谢各位了
Gosub jb(Hwnd,L,T)
wabaorenX = 543+L
wabaorenY = 330+T
wabaoX = 425+L
wabaoY = 511+T
zhandouX = 717+L
zhandouY = 412+T
intX1= 230 + L
inty1= 399 + T
intX2= 254 + L
inty2= 438 + T
//战斗坐标
intX3= 230 + L
inty3= 399 + T
//是否还在移动坐标
intX4= 40 + L
inty4= 115 + T
//在窗口坐标中进行移动修正同时进入战斗检测
Rem 开起小地图
//判断是否开起小地图
//循环第2次
Rem xuhuan
Gosub 大循环
Sub 大循环
& & VBSCall FindPic(0,0,,&Attachment:\小地图判断.bmp&,0.9,intX,intY)
& & MoveTo intX,intY
& & Delay 500
& & //判断是否开起小地图
& & If intX & 0
& && &&&//点击世界地图
& && &&&VBSCall FindPic(0,0,,&Attachment:\世界开关.bmp&,0.9,intX,intY)
& && &&&MoveTo intX,intY
& && &&&Delay 500
& && &&&LeftClick 1
& && &&&Delay 500
& && &&&VBSCall FindPic(0,0,,&Attachment:\京城.bmp&,0.9,intX,intY)
& && &&&MoveTo intX,intY
& && &&&Delay 500
& && &&&LeftClick 1
& && &&&Delay 500
& && &&&Gosub 接任务
& && &&&Rem 继续检测战斗
& && &&&IfColor zhandouX,zhandouY,ff9f89,0
& && && && &//msgbox&战斗&
& && && && &Delay 2000
& && && && &Goto 继续检测战斗
& && &&&Else
& && && && &//是否已停止移动
& && && && &VBSCall GetColor = GetPixelColor(intX4,inty4)
& && && && &Delay 2500
& && && && &VBSCall GetColor1 = GetPixelColor(intX4,inty4)
& && && && &Delay 2500
& && && && &VBSCall GetColor2 = GetPixelColor(intX4,inty4)
& && && && &If GetColor = GetColor1
& && && && && & If GetColor1 = GetColor2
& && && && && && &&&Delay 500
& && && && && && &&&VBSCall FindPic(0,0,,&Attachment:\点击任务位置.bmp&,0.8,intX,intY)
& && && && && && &&&intX= intX+57
& && && && && && &&&intY= intY-10
& && && && && && &&&Delay 500
& && && && && && &&&MoveTo intX,intY
& && && && && && &&&Delay 1000
& && && && && && &&&LeftClick 1
& && && && && && &&&Delay 1000
& && && && && && &&&//与掉宝怪物第一次对话
& && && && && && &&&VBSCall FindPic(0,0,,&Attachment:\1.1.bmp&,0.8,intX,intY)
& && && && && && &&&intY=intY+10
& && && && && && &&&MoveTo intX,intY
& && && && && && &&&Delay 1000
& && && && && && &&&LeftClick 1
& && && && && && &&&Delay 1000
& && && && && && &&&//与掉宝怪物第二次对话
& && && && && && &&&VBSCall FindPic(0,0,,&Attachment:\1.1.bmp&,0.8,intX,intY)
& && && && && && &&&intY=intY+10
& && && && && && &&&MoveTo intX,intY
& && && && && && &&&Delay 1000
& && && && && && &&&LeftClick 1
& && && && && && &&&Delay 1000
& && && && && && &&&Rem 继续打宝
& && && && && && &&&//进入打掉宝图怪地图
& && && && && && &&&IfColor zhandouX,zhandouY,ff9f89,0
& && && && && && && && &Delay 2000
& && && && && && && && &Goto 继续打宝
& && && && && && &&&Else
& && && && && && && && &Goto xuhuan
& && && && && && &&&EndIf
& && && && && & Else
& && && && && && &&&Goto 继续检测战斗
& && && && && & EndIf
& && && && &Else
& && && && && & //MessageBox&继续跑&
& && && && && & Goto 继续检测战斗
& && && && &EndIf
& && &&&EndIf
& && &&&Plugin Window.Active(Hwnd)
& && &&&KeyPress 9,1
& && &&&Delay guanjianyanchi
& && &&&Goto 开起小地图
Sub 接任务
& & IfColor wabaoX,wabaoY,4d7079,0
& && &&&MoveTo wabaoX,wabaoY
& && &&&Delay 500
& && &&&LeftClick 1
& && &&&Delay 500
& && &&&KeyPress 9,1
& && &&&Delay 3000
& && &&&//判断人物是否走到
& && &&&Rem 循环
& && &&&MoveTo wabaorenX,wabaorenY
& && &&&Delay 2500
& && &&&VBSCall var=GetCursorShape(0)
& && &&&Delay 2500
& && &&&VBSCall var=GetCursorShape(0)
& && &&&Delay 2500
& && &&&VBSCall var=GetCursorShape(0)
& && &&&If var =
& && && && &Goto 点击挖宝人
& && &&&Else
& && && && &Goto 循环
& && && && &Delay 500
& && &&&EndIf
& && &&&Rem 点击挖宝人
& && &&&LeftClick 1
& && &&&Delay 1000
& && &&&//进行任务点击
& && &&&MoveTo intX1,intY1
& && &&&Delay 500
& && &&&LeftClick 1
& && &&&Delay 500
& && &&&MoveTo intX2,intY2
& && &&&Delay 500
& && &&&LeftClick 1
& && &&&Delay 500
& && &&&VBSCall FindPic(0,0,,&Attachment:\点击任务位置.bmp&,0.8,intX,intY)
& && &&&intX= intX+57
& && &&&intY= intY-10
& && &&&MoveTo intX,intY
& && &&&Delay 1000
& && &&&LeftClick 1
& && &&&msgbox&指令出错没找到&
Sub jb(Hwnd,L,T)
& & //获取当前屏幕的分辨率
& & Plugin pinmuX = Sys.GetScRX()
& & Plugin pinmuY = Sys.GetScRY()
& & xuqiuX = pinmuX - 1
& & xuqiuY = pinmuY - 1
& & //MessageBox&&&xuqiuX&&,&&xuqiuY
& & VBSCall FindPic(0,0,xuqiuX,xuqiuY,&Attachment:\诛仙窗口加强.bmp&,0.5,intX,intY)
& & MoveTo intX,intY
& & Delay 500
& & LeftClick 1
& & Delay 500
& & //通过功能&得到当前可发送消息的窗口获得句柄
& & Plugin Hwnd = Window.GetKeyFocusWnd()
& & //Msgbox &..&&Hwnd
& & //得到窗口客户区的大小
& & Plugin Rect = Window.GetClientRect(Hwnd)
& & MyArray = Split(Rect, &|&)
& & //下面这句将字符串转换成数值
& & L = Clng(MyArray(0))
& & T = Clng(MyArray(1))
& & R = Clng(MyArray(2))
& & B = Clng(MyArray(3))
& & //Msgbox &左&&L& &,右 &&R&&,上&&T&&,下&&B
& & Delay 500您现在的位置： >>
星娃--梦幻诛仙变异宠物图鉴
星娃--梦幻诛仙变异宠物图鉴
宠物动态效果
宠物个性饰品造型
5%概率使自身受到的法术伤害变为1。
法术攻击时的爆击几率增加8%。
雷属性单体攻击法术。
水属性群体攻击法术。
捕捉地点：
礼包内获得
宠物图鉴导航
宠物名称（标注颜色的为该携带等级推荐宠物）
宠物个性饰品获取途径：
看完本文后有何评价?
已有0人评价，点选表情后可看到其他玩家的表态。
class="btn">[与更多人共享]
版本更新攻略
游戏名称：梦幻诛仙
游戏类型：2D回合
研发公司：完美时空
运营公司：完美时空
官网地址：
请勿使用梦幻诛仙外挂私服
友情链接： |