Call FindPic(802, 166, 817, 172,"Attachment:\四号1108.bmp",0.8,intX,intY)
        If intX>=0 and intY>=0 Then
            KeyUpH 37,1
            Delay 1000
            Goto 四号出口02
        End if
    Next
    Call 持续报警()
    Rem 四号出口02
    For 10
        KeyDownH 40,1
        Delay 1000
        KeyPressH 32,1
        Delay 1000
        Call FindPic(803, 96, 812, 105,"Attachment:\四号1111.bmp",0.8,intX,intY)
        If intX>=0 and intY>=0 Then
            Delay 500
            KeyUpH 40,1
            Goto 四号出口03
        End if
    Next
    KeyUpH 40,1
    KeyPressH 32,1
    Delay 1000
    Call 四线错误()
    Rem 四号出口03
    For 200
        KeyDownH 37,1
        Delay 100
        Call FindPic(733, 137, 758, 147,"Attachment:\四号0613.bmp",0.8,intX,intY)
        If intX>=0 and intY>=0 Then
            KeyUpH 37,1
            Delay 1000
            Goto 四号出口04
        End if
    Next
    Call 四线错误()
    Rem 四号出口04
    For 30
        KeyDownH 38,1
        Delay 500
        Call FindPic(793, 90, 832, 101,"Attachment:\行脚0210.bmp",0.8,intX,intY)
        If intX>=0 and intY>=0 Then
            KeyUpH 38,1
            Goto 行脚商行馆
        End if
        Call FindPic(802, 147, 812, 162,"Attachment:\行馆入口1021.bmp",0.8,intX,intY)
        If intX>=0 and intY>=0 Then
            Delay 500
            KeyUpH 38,1
            Goto 判断出口rem
        End if
    Next
    KeyUpH 38,1
    Delay 1000
    Call 四线错误()
End Sub
Sub 四线错误()
    For 3
        Call 是否在线()
        KeyUpH 37,1
        KeyUpH 39,1
        Delay 500
        For 100
            KeyDownH 37,1
            Delay 500
            Call FindPic(710, 146, 720, 163,"Attachment:\行馆入口0021.bmp",0.8,intX,intY)
            If intX>=0 and intY>=0 Then
                KeyUpH 37,1
                Goto 四线错误01
            End if
        Next
        Call 持续报警()
        Rem 四线错误01
        For 100
            KeyDownH 39,1
            Delay 100
            Call FindPic(744, 148, 754, 160,"Attachment:\四线错误0221.bmp",0.8,intX,intY)
            If intX>=0 and intY>=0 Then
                KeyUpH 39,1
                Delay 500
                Goto 四线错误02
            End if
        Next
        Rem 四线错误02
        For 10
            KeyPressH 32,1
            Delay 1000
            Call FindColorEx(738, 131, 759, 137,"2222DD",1,0.8,x9,y9)
            If x9>0 and y9>0 Then
                Goto 四线错误03
            End if
        Next
        Rem 四线错误03
        For 100
            KeyDownH 39,1
            Delay 100
            Call FindPic(758, 131, 770, 143,"Attachment:\四线错误0420.bmp",0.8,intX,intY)
            If intX>=0 and intY>=0 Then
                KeyUpH 39,1