MoveTo  290+w1,530+h1
                                Delay 100
                                LeftClick 1
                            else

                            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  
    //循环10次  


    Call  买蓝药()
End Sub

Sub 买蓝药()

  
   
    //买蓝药

    Delay 300
    MoveTo 373+w1,586+h1
    Delay 300
    LeftClick 1  
    Delay 500
      
    For jklydll  
    

  
    


        If  hongyezl=1 then
            //益气丸
            Delay 100
            MoveTo 95+w1,295+h1
            Delay 100
            LeftClick 1
        else
            Delay 100
            //养气丸
            If hongyezl=2 then
                Delay 100
                MoveTo 290+w1,295+h1
                Delay 100
                LeftClick 1
            else
                Delay 100
                //调气丸
                If hongyezl=3 then
                    Delay 100
                    MoveTo 95+w1,410+h1
                    Delay 100
                    LeftClick 1
                else
                    Delay 100
                    //补气丸
                    If hongyezl=4 then
                        Delay 100
                        MoveTo 290+w1,410+h1
                        Delay 30
                        LeftClick 1
                    else
                        Delay 100
                        //回气丸
                        If hongyezl=5 then
                            Delay 100
                            MoveTo  95+w1,530+h1
                            Delay 30
                            LeftClick 1
                        else
                            Delay 100
                            //凝气丸
                            If hongyezl=6 then
                                Delay 100
                                MoveTo  290+w1,530+h1
                                Delay 100
                                LeftClick 1
                            else