//游戏窗口可在任意位置.脚本启动后也可移动.
//释放插件,此脚本需要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 叛断颜色