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=47 and y=17 then//核对坐标480,275AAA
            Call 修正偏移(300,124)
            Delay yc+ 3000
           

        Else //核对坐标480,275AAA
            //            
            Call 写坐标(47,17)
            call 逃跑
            Delay yc+ 4200
            Goto 走到点
        End if//核对坐标480,275AAA
    Else//地图等于大唐东
    End If//地图等于大唐东
End Sub
Sub 大唐南去长安()


    Call 识别地图

    If ditu="大唐南"//地图等于大唐东
        Rem 走到点
        Call 识别地图
        If x=69 and y=16 then//核对坐标69,16 BBBB
            Call 修正偏移(480,204)
            Delay yc+ 3000
           

        Else //核对坐标480,275AAA
            //            
            Call 写坐标(69,16)
            call 逃跑
            Delay yc+ 4200
            Goto 走到点
        End if//核对坐标480,275AAA
    Else//地图等于大唐东
    End If//地图等于大唐东            
            
End Sub
Sub 阳关去长安()
    Rem 阳关去长安 
    Call 识别地图 
    If ditu="阳关"//地图等于大唐东
    
        if Sqr(abs(x-234)*abs(x-234)+abs(y-144)*abs(y-144))<Sqr(abs(x-304)*abs(x-304)+abs(y-222)*abs(y-222))
            ///////查找离那个近
            Rem 到长安第一楼去
            Call 识别地图
            If x=234 and y=144 then//核对坐标256,22AAA
                Call 修正偏移(579,226)
                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 //核对坐标256,22AAA
                Call 写坐标(234,144)
                Delay yc+ 4000   
                Goto 到长安第一楼去
            End if//核对坐标256,22AAA

        Else///////查找离那个近
        
            rem 走到点
            Call 识别地图
            If x=304 and y=222 then//核对坐标304,222 BBBB 
                Call 修正偏移(667,427) 
                Delay yc+ 3000
            Else //核对坐标480,275AAA