Delay yc+ 5000
            Call 识别地图

        
            t点传送=now
            Rem 点传送
            If ditu="济世堂"  Then//进入游戏
                Delay yc+ 2000
                goto 接任务1
            Else  //进入游戏
                If DateDiff("s",t点传送,now)>11 Then
                    t点传送=now 
                    goto 找坐标仙子
                End If 
                Delay yc+ 200
                goto 点传送   
            End if//进入游戏
        
        Else //核对坐标485,278BBBB
            If DateDiff("s",t找坐标仙子,now)>11  Then 
                t找坐标仙子=now
                Call 写坐标(511,274)
                Goto 找坐标1仙子
            End if  
            Delay yc+ 200
            Goto 找坐标1仙子
        End if//核对坐标511,274BBBB
   




    ElseIf DITU="傲来" Then //识别地图傲来33333333333333333333333333333333333333
        call 瑶池去长安
    ElseIf DITU="大唐东" Then //识别地图大唐东44444444444444444444444444444
        call 瑶池去长安
    ElseIf DITU="大唐南" Then //识别地图大唐南55555555555555555555555555
        call 大唐南去长安
    ElseIf DITU="阳关" Then //识别地图阳关、阳关66666666666666666666666666666
        call 阳关去长安
    ElseIf ditu="济世堂" then 
        T济世堂1 =now
        Rem 济世堂1
        FindPic 0,0,807,621,"C:\XYW\n药店.bmp",0.9,intX,intY
        If intX > 0 And intY > 0 Then//找药店老板
            Call 修正偏移(intX+35,intY-20)
            t点NPC=now
            Rem t点NPC
            dm_ret = dm.FindStr(0,0,807,621,"买","08f448-000000",1.0,intX,intY)
            If intX > 0 And intY > 0 Then//找药店老板。点1
                Call 修正偏移(intX+10,intY+9)
                T出现购买=now
                Delay yc+ 200
                Rem 等待出现购买
                FindPic 0,0,807,621,"C:\XYW\购买.bmp",0.9,intX,intY
                If intX > 0 And intY > 0 Then//         出现购买
         
                    T出现需要的药=now
                    Rem 出现需要的药
                    FindPic 0,0,807,621,"C:\XYW\"& yao &".bmp",0.9,intX,intY
                    If intX > 0 And intY > 0 Then//出现需要的药
                        Call 修正偏移(intX+10,intY+5)
                        Delay yc+ 200
               
                        Call 修正偏移(321,487)
                        t出现购买成功=now
                        Rem 出现购买成功
                        dm_ret = dm.FindStr(0,0,807,621,"购买","f8fcf8-000000",1.0,intX,intY)
                        If intX > 0 And intY > 0 Then//出现购买成功
                            call 修正偏移右键(271,487)
                            Delay yc+ 200
                            Call 交任务
                            Exit sub

                        Else //出现购买成功
                            If DateDiff("s",t出现购买成功,now)>16  then
                                t出现购买成功 =now
                                Goto 出现需要的药
                            End If
                            Delay yc+ 200
                            Goto 出现购买成功
                        End If//出现购买成功
                    Else//出现需要的药
                        If DateDiff("s",T出现需要的药,now)>11  then
                            T出现需要的药 =now
                            Call 识别任务
                            Exit sub
                            //                            MessageBox "没有可以买到的药！！！！！！！！"
                        End If 
                        Delay yc+ 200
                        Goto 出现需要的药
                    End If //出现需要的药
                Else //         出现购买
         
                    If DateDiff("s",T出现购买,now)>11  then
                        T出现购买 =now
                        goto t点NPC
                    End If
                    Delay yc+ 200
                    Goto 等待出现购买