1. 令 Hwnd = Window.Find(0,"QQ幻想世界")
2. 令 sRect = Window.GetClientRect(Hwnd)
3. 定义变量 MyArray
4. 令 MyArray = Split(Rect,"|")
5. 令 Ux = CLng(MyArray(0))
6. 令 Uy = CLng(MyArray(1))
7. 标记 脚本开始
8. 标记 选怪
9. 延时 32 毫秒
10. （键盘）按 "Tab" 键, 1次
11. 延时 1000 毫秒
12. 如果点 (528 + Ux,44 + Uy) 的颜色等于 "D79D" 则
13.     标记 JZD
14.     （键盘）按 "F10" 键, 1次
15.     延时 1000 毫秒
16.     （键盘）按 "F2" 键, 1次
17. 否则
18.     跳转到标记 选怪
19. 条件结束
20. 如果点 (315 + Ux,52 + Uy) 的颜色等于 "383433" 则
21.     跳转到标记 JZD
22. 否则
23. 条件结束
24. 延时 32 毫秒
25. 如果点 (147 + Ux,45 + Uy) 的颜色不等于 "FFFFFF" 则
26.     （键盘）按 "2" 键, 1次
27. 否则
28. 条件结束
29. 如果点 (120,58) 的颜色不等于 "83600A" 则
30.     （键盘）按 "1" 键, 1次
31. 条件结束
32. （键盘）按 "Space" 键, 1次
33. 延时 500 毫秒
34. （键盘）按 "Space" 键, 1次
35. 延时 500 毫秒
36. （键盘）按 "Space" 键, 1次
37. 延时 500 毫秒
38. （键盘）按 "Space" 键, 1次
39. 跳转到标记 脚本开始