//游戏窗口可在任意位置.脚本启动后也可移动. //释放插件,此脚本需要361后台插件第五版,请自行下载. PutAttachment .\plugin *.dll //自定义变量挖矿时间 UserVar wakuangtime=7000 //自定义变量找色精度 UserVar muhu=0.7 //自定义变量吃食物数量 UserVar shiwu=1 //获得吃食物时的窗口句柄 Plugin win=Window.MousePoint() Gosub 挖矿 EndScript //子程序挖矿 Sub 挖矿 //获得挖矿的窗口句柄 Plugin wkwin=Window.MousePoint() //获得当前鼠标坐标 VBSCall GetCursorPos(wkx1,wky1) //把屏幕坐标转换成窗口坐标,这样窗口能随意移动. Plugin wkq=BGKM5.ScrToCli(wkwin,wkx1,wky1) MyArray=Split(wkq,"|") wkx=CInt(MyArray(0)):wky=CInt(MyArray(1)) //转换完成后跳到挖矿子程序 Gosub 定点挖矿 Return 挖矿 //正式挖矿 Sub 定点挖矿 Rem 挖矿开始 Gosub 叛断颜色 //按F1拿起工具 Plugin BGKM5.KeyClick(wkwin,112,1) Delay 100 //开始挖矿 Plugin BGKM5.LClick(wkwin,wkx,wky) //挖矿延时 Delay wakuangtime //按一下F2把食物举起来.为防挖矿出错,最好留下这句 Plugin BGKM5.KeyClick(wkwin,113,1) Delay 50 //找色搜索捡矿,搜索两个颜色一个白天,一个晚上. Plugin jkq=Bkgnd.FindColorEx(wkwin,wkx-160,wky-160,wkx+200,wky+160,"308888",1,muhu) Delay 200 Plugin jkq=Bkgnd.FindColorEx(wkwin,wkx-60,wky-50,wkx+100,wky+60,"50F8F8",1,muhu) MyArray=Split(jkq,"|") jkx=CInt(MyArray(0)):jky=CInt(MyArray(1)) If jkx>0 and jky>0 Plugin BGKM5.LClick(wkwin,jkx,jky) Delay 200 EndIf Goto 挖矿开始 Return 定点挖矿 //加体力 Sub 加体力 //重复次数,也就是吃多少个食物. For shiwu Delay 100 //按F2举起食物. Plugin BGKM5.KeyClick(win,113,1) Delay 200 //吃的位置 Plugin BGKM5.LClick(win,566,502) Delay 2000 EndFor Return 加体力 Sub 叛断颜色 //如果角色体力小于10%.那么就跳到子程序加体力,否则返回挖矿"20202"是没体力时的颜色 Plugin Color=Bkgnd.FindColorEx(win,81,61,100,64,"20202",0,muhu) MyArray=Split(Color,"|") If CInt(MyArray(0))>0 and CInt(MyArray(1))>0 Gosub 加体力 EndIf Return 叛断颜色