1. 注释：1为攻击
2. 注释：自动找怪打怪，且自动判别怪死亡
3. 注释：自动捡东西四次（东西不分级别，全捡）
4. 展开附件 *.dll 到 .\bao 文件夹
5. 展开附件 *.bmp 到 .\bao\damo 文件夹
6. 展开附件 *.txt 到 .\bao\damo 文件夹
7. 展开附件 dm.dll 到 .\bao\damo 文件夹
8. 调用 RegDll.Reg(".\bao\damo\dm.dll")
9. 令 dm = createobject("dm.dmsoft")
10. dm.SetPath((damo))
11. 向调试窗口输出：dm.Ver
12. 延时 2000 毫秒
13. 令 hwnd = dm.GetMousePointWindow()
14. 令 dm_ret = dm.BindWindow(hwnd,"dx2","windows","dx",1)
15. 令 sRect = Window.GetClientRect(Hwnd)
16. 定义变量 MyArray
17. 令 MyArray = Split(sRect,"|")
18. 令 Ux = CLng(MyArray(0))
19. 令 Uy = CLng(MyArray(1))
20. 令 dm_ret = dm.BindWindow(hwnd,"dx2","windows","dx",1)
21. 令 si = dm.GetColor(439,37)
22. 令 huo = dm.GetColor(439,38)
23. 令 bu = dm.GetColor(170,39)
24. dm.KeyDown(40)
25. 延时 1000 毫秒
26. dm.KeyUp(40)
27. dm.KeyPress(9)
28. 标记 zhunbei
29. 注释：dm_huo = dm.CmpColor(439, 38, "764323-000000", 1)
30. 令 dm_si = dm.CmpColor(440,37,"0b0f0f-000000",1)
31. 令 dm_bu = dm.CmpColor(168,39,"ad5d2e-000000",1)
32. 延时 800 毫秒
33. 循环当 true 时
34.     如果 dm_si = 0 则
35.         dm.KeyPress(49)
36.         延时 1050 毫秒
37.     否则
38.         跳出循环
39.     条件结束
40.     令 dm_si = dm.CmpColor(440,37,"0b0f0f-000000",1)
41. 循环结束
42. 如果 dm_si <> 0 则
43.     调用 xuanguai()
44. 条件结束
45. 子程序 xuanguai()
46.     循环 5 次
47.         dm.KeyPress(32)
48.     循环结束
49.     dm.KeyPress(9)
50.     延时 200 毫秒
51.     跳转到标记 zhunbei(子程序 xuanguai)
52. 子程序结束