MoveTo 375,458
    ElseIf bingz=4
        MoveTo 620,450
    EndIf 
    Delay chbtime
    LeftClick 1
    Delay chbtime
    //点出兵确定
    MoveTo 460,630
    Delay chbtime
    LeftClick 1
    Delay chbtime
    //点确定
    If wujineng=1
        //      IfColor 877,383,294508,2
        MoveTo 537,470
        Delay chbtime
        LeftClick 1
        Delay chbtime
        //       EndIf
    EndIf 
    //出兵点
    MoveTo dx,dy
    Delay chbtime
    LeftClick 1
    Delay dltime
Return 出兵模块
Sub 是否点中
    Delay chbtime
    MoveTo jiangx,jy
    Delay chbtime
    LeftClick 1
    Delay chbtime
    flag=1
    While flag > 0
        IfColor jiangx,jy,73c7e7,2
            flag=0
        Else 
            MoveTo jiangx,jy
            Delay chbtime
            LeftClick 1
            Delay chbtime
        EndIf 
        Gosub 重新进入
    EndWhile 
Return 是否点中
//行军模块
Sub 行军模块
    xx=1
    While xx > 0
        IfColor jiaox,jiaoy,52ffff,2
            xx=-1
        Else 
            Delay chbtime
        EndIf 
        IfColor jiaox,jiaoy,A5ffff,2
            xx=-1
        EndIf 
        IfColor jiaox,jiaoy,ff4100,2
            xx=-1
        EndIf 
        IfColor jiaox,jiaoy,ffffff,2
            xx=-1
        EndIf 
        Gosub 重新进入
    EndWhile 
    // 行军2
    Delay chbtime
    MoveTo xingx,xingy
    Delay chbtime
    LeftClick 1
    VBSCall GetCursorPos(currx,curry)
    Delay chbtime
    If curry > 535
        MoveTo currx-90,curry-90
        Delay chbtime
        LeftClick 1
        Delay chbtime
    Else 
        MoveTo currx-90,curry+120
        Delay chbtime
        LeftClick 1
        Delay chbtime
    EndIf 
Return 行军模块
//行军模块1
Sub 行军攻击
    MoveTo jiaox-160, jiaoy-40
    Delay dltime
    xx=1
    While xx > 0
        IfColor jiaox,jiaoy,52ffff,2
            xx=-1
        Else 
            Delay chbtime
        EndIf 
        IfColor jiaox,jiaoy,A5ffff,2
            xx=-1
        EndIf 
        IfColor jiaox,jiaoy,ff4100,2