End If
        ifcolor intX,intY-10,colors(1) ,1 Then
            Exit Do
        End If
        ifcolor  intX,intY+10,colors(2),1 Then
            Exit Do
        End If
        ifcolor intX-20,intY,colors(3),1 Then
            Exit Do
        End If
        ifcolor intX-17,intY-17,colors(4),1 Then
            Exit Do
        End If
        ifcolor intX+10,intY,colors(5),1 Then
            Exit Do
        End If
        ifcolor intX+15,intY-5,colors(6),1 Then
            Exit Do
        End If
        ifcolor intX+20,intY-17,colors(7),1 Then
            Exit Do
        End If
        ifcolor intX+5,intY-20,colors(8),1 Then
            Exit Do
        End If
    Loop While 1

    //打开背包使用物品
    call openbao()

    //输入店名
    For i=1 to len(店名)
        k=mid(店名,i,1)
        KeyPress k, 1
    Next
    Delay ukbp
    //回车确定
    KeyPress "Enter", 1
    Delay ukbp
    //回车完成店面抢占
    KeyPress "Enter", 1
    Delay ukbp
    
//上架过程
   Call shopUp() 
	
	

loop While 1




//打开背包，使用摆摊卡
Sub openbao()
    sj=0
    Do 
        KeyPress "i",1
        Delay ukbp
        Dim i
        For i=0 to 1
            //查找道具栏的字，现有道具 
            FindPic sourceX,sourceY,sourceX+sourceW,sourceY+sourceH,现有道具,0.9,daojX,daojY 
            If daojX>0 then
                Exit for
            End If
        Next
        sj=sj+1
    Loop while daojX>0
    
    
    //移动到特殊页点击
    MoveTo daojX+teshuX,daojY+teshuY
    Delay ummv
    LeftClick 1
    Delay ukbp
    //再移动到摆摊卡，第一张道具，双击
    MoveTo daojX+baitanX,daojY+baitanY 
    Delay ummv
    LeftDoubleClick 1
    Delay udclk
End Sub


//上架物品，点开办
Sub shopUp() 

 //摆放物品
    //鼠标移动到消耗栏第一个格的物品上，拖到商店里
    MoveTo daojX+baitanX,daojY+baitanY
    Delay ummv
    LeftDown 1
    Delay ukbp
    MoveTo sourceX+shopX,sourceY+shopY
    Delay ummv
    LeftUp 1
    Delay ukbp
	
    Delay 1000
    KeyPress "Tab",1