Delay 300
                        LeftClick 1
                        Delay 500
                        MoveTo 494+w1,777+h1
                        Delay 600
                        LeftClick 1
                        Delay 300
                    End if
                Else
     
                    //放 修筋丸
                    If hongyezl = 5 then

                        FindCenterColor bbzc1x,bbzc1y,bbzc2x,bbzc2y,"1010F8",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 = 6 then

                            FindCenterColor bbzc1x,bbzc1y,bbzc2x,bbzc2y,"1014B0",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
     
                        End if
     
                    End if
                End if
            End if
        End if
    
    End If
    Call 放蓝药()

End Sub
                       
                  

Sub 放蓝药()
    //放蓝药
    Delay 300
    //放 益气丸
    If lanyezl = 1 then

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

            Delay 100
            MoveTo fhsx,fhsy
            Delay 300
            LeftClick 1
            Delay 500
            MoveTo 541+w1,774+h1
            Delay 600
            LeftClick 1
            Delay 300
        End if
    Else
        
        //放 养气丸
        If lanyezl = 2 then

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

                Delay 100
                MoveTo fhsx,fhsy
                Delay 300
                LeftClick 1
                Delay 500
                MoveTo 541+w1,774+h1
                Delay 600
                LeftClick 1
                Delay 300
            End if
        Else
        
            //放 调气丸