1. 令 Hwnd = Window.Find(0,"QQ幻想世界")
2. 调用 Window.Move(Hwnd,0,0)
3. 定义变量 MyArray
4. 令 MyArray = Split(Rect,"|")
5. 令 x = CLng(0)
6. 令 y = CLng(1)
7. 标记 开始
8. 调用 补蓝血()
9. 调用 Bkgnd.KeyPress(Hwnd,9)
10. 延时 200 毫秒
11. 如果点 (531,73) 的颜色等于 "00CC93" 则
12.     标记 战斗中
13.     调用 技能()
14.     调用 确认怪死()
15.     延时 200 毫秒
16.     调用 捡东西()
17.     跳转到标记 开始
18. 否则
19.     调用 捡东西()
20.     跳转到标记 开始
21. 条件结束
22. 子程序 捡东西()
23.     循环 3 次
24.         调用 Bkgnd.KeyPress(Hwnd,32)
25.         延时 200 毫秒
26.     循环结束
27. 子程序结束
28. 子程序 技能()
29.     调用 Bkgnd.KeyPress(Hwnd,49)
30.     延时 1100 毫秒
31.     调用 补蓝血()
32.     调用 Bkgnd.KeyPress(Hwnd,50)
33.     延时 1200 毫秒
34.     调用 补蓝血()
35.     调用 Bkgnd.KeyPress(Hwnd,51)
36.     调用 补蓝血()
37.     延时 1300 毫秒
38. 子程序结束
39. 子程序 补蓝血()
40.     标记 补蓝(子程序 补蓝血)
41.     如果点 (129,90) 的颜色等于 "876309" 则
42.     否则
43.         调用 Bkgnd.KeyPress(Hwnd,113)
44.         延时 200 毫秒
45.     条件结束
46.     标记 补红(子程序 补蓝血)
47.     如果点 (125,76) 的颜色等于 "98461" 则
48.     否则
49.         调用 Bkgnd.KeyPress(Hwnd,112)
50.         延时 200 毫秒
51.     条件结束
52. 子程序结束
53. 子程序 确认怪死()
54.     如果点 (521,86) 的颜色等于 "C18904" 则
55.         跳转到标记 战斗中(子程序 确认怪死)
56.     否则
57.         调用 捡东西()
58.         跳转到标记 开始(子程序 确认怪死)
59.     条件结束
60. 子程序结束