//====================================主程序========================================================================
Rem 程序开始
MoveTo 724,619
Delay 100
MoveTo 725,620
VBSCall FindPic(0,0,1440,900,"主城.bmp",1.0,intX,intY)
If intX>0 and intY>0
MoveTo intX,intY
Delay 2000
LeftClick 1
Delay 2000
Goto 反复确定主城存在1
Else
//没有主城选项则点击 地图
MoveTo 724,619
Delay 100
MoveTo 725,620
VBSCall FindPic(0,0,1440,900,"地图.bmp",1.0,intX,intY)
If intX>0 and intY>0
MoveTo intX,intY
Delay 2000
LeftClick 1
Delay 2000
// 单击主城按键刷新野地
MoveTo 724,619
Delay 100
MoveTo 725,620
VBSCall FindPic(0,0,1440,900,"主城.bmp",1.0,intX,intY)
If intX>0 and intY>0
MoveTo intX,intY
Delay 2000
LeftClick 1
Delay 2000
Goto 反复确定主城存在1
EndIf
EndIf
EndIf
Rem 反复确定主城存在1
VBSCall FindPic(0,0,1440,900,"城图标.bmp",1.0,intX,intY)
If intX>0 and intY>0
Goto 寻找3级森林1
Else
Goto 反复确定主城存在1
EndIf
Rem 寻找3级森林1
MoveTo 724,619
Delay 100
MoveTo 725,620
VBSCall FindPic(0,0,1440,900,"3级森林.bmp",1.0,intX,intY)
If intX>0 and intY>0
Delay 2000
MoveTo intX,intY
Delay 2000
LeftClick 1
Delay 2000
//查看有没有 掠夺 选项
MoveTo 724,619
Delay 100
MoveTo 725,620
VBSCall FindPic(0,0,1440,900,"掠夺.bmp",1.0,intX,intY)
If intX>0 and intY>0
Delay 2000
MoveTo intX,intY
Delay 2000
LeftClick 1
Delay 2000
Gosub 掠夺
// 掠夺
Else
// 没有 掠夺 选项,有 叉叉 则关闭窗口
MoveTo 724,619
Delay 100
MoveTo 725,620
VBSCall FindPic(0,0,1440,900,"叉叉.bmp",1.0,intX,intY)
If intX>0 and intY>0
Delay 2000
MoveTo intX,intY
Delay 2000
LeftClick 1
Delay 2000
Gosub 寻找3级湖泊1
//跳转到寻找3级湖泊
EndIf
EndIf
Else
Gosub 寻找3级湖泊1
//跳转到寻找3级湖泊
EndIf
EndScript
//================================================================================================================
//============== ===================
//============== ===================
//============== ===================
//============== ===================
//============== ===================
//============== ===================
//============== ===================
//============== ===================
//============== ===================
//============== ===================