Delay 192
        EndFor 
    EndIf 
    Rem 有矿
    KeyDown pick,1
    Delay 64
    KeyUp pick,2
    Delay 192
    VBSCall FindColorEx(0,140,1024,540,kuangsy,1,0.8,xx,yy)
    If xx<=0
        VBSCall FindColorEx(0,140,1024,540,kuangsj,1,0.8,xx,yy)
    EndIf 
    If xx>0
        MoveTo xx,yy
        Delay 32
        For 2
            LeftDown 1
            Delay 64
            LeftUp 2
            Delay 8
        EndFor 
        MoveTo 650,384
        For 4
            KeyDown pick,1
            Delay 64
            KeyUp pick,2
            Delay 192
        EndFor 
        VBSCall FindColorEx(300,250,624,540,kuangsy,1,0.8,xx1,yy1)
        If xx1<=0
            VBSCall FindColorEx(300,250,624,540,kuangsj,1,0.8,xx1,yy1)
        EndIf 
        If xx1>0
            xx=xx1:yy=yy1
            If abs(xx1-xx)<=10
                Gosub 挖矿中
            EndIf 
        EndIf 
        Goto 有矿
    EndIf 
Return 
//**********************
Sub 挖矿中
    Rem 继续挖矿
    i=0
    MoveTo xx,yy
    Delay 32
    For 2
        LeftDown 1
        Delay 64
        LeftUp 2
        Delay 8
    EndFor 
    MoveTo 20,384
    For 2
        KeyDown pick,1
        Delay 64
        KeyUp pick,2
        Delay 192
    EndFor 
    VBSCall FindColorEx(xx-6,yy-6,xx+6,yy+6,kuangsy,1,0.8,xx1,yy1)
    If xx1<0
        VBSCall FindColorEx(xx-6,yy-6,xx+6,yy+6,kuangsj,1,0.8,xx1,yy1)
    EndIf 
    If xx1>0
        Goto 继续挖矿
    EndIf 
    //拣东西
    Gosub 捡东西
Return 
//***********************
Sub 开关地图
    KeyDown 77,1
    Delay 512
    KeyUp 77,2
    Delay 512
Return