Delay 2000 
            End If
        End If
        Rem 掠夺
        If n = 1
            FindPic x1, y1, x2, y2, "Attachment:\掠夺.bmp", 0.9, x, y
            If x > 0 And y > 0 Then   
                MoveTo x+10,y+5
                Delay 1000
                LeftClick 1       
            End If
        End If  
        Delay 5000   
        Rem 出斥
        If n = 1
            FindPic x1, y1, x2, y2, "Attachment:\斥.bmp", 0.9, x, y
            If x > 0 And y > 0 Then   
                MoveTo x+50,y+20    
                Delay 1000
                LeftClick 1
                SayString x0
            End If
        End If    
        Rem 出枪
        If n = 1
            FindPic x1, y1, x2, y2, "Attachment:\枪.bmp", 0.9, x, y
            If x > 0 And y > 0 Then   
                MoveTo x+50,y+20    
                Delay 1000
                LeftClick 1
                SayString x0
            End If
        End If    
        Rem 出刀
        If n = 1
            FindPic x1, y1, x2, y2, "Attachment:\刀.bmp", 0.9, x, y
            If x > 0 And y > 0 Then   
                MoveTo x+50,y+20    
                Delay 1000
                LeftClick 1
                SayString x0
            End If
        End If
        Rem 出箭
        If n = 1
            FindPic x1, y1, x2, y2, "Attachment:\箭.bmp", 0.9, x, y
            If x > 0 And y > 0 Then   
                MoveTo x+50,y+20    
                Delay 1000
                LeftClick 1
                Delay 1000     
                SayString x7
                Delay 100
                SayString x5
                Delay 100
                SayString x0 
            End If
        End If
        If x>0 
            Goto 选将    
        End If
    
    Wend

    Rem 选将
    For 5 
        If n = 1
            FindPic x1, y1, x2, y2, "Attachment:\选将.bmp", 0.9, x, y
        
            If x > 0 And y > 0 Then   
                MoveTo x+100,y+5
                Delay 1000
                LeftClick 1
                Delay 5000
                MoveTo x+100, y + 55
                Delay 1000
                LeftClick 1          
                If x>0 
                    Goto 出征
    	
                End If
            End If
        End If
    Next
   
    Rem  出征    
    If n = 1
        FindPic x1, y1, x2, y2, "Attachment:\出征.bmp", 0.9, x, y
        If x > 0 And y > 0 Then   
            MoveTo x+130,y+5    
            Delay 1000
            LeftClick 1
            Delay 5000        
        End If
    End If
    i=i+1
Next