Delay yc+ 500
                    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 
                            阳关=now
                            Goto 阳关
                        End if                       
                        Delay yc+ 200
                        Goto 阳关
                    end if //进入阳关 
                Else//核对坐标256,22AAA
                    If DateDiff("s",T到长安客栈,now)>11  Then 
                        到长安客栈=now
                        Goto 长安客栈
                    End if 
                    Delay yc+ 200
                    Goto 到长安客栈
                End if//核对坐标256,22AAA
            Else//进入长安客栈
                If DateDiff("s",T长安客栈,now)>11  Then 
                    长安客栈=now
                    Goto 走到点
                End if  
                Delay yc+ 200
                Goto 长安客栈
            End If //进入长安客栈   
        Else//核对坐标480,275AAA   
        End if//核对坐标480,275AAA 
      
    Else//地图等于长安  
    End If//地图等于长安

End Sub
Sub 长安去大唐南()
    //        If x=59 and y=270 then//核对坐标68,265AAA
    //            Call 修正偏移(305,356)
    Call 识别地图

    If ditu="长安"//地图等于长安
        if Sqr(abs(x-59)*abs(x-59)+abs(y-270)*abs(y-270))<Sqr(abs(x-480)*abs(x-480)+abs(y-275)*abs(y-275))
            ///////查找离那个近
            Rem 到长安第一楼去
            Call 识别地图
            If x=59 and y=270 then//核对坐标256,22AAA
                Call 修正偏移(305,356)
                Delay yc+ 3000
            Else //核对坐标256,22AAA
                Call 写坐标(59,270)
                Delay yc+ 4000   
                Goto 到长安第一楼去
            End if//核对坐标256,22AAA

        Else///////查找离那个近
            Rem 到长安东市去
            Call 识别地图
            If x=480 and y=275 then//核对坐标256,22AAA
                Goto 走到点
            Else //核对坐标256,22AAA
                Call 写坐标(480,275)
                Delay yc+ 4000  
                Goto 到长安东市去
            End if//核对坐标256,22AAA
        End If///////查找离那个近  
    
        Rem 走到点
        If x=480 and y=275 then//核对坐标480,275AAA
            Call 修正偏移(663,235)
            Delay yc+ 500 
            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
                t到长安第一楼=now
                Rem 到长安第一楼
                Call 识别地图
                If x=110 and y=232 then//核对坐标256,22AAA
                    Rem 去长安
                    goto 到长安第一楼去 
                Else 
                    If DateDiff("s",t到长安第一楼,now)>11  Then 
                        t到长安第一楼=now
                        Goto 长安第一楼
                    End if               
                    Delay yc+ 200
                    Goto到长安第一楼 
                End If//核对坐标256,22AAA  
            Else//进入长安第一楼
                If DateDiff("s",T长安第一楼,now)>11  Then 
                    长安第一楼=now
                    Goto 走到点
                End if  
                Delay yc+ 200
                Goto 长安第一楼