Call 识别任务
                Exit sub
            End if
            Delay yc+ 200
            Goto 采集2
        End if //在次查找篮子
 

 
    End if//查找采集任务完成
End Sub

//送信
Sub 送信()
 
    
    t找坐标 =now
    rem 找坐标
    Call 识别地图
    call 关闭任务
    Call 瑶池去长安
    t点黄字 =now
    rem 点黄字
   
    dm_ret = dm.FindStr(0,0,807,621,"送信","08f448-000000",0.9,intX,intY)
    If intX>0 and intY > 0 then// 
        Goto 和NPC对话
    End If
    Call  打开任务
    Delay yc+ 200
    s = dm.Ocr(255,234,544,334,"f8fc00-000000",0.9)
    dm_ret = dm.FindStr(255,234,544,334,s,"f8fc00-000000",0.9,intX,intY)
    If intX>0 and intY>0 then//点黄字22222222222222
        Delay yc+ 200
        call 修正偏移(intX+5,intY +8)
            
        dm_ret = dm.FindStr(179,335,379,378,"长安","08f448-000000",0.9,intX,intY)
        If intX>0 and intY>0 then//点长安
            Call 修正偏移(intX+5,intY+7)
        End If //点长安
            

        t和NPC对话=now
     
        Rem 和NPC对话
        Call 关闭任务
        dm_ret = dm.FindStr(0,0,807,621,"送信","08f448-000000",0.9,intX,intY)
        If intX>0 and intY > 0 then//和NPC对话33333333333333333
            Delay yc+ 100
            call 修正偏移(intX+5,intY+9)
            Delay yc+ 1000
            Call 接任务
        Else //和NPC 对话33333333333333333333333333333
            If DateDiff("s",t和NPC对话,now)>11  Then 
                t和NPC对话=now 
                dm_ret = dm.FindStr(0,0,807,621,"送信","08f448-000000",0.9,intX,intY)
                If intX>0 and intY > 0 then
                Else 
                    Delay 200
                    Goto  点黄字
                End if
            End if 
            Delay yc+ 200
            Goto 和NPC对话
        End if //和NPC 对话3333333333333333333333
        
    Else//点黄字 222222222222222222 
        If DateDiff("s",t点黄字,now)>7  Then 
            t点黄字 =now 
            Call  识别任务
        End if 
        Delay yc+ 200
        Goto 点黄字 
    End if//点黄字222222222222222222




End Sub
//护送
Sub 护送() 
    t找坐标 =now
    rem 找坐标
    Call 识别地图
    call 关闭任务
    Call 瑶池去长安   
    t去找小=now
    Rem 去找小
    dm_ret = dm.FindStr(172,333,474,414,"1","08f448-000000",0.9,intX,intY)
    If intX>0 and intY>0 then//点1
        Goto 点1
    End if
    call 打开任务

    dm_ret = dm.FindStr(0,0,807,621,"50","f80000-000000",0.9,intX,intY)
    If intX>0 and intY>0 then//去找小22222222222222222222222222222222222222222
        Call 修正偏移(intX,intY+7) 
        Delay 5000  
        T查看坐标=now
        Rem 查看坐标