Delay 500
                    KeyUpH 39,1
                    face=1
                    pt=pt+500
                    Goto 采矿出包
                EndIf 
                Delay 1000
            EndIf 
        EndIf 
        If wx>=0 or wy>=0
            wx=wx+6
            //moveto wx,wy-200
            Delay 100
            Gosub 拾取动作
            Goto 采矿跳转
        EndIf 
    EndFor 
    Delay 100
Return 挖矿
Sub 山林矿场1层
    If l=1
        KeyPressH 39,1
        Delay 50
        KeyDownH 39,1
        Delay 5300
        KeyUpH 39,1
        face=1
        Delay 100
        If c=1
            wx=-1
            wy=-1
        Else 
            VBSCall FindPic(240,570,1039,600,"矿.bmp",0.8,wx,wy)
        EndIf 
        If wx>=0 or wy>=0
        Else 
            KeyPressH 37,1
            Delay 50
            KeyDownH 37,1
            Delay 1900
            KeyPress 16,1
            Delay 100
            KeyDownH 38,1
            KeyUpH 37,1
            face=0
            Delay 3000
            KeyUpH 38,1
            l=2
            pt=0
            Delay 100
        EndIf 
    ElseIf l=2
        If pt>0
            KeyDownH 37,1
            Delay pt
            KeyUpH 37,1
            face=0
        ElseIf pt<0
            pt=Abs(pt)
            KeyDownH 39,1
            Delay pt
            KeyUpH 39,1
            face=1
        EndIf 
        Delay 500
        KeyPress 77,1
        Delay 1500
        IfColor 837,292,ff55,2
            KeyPress 77,1
            Delay 1000
        Else 
            KeyPress 77,1
            Delay 1000
            KeyPressH 39,1
            Delay 50
            KeyDownH 39,1
            Delay 4500
            KeyUpH 39,1
            face=1
            Delay 100
            KeyPressH 37,1
            Delay 50
            KeyDownH 37,1
            Delay 1900
            KeyPress 16,1
            Delay 100
            KeyDownH 38,1
            KeyUpH 37,1
            face=0
            Delay 3000
            KeyUpH 38,1
            l=2
        EndIf 
        KeyPressH 37,1
        Delay 50
        KeyDownH 37,1
        Delay 500
        KeyPress 16,1
        Delay 100
        KeyDownH 38,1