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级野地
                //MessageBox //跳转到移动一格寻找
            EndIf 
        EndIf 
    Else 
        Gosub 下一格寻找3级野地
        //MessageBox //跳转到移动一格寻找
    EndIf 
Return 寻找3级平地
EndScript 
//================================================================================================================
//============== ===================
//============== ===================
//============== ===================
//============== ===================
//============== ===================
//============== ===================
//============== ===================
//============== ===================
//============== ===================
//============== 111111===================
//============== 主程序 ===============
Sub 下一格寻找3级野地
    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 反复确定主城存在2
    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 反复确定主城存在2
            EndIf 
        EndIf 
    EndIf 
    Rem 反复确定主城存在2
    VBSCall FindPic(0,0,1440,900,"城图标.bmp",1.0,intX,intY)
    If intX>0 and intY>0
        Goto 向下移动一格
    Else 
        Goto 反复确定主城存在2
    EndIf 
    Rem 向下移动一格
    //向下移动一格
    MoveTo 723,618
    Delay 2000
    LeftClick 1
    Delay 2000
    Gosub 寻找3级森林2
Return 下一格寻找3级野地
EndScript 
//================================================================================================================
//============== ===================
//============== ===================
//============== ===================
//============== ===================
//============== ===================
//============== ===================
//============== ===================
//============== ===================
//============== ===================
//==============子程序 =========寻找3级平地====================================