ElseIf ditu="轮回" then    
        //   MessageBox "死亡//没写"
        KeyPress "F10", 1
        Delay yc+ 6000 
    ElseIf ditu="济世堂" then  
        Call 修正偏移(514,455)
        Delay yc+ 2000 
    ElseIf ditu="长安武器店" then  
        Call 修正偏移(391,388)
        Delay yc+ 2000 
    ElseIf ditu="张记布庄" then  
        Call 修正偏移(749,380)
        Delay yc+ 2000 
    Else //识别地图//未知地图
        KeyPress "F10", 1
        Delay yc+ 6000 
    End if//识别地图 
    goto  接任务1
End Sub




//////////////////////////////////////0.2长安起点
Sub 长安去瑶池()
    Call 识别地图

    If ditu="长安"//地图等于长安
        Call 去东市
        Rem 走到点
        Call 识别地图
        If x=485 and y=278 then//核对坐标485,278BBBB
            Call 修正偏移(593,435) 
            Delay yc+ 200
            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 写坐标(485,278)
            Delay yc+ 4200
            Goto 走到点
        End if//核对坐标480,275AAA
    Else//地图等于长安  
    End If//地图等于长安
End Sub
Sub 长安去阳关()
    Call 识别地图

    If ditu="长安"//地图等于长安
    
        if Sqr(abs(x-256)*abs(x-256)+abs(y-22)*abs(y-22))<Sqr(abs(x-480)*abs(x-480)+abs(y-275)*abs(y-275))
            ///////查找离那个近
            Rem 到长安客栈去
            Call 识别地图
            If x=256 and y=22 then//核对坐标256,22AAA
                Goto 到长安客栈
            Else //核对坐标256,22AAA
                Call 写坐标(256,22)
                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=256 and y=22 then//核对坐标256,22AAA
                    Call 修正偏移(265,160)