Delay 500
                Goto 四线错误04
            End if
        Next
        Rem 四线错误04
        For 10
            KeyPressH 32,1
            Delay 1000
            Call FindPic(741, 87, 750, 97,"Attachment:\四线错误0418.bmp",0.8,intX,intY)
            If intX>=0 and intY>=0 Then
                Goto 四线错误05
            End if
        Next
    Next
    Call 持续报警()
    Rem 四线错误05
    For 300
        KeyDownH 39,1
        Delay 100
        Call FindPic(773, 122, 783, 137,"Attachment:\四线错误0518.bmp",0.8,intX,intY)
        If intX>=0 and intY>=0 Then
            KeyPressH 32,1
            Delay 1000
        End if
        Call FindPic(802, 147, 812, 162,"Attachment:\行馆入口1021.bmp",0.8,intX,intY)
        If intX>=0 and intY>=0 Then
            KeyUpH 39,1
            Delay 500
            Goto 出口选择rem
        End if
    Next
    Call 持续报警()
End Sub
Sub 二号出口()
    Call 主线()
    Rem 二号出口001
    For 300
        KeyDownH 39,1
        Delay 100
        Call FindPic(852, 102, 862, 112,"Attachment:\二号2210.bmp",0.8,intX,intY)
        If intX>=0 and intY>=0 Then
            KeyPressH 32,1
            Delay 500
        End if
        Call FindPic(836, 112, 845, 121,"Attachment:\二号2309.bmp",0.8,intX,intY)
        If intX>=0 and intY>=0 Then
            Delay 500
            KeyUpH 39,1
            Delay 100
            For 20
                KeyPressH 32,1
                Delay 500
                Call FindPic(836, 131, 845, 140,"Attachment:\二号2308.bmp",0.8,intX,intY)
                If intX>=0 and intY>=0 Then
                    Goto 二号出口01
                End if
            Next
            Call 持续报警()
        End if
    Next
    Call 四线错误()
    Rem 二号出口01
    For 300
        KeyDownH 37,1
        Delay 100
        Call FindPic(719, 91, 727, 100,"Attachment:\二号2208.bmp",0.8,intX,intY)
        If intX>=0 and intY>=0 Then
            KeyUpH 37,1
            Delay 500
            Goto 二号出口02
        End if
    Next
    Call 二号错误()
    Rem 二号出口02
    For 20
        KeyDownH 38,1
        Delay 500
        Call FindPic(803, 84, 813, 94,"Attachment:\二号2205.bmp",0.8,intX,intY)
        If intX>=0 and intY>=0 Then
            Delay 500
            KeyUpH 38,1
            Goto 二号出口03
        End if
    Next
    KeyUpH 38,1
    KeyPressH 32,1
    Delay 1000
    Call 二号错误()
    Rem 二号出口03
    For 300
        KeyDownH 39,1
        Delay 100
        Call FindPic(869, 89, 878, 96,"Attachment:\二号2505.bmp",0.8,intX,intY)
        If intX>=0 and intY>=0 Then
            KeyPressH 32,1
            Delay 1000
        End if
        Call FindPic(844, 98, 852, 105,"Attachment:\二号2704.bmp",0.8,intX,intY)
        If intX>=0 and intY>=0 Then
            KeyPressH 32,1