1. （VBScript语句） dim zc,zw,sg
2. 用户定义变量 zc=1 种植早/晚产作物（早1 晚2）
3. 用户定义变量 zw=3 作物顺序
4. 用户定义变量 sg=3 收割次数
5. 调用插件命令 ck=Window.Foreground()
6. //得到当前窗口句柄
7. 调用插件命令 Window.Move(ck,0,0)
8. //把窗口移动到坐标 0,0
9. 延时50毫秒
10. 标记 开始
11. 调用子程序 定位草人
12. 延时500毫秒
13. 鼠标移到 95 , 209+26*zc
14. 左键单击
15. 延时100毫秒
16. 左键单击
17. 延时1000毫秒
18. 鼠标移到 85 , 159+26*zw
19. 左键单击
20. 延时100毫秒
21. 左键单击
22. 延时1000毫秒
23. 按键 <Esc>
24. 如果表达式 (zc=1) 为真,则
25.     延时1000*300毫秒
26. 否则
27.     延时1000*60*60毫秒
28. 条件结束
29. 标记 成熟
30. 调用外部VBScript子程序 color1=得到指定点的颜色(665,610) //成熟，图标闪动
31. 延时200毫秒
32. 调用外部VBScript子程序 color1=得到指定点的颜色(665,610) //成熟，图标闪动
33. 延时200毫秒
34. 如果表达式 (color1=color2) 为真,则
35.     跳转到标记 成熟
36. 条件结束
37. 鼠标移到 x , y
38. 延时50毫秒
39. 左键单击
40. 延时50毫秒
41. 调用子程序 收割
42. 跳转到标记 开始
43. 子程序 定位草人
44.     标记 找草
45.     Shape1=302826352
46.     x0=400:y0=300
47.     //设置递增半径
48.     rr=20
49.     //设置点间距
50.     l=20
51.     //初始化角度
52.     n=0
53.     //设置第一圈半径
54.     r=8
55.     //设置画圆圈数
56.     循环 8 遍
57.         如果表达式 (n<3.1415926*2) 为真,则循环执行
58.             //画圆公式
59.             x=x0+r*cos(n)
60.             y=y0-r*sin(n)
61.             鼠标移到 x , y
62.             延时50毫秒
63.             调用外部VBScript子程序 color1=得到指定点的颜色(665,610) //成熟，图标闪动
64.             如果表达式 (shape=shape1) 为真,则
65.                 跳转到标记 tiao
66.             条件结束
67.             延时10毫秒
68.             //l/r：点距除以半径，取得2点间相对圆心的角度
69.             //能有效控制扫描点的密度，2点间的距离就比较平均
70.             n=n+l/r
71.         循环结束
72.         //画完一圈后重置角度
73.         n=0
74.         //画完一圈后半径递增rr
75.         r=r+rr
76.     循环结束
77.     跳转到标记 找草
78.     标记 tiao
79.     鼠标移到 x , y
80.     延时256毫秒
81.     左键按下
82.     延时500毫秒
83.     左键弹起
84.     延时500毫秒
85.     如果 (256,256) 的颜色大约等于 #101821 则
86.         延时50毫秒
87.     否则
88.         跳转到标记 找草
89.     条件结束
90. 子程序结束,回到调用处
91. 子程序 收割
92.     Shape2=1869203251
93.     // shape3=130767900
94.     循环 4 遍
95.         标记 找作物
96.         x0=400:y0=300
97.         //设置递增半径
98.         rr=20
99.         //设置点间距
100.         l=20