1. 令 Hwnd = Window.Find(0,"legend of mir2")
2. 令 Rect = Window.GetClientRect(Hwnd)
3. 定义变量 MyArray
4. 令 MyArray = Split(Rect,"|")
5. 令 Ax = CLng(MyArray(0))
6. 令 Ay = CLng(MyArray(1))
7. 标记 战斗开始
8. 从左上到右下查找颜色 "0000FF"，把找到的坐标保存到 (intX, intY)，指定区域（左：730 + Ax 上：50 + Ay 右：750 + Ax 下：70 + Ay）
9. 注释：以下是条件判断；如果返回的坐标大于0，那么就说明找到了。
10. 如果 intX > 0 并且 intY > 0 则
11.     注释：在这里可以添加找到坐标后，需要做的处理。
12.     令 Qx = (intX - Ax - 740) * 11 + 400 + Ax
13.     令 Qy = (intY - Ay - 58) * 11 + 182 + Ay
14.     （鼠标）移动到 (Qx, Qy)
15.     延时 50 毫秒
16.     （鼠标）左键单击, 1次
17.     标记 战斗中
18.     延时 3000 毫秒
19.     如果点 (326,135) 的颜色等于 "80810" 则
20.         跳转到标记 战斗中
21.     条件结束
22. 否则
23.     调用 寻怪()
24. 条件结束
25. 延时 50 毫秒
26. 跳转到标记 战斗开始
27. 子程序 寻怪()
28.     Randomize 数值
29.     令 n = Int(rnd * 4)
30.     如果 n = 0 则
31.         （鼠标）移动到 (200 + Ax, 70 + Ay)
32.         延时 50 毫秒
33.         （鼠标）左键单击, 1次
34.     条件结束
35.     如果 n = 1 则
36.         （鼠标）移动到 (500 + Ax, 70 + Ay)
37.         延时 50 毫秒
38.         （鼠标）左键单击, 1次
39.     条件结束
40.     如果 n = 2 则
41.         （鼠标）移动到 (500 + Ax, 300 + Ay)
42.         延时 50 毫秒
43.         （鼠标）左键单击, 1次
44.     条件结束
45.     如果 n = 3 则
46.         （鼠标）移动到 (200 + Ax, 300 + Ay)
47.         延时 50 毫秒
48.         （鼠标）左键单击, 1次
49.     条件结束
50.     延时 2000 毫秒
51. 子程序结束