Call 初始化
qq = Plugin.Window.MousePoint()
Call Plugin.Window.Move(qq, 0, 0)
yanzheng = 0
UserVar hxsj=DropList{"刷建材":0|"刷兔子":1|"刷木桩"|"自动喊话":3|"鼠标右键单击":4}=0 "刷建材 刷怪"
UserVar hanhua="" "hxsj自动喊话"
If hxsj = 0 Then 
    Call 刷建材
ElseIf hxsj = 1 Then
    Call 兔子
ElseIf hxsj = 2 Then
    Call 木桩
ElseIf hxsj = 3 Then
    Call 自动喊话
ElseIf hxsj = 4 Then
    Call 鼠标单击
End If
Sub 刷建材
    Call 关掉垃圾
    Call 识别等级
End Sub
//--刷建材
Sub 关掉垃圾
    Call Esc
    Call 关闭任务追踪栏
    Call 收起聊天栏
    Call 验证码
    Call 血蓝组队
End Sub
Sub 识别等级
    Rem 等级
    dm_ret = dm.FindStr(23,41, 48,65, "等级75", "f9cb2b-000000", 1, jsx, jsy)
    If jsx > 0 and jsy > 0 Then 
        Call 识别任务
        Call 南荒
        Delay 500
        Call 血蓝组队
        Call 查看任务
    End If
    dm_ret = dm.FindStr(23,41, 48,65, "等级90|等级91|等级76", "f9cb2b-000000", 1, jsx, jsy)
    If jsx > 0 and jsy > 0 Then 
        Call 识别任务
        Call 冥地
        Delay 500
        Call 血蓝组队
        Call 检查任务
    Else 
        Goto 等级
    End If
End Sub
Sub 南荒
    Rem 南荒轩辕国
    dm_ret = dm.FindStr(878,23, 972,51, "轩辕国", "ffffff-000000", 1, x, y)
    If x > 0 and y > 0 Then 
        Call Plugin.Msg.Tips("轩辕国")
    Else 
        KeyPress "F9", 1
        Delay 500
        Call Plugin.Bkgnd.LeftDoubleClick(qq, 515-3, 338-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 Sub
Sub 冥地
    Rem 冥地
    dm_ret = dm.FindStr(23,41, 48,65, "等级76", "f9cb2b-000000", 1, jsx, jsy)
    If jsx > 0 and jsy > 0 Then 
        dm_ret = dm.FindStr(878,23, 972,51, "冥山", "ffffff-000000", 1, x, y)
        If x > 0 and y > 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
    dm_ret = dm.FindStr(23,41, 48,65, "等级90", "f9cb2b-000000", 1, jsx, jsy)
    If jsx > 0 and jsy > 0 Then 
        dm_ret = dm.FindStr(340,209, 653,594, "断魂谷", "ffffff-000000", 1, x, y)
        If x > 0 and y > 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