//x坐标
    //moveto 481+w1,541+h1
    mover -42,356
    Delay 100  
    LeftClick 1 
    Delay 100
    SayString hxsx
    Delay 100
    //Y坐标
    //moveto 511+w1,543+h1
    mover 30,0
    Delay 100 
    LeftClick 1 
    Delay 100
    SayString hxsy
        
    // 自动寻路
    Delay 100
    //moveto 603+w1,545+h1  
    mover 92,0
    Delay 100
    LeftClick 1 
    moveto zcw,zch
    Delay 30 
    LeftClick 1
    Delay 100
        

        
    // 检测 是否到达 狐小商
    moveto zcw,zch-60 
        
        
    var = 1608055128
    Do While true 
        Delay 300 
        FindColor zcw-150,zch-210,zcw+150,zch+90,"706830",hssX,hssY
        If hssX > 0 And hssY > 0 Then
            moveto hssX,hssY
        End if        

        var1 = GetCursorShape(0) 
        If var=var1  Then 
            delay 100
            var2 = GetCursorShape(0) 
            If var=var2  Then  
          
                Delay 10
                LeftClick 1
                Delay 30
                Call 是否出售物品()


                Exit do 
            End if
        End if
    Loop  






End Sub





Sub 是否出售物品()
    
    If cswb =1 then 
       
        Call 出售物品()
           
    Else 
        Call 买红药()
    End if  
End Sub
        
   
   
   
Sub 出售物品()
    cswbc = cswbcdll-1
    cswbh = cswbhdll
    csw=cswbhdll-cswbcdll+1
    Delay 1000
 
    FindPic 0,0,1024,768,"背.bmp",0.8,bbzbX,bbzbY
    If bbzbX > 0 And bbzbY > 0 Then
        MoveTo bbzbx,bbzby
        Delay 100

    End If

    bbzc1x=bbzbX-137