If intX>=0 and intY>=0
            KeyPressH 32,1
            Delay 1000
        EndIf 
        VBSCall Call FindPic(890, 139, 897, 148,"Attachment:\一号1505.bmp",0.8,intX,intY)
        If intX>=0 and intY>=0
            KeyUpH 39,1
            Delay 500
            Goto 一号出口06
        EndIf 
    EndFor 
    Gosub 四线错误
    Rem 一号出口06
    For 20
        KeyDownH 38,1
        Delay 500
        VBSCall Call FindPic(802, 102, 812, 115,"Attachment:\一号1502.bmp",0.8,intX,intY)
        If intX>=0 and intY>=0
            Delay 500
            KeyUpH 38,1
            Goto 一号出口07
        EndIf 
    EndFor 
    KeyUpH 38,1
    KeyPressH 32,1
    Delay 1000
    Gosub 四线错误
    Rem 一号出口07
    For 300
        KeyDownH 37,1
        Delay 100
        VBSCall Call FindPic(876, 106, 884, 114,"Attachment:\一号1302.bmp",0.8,intX,intY)
        If intX>=0 and intY>=0
            KeyPressH 32,1
            Delay 1000
        EndIf 
        VBSCall Call FindPic(857, 113, 864, 121,"Attachment:\一号1102.bmp",0.8,intX,intY)
        If intX>=0 and intY>=0
            KeyPressH 32,1
            Delay 1000
        EndIf 
        VBSCall Call FindPic(891, 113, 898, 120,"Attachment:\一号0902.bmp",0.8,intX,intY)
        If intX>=0 and intY>=0
            KeyPressH 32,1
            Delay 1000
        EndIf 
        VBSCall Call FindPic(745, 96, 755, 110,"Attachment:\一号0202.bmp",0.8,intX,intY)
        If intX>=0 and intY>=0
            KeyUpH 37,1
            Delay 1000
            Goto 一号出口08
        EndIf 
    EndFor 
    Gosub 四线错误
    Rem 一号出口08
    For 30
        KeyDownH 38,1
        Delay 500
        VBSCall Call FindPic(793, 90, 832, 101,"Attachment:\行脚0210.bmp",0.8,intX,intY)
        If intX>=0 and intY>=0
            KeyUpH 38,1
            Goto 行脚商行馆
        EndIf 
        VBSCall Call FindPic(802, 147, 812, 162,"Attachment:\行馆入口1021.bmp",0.8,intX,intY)
        If intX>=0 and intY>=0
            Delay 500
            KeyUpH 38,1
            Goto 判断出口rem
        EndIf 
    EndFor 
    KeyUpH 38,1
    Delay 1000
    Gosub 四线错误
Return 一号出口
Sub 四号出口
    Gosub 主线
    For 10
        KeyPressH 32,1
        Delay 1000
        VBSCall Call FindPic(840, 82, 854, 92,"Attachment:\一号1909.bmp",0.8,intX,intY)
        If intX>=0 and intY>=0
            Goto 四号出口01
        EndIf 
    EndFor 
    Gosub 四线错误
    Rem 四号出口01
    For 300
        KeyDownH 37,1
        Delay 100
        VBSCall Call FindPic(740, 117, 749, 129,"Attachment:\一号1609.bmp",0.8,intX,intY)
        If intX>=0 and intY>=0
            KeyPressH 32,1
            Delay 1000
        EndIf 
        VBSCall Call FindPic(711, 87, 721, 99,"Attachment:\一号1509.bmp",0.8,intX,intY)
        If intX>=0 and intY>=0
            KeyPressH 32,1
            Delay 1000
        EndIf 
        VBSCall Call FindPic(802, 166, 817, 172,"Attachment:\四号1108.bmp",0.8,intX,intY)