//====================================主程序======================================================================== 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 //================================================================================================================ //============== =================== //============== =================== //============== =================== //============== =================== //============== =================== //============== =================== //============== =================== //============== =================== //============== =================== //============== ===================