EndFor 
    KeyUpH 38,1
    KeyPressH 32,1
    Delay 1000
    Gosub 三号错误
    Rem 三号出口07
    For 300
        KeyDownH 39,1
        Delay 100
        VBSCall Call FindPic(864, 93, 874, 106,"Attachment:\人物.bmp",0.8,intX,intY)
        If intX>=0 and intY>=0
            KeyUpH 39,1
            Delay 500
            Goto 三号出口08
        EndIf 
    EndFor 
    Gosub 三号错误
    Rem 三号出口08
    For 20
        KeyDownH 40,1
        Delay 1000
        KeyPressH 32,1
        Delay 500
        VBSCall Call FindPic(865, 123, 875, 135,"Attachment:\人物.bmp",0.8,intX,intY)
        If intX>=0 and intY>=0
            Delay 500
            KeyUpH 40,1
            Goto 三号出口09
        EndIf 
    EndFor 
    KeyUpH 40,1
    KeyPressH 32,1
    Delay 1000
    Gosub 三号错误
    Rem 三号出口09
    For 100
        KeyDownH 39,1
        Delay 100
        VBSCall Call FindPic(870, 123, 878, 135,"Attachment:\人物.bmp",0.8,intX,intY)
        If intX>=0 and intY>=0
            KeyUpH 39,1
            Delay 500
            Goto 三号出口10
        EndIf 
    EndFor 
    Gosub 三号错误
    Rem 三号出口10
    For 20
        KeyDownH 40,1
        Delay 1000
        KeyPressH 32,1
        Delay 1000
        VBSCall Call FindPic(872, 94, 881, 103,"Attachment:\三号3707.bmp",0.8,intX,intY)
        If intX>=0 and intY>=0
            KeyUpH 40,1
            Goto 三号出口11
        EndIf 
    EndFor 
    KeyUpH 40,1
    KeyPressH 32,1
    Delay 1000
    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
    Gosub 三号错误
Return 三号出口
Sub 三号错误
    Gosub 是否在线
    KeyUpH 37,1
    KeyUpH 39,1
    Delay 500
    For 100
        KeyDownH 39,1
        Delay 500
        /////33.21
        VBSCall Call FindPic(808, 145, 822, 163,"Attachment:\人物.bmp",0.8,intX,intY)
        If intX>=0 and intY>=0
            KeyUpH 39,1
            Goto 三号错误01
        EndIf 
        VBSCall Call FindPic(858, 122, 873, 137,"Attachment:\人物.bmp",0.8,intX,intY)
        If intX>=0 and intY>=0
            KeyUpH 39,1
            Goto 三号错误01