1. 令 Hwnd = Window.Find(0,"极光世界-光明神-狂De无边")
2. 令 Rect = Window.GetClientRect(Hwnd)
3. 定义变量 MyArray
4. 令 MyArray = Split(Rect,"|")
5. 令 Ux = CLng(MyArray(0))
6. 令 Uy = CLng(MyArray(1))
7. 标记 选怪
8. 调用 吃药()
9. 调用 吃蓝()
10. （键盘）按 "Tab" 键, 1次
11. 延时 1000 毫秒
12. 如果点 (455 + Ux,41 + Uy) 的颜色约等于 "198F" 则
13.     标记 攻击
14.     调用 吃药()
15.     调用 吃蓝()
16.     （键盘）按 "1" 键, 1次
17.     延时 100 毫秒
18.     调用 拾取()
19.     （键盘）按 "2" 键, 1次
20.     延时 300 毫秒
21.     调用 拾取()
22.     如果点 (463 + Ux,41 + Uy) 的颜色约等于 "FAC071" 则
23.         跳转到标记 攻击
24.     否则
25.         跳转到标记 选怪
26.     条件结束
27. 否则
28.     跳转到标记 选怪
29. 条件结束
30. 子程序 吃药()
31.     如果点 (205 + Ux,44 + Uy) 的颜色约等于 "130C05" 则
32.         （键盘）按 "3" 键, 1次
33.         延时 300 毫秒
34.     条件结束
35. 子程序结束
36. 子程序 吃蓝()
37.     如果点 (125 + Ux,56 + Uy) 的颜色约等于 "120B04" 则
38.         （键盘）按 "4" 键, 1次
39.         延时 300 毫秒
40.     条件结束
41. 子程序结束
42. 子程序 拾取()
43.     （键盘）按 "`" 键, 3次
44. 子程序结束