1. 调用 初始化
2. 令 qq = Window.MousePoint()
3. 调用 Window.Move(qq,0,0)
4. 令 yanzheng = 0
5. 用户定义变量 hxsj=DropList{"刷建材":0|"刷兔子":1|"刷木桩"|"自动喊话":3|"鼠标右键单击":4}=0 "刷建材 刷怪"
6. 用户定义变量 hanhua="" "hxsj自动喊话"
7. 如果 hxsj = 0 则
8.     调用 刷建材
9. 否则如果 hxsj = 1 则
10.     调用 兔子
11. 否则如果 hxsj = 2 则
12.     调用 木桩
13. 否则如果 hxsj = 3 则
14.     调用 自动喊话
15. 否则如果 hxsj = 4 则
16.     调用 鼠标单击
17. 条件结束
18. 子程序 刷建材
19.     调用 关掉垃圾
20.     调用 识别等级
21. 子程序结束
22. 注释：--刷建材
23. 子程序 关掉垃圾
24.     调用 Esc
25.     调用 关闭任务追踪栏
26.     调用 收起聊天栏
27.     调用 验证码
28.     调用 血蓝组队
29. 子程序结束
30. 子程序 识别等级
31.     标记 等级(子程序 识别等级)
32.     令 dm_ret = dm.FindStr(23,41,48,65,"等级75","f9cb2b-000000",1,jsx,jsy)
33.     如果 jsx > 0 并且 jsy > 0 则
34.         调用 识别任务
35.         调用 南荒
36.         延时 500 毫秒
37.         调用 血蓝组队
38.         调用 查看任务
39.     条件结束
40.     令 dm_ret = dm.FindStr(23,41,48,65,"等级90|等级91|等级76","f9cb2b-000000",1,jsx,jsy)
41.     如果 jsx > 0 并且 jsy > 0 则
42.         调用 识别任务
43.         调用 冥地
44.         延时 500 毫秒
45.         调用 血蓝组队
46.         调用 检查任务
47.     否则
48.         跳转到标记 等级(子程序 识别等级)
49.     条件结束
50. 子程序结束
51. 子程序 南荒
52.     标记 南荒轩辕国(子程序 南荒)
53.     令 dm_ret = dm.FindStr(878,23,972,51,"轩辕国","ffffff-000000",1,x,y)
54.     如果 x > 0 并且 y > 0 则
55.         调用 Msg.Tips("轩辕国")
56.     否则
57.         （键盘）按 "F9" 键, 1次
58.         延时 500 毫秒
59.         调用 Bkgnd.LeftDoubleClick(qq,515 - 3,338 - 22)
60.         延时 500 毫秒
61.         令 dm_ret = dm.FindStr(340,209,653,594,"轩辕国","ffffff-000000",1,x,y)
62.         如果 x > 0 并且 y > 0 则
63.             调用 Bkgnd.LeftDoubleClick(qq,x - 3,y - 22)
64.         条件结束
65.         延时 9000 毫秒
66.         跳转到标记 南荒轩辕国(子程序 南荒)
67.     条件结束
68. 子程序结束
69. 子程序 冥地
70.     标记 冥地(子程序 冥地)
71.     令 dm_ret = dm.FindStr(23,41,48,65,"等级76","f9cb2b-000000",1,jsx,jsy)
72.     如果 jsx > 0 并且 jsy > 0 则
73.         令 dm_ret = dm.FindStr(878,23,972,51,"冥山","ffffff-000000",1,x,y)
74.         如果 x > 0 并且 y > 0 则
75.             调用 Msg.Tips("冥山")
76.         否则
77.             （键盘）按 "F9" 键, 1次
78.             延时 500 毫秒
79.             调用 Bkgnd.LeftDoubleClick(qq,515 - 3,352 - 22)
80.             延时 500 毫秒
81.             令 dm_ret = dm.FindStr(340,209,653,594,"冥山","ffffff-000000",1,x,y)
82.             如果 x > 0 并且 y > 0 则
83.                 调用 Bkgnd.LeftDoubleClick(qq,x - 3,y - 22)
84.             条件结束
85.             延时 9000 毫秒
86.             跳转到标记 冥地(子程序 冥地)
87.         条件结束
88.     条件结束
89.     令 dm_ret = dm.FindStr(23,41,48,65,"等级90","f9cb2b-000000",1,jsx,jsy)
90.     如果 jsx > 0 并且 jsy > 0 则
91.         令 dm_ret = dm.FindStr(340,209,653,594,"断魂谷","ffffff-000000",1,x,y)
92.         如果 x > 0 并且 y > 0 则
93.             调用 Msg.Tips("断魂谷")
94.         否则
95.             （键盘）按 "F9" 键, 1次
96.             延时 500 毫秒
97.             调用 Bkgnd.LeftDoubleClick(qq,515 - 3,352 - 22)
98.             延时 500 毫秒
99.             令 dm_ret = dm.FindStr(340,209,653,594,"断魂谷","ffffff-000000",1,x,y)
100.             如果 x > 0 并且 y > 0 则