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