Call Plugin.Bkgnd.LeftDoubleClick(qq, x-3, y-22)
            End  If
            Delay 9000
            Goto 冥地
        End If
    End If
    dm_ret = dm.FindStr(23,41, 48,65, "等级91", "f9cb2b-000000", 1, jyx, jyy)
    If jyx > 0 and jyy > 0 Then 
        dm_ret = dm.FindStr(878,23, 972,51, "黄泉路", "ffffff-000000", 1, h, q)
        If h > 0 and q > 0 Then 
            Call Plugin.Msg.Tips("黄泉路")
        Else 
            KeyPress "F9", 1
            Delay 500
            Call Plugin.Bkgnd.LeftDoubleClick(qq, 515-3, 352-22)
            Delay 500
            dm_ret = dm.FindStr(340,209, 653,594, "黄泉路", "ffffff-000000", 1, x, y)
            If x > 0 and y > 0 Then 
                Call Plugin.Bkgnd.LeftDoubleClick(qq, x-3, y-22)
            End  If
            Delay 9000
            Goto 冥地
        End If
    End If
End Sub
Sub 识别任务
    Call 打开列表任务
    Call 下拉任务列表
    dm_ret = dm.FindStr(16 , 131, 229, 546,"收集木材", "000000-000000",1, x, y)
    If x > 0 and y > 0 Then 
        Delay 500
        Call Plugin.Bkgnd.LeftClick(qq, x - 3, y + 5 - 22)
        Delay 1000
        dm_ret = dm.FindStr(257 , 241, 463 , 348, "完成", "000000-000000", 1, x, y)
        If x > 0 and y > 0 Then 
        Else 
            Goto 有任务
        End If
    End If
    dm_ret = dm.FindStr(16 , 131, 229, 546,"收集石料", "000000-000000",1, x, y)
    If x > 0 and y > 0 Then 
        Delay 500
        Call Plugin.Bkgnd.LeftClick(qq, x - 3, y + 5 - 22)
        Delay 1000
        dm_ret = dm.FindStr(257 , 241, 463 , 348, "完成", "000000-000000", 1, x, y)
        If x > 0 and y > 0 Then 
        Else 
            Goto 有任务
        End If
    End If
    dm_ret = dm.FindStr(16 , 131, 229, 546,"收集泥灰", "000000-000000",1, x, y)
    If x > 0 and y > 0 Then 
        Delay 500
        Call Plugin.Bkgnd.LeftClick(qq, x - 3, y + 5 - 22)
        Delay 1000
        dm_ret = dm.FindStr(257 , 241, 463 , 348, "完成", "000000-000000", 1, x, y)
        If x > 0 and y > 0 Then 
        Else 
            Goto 有任务
        End If
    Else 
        Call 回家族寻路
    End If
    Rem 有任务
End Sub
Sub 检查任务
    Call 打开列表任务
    Call 下拉任务列表
    dm_ret = dm.FindStr(16 , 131, 229, 546,"收集木材", "000000-000000",1, x, y)
    If x > 0 and y > 0 Then 
        Delay 500
        Call Plugin.Bkgnd.LeftClick(qq, m - 3, c + 5 - 22)
        Delay 1000
        dm_ret = dm.FindStr(257 , 241, 463 , 348, "完成", "000000-000000", 1, x, y)
        If x > 0 and y > 0 Then 
        Else 
            Call Plugin.Bkgnd.LeftDoubleClick(qq, 325-3, 267-22)
            Delay 500
            Call Plugin.Bkgnd.LeftDoubleClick(qq, 325-3, 267-22)
            Rem 木材锁怪
            KeyPress "Tab", 1
            Delay 200
            dm_ret = dm.FindStr(318 , 36, 541 , 117, "榆桑驯龙师|鬼火守卫|异化轩辕女|山鬼", "fed900-000000", 1, x, y)
            If x > 0 and y > 0 Then 
                Delay 2000
                Call 锁怪打怪
            Else 
                Goto 木材锁怪
            End If
        End If
    End If
    dm_ret = dm.FindStr(16 , 131, 229, 546,"收集石料", "000000-000000",1, x, y)
    If x > 0 and y > 0 Then
        Call Plugin.Bkgnd.LeftClick(qq, s - 3, l + 5 - 22)
        Delay 1000
        dm_ret = dm.FindStr(257 , 241, 463 , 348, "完成", "000000-000000", 1, x, y)
        If x > 0 and y > 0 Then 
        Else 
            Call Plugin.Bkgnd.LeftDoubleClick(qq, 325-3, 267-22)
            Delay 500