//查看有没有 掠夺 选项
        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级平地4
                //跳转到寻找3级平地
            EndIf 
        EndIf 
    Else 
        Gosub 寻找3级平地4
        //跳转到寻找3级平地
    EndIf 
Return 寻找3级丘陵
EndScript 
//================================================================================================================
//============== ===================
//============== ===================
//============== ===================
//============== ===================
//============== ===================
//============== ===================
//============== ===================
//============== ===================
//============== ===================
//============== ===================
//==============子程序 =========寻找3级平地====================================
Sub 寻找3级平地4
    //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级野地
                //MessageBox //跳转到移动一格寻找
            EndIf 
        EndIf 
    Else 
        Gosub 右一格寻找3级野地
        //MessageBox //跳转到移动一格寻找
    EndIf 
Return 寻找3级平地
EndScript 
//================================================================================================================
//============== ===================
//============== ===================
//============== ===================
//============== ===================
//============== ===================