End if
                Call FindPic(817, 146, 834, 164,"Attachment:\人物.bmp",0.8,intX,intY)
                If intX>=0 and intY>=0 Then
                    KeyUpH 37,1
                    KeyDownH 39,1
                    Delay 5000
                    KeyDownH 39,1
                End if
            Next
            Call 持续报警()
            Rem 六号出口10
            For 20
                KeyPressH 32,1
                Delay 500
                Call FindPic(840, 120, 865, 136,"Attachment:\人物.bmp",0.8,intX,intY)
                If intX>=0 and intY>=0 Then
                    Goto 六号出口11
                End if
            Next
        Next
        Call 持续报警()
        Rem 六号出口11
        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
    Next
    Call 持续报警()
End Sub
Sub 位置()
    //行脚馆入口处
    Call FindPic(782, 194, 830, 203,"Attachment:\行馆入口1.bmp",0.8,intX,intY)
    If intX>=0 and intY>=0 Then
        Goto 判断出口rem
    End if
    //行脚
    Call FindPic(705, 390, 731, 424,"Attachment:\行脚181002.bmp",0.8,intX,intY)
    If intX>=0 and intY>=0 Then
        Goto 行脚商行馆01
    End if
    Call FindPic(793, 90, 832, 101,"Attachment:\行脚0210.bmp",0.8,intX,intY)
    If intX>=0 and intY>=0 Then
        Goto 行脚商行馆
    End if
End Sub
Sub 答题()
    Call 自动答题()
    Call 题库收集()
    Delay 1000
End Sub
Sub 答题结果()
    Call FindPic(569, 314, 621, 339,"Attachment:\答错了.bmp",0.8,intX,intY)
    If intX>=0 and intY>=0 Then
        MoveTo 535,387
        Delay 500
        LeftClick 1
        Delay 1000
        MoveTo 824,258
        Delay 100
    End if
    Call FindPic(546, 310, 648, 354,"Attachment:\答对了.bmp",0.8,intX,intY)
    If intX>=0 and intY>=0 Then
        MoveTo 535,387
        Delay 500
        LeftClick 1
        Delay 1000
        MoveTo 824,258
        Delay 100
    End if
    Goto 行脚商行馆01
End Sub
Sub 是否在线()
    For 5
        MoveTo 807,227
        Delay 200
        Call FindPic(458,397,545,441,"Attachment:\营赛前门确定.bmp",0.8,intX,intY)
        If intX>=0 and intY>=0 Then
            MoveTo 501,417
            Delay 500
            LeftClickH 1
            Delay 6000
        End if
        Call FindPic(434,478,579,521,"Attachment:\login.bmp",0.8,intX,intY)
        If intX>=0 and intY>=0 Then
            Call 自动上号()
        End if
        Call FindPic(723,467,863,517,"Attachment:\进入游戏.bmp",0.8,intX,intY)