t找坐标=now 
                Call 写坐标(23,82) 
                Goto 接任务1
            End if  
            Delay yc+ 200
            Goto 找坐标1
        End if//核对坐标23,82bbbbbbbbbbbbbbbbbbb
   
   
   
   
    ElseIf DITU="长安" Then //识别地图长安222222222222222222222222222222222
        Call 长安去瑶池 
    ElseIf DITU="傲来" Then //识别地图傲来333333333333333333333333

        Call 傲来去瑶池 
    ElseIf DITU="大唐东" Then //识别地图大唐东444444444444444444444444
        Call 大唐东去长安
    ElseIf DITU="大唐南" Then //识别地图大唐南5555555555555555555555555

        Call 大唐南去长安 
   
    ElseIf DITU="阳关" Then //识别地图阳关66666666666666666666666666666666
        Call 阳关去长安 
    ElseIf ditu="轮回" then    
        //   MessageBox "死亡//没写"
        KeyPress "F10", 1
        Delay yc+ 6000 
    ElseIf ditu="济世堂" then  
        Call 修正偏移(514,455)
        Delay yc+ 1000 
    ElseIf ditu="长安武器店" then  
        Call 修正偏移(391,388)
        Delay yc+ 1000 
    ElseIf ditu="张记布庄" then  
        Call 修正偏移(749,380)
        Delay yc+ 1000 
    Else //识别地图//未知地图
        KeyPress "F10", 1
        Delay yc+ 6000 
    End if//识别地图
    goto 接任务1
End Sub
//交任务
Sub 交任务()
    Rem 接任务1
    Call 对话和2
    Delay yc+ 500
    Call 识别地图
    If DITU="瑶池" Then //识别地图瑶池111111111111111111111111111111111
 
   
        t找坐标 =now
        rem 找坐标
        Call 识别地图
        If x=23 and y=82 then//核对坐标23,82
        Else //核对坐标23,82
            Call 写坐标(23,82)
            Delay yc+ 200
            Goto 找坐标1
        End if//核对坐标23,82
        rem 找坐标1
        Call 识别地图
        If x=23 and y=82 then//核对坐标23,82
        
            rem 找王母
            FindPic 0,0,807,621,"C:\XYW\s瑶池.bmp",0.9,intX,intY
            If intX > 0 And intY > 0 Then//找王母
                call 修正偏移(intX + 95,intY)
                Delay yc+ 200
                t点王母 =now
                Rem 点王母
      
                dm_ret = dm.FindStr(0,0,807,621,"师门","08f448-000000",1.0,intX,intY)
                If intX > 0 And intY > 0 Then//点王母
                    call 修正偏移(intX + 20,intY +9)
                    Delay yc+ 200
                    dm_ret = dm.FindStr(0,0,807,621,"师门","08f448-000000",1.0,intX,intY)
                    If intX > 0 And intY > 0 Then//点王母
                        call 修正偏移(intX + 20,intY +9)
                    End If  
            
                    T点王母几时=now
                    Delay yc+ 200
                    If s ="采集" or s="杀敌" or s=" 护送"then ///任务不同交法
                        Call 对话和2
                        Call 识别任务
                        Exit sub
                    
                    ElseIf  s="药需求" then ///任务不同交法     
                        FindPic 0,0,807,621,"C:\XYW\"& yao &".bmp",0.9,intX,intY
                        If intX > 0 And intY > 0 Then//找回生2 
                            rem 找回生2      
                            Call 修正偏移(404,267)
                            Delay yc+ 500
                            Call 对话和2
                            Call 识别任务
                            Exit sub                 
                        Else //找回生2
                            If DateDiff("s",T点王母几时,now)>11 Then