EndIf 
        VBSCall Call FindPic(804, 100, 811, 108,"Attachment:\二号3004.bmp",0.8,intX,intY)
        If intX>=0 and intY>=0
            KeyUpH 39,1
            Delay 500
            Goto 二号出口04
        EndIf 
    EndFor 
    Gosub 三号错误
    Rem 二号出口04
    For 20
        KeyDownH 38,1
        Delay 500
        VBSCall Call FindPic(802, 98, 812, 112,"Attachment:\二号3002.bmp",0.8,intX,intY)
        If intX>=0 and intY>=0
            Delay 500
            KeyUpH 38,1
            Goto 二号出口05
        EndIf 
    EndFor 
    KeyUpH 38,1
    KeyPressH 32,1
    Delay 1000
    Gosub 三号错误
    Rem 二号出口05
    For 300
        KeyDownH 37,1
        Delay 100
        VBSCall Call FindPic(852, 137, 861, 144,"Attachment:\二号2902.bmp",0.8,intX,intY)
        If intX>=0 and intY>=0
            KeyPressH 32,1
            Delay 1000
        EndIf 
        VBSCall Call FindPic(861, 108, 869, 115,"Attachment:\二号2602.bmp",0.8,intX,intY)
        If intX>=0 and intY>=0
            KeyPressH 32,1
            Delay 1000
        EndIf 
        VBSCall Call FindPic(845, 96, 856, 103,"Attachment:\二号1904.bmp",0.8,intX,intY)
        If intX>=0 and intY>=0
            KeyUpH 37,1
            Delay 500
            Goto 二号出口06
        EndIf 
    EndFor 
    Gosub 二号错误
    Rem 二号出口06
    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
    KeyPressH 32,1
    Delay 1000
    Gosub 二号错误
Return 二号出口
Sub 二号错误
    Gosub 是否在线
    KeyUpH 37,1
    KeyUpH 39,1
    Delay 500
    For 100
        KeyDownH 37,1
        Delay 500
        VBSCall Call FindPic(740, 117, 749, 129,"Attachment:\一号1609.bmp",0.8,intX,intY)
        If intX>=0 and intY>=0
            KeyUpH 37,1
            Goto 二号错误01
        EndIf 
    EndFor 
    Gosub 持续报警
    Rem 二号错误01
    For 100
        KeyDownH 39,1
        Delay 500
        VBSCall Call FindPic(852, 102, 862, 112,"Attachment:\二号2210.bmp",0.8,intX,intY)
        If intX>=0 and intY>=0
            KeyUpH 39,1
            Goto 二号错误02
        EndIf 
    EndFor 
    Gosub 持续报警
    Rem 二号错误02
    Goto 二号出口001
Return 二号错误
Sub 三号出口
    Gosub 主线
    Rem 三号出口001
    For 300