If intX>=0 and intY>=0
            KeyUpH 37,1
            Delay 1000
            Goto 四号出口02
        EndIf 
    EndFor 
    Gosub 持续报警
    Rem 四号出口02
    For 10
        KeyDownH 40,1
        Delay 1000
        KeyPressH 32,1
        Delay 1000
        VBSCall Call FindPic(803, 96, 812, 105,"Attachment:\四号1111.bmp",0.8,intX,intY)
        If intX>=0 and intY>=0
            Delay 500
            KeyUpH 40,1
            Goto 四号出口03
        EndIf 
    EndFor 
    KeyUpH 40,1
    KeyPressH 32,1
    Delay 1000
    Gosub 四线错误
    Rem 四号出口03
    For 200
        KeyDownH 37,1
        Delay 100
        VBSCall Call FindPic(733, 137, 758, 147,"Attachment:\四号0613.bmp",0.8,intX,intY)
        If intX>=0 and intY>=0
            KeyUpH 37,1
            Delay 1000
            Goto 四号出口04
        EndIf 
    EndFor 
    Gosub 四线错误
    Rem 四号出口04
    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 四线错误
    For 3
        Gosub 是否在线
        KeyUpH 37,1
        KeyUpH 39,1
        Delay 500
        For 100
            KeyDownH 37,1
            Delay 500
            VBSCall Call FindPic(710, 146, 720, 163,"Attachment:\行馆入口0021.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 100
            VBSCall Call FindPic(744, 148, 754, 160,"Attachment:\四线错误0221.bmp",0.8,intX,intY)
            If intX>=0 and intY>=0
                KeyUpH 39,1
                Delay 500
                Goto 四线错误02
            EndIf 
        EndFor 
        Rem 四线错误02
        For 10
            KeyPressH 32,1
            Delay 1000
            VBSCall Call FindColorEx(738, 131, 759, 137,"2222DD",1,0.8,x9,y9)
            If x9>0 and y9>0
                Goto 四线错误03
            EndIf 
        EndFor 
        Rem 四线错误03
        For 100
            KeyDownH 39,1
            Delay 100
            VBSCall Call FindPic(758, 131, 770, 143,"Attachment:\四线错误0420.bmp",0.8,intX,intY)
            If intX>=0 and intY>=0
                KeyUpH 39,1
                Delay 500