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