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)
    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

    Exit sub
    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////找布店装备


End Sub
//召唤兽需求
Sub 召唤兽需求()
    //Call 关闭任务
    guaiditu = dm.Ocr(278,235,352,335,"f8fcf8-000000",1.0)
    //MessageBox guaiditu
    If guaiditu="傲来" then/////////////分析怪物地点

        redim za(3)
        za(0)="螃蟹"
        za(1)="龙虾"
        za(2)="鹦鹉"
        za(3)="蝴蝶"
        For i=0 to 3
            Call 打开召唤
            Call 打开召唤
            Delay yc+ 200
            dm_ret = dm.FindStr(175,93,350,263,za(i),"f8fcf8-000000",1.0,intX,intY)
            If intX > 0 And intY > 0 Then//找回生3
                guai =za(i)
                Delay yc+ 200
                Call 关闭道具
                Call 关闭召唤
                Call 关闭任务
                Call 交任务