1. 延时3000毫秒
2. （VBScript语句） dim Fruit,FruitL
3. 用户定义变量 Fruit=18 当摘取多少次果实后自动卖出
4. FruitL=0
5. 弹出窗口 "请将鼠标移到Flash游戏窗口上面，脚本测试到游戏窗口后会再次提示才开始挂机 "
6. 调用子程序 检测鼠标下是否游戏窗口
7. 弹出窗口 "游戏窗口验证成功，三秒后开始挂机 "
8. 延时3000毫秒
9. 调用插件命令 Window.Active(WinF)
10. 标记 开始
11. 调用子程序 跳到自己的农田
12. 调用子程序 播种
13. 调用子程序 收获
14. 调用子程序 好友果实
15. 跳转到标记 开始
16. 子程序 检测鼠标下是否游戏窗口
17.     如果表达式 (WinSWH(2)<>"550" and WinSWH(3)<>"400") 为真,则循环执行
18.         //得到鼠标下的句柄
19.         调用插件命令 WinF=Window.MousePoint()
20.         //得到鼠标指向的句柄的窗口客户区大小
21.         调用插件命令 WinS=Window.GetClientRect(WinF)
22.         //分割坐标
23.         WinSWH=Split(WinS,"|")
24.     循环结束
25. 子程序结束,回到调用处
26. 子程序 跳到自己的农田
27.     //检测指定坐标点的颜色
28.     调用插件命令 MeC=Bkgnd.GetPixelColor(WinF,36,28)
29.     //如果不符合则跳到自己的农场
30.     如果表达式 (MeC<>"000000") 为真,则
31.         //鼠标移动到指定坐标
32.         调用插件命令 Bkgnd.MoveTo(WinF,440,30)
33.         延时300毫秒
34.         //鼠标在指定坐标单击
35.         调用插件命令 Bkgnd.LeftClick(WinF,440,30)
36.         延时300毫秒
37.     条件结束
38. 子程序结束,回到调用处
39. 子程序 播种
40.     //i初始值为9
41.     i=9
42.     //下面是选择种子准备播种
43.     调用插件命令 Bkgnd.MoveTo(WinF,70,350)
44.     延时300毫秒
45.     调用插件命令 Bkgnd.LeftClick(WinF,70,350)
46.     延时300毫秒
47.     调用插件命令 Bkgnd.MoveTo(WinF,65,320)
48.     延时300毫秒
49.     调用插件命令 Bkgnd.LeftClick(WinF,65,320)
50.     延时300毫秒
51.     //循环9次，即检测农田的九块地
52.     循环 9 遍
53.         //调用农田坐标
54.         调用子程序 农田坐标
55.         //得到农田坐标点的颜色
56.         调用插件命令 FarmlandC=Bkgnd.GetPixelColor(WinF,FX,FY)
57.         //如果颜色符合则对相应的农田进行操作
58.         如果表达式 (FarmlandC="38587B") 为真,则
59.             调用子程序 对农田操作
60.         条件结束
61.         //每检测一块地后向后一块地检测
62.         i=i-1
63.     循环结束
64. 子程序结束,回到调用处
65. 子程序 收获
66.     i=9
67.     //移动到指定坐标
68.     调用插件命令 Bkgnd.MoveTo(WinF,130,350)
69.     延时300毫秒
70.     //在指定坐标单击
71.     调用插件命令 Bkgnd.LeftClick(WinF,130,350)
72.     延时300毫秒
73.     循环 9 遍
74.         //调用农田坐标
75.         调用子程序 农田坐标
76.         //得到指定坐标点的颜色
77.         调用插件命令 FarmlandC=Bkgnd.GetPixelColor(WinF,FX,FY)
78.         //颜色符合则对坐标的地进行操作
79.         如果表达式 (FarmlandC="2FA9C8") 为真,则
80.             调用子程序 对农田操作
81.             //收获一次后记录一次给变量FruitL
82.             FruitL=FruitL+1
83.             //如果收获数量到了用户设置的数据后出售果实
84.             如果表达式 (FruitL=Fruit) 为真,则
85.                 //调用出售果实子程序
86.                 调用子程序 出售果实
87.             条件结束
88.         条件结束
89.         //每检测一块地后向后一块地检测
90.         i=i-1
91.     循环结束
92. 子程序结束,回到调用处
93. 子程序 好友果实
94.     //得到指定坐标点的颜色
95.     调用插件命令 Friend=Bkgnd.GetPixelColor(WinF,510,165)
96.     如果表达式 (Friend<>"000099") 为真,则
97.         //条件符合移动鼠标到指定坐标并点击
98.         调用插件命令 Bkgnd.MoveTo(WinF,490,35)
99.         延时300毫秒
100.         调用插件命令 Bkgnd.LeftClick(WinF,490,35)