VBSCall Call FindPic(775, 167, 845, 193,"Attachment:\罗城1208.bmp",0.8,intX,intY)
    If intX>=0 and intY>=0
        Goto 开始rem
    EndIf 
EndFor 
Rem 行脚商行馆02
EndScript 
Sub 主书丞进行脚
    MoveTo 824,258
    Delay 100
    For 40
        KeyPressH 71,1
        Delay 500
        VBSCall Call FindPic(465,431,506,455,"Attachment:\书丞对话.bmp",0.8,intX,intY)
        If intX>=0 and intY>=0
            MoveTo 492,497
            Delay 500
            LeftClick 1
            Delay 1000
            MoveTo 824,258
            Delay 100
        EndIf 
        VBSCall Call FindPic(494, 137, 508, 151,"Attachment:\书丞对话02.bmp",0.8,intX,intY)
        If intX>=0 and intY>=0
            MoveTo 423,269
            Delay 500
            LeftClick 1
            Delay 1000
            MoveTo 824,258
            Delay 100
        EndIf 
        VBSCall Call FindPic(441,432,534, 456,"Attachment:\书丞对话03.bmp",0.8,intX,intY)
        If intX>=0 and intY>=0
            MoveTo 545,440
            Delay 500
            LeftClick 1
            Delay 1000
            MoveTo 824,258
            Delay 100
        EndIf 
        VBSCall Call FindPic(708, 141, 721, 163,"Attachment:\行馆入口.bmp",0.8,intX,intY)
        If intX>=0 and intY>=0
            Delay 200
            Goto 主书丞进行脚01
        EndIf 
    EndFor 
    Rem 主书丞进行脚01
Return 主书丞进行脚
Sub 判断出口
    ///////树有空间5
    VBSCall Call FindColorEx(217, 254,227, 271,"442222",1,0.8,x9,y9)
    If x9>0 and y9>0
    Else 
        VBS k=5
        Goto 判断出口结束
    EndIf 
    ///////磨姑中间146 贴地为6  压到红线为4
    VBSCall Call FindColorEx(609, 283, 617, 296,"192119",1,0.8,x9,y9)
    If x9>0 and y9>0
        VBSCall Call FindColorEx(853, 128, 868, 133,"E3D391",1,0.8,x9,y9)
        If x9>0 and y9>0
            VBS k=6
        Else 
            Gosub 打开M
            IfColor 488,536,18188c,2
                VBS k=1
            Else 
                VBS k=4
            EndIf 
            Gosub 关掉M
        EndIf 
    EndIf 
    ///////磨姑边上23  贴地为2 反之为3
    VBSCall Call FindColorEx(708, 355, 722, 377,"5b4565",1,0.8,x9,y9)
    If x9>0 and y9>0
        Gosub 打开M
        IfColor 472,540,fff9bf,2
            VBS k=2
        Else 
            VBS k=3
        EndIf 
        Gosub 关掉M
    EndIf 
    Rem 判断出口结束
Return 判断出口
Sub 打开M
    For 20
        KeyPressH 77,1
        Delay 500
        VBSCall Call FindPic(805, 616, 878, 643,"Attachment:\国家地图.bmp",0.8,intX,intY)
        If intX>=0 and intY>=0
            Goto 打开M01
        EndIf 
    EndFor 
    Gosub 持续报警
    Rem 打开M01
Return 打开M
Sub 关掉M
    For 20
        KeyPressH 77,1