1. 延时 1000 毫秒
2. 令 Hwnd = Window.Find(0,"地下城与勇士")
3. 子程序 c
4.     延时 500 毫秒
5.     调用 Bkgnd.LeftDown(Hwnd,597,232)
6.     延时 100 毫秒
7.     调用 Bkgnd.LeftDoubleClick(Hwnd,597,232)
8.     延时 1000 毫秒
9. 子程序结束
10. 子程序 a
11.     调用 Bkgnd.LeftDown(Hwnd,167,144)
12.     延时 80 毫秒
13.     调用 Bkgnd.LeftDoubleClick(Hwnd,167,144)
14.     延时 80 毫秒
15. 子程序结束
16. 子程序 b
17.     循环 25 次
18.         调用 a
19.         调用 Bkgnd.LeftDown(Hwnd,412,268)
20.         延时 80 毫秒
21.         调用 Bkgnd.LeftDoubleClick(Hwnd,412,268)
22.         延时 80 毫秒
23.         调用 Bkgnd.LeftDown(Hwnd,335,303)
24.         延时 80 毫秒
25.         调用 Bkgnd.LeftDoubleClick(Hwnd,335,303)
26.         延时 80 毫秒
27.         调用 a
28.     循环结束
29. 子程序结束
30. 标记 n
31. 延时 50 毫秒
32. 调用 c
33. 调用 b
34. 跳转到标记 n