1. 标记 开始
2. 如果 (267,133) 的颜色等于 #111111 则
3.     调用子程序 种地过程
4. 否则
5. 条件结束
6. 如果 (725,195) 的颜色等于 #ffffff 则
7.     跳转到标记 开始
8. 否则
9.     调用子程序 种地
10. 条件结束
11. 子程序 种地
12.     调用外部VBScript子程序 在屏幕区域里查找图形(0,0,1024,768,"Attachment:\00.bmp",0.9,intX,intY)
13.     如果表达式 (intX>0 and intY>0) 为真,则
14.         鼠标移到 intX , intY
15.         调用子程序 找地
16.     否则
17.     条件结束
18. 子程序结束,回到调用处
19. 子程序 找地
20.     左键单击
21.     延时500毫秒
22.     调用子程序 播种
23. 子程序结束,回到调用处
24. 子程序 播种
25.     调用外部VBScript子程序 在屏幕区域里查找图形(0,0,1024,768,"Attachment:\00.bmp",0.9,intX,intY)
26.     如果表达式 (intX>0 and intY>0) 为真,则
27.         鼠标移到 230 , 210
28.         延时200毫秒
29.         左键单击
30.         延时200毫秒
31.         鼠标移到 309 , 184
32.         延时200毫秒
33.         左键单击
34.     否则
35.     条件结束
36. 子程序结束,回到调用处
37. 子程序 种地过程
38.     调用外部VBScript子程序 在屏幕区域里查找图形(0,0,1024,768,"Attachment:\00.bmp",0.9,intX,intY)
39.     如果表达式 (intX>0 and intY>0) 为真,则
40.         调用子程序 施肥
41.     否则
42.     条件结束
43.     调用外部VBScript子程序 在屏幕区域里查找图形(0,0,1024,768,"Attachment:\00.bmp",0.9,intX,intY)
44.     如果表达式 (intX>0 and intY>0) 为真,则
45.         调用子程序 锄草
46.     否则
47.     条件结束
48.     调用外部VBScript子程序 在屏幕区域里查找图形(0,0,1024,768,"Attachment:\00.bmp",0.9,intX,intY)
49.     如果表达式 (intX>0 and intY>0) 为真,则
50.         调用子程序 收获
51.     否则
52.     条件结束
53.     调用外部VBScript子程序 在屏幕区域里查找图形(0,0,1024,768,"Attachment:\00.bmp",0.9,intX,intY)
54.     如果表达式 (intX>0 and intY>0) 为真,则
55.         调用子程序 杀虫
56.     否则
57.     条件结束
58.     调用外部VBScript子程序 在屏幕区域里查找图形(0,0,1024,768,"Attachment:\00.bmp",0.9,intX,intY)
59.     如果表达式 (intX>0 and intY>0) 为真,则
60.         调用子程序 缺水
61.     否则
62.     条件结束
63. 子程序结束,回到调用处
64. 子程序 施肥
65.     鼠标移到 231 , 359
66.     左键单击
67. 子程序结束,回到调用处
68. 子程序 锄草
69.     鼠标移到 230 , 329
70.     左键单击
71. 子程序结束,回到调用处
72. 子程序 收获
73.     鼠标移到 230 , 243
74.     左键单击
75. 子程序结束,回到调用处
76. 子程序 杀虫
77.     鼠标移到 233 , 299
78.     左键单击
79. 子程序结束,回到调用处
80. 子程序 缺水
81.     鼠标移到 232 , 269
82.     左键单击
83. 子程序结束,回到调用处