Delay 100
                            end if 
                        end if 
                    end if 
                end if  
            end if  
  
        end if   
    
        //一捆 100
        Delay 1000
        MoveTo 548+w1,445+h1
        Delay 100
        LeftClick 1
        Delay 30
        KeyPress "Num 0", 2


        Delay 1000
        MoveTo 508+w1,500+h1
        Delay 100
        LeftClick 1
        Delay 30

    Next      
     
    Call  放红药()
End Sub




Sub 放红药()
    //放药

    Delay 300
    //放 活血丸
    If hongyezl = 1 then

        FindCenterColor bbzc1x,bbzc1y,bbzc2x,bbzc2y,"0000E0",fhsx,fhsY
        If fhsx > 0 And fhsY > 0 Then

            Delay 100
            MoveTo fhsx,fhsy
            Delay 300
            LeftClick 1
            Delay 500
            MoveTo 494+w1,777+h1
            Delay 600
            LeftClick 1
            Delay 300
            
        End if
    Else
    
        //放 通络丸
        If hongyezl = 2 then

            FindCenterColor bbzc1x,bbzc1y,bbzc2x,bbzc2y,"1818F8",fhsx,fhsY
            If fhsx > 0 And fhsY > 0 Then

                Delay 100
                MoveTo fhsx,fhsy
                Delay 300
                LeftClick 1
                Delay 500
                MoveTo 494+w1,777+h1
                Delay 600
                LeftClick 1
                Delay 300
            End if
        Else
            //放 强身丸
            If hongyezl = 3 then

                FindCenterColor bbzc1x,bbzc1y,bbzc2x,bbzc2y,"1010F0",fhsx,fhsY
                If fhsx > 0 And fhsY > 0 Then

                    Delay 100
                    MoveTo fhsx,fhsy
                    Delay 300
                    LeftClick 1
                    Delay 500
                    MoveTo 494+w1,777+h1
                    Delay 600
                    LeftClick 1
                    Delay 300
                End if
            Else
     

     
                //放 健骨丸
                If hongyezl = 4 then

                    FindCenterColor bbzc1x,bbzc1y,bbzc2x,bbzc2y,"0000E0",fhsx,fhsY
                    If fhsx > 0 And fhsY > 0 Then

                        Delay 100
                        MoveTo fhsx,fhsy