1. //====================================主程序========================================================================
2. 标记 程序开始
3. 鼠标移到 724 , 619
4. 延时100毫秒
5. 鼠标移到 725 , 620
6. 调用外部VBScript子程序 在屏幕区域里查找图形(0,0,1440,900,"主城.bmp",1.0,intX,intY)
7. 如果表达式 (intX>0 and intY>0) 为真,则
8.     鼠标移到 intX , intY
9.     延时2000毫秒
10.     左键单击
11.     延时2000毫秒
12.     跳转到标记 反复确定主城存在1
13. 否则
14.     //没有主城选项则点击 地图
15.     鼠标移到 724 , 619
16.     延时100毫秒
17.     鼠标移到 725 , 620
18.     调用外部VBScript子程序 在屏幕区域里查找图形(0,0,1440,900,"主城.bmp",1.0,intX,intY)
19.     如果表达式 (intX>0 and intY>0) 为真,则
20.         鼠标移到 intX , intY
21.         延时2000毫秒
22.         左键单击
23.         延时2000毫秒
24.         // 单击主城按键刷新野地
25.         鼠标移到 724 , 619
26.         延时100毫秒
27.         鼠标移到 725 , 620
28.         调用外部VBScript子程序 在屏幕区域里查找图形(0,0,1440,900,"主城.bmp",1.0,intX,intY)
29.         如果表达式 (intX>0 and intY>0) 为真,则
30.             鼠标移到 intX , intY
31.             延时2000毫秒
32.             左键单击
33.             延时2000毫秒
34.             跳转到标记 反复确定主城存在1
35.         条件结束
36.     条件结束
37. 条件结束
38. 标记 反复确定主城存在1
39. 调用外部VBScript子程序 在屏幕区域里查找图形(0,0,1440,900,"主城.bmp",1.0,intX,intY)
40. 如果表达式 (intX>0 and intY>0) 为真,则
41.     跳转到标记 寻找3级森林1
42. 否则
43.     跳转到标记 反复确定主城存在1
44. 条件结束
45. 标记 寻找3级森林1
46. 鼠标移到 724 , 619
47. 延时100毫秒
48. 鼠标移到 725 , 620
49. 调用外部VBScript子程序 在屏幕区域里查找图形(0,0,1440,900,"主城.bmp",1.0,intX,intY)
50. 如果表达式 (intX>0 and intY>0) 为真,则
51.     延时2000毫秒
52.     鼠标移到 intX , intY
53.     延时2000毫秒
54.     左键单击
55.     延时2000毫秒
56.     //查看有没有 掠夺 选项
57.     鼠标移到 724 , 619
58.     延时100毫秒
59.     鼠标移到 725 , 620
60.     调用外部VBScript子程序 在屏幕区域里查找图形(0,0,1440,900,"主城.bmp",1.0,intX,intY)
61.     如果表达式 (intX>0 and intY>0) 为真,则
62.         延时2000毫秒
63.         鼠标移到 intX , intY
64.         延时2000毫秒
65.         左键单击
66.         延时2000毫秒
67.         调用子程序 掠夺
68.         // 掠夺
69.     否则
70.         // 没有 掠夺 选项，有 叉叉 则关闭窗口
71.         鼠标移到 724 , 619
72.         延时100毫秒
73.         鼠标移到 725 , 620
74.         调用外部VBScript子程序 在屏幕区域里查找图形(0,0,1440,900,"主城.bmp",1.0,intX,intY)
75.         如果表达式 (intX>0 and intY>0) 为真,则
76.             延时2000毫秒
77.             鼠标移到 intX , intY
78.             延时2000毫秒
79.             左键单击
80.             延时2000毫秒
81.             调用子程序 寻找3级湖泊1
82.             //跳转到寻找3级湖泊
83.         条件结束
84.     条件结束
85. 否则
86.     调用子程序 寻找3级湖泊1
87.     //跳转到寻找3级湖泊
88. 条件结束
89. 脚本停止运行
90. //================================================================================================================
91. //============== ===================
92. //============== ===================
93. //============== ===================
94. //============== ===================
95. //============== ===================
96. //============== ===================
97. //============== ===================
98. //============== ===================
99. //============== ===================
100. //============== ===================