//选择功击方式输入框
            IsTimeout = 0
            Do While True
                FindPic 6,300,95,768, "Attachment:\请选择.bmp", 0.9, intX, intY
                If intX > 0 And intY > 0 Then 
                    //                    MoveTo intX, intY
                    //                    Delay 50
                    //                    LeftClick 1
                    //                    Delay 50
                    MouseClick intX,intY,1
                    IsError = False
                    Exit Do
                Else 
                    Call MyDelay()
                    If IsTimeout > 20 Then //超时 10s
                        Exit Do
                    End If            
                End If
            Loop
            //选择掠夺		
            IsTimeout = 0
            Do While True      
                FindPic 362,373,542,439, "Attachment:\掠夺.bmp", 0.9, intX, intY
                If intX > 0 And intY > 0 Then 
                    MouseClick intX-10,intY+4,1
                    IsError = False
                    Exit Do
                Else 
                    Call MyDelay()
                    If IsTimeout > 20 Then //超时 10s
                        Exit Do
                    End If          
                End If
            Loop
            //确定选择
            IsTimeout = 0
            Do While True  
                FindPic 0,0,1024,768, "Attachment:\确定.bmp", 0.9, intX, intY
                If intX > 0 And intY > 0 Then 
                    MouseClick intX,intY,1
                    IsError = False
                    Exit Do
                Else 
                    Call MyDelay()
                    If IsTimeout > 20 Then //超时 10s
                        Exit Do
                    End If            
                End If
            Loop
            //出征
            IsTimeout = 0
            Do While True  
                FindPic 295,343,707,719, "Attachment:\出征1.bmp", 0.9, intX, intY
                If intX > 0 And intY > 0 Then 
                    MouseClick intX,intY,1
                    IsError = False
                    Exit Do
                Else
                    Call MyDelay()
                    If IsTimeout > 20 Then //超时 10s
                        Exit Do
                    End If                 
                End If
            Loop
            //标测是否出征失败
            IsErr = False
            IsTimeout = 0
            Do While True
                FindPic 361,328,657,525, "Attachment:\返回.bmp", 0.9, intX, intY
                If intX > 0 And intY > 0 Then 
                    MouseClick intX,intY,1
                    IsErr = True
                    Exit Do
                Else
                    Call MyDelay()
                    If IsTimeout > 5 Then //超时 2.5s
                        Exit Do
                    End If                 
                End If
            Loop
            //出征失败
            If IsErr Then 
                Call Plugin.Msg.Tips("出征失败！！！启用下一组")
                Call Plugin.Media.Beep(294, 200)
                Call Main()                
                Exit Do    	
            End If
        Else //没有发现武将
            FindPic 0,0,1024,768, "Attachment:\帮助.bmp", 0.9, intX, intY
            If intX > 0 And intY > 0 Then //找到帮助，也就是从上到下没有空闲武将
                Call Plugin.Msg.Tips("出征完毕，没有空闲武将!启用下一组")
                Call Main()
                Exit Do 
            Else 
                LockMouse
                MouseWheel -2 //向下流动鼠标1
                Delay 50
                UnlockMouse
            End If	
        End If