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