1. 定义变量 fx0, fy0, fx1, fy1, xhx, xhy, xhz, xhxx, xhyy
2. 定义变量 ms, mx, my, mxx, myy
3. 弹出窗口 "四方消砖块-专杀工具（请勿用以作弊！游戏是为了娱乐！）接下来请按提示操作。"
4. 定义变量 afpos(9,9,1), col(3), fcol(9,9)
5. 弹出窗口 "请先摆好游戏窗口的位置，避免影响其他工作。接下来的定位操作后不要改变游戏窗口位置。"
6. 弹出窗口 "2秒钟内把鼠标移到左上角的方块中心（可以稍偏左上，颜色更精确）"
7. 延时 2000 毫秒
8. 把当前鼠标所在的位置保存到 (fx0, fy0)
9. 弹出窗口 "坐标是：" & fx0 & ", " & fy0
10. 弹出窗口 "2秒钟内把鼠标移到右下角的方块中心（相对于上一次在方块内的位置最好相同）"
11. 延时 2000 毫秒
12. 把当前鼠标所在的位置保存到 (fx1, fy1)
13. 弹出窗口 "坐标是：" & fx1 & ", " & fy1
14. 循环 xhx 从 0 到 9
15.     循环 xhy 从 0 到 9
16.         令 afpos(xhx,xhy,0) = fx0 + (fx1 - fx0) * xhx / 9
17.         令 afpos(xhx,xhy,1) = fy0 + (fy1 - fy0) * xhy / 9
18.     循环结束
19. 循环结束
20. 循环 xhx 从 0 到 3
21.     弹出窗口 "2秒钟内把鼠标移动到第" & (xhx + 1) & "种颜色上（和上一操作指向方块内的相对位置最好相同）"
22.     延时 2000 毫秒
23.     把当前鼠标所在的位置保存到 (fx0, fy0)
24.     令 col(xhx) = 得到指定点 (fx0, fy0) 的颜色
25.     弹出窗口 "颜色是：" & col(xhx)
26. 循环结束
27. 弹出窗口 "准备好了吗？确定开始。过程中请勿移动游戏窗口位置！模拟鼠标操作将占用鼠标。按pause键可暂停。作者：farteryhr，yhr-_-yhr@qq.com"
28. 标记 lp
29. 延时 1000 毫秒
30. 令 ms = 0
31. 循环 xhx 从 0 到 9
32.     循环 xhy 从 0 到 9
33.         （鼠标）移动到 (afpos(xhx,xhy,0), afpos(xhx,xhy,1))
34.         循环 xhz 从 0 到 3
35.             如果点 (afpos(xhx,xhy,0),afpos(xhx,xhy,1)) 的颜色约等于 col(xhz) 则
36.                 令 fcol(xhx,xhy) = xhz
37.             条件结束
38.         循环结束
39.         延时 1 毫秒
40.     循环结束
41. 循环结束
42. 循环 xhx 从 0 到 8
43.     循环 xhy 从 0 到 8
44.         循环 xhxx 从 xhx + 1 到 9
45.             如果 fcol(xhxx,xhy) = fcol(xhx,xhy) 则
46.                 循环 xhyy 从 xhy + 1 到 9
47.                     如果 fcol(xhxx,xhyy) = fcol(xhx,xhy) 并且 fcol(xhx,xhyy) = fcol(xhx,xhy) 则
48.                         如果 (xhyy - xhy + 1) * (xhxx - xhx + 1) > ms 则
49.                             令 mx = xhx
50.                             令 my = xhy
51.                             令 mxx = xhxx
52.                             令 myy = xhyy
53.                             令 ms = (xhyy - xhy + 1) * (xhxx - xhx + 1)
54.                         条件结束
55.                     条件结束
56.                 循环结束
57.             条件结束
58.         循环结束
59.     循环结束
60. 循环结束
61. 如果 ms > 0 则
62.     （鼠标）移动到 (afpos(mx,my,0), afpos(mx,my,1))
63.     （鼠标）左键单击, 1次
64.     延时 100 毫秒
65.     （鼠标）移动到 (afpos(mxx,my,0), afpos(mxx,my,1))
66.     （鼠标）左键单击, 1次
67.     延时 100 毫秒
68.     （鼠标）移动到 (afpos(mx,myy,0), afpos(mx,myy,1))
69.     （鼠标）左键单击, 1次
70.     延时 100 毫秒
71.     （鼠标）移动到 (afpos(mxx,myy,0), afpos(mxx,myy,1))
72.     （鼠标）左键单击, 1次
73.     延时 100 毫秒
74. 条件结束
75. 跳转到标记 lp