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