//============== ===================
//============== ===================
//==============子程序 =========寻找3级平地====================================
Sub 寻找3级平地5
    //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
                //下上左右都移动了一格查找3级野地，没有合适野地
            EndIf 
        EndIf 
    Else 
        //下上左右都移动了一格查找3级野地，没有合适野地
    EndIf 
Return 寻找3级平地
EndScript 
//================================================================================================================
//============== ===================
//============== ===================
//============== ===================
//============== ===================
//============== ===================
//============== ===================
//============== ===================
//============== ===================
//============== ===================
//============== ===================
//==============子程序 =========掠夺操作====================================
Sub 掠夺
    //掠夺操作
    Delay 2000
    MoveTo 441,391
    Delay 2000
    LeftClick 1
    Delay 2000
    Rem 再次确认加兵标签是否存在
    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
    Else 
        Goto 再次确认加兵标签是否存在
    EndIf 
    Delay 2000
    Rem 再次确认出征标签是否存在
    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
    Else 
        Goto 再次确认出征标签是否存在
    EndIf 
    IfColor 711,507,c7f9ff,0
        Goto 返回关闭出征确定标签
    Else 
        Goto 再次确认出征标签是否存在
    EndIf 
    Rem 返回关闭出征确定标签
    Delay 2000
    MoveTo 715,510
    Delay 2000
    LeftClick 1
    Delay 2000
    MoveTo 859,667