face=0
        Else 
            //右移
            KeyDownH 39,1
            Delay 500
            KeyUpH 39,1
            face=1
        EndIf 
        Delay 100
    EndIf 
EndWhile 
Sub 拾取动作
    s=x-wx
    h=Abs(s)-30
    t=h/v
    Delay 500
    If h>=0
        If s>0
            KeyDownH 37,1
            Delay t
            KeyUpH 37,1
            face=0
            pt=pt-t
        ElseIf s<0
            KeyDownH 39,1
            Delay t
            KeyUpH 39,1
            face=1
            pt=pt+t
        EndIf 
    EndIf 
    Delay 100
    KeyPress 32,2
    Delay 500
    KeyPress 32,2
    Delay 100
Return 拾取动作
Sub 挖矿
    s=x-wx
    h=Abs(s)-90
    t=h/v
    Delay 100
    If h>0
        If s>0
            KeyDownH 37,1
            Delay t
            KeyUpH 37,1
            face=0
            pt=pt-t
        ElseIf s<0
            KeyDownH 39,1
            Delay t
            KeyUpH 39,1
            face=1
            pt=pt+t
        EndIf 
    Else 
        If s>0
            If face=1
                KeyPressH 37,1
                face=0
                n=n-1
            EndIf 
        ElseIf s<0
            If face=0
                KeyPressH 39,1
                face=1
                n=n+1
            EndIf 
        EndIf 
    EndIf 
    Delay 100
    For 9
        KeyDown 90,1
        Delay 2000
        KeyUp 90,1
        Delay 100
        If c=1
            wx=-1
            wy=-1
        Else 
            Rem 采矿出包
            VBSCall FindPic(240,y1,1039,y2,"血.bmp",0.8,x,y)
            If x>=0 or y>=0
                x=x+21
                VBSCall FindPic(240,b1,1039,b2,"包.bmp",0.8,wx,wy)
            Else 
                KeyUp 90,1
                Randomize
                r=Rnd
                If r>=0.5
                    //左移
                    KeyDownH 37,1
                    Delay 500
                    KeyUpH 37,1
                    face=0
                    pt=pt-500
                Else 
                    //右移
                    KeyDownH 39,1