1. //************************定义全局变量******************************
2. dim location,findcolor,onex,oney,twox,twoy,threex,threey,onebx,oneby
3. dim ax,ay,bx,by,cx,cy,abx,aby,treex,treey,i,pathtree,delaytime
4. dim fontcolor,yewtree,roadcolor
5. //****************定义第2区使用的变量***********
6. dim sonex,soney,stwox,stwoy,sthreex,sthreey,secondflag
7. dim spathcolor,syewtree,sroadcolor,slocation
8. dim onetreen,twotreen,threetreen,onebtreen
9. //****************初始化所以有查找标志位**************************
10. onetreen=0
11. twotreen=0
12. threetreen=0
13. onebtreen=0
14. //*********************初始化变量***************************
15. yewtree="087900"
16. roadcolor="6b7173"
17. location=0
18. pathtree="000000"
19. slocation=0
20. delaytime=100
21. secondflag=0
22. syewtree="008a00"
23. //******************脚本自动执行1000次*****************************************
24. 如果表达式 (i<1000) 为真,则循环执行
25.     i=i+1
26.     调用子程序 main
27. 循环结束
28. 脚本停止运行
29. //***********************************主程序开始*****************************
30. 子程序 main
31.     调用子程序 onetree
32.     调用子程序 findtheonetree
33.     调用子程序 cutingone
34.     调用子程序 cutingsecondonetree
35.     调用子程序 finditem
36.     调用子程序 sfinditem
37.     如果表达式 (location=1) 为真,则
38.         调用子程序 checkone
39.         调用子程序 gohome
40.     条件结束
41.     如果表达式 (slocation=1) 为真,则
42.         调用子程序 checksecondone
43.         调用子程序 gohome
44.     条件结束
45.     调用子程序 twotree
46.     调用子程序 findtheSecondtree
47.     调用子程序 threetree
48.     调用子程序 onetreeb
49. 子程序结束,回到调用处
50. //********第一棵树a,找树**************
51. 子程序 onetree
52.     调用外部VBScript子程序 在屏幕区域里模糊查找颜色(764,252,800,282,yewtree,1,0.9,onex,oney)
53.     如果表达式 (onex>0 and oney>0) 为真,则
54.         延时delaytime毫秒
55.         鼠标移到 onex , oney
56.         延时500毫秒
57.         左键单击
58.         延时100毫秒
59.     否则
60.     条件结束
61. 子程序结束,回到调用处
62. //**************a移动到回城点*******
63. 子程序 checkone
64.     调用外部VBScript子程序 在屏幕区域里模糊查找颜色(764,252,800,282,yewtree,1,0.9,onex,oney)
65.     如果表达式 (x>0 and y>0) 为真,则
66.         延时500毫秒
67.         鼠标移到 x , y
68.         延时500毫秒
69.         左键单击
70.         延时10000毫秒
71.         调用子程序 gohome
72.     否则
73.     条件结束
74. 子程序结束,回到调用处
75. //********************查找第一棵树b**************
76. 子程序 onetreeb
77.     调用外部VBScript子程序 在屏幕区域里模糊查找颜色(764,252,800,282,yewtree,1,0.9,onex,oney)
78.     如果表达式 (onebx>0 and oneby>0) 为真,则
79.         延时500毫秒
80.         鼠标移到 onebx , oneby
81.         延时500毫秒
82.         左键单击
83.         调用子程序 findtwotree
84.         调用子程序 cutingoneb
85.         标记 oneb
86.         如果表达式 (location=1) 为真,则
87.             延时100毫秒
88.             调用子程序 checkoneb
89.             调用子程序 gohome
90.         条件结束
91.     否则
92.     条件结束
93. 子程序结束,回到调用处
94. //**************ab移动到回城点********************************
95. 子程序 checkoneb
96.     调用外部VBScript子程序 在屏幕区域里模糊查找颜色(764,252,800,282,yewtree,1,0.9,onex,oney)
97.     如果表达式 (x>0 and y>0) 为真,则
98.         延时500毫秒
99.         鼠标移到 x , y
100.         延时500毫秒