dm_ret = dm.FindStr(0,0,807,621,"买","08f448-000000",1.0,intX,intY)
            If intX >0 and intY>0 then//T点NPC
                Call 修正偏移(intX+5,intY+9)
                T出现购买=now
                Rem T出现购买
                FindPic 0,0,807,621,"C:\XYW\购买.bmp",0.9,intX,intY
                If intX >0 and intY>0 then//T出现购买
                    T出现要买的武器=now
                    Rem T出现要买的武器
                    FindPic 0,0,807,621,"C:\XYW\"& zhuangbei &".bmp",0.9,intX,intY
                    If intX >0 and intY>0 then//T出现要买的武器
                        Call 修正偏移(intX,intY+7)
                        Delay yc+ 100
                        Call 修正偏移(321,487)
                        Delay yc+ 100
                        t出现购买成功=now
                        Rem T出现购买成功
                        dm_ret = dm.FindStr(0,0,807,621,"购买","f8fcf8-000000",1.0,intX,intY)
                        If intX >0 and intY>0 then//T出现购买成功
                            call 修正偏移右键(271,487)
                            Delay yc+ 1000
                            Call 交任务    
                            Exit Sub           
                        Else //T出现购买成功
                            If DateDiff("s",T出现购买成功,now)>11  then
                                t出现购买成功=now
                                Goto T出现要买的武器
                            End If   
                            Delay yc+ 100
                            Goto T出现购买成功
                        End If//T出现购买成功
                    Else //T出现要买的武器
                        If  DateDiff("s",T出现要买的武器,now)>10 Then
                            T出现要买的武器=now
                        End If    
                        Delay yc+ 200
                        Goto T出现要买的武器            
                    End If//T出现要买的武器
                Else//T出现购买
                    If  DateDiff("s",T出现购买,now)>10 Then
                        T出现购买=now
                        goto T点NPC
                    End If 
                    Delay yc+ 200
                    Goto T出现购买
                End If  //T出现购买       
            Else //T点NPC
                If  DateDiff("s",T找NPC,now)>10 Then
                    T点NPC = now
                    Delay yc+ 200
                    goto 找武器店NPC 
                End If 
                Delay yc+ 200
                Goto T点NPC
            End If//T点NPC
        Else //找武器店NPC
            If DateDiff("s",T找NPC,now)>10 Then 
                T找NPC=now
                goto 接任务1 
            End If      
            Delay yc+ 1000
            goto 找武器店NPC 
        End if//找武器店NPC
   
 
    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
    Delay yc+ 500
    Call 识别地图
    If DITU="瑶池" Then //识别地图瑶池111111111111111111111111111111111
        call 瑶池去长安
    ElseIf DITU="长安" Then //识别地图长安22222222222222222222222222222222222222
        
        t找坐标仙子 =now
        rem 找坐标仙子
        Call 识别地图
        If x=511 and y=274 then//核对坐标511,274AAA
        Else //核对坐标511,274AAA
            Call 写坐标(511,274)
            Delay yc+ 200
            Goto 找坐标1仙子
        End if//核对坐标511,274AAA
   
        rem 找坐标1仙子
        
        Call 识别地图
        If x=511 and y=274 then//核对坐标511,274BBBB
        
            Call 修正偏移(184,97)