//当然，首先是获取窗口句柄，注意2种方式获得的句柄的区别：
Plugin hwnd1=window.foreground()
//上面这句获得的窗口句柄可以移动窗口，但是无法在窗口点击鼠标
Plugin hwnds1=window.mousepoint()
//现在用这句得到的句柄，可以在窗口内点击鼠标，但是无法移动这个窗口
//所以，如果你需要移动窗口，使用的句柄应该是hwnd1，而点击使用的是hwnds1
//当然，这2种方式取得的窗口，大小是一样的，所以坐标的计算就无所谓了
//获得鼠标位置，并转换为窗口坐标
VBSCall GetCursorPos(xget,yget)
Plugin clixy=BGKM5.ScrToCli(hwnds1,xget,yget)
VBSCall MyArray1=split(clixy,"|",-1,1)
VBSCall x=CInt(MyArray1(0))
VBSCall y=CInt(MyArray1(1))
//脚本开始寻找精确的挖矿点
LockMouse 
MoveR 60,0
//锁定鼠标，并将鼠标移动开，防止矿锄的颜色、“挖矿”这样的字眼影响取色判断
Plugin wkxy=BkgndColor.FindColor(hwnds1,x,y,x+4,y+32,"000000")
//以鼠标最开始的点为左上角，在 4x32的范围内寻找黑色
//这么做的目的是找到地块格子的第一个黑色点，所以要求打开地块显示
wkxyarray=Split(wkxy,"|",-1,1)
hsx=wkxyarray(0)
hsy=wkxyarray(1)
Rem 寻找挖矿点
//在找到黑色的点之后，分别取这个点的左、右和左上的点的颜色
//具体的相对坐标，见脚本中
Plugin colorzuo=BkgndColor.GetPixelColor(hwnds1,hsx-4,hsy)
Plugin coloryou=BkgndColor.GetPixelColor(hwnds1,hsx+4,hsy)
Plugin colorzuoshang=BkgndColor.GetPixelColor(hwnds1,hsx-4,hsy-2)
//这个目的是为了找到当前格子最下面的2个黑色点
//如果你截图放大会很清楚的看到格子的边框是由黑色的点组成
If colorzuo=0
    xwk=hsx-2
    ywk=hsy
    Goto 找到
EndIf 
If coloryou=0
    xwk=hsx+2
    ywk=hsy
    Goto 找到
EndIf 
//无论左边的点还是右边的点是黑色，都证明已经找到格子的最下方
//把准确的挖矿点的坐标(xwk,ywk)定义好，跳出判断
//在左边和右边都不是黑色的情况下，说明不是格子最下方
//此时左上角的点或者右上角的点必定为黑色
//如果左上角的点是黑色，说明此点偏左上，将此点的坐标向右下移动，继续判断
//如果左上角不是黑色，那么必然是右上角是黑色，此点坐标向左下移动
If colorzuoshang=0
    Delay 10
    hsx=hsx+4
    hsy=hsy+2
    Goto 寻找挖矿点
Else 
    hsx=hsx-4
    hsy=hsy+2
    Goto 寻找挖矿点
EndIf 
//设置这个标记的目的是用来释放鼠标
//其中鼠标相对移动回原来的位置可要可不要，因为是后台
Rem 找到
MoveR -60,0
UnlockMouse 
Rem 开始挖矿
Gosub 体力
//选择矿锄（F1）
Plugin BGKM5.KeyClick(hwnds1,112)
Delay 100
//挖矿
Plugin BGKM5.MMove(hwnds1,xwk,ywk)
Plugin BGKM5.LClick(hwnds1,xwk,ywk)
//延迟时间可自己修改，或用自定义变量在最开始设置
Delay 6800
//以下4次点击，是在格子的4个角各点击一次拿矿
//经过测试，包括男女普通角色、男女豆丁都没问题
Plugin BGKM5.MMove(hwnds1,xwk,ywk)
Plugin BGKM5.LClick(hwnds1,xwk,ywk)
Delay 80
Plugin BGKM5.MMove(hwnds1,xwk,ywk-30)
Plugin BGKM5.LClick(hwnds1,xwk,ywk-30)
Delay 80
Plugin BGKM5.MMove(hwnds1,xwk+15,ywk-20)
Plugin BGKM5.LClick(hwnds1,xwk+15,ywk-20)
Delay 80
Plugin BGKM5.MMove(hwnds1,xwk-15,ywk-20)
Plugin BGKM5.lClick(hwnds1,xwk-15,ywk-20)
Delay 80
//切换一次食物，玩庄园的都知道，是为了防止连续挖矿造成人物抽动
Plugin BGKM5.KeyClick(hwnds1,113)
Delay 200
Goto 开始挖矿
//体力补充
Sub 体力
    Plugin color7=BkgndColor.GetPixelColor(hwnds1,90,62)
    //对血条取色90，60大概是10%体力的位置，可以自己修改
    //如果颜色为黑，吃血
    If color7=2106400
        //选择食物（F2）
        Plugin BGKM5.KeyDown(hwnds1,113)
        Plugin BGKM5.KeyUp(hwnds1,113)
        Delay 200