Sub 寻找3级森林2
    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级湖泊2
                //跳转到寻找3级湖泊
            EndIf 
        EndIf 
    Else 
        Gosub 寻找3级湖泊2
        //跳转到寻找3级湖泊
    EndIf 
Return 寻找3级湖泊
EndScript 
//================================================================================================================
//============== ===================
//============== ===================
//============== ===================
//============== ===================
//============== ===================
//============== ===================
//============== ===================
//============== ===================
//============== ===================
//============== ===================
//==============子程序 =========寻找3级湖泊====================================
Sub 寻找3级湖泊2
    //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级石头2
                //跳转到寻找3级石头
            EndIf 
        EndIf 
    Else