Goto 第一楼去东市
                End If //进入长安东市
            Else //第一楼
                Call 写坐标(110,232)
                Delay 4000
                Goto 第一楼 
            End if//第一楼

        ElseIf M=Round(kezhan) THEN//等于客栈 
            Rem 客栈
            Call 识别地图
            If x=256 and y=22 then//客栈
                Call 修正偏移(242,160)
                Delay 300
                T客栈去东市=NOW
                Rem 客栈去东市
                dm_ret = dm.FindStr(0,0,800,627,"安东","08f448-000000",1.0,intX,intY)
                If intX > 0 And intY > 0 Then//进入长安东市
                    Call 修正偏移(intX,intY +9)
                    Delay yc+ 3000
                Else //进入长安东市
                    If DateDiff("s",T客栈去东市,now)>11  Then 
                        T客栈去东市=now
                        Goto 客栈
                    End if 
                    Delay 200
                    Goto 客栈去东市
                End If //进入长安东市
            Else //客栈
                Call 写坐标(256,22)
                Delay 4000
                Goto 客栈 
            End if//客栈



        End If//////////////等于

    End If//ditu等于长安
End Sub
 
Sub 傲来去瑶池()
    Call 识别地图

    If ditu="傲来"//地图等于长安
        Rem 走到点
        Call 识别地图
        //        If x=151 and y=146 then//核对坐标480,275AAA
        //            Call 修正偏移(96,458)
        // 
        If x=145 and y=152 then//核对坐标145,152BBBB
        
            Call 修正偏移(207,331)            
            T进入瑶池=now
            Rem 进入瑶池
            dm_ret = dm.FindStr(0,0,800,627,"瑶池","08f448-000000",1.0,intX,intY)
            If intX > 0 And intY > 0 Then//进入长安
                Call 修正偏移(intX,intY +9)
                Delay yc+ 3000
            Else//进入长安
                If DateDiff("s",T进入瑶池,now)>11  Then 
                    T进入瑶池=now
                    Goto 走到点
                End if  
                Delay yc+ 200
                Goto 进入瑶池
            End If //进入长安  
        Else //核对坐标480,275AAA
            Call 写坐标(145,152)
            call 逃跑
            Delay yc+ 4200
            Goto 走到点
        End if//核对坐标480,275AAA
    Else//地图等于长安  
    End If//地图等于长安
End Sub

///////////////////////////
Sub 傲来去长安()

    Call 识别地图

    If ditu="傲来"//地图等于长安
        Rem 走到点
        Call 识别地图
        //        If x=151 and y=146 then//核对坐标480,275AAA
        //            Call 修正偏移(96,458)
        If x=145 and y=152 then//核对坐标145,152BBBB
        
            Call 修正偏移(207,331)           
            T进入长安=now
            Rem 进入长安
            dm_ret = dm.FindStr(0,0,800,627,"长安","08f448-000000",1.0,intX,intY)
            If intX > 0 And intY > 0 Then//进入长安
                Call 修正偏移(intX,intY +9)
                Delay yc+ 3000
            Else//进入长安
                If DateDiff("s",T进入长安,now)>11  Then 
                    T进入长安=now
                    Goto 走到点