1. 令 Hwnd = Window.Foreground()
2. 令 sRect = Window.GetClientRect(Hwnd)
3. 定义变量 MyArray
4. 令 MyArray = Split(sRect,"|")
5. 令 Ux = CLng(MyArray(0))
6. 令 Uy = CLng(MyArray(1))
7. 调用 Window.Move(Hwnd,0,0)
8. 令 Hwndck = Window.Find(0,"梦幻西游 聊天窗口")
9. 调用 Window.Hide(Hwndck)
10. 标记 开始
11. （键盘）按 "Tab" 键, 1次
12. 延时 200 毫秒
13. 令 i = 0
14. 循环当 i = 0 时
15.     从左上到右下查找图片 "Attachment:\地图.bmp"，把找到的坐标保存到 (dituX, dituY)，指定区域（左：0 上：0 右：1024 下：768），相似度 0.2
16.     如果 dituX > 0 并且 dituY > 0 则
17.         延时 200 毫秒
18.         （鼠标）移动到 (dituX + 200, dituY + 150)
19.         延时 200 毫秒
20.         （鼠标）左键单击, 1次
21.         令 i = 1
22.     否则
23.         （键盘）按 "Tab" 键, 1次
24.         输入文本 "没找到图"
25.     条件结束
26. 循环结束
27. （键盘）按 "Tab" 键, 1次
28. 调用 战斗()
29. 延时 8000 毫秒
30. （键盘）按 "Tab" 键, 1次
31. 延时 200 毫秒
32. 令 i = 0
33. 循环当 i = 0 时
34.     从左上到右下查找图片 "Attachment:\地图.bmp"，把找到的坐标保存到 (dituX, dituY)，指定区域（左：0 上：0 右：1024 下：768），相似度 0.2
35.     如果 dituX > 0 并且 dituY > 0 则
36.         延时 200 毫秒
37.         （鼠标）移动到 (dituX + 400, dituY + 200)
38.         延时 200 毫秒
39.         （鼠标）左键单击, 1次
40.         令 i = 1
41.     否则
42.         （键盘）按 "Tab" 键, 1次
43.         输入文本 "没找到图"
44.     条件结束
45. 循环结束
46. （键盘）按 "Tab" 键, 1次
47. 调用 战斗()
48. 延时 8000 毫秒
49. 跳转到标记 开始
50. 子程序 战斗()
51.     如果点 (310 + Ux,37 + Uy) 的颜色等于 "F8FCF8" 则
52.         标记 战斗(子程序 战斗)
53.         从左上到右下查找图片 "Attachment:\法术.bmp"，把找到的坐标保存到 (intX, intY)，指定区域（左：Ux 上：Uy 右：Ux + 640 下：Uy + 480），相似度 0.9
54.         如果 intX > 0 并且 intY > 0 则
55.             （键盘）按下 Alt 键
56.             （键盘）按 A 键, 1次
57.             （键盘）弹起 Alt 键
58.             延时 500 毫秒
59.             （键盘）按下 Alt 键
60.             （键盘）按 A 键, 1次
61.             （键盘）弹起 Alt 键
62.         条件结束
63.         延时 5000 毫秒
64.         如果点 (310 + Ux,37 + Uy) 的颜色不等于 "F8FCF8" 则
65.             跳转到标记 战斗结束(子程序 战斗)
66.         条件结束
67.         跳转到标记 战斗(子程序 战斗)
68.     条件结束
69.     标记 战斗结束(子程序 战斗)
70.     延时 1000 毫秒
71.     调用 加血()
72. 子程序结束
73. 子程序 加血()
74.     如果点 (628,36) 的颜色不等于 "1810E8" 则
75.         （鼠标）移动到 (628, 36)
76.         延时 100 毫秒
77.         （鼠标）右键单击, 1次
78.     条件结束
79.     延时 100 毫秒
80.     如果点 (515,37) 的颜色不等于 "800B8" 则
81.         （鼠标）移动到 (515, 37)
82.         延时 100 毫秒
83.         （鼠标）右键单击, 1次
84.     条件结束
85. 子程序结束