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, n - 3, h + 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
    Call 回家族寻路
End Sub
Sub 锁怪打怪
    Rem 锁怪
    While i=0
        dm_ret = dm.FindStr(257 , 241, 463 , 348, "完成", "000000-000000", 1, x, y)
        If x > 0 and y > 0 Then 
            i = i + 1
            Call 检查任务
        End If
        KeyPress "Tab", 1
        Delay 700
        Call 血蓝组队
        Call 打开列表任务
        dm_ret = dm.FindStr(318 , 36, 541 , 117, "异化轩辕女|异化轩辕男|异化轩辕将领|榆桑驯龙师|榆桑骨巫|白骨童子|青擎火|鬼火守卫|榆桑鬼巫|山鬼|黑石魔兵|榆桑女亡军", "fed900-000000", 1, x, y)
        If x > 0 and y > 0 Then 
            i=i+1
        End If
        dm_ret = dm.FindStr(318 , 36, 541 , 117, "异化轩辕女|异化轩辕男|异化轩辕将领|榆桑驯龙师|榆桑骨巫|白骨童子|青擎火|鬼火守卫|榆桑鬼巫|山鬼|黑石魔兵|榆桑女亡军", "fd4100-000000", 1, x, y)
        If x > 0 and y > 0 Then 
            i=i+1
        End If
        FindPic 313,38,398,116,"Attachment:\X怪.bmp",0.8,intX,intY
        If intX > 0 And intY > 0 Then
            i=i+1
        End If
    Wend
    Call 打怪
    Call 关闭任务列表
    Call 捡东西
    Goto 锁怪
End Sub
Sub 打怪
    IfColor 510, 56, "FFFFFF", 0 Then
        For 3
            KeyPress "1", 1
            Delay 500
        Next
    End If
    IfColor 510, 56, "FFFFFF", 0 Then
        For 3
            KeyPress "2", 1
            Delay 500
        Next
    Else 
        Goto 怪打完
    End If
    IfColor 510, 56, "FFFFFF", 0 Then
        For 3
            KeyPress "3", 1
            Delay 500
        Next
    Else 
        Goto 怪打完
    End If
    Rem 怪打完
End Sub
Sub 回家族寻路
    Rem 回家族
    Call 血蓝组队
    dm_ret = dm.FindStr(877 , 23, 985 , 46, "家族", "ffffff-000000", 1, j, z)
    If j > 0 and z > 0 Then 
        Call 关闭任务列表
        Call 打开地图
        Call Plugin.Bkgnd.LeftClick(qq, 776-3,175-22)