KeyUpH 37,1
        face=0
        Delay 3000
        KeyUpH 38,1
        l=3
        Delay 100
    ElseIf l=3
        KeyPressH 37,1
        Delay 50
        KeyDownH 37,1
        Delay 3000
        KeyUpH 37,1
        face=0
        Delay 100
        KeyPressH 39,1
        Delay 50
        KeyDownH 39,1
        Delay 3700
        KeyPress 16,1
        Delay 100
        KeyDownH 38,1
        KeyUpH 39,1
        face=1
        Delay 3000
        KeyUpH 38,1
        l=4
        Delay 100
    ElseIf l=4
        KeyPressH 37,1
        Delay 50
        KeyDownH 37,1
        Delay 5000
        KeyUpH 37,1
        face=0
        l=1
        Delay 100
    EndIf 
Return 山林矿场1层
Sub 山林矿场3层
    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 300
            KeyPress 16,1
            Delay 100
            KeyDownH 38,1
            KeyUpH 37,1
            face=0
            Delay 3000
            KeyUpH 38,1
            l=2
            Delay 100
        EndIf 
    ElseIf l=2
        KeyPressH 39,1
        Delay 50
        KeyDownH 39,1
        Delay 2300
        KeyUpH 39,1
        face=1
        Delay 100
        KeyPressH 37,1
        Delay 50
        KeyDownH 37,1
        Delay 3500
        KeyPress 16,1
        Delay 1300
        KeyUpH 37,1
        face=0
        l=3
        Delay 100
    ElseIf l=3
        KeyPressH 37,1
        Delay 50
        KeyDownH 37,1
        Delay 1800
        KeyUpH 37,1
        face=0
        Delay 100
        KeyDownH 39,1
        Delay 200
        KeyPress 16,1
        Delay 100
        KeyDownH 38,1