Goto 布店
    End If
    dm_ret = dm.FindStr(248,282,526,363,"短靴","f80000-000000",1.0,intX,intY)
    If intX>0 and intY>0 then//短靴
        zhuangbei = "短靴"
        Goto 布店
    End If
    dm_ret = dm.FindStr(248,282,526,363,"布腰带","f80000-000000",1.0,intX,intY)
    If intX>0 and intY>0 then//布腰带
        zhuangbei = "布腰带"
        Goto 布店
    End If

    Goto 武器店1
    rem 布店
    Call 打开道具1
    Call 打开道具1
    Delay yc+ 600
    FindPic 10,287,329,548,"C:\XYW\"& zhuangbei &".bmp",1,intX,intY
    If intX > 0 And intY > 0 Then//找布店装备
        Delay yc+ 200
        Call 关闭道具
        Call 关闭任务
        Call 交任务
        Exit sub
    Else ////找布店装备
        Call 打开道具2
        Call 打开道具2 
        Delay yc+ 600
        FindPic 10,287,329,548,"C:\XYW\"& zhuangbei &".bmp",1,intX,intY
        If intX > 0 And intY > 0 Then////找布店装备2
            Delay yc+ 200
            Call 关闭道具
            Call 关闭任务
            Call 交任务
            Exit sub
        Else //找//找布店装备2
            Call 关闭道具
            Call 关闭任务
            Call 去布店买装备
            Delay yc+ 200
            Call 关闭任务
            Call 交任务
            Exit sub
        End If////找布店装备2
    End If////找布店装备


    Rem 武器店1
    dm_ret = dm.FindStr(248,282,526,363,"铁剑","f80000-000000",1.0,intX,intY)
    If intX>0 and intY>0 then//铁剑1
        zhuangbei = "铁剑"
        Goto 武器店
    End If 
    dm_ret = dm.FindStr(248,282,526,363,"折扇","f80000-000000",1.0,intX,intY)
    If intX>0 and intY>0 then//折扇2
        zhuangbei = "折扇"
        Goto 武器店
    End If
    dm_ret = dm.FindStr(248,282,526,363,"重斧","f80000-000000",1.0,intX,intY)
    If intX>0 and intY>0 then//找重斧3
        zhuangbei = "重斧"
        Goto 武器店
    End If
    dm_ret = dm.FindStr(248,282,526,363,"古铜刀","f80000-000000",1.0,intX,intY)
    If intX>0 and intY>0 then//找古铜刀4
        zhuangbei = "古铜刀"
        Goto 武器店
    End If
    dm_ret = dm.FindStr(248,282,526,363,"宫扇","f80000-000000",1.0,intX,intY)
    If intX>0 and intY>0 then//找宫扇5
        zhuangbei = "宫扇"
        Goto 武器店
    End If
    dm_ret = dm.FindStr(248,282,526,363,"翡翠簪","f80000-000000",1.0,intX,intY)
    If intX>0 and intY>0 then//翡翠簪6
        zhuangbei = "翡翠簪"
        Goto 武器店
    End If
    dm_ret = dm.FindStr(248,282,526,363,"松木琴","f80000-000000",1.0,intX,intY)
    If intX>0 and intY>0 then//松木琴1
        zhuangbei = "松木琴"
        Goto 武器店
    End If
    dm_ret = dm.FindStr(248,282,526,363,"青铜双刃","f80000-000000",1.0,intX,intY)
    If intX>0 and intY>0 then//青铜双刃2
        zhuangbei = "青铜双刃"
        Goto 武器店
    End If
    dm_ret = dm.FindStr(248,282,526,363,"重刀","f80000-000000",1.0,intX,intY)
    If intX>0 and intY>0 then//重刀3
        zhuangbei = "重刀"
        Goto 武器店
    End If
    dm_ret = dm.FindStr(248,282,526,363,"铁飞轮","f80000-000000",1.0,intX,intY)
    If intX>0 and intY>0 then//铁飞轮4
        zhuangbei = "铁飞轮"
        Goto 武器店
    End If
    dm_ret = dm.FindStr(248,282,526,363,"油纸伞","f80000-000000",1.0,intX,intY)