KeyPressH 77,1
        Delay 500
        Call FindPic(168,78,222,114,"Attachment:\生命.bmp",0.8,intX,intY)
        If intX>=0 and intY>=0 Then
            Goto 关掉M01
        End if
    Next
    Call 持续报警()
    Rem 关掉M01
End Sub
Sub 主线()
    Rem 主线001
    For 600
        KeyDownH 37,1
        Delay 100
        Call FindPic(769, 85, 777, 96,"Attachment:\主线01.bmp",0.8,intX,intY)
        If intX>=0 and intY>=0 Then
            KeyUpH 37,1
            Delay 500
            Goto 主线01
        End if
        Call FindPic(837, 146, 847, 160,"Attachment:\主线0621.bmp",0.8,intX,intY)
        If intX>=0 and intY>=0 Then
            KeyUpH 37,1
            KeyDownH 39,1
            Delay 3000
            KeyDownH 39,1
        End if
    Next
    Call 持续报警()
    Rem 主线01
    For 20
        KeyPressH 32,1
        Delay 500
        Call FindPic(721, 96, 736, 110,"Attachment:\主线0917.bmp",0.8,intX,intY)
        If intX>=0 and intY>=0 Then
            Goto 主线02
        End if
    Next
    Call 主线错误()
    Rem 主线02
    For 100
        KeyDownH 37,1
        Delay 100
        Call FindPic(737, 99, 745, 108,"Attachment:\主线0817.bmp",0.8,intX,intY)
        If intX>=0 and intY>=0 Then
            KeyUpH 37,1
            Delay 500
            Goto 主线03
        End if
    Next
    Call 主线错误()
    Rem 主线03
    For 20
        KeyPressH 32,1
        Delay 500
        IfColor 718,89,"80fce7",2 Then
            Goto 主线04
        End if
    Next
    Call 主线错误()
    Rem 主线04
    For 6
        KeyDownH 39,1
        Delay 500
        KeyPressH 32,1
        Delay 500
    Next
    For 100
        KeyDownH 39,1
        Delay 500
        KeyPressH 32,1
        Delay 1000
        Call FindPic(840, 91, 871, 102,"Attachment:\主线1911.bmp",0.8,intX,intY)
        If intX>=0 and intY>=0 Then
            Delay 600
            KeyUpH 39,1
            Delay 100
            KeyPressH 32,1
            Delay 500
            Goto 主线05
        End if
        Call FindColorEx(831, 189, 841, 205,"06DDF0",1,0.8,x9,y9)
        If x9>0 and y9>0 Then
        Else
            KeyUpH 39,1
            KeyUpH 37,1
            Call 四线错误()
        End if
    Next
    Call 持续报警()
    Rem 主线05
End Sub
Sub 主线错误()
    Call 是否在线()
    KeyUpH 37,1
    KeyUpH 39,1
    Delay 500
    For 50
        KeyDownH 37,1