End If //进入长安第一楼 
        Else//核对坐标480,275AAA   
        End if//核对坐标480,275AAA 
       
      
    Else//地图等于长安  
    End If//地图等于长安


End Sub
Sub 长安去大唐东()

    Call 识别地图

    If ditu="长安"//地图等于长安
        Rem 走到点
        Call 识别地图
        If x=517 and y=295 then//核对坐标480,275AAA 
            Call 修正偏移(571,525)
            Delay yc+3000 
        Else //核对坐标480,275AAA
            Call 写坐标(517,295)
            Delay yc+4200
            Goto 走到点
        End if//核对坐标480,275AAA
    Else//地图等于长安  
    End If//地图等于长安

End Sub
Sub 长安去傲来()
    Call 识别地图

    If ditu="长安"//地图等于长安
        Rem 走到点
        Call 识别地图
        If x=480 and y=275 then//核对坐标480,275AAA
            Call 修正偏移(663,235)
           
            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)>7 Then 
                    T进入傲来=now
                    Goto 走到点
                End if  
                Delay yc+ 200
                Goto 进入傲来
            End If //进入傲来  
        Else //核对坐标480,275AAA
            Call 写坐标(480,275)
            Delay yc+ 4200
            Goto 走到点
        End if//核对坐标480,275AAA
    Else//地图等于长安  
    End If//地图等于长安
End Sub

//////////////////////////////////////0.2长安起点
Sub 去东市()
    Call 识别地图
    If ditu="长安"//ditu等于长安
        diyilou=Sqr(abs(x-59)*abs(x-59)+abs(y-270)*abs(y-270))//去第一楼
        dongshi=Sqr(abs(x-480)*abs(x-480)+abs(y-275)*abs(y-275))//去东市
        kezhan=Sqr(abs(x-256)*abs(x-256)+abs(y-22)*abs(y-22))//去客栈
        m=Plugin.hauilang.min(Round(diyilou),Round(dongshi),Round(kezhan))
        //m = Plugin.hauilang.min(1,5,8)
        If M=Round(dongshi) THEN//等于东市

            Rem 东市
            Call 识别地图
            If x=485 and y=278 then//东市
            Else //东市
                Call 写坐标(485,278)
                Delay 4000
                Goto 东市 
            End if//东市

        ElseIf M=Round(diyilou) THEN//等于第一楼

            Rem 第一楼
            Call 识别地图
            If x=110 and y=232 then//第一楼
                Call 修正偏移(441,155)
                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