Call 关闭道具
                Exit sub
            End If//找回生3
        Next         
        Call 关闭召唤 
        Call 关闭任务   
        Call 关闭道具    
        Call 去傲来抓怪
        Exit Sub

        ////////////////////////////////////////////傲来
    elseIf 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 交任务
                Call 关闭道具
                Exit sub
            End If//找回生3
        Next        
            
            
        Call 关闭召唤 
        Call 关闭任务   
        Call 关闭道具    
        Call 去大唐东抓怪
        Exit Sub

        ////////////////////////////////////////////大唐东

    elseIf guaiditu="大唐南" then/////////////分析怪物地点
        Call 打开召唤
        Call 打开召唤
        Call 关闭任务
        Delay yc+ 200 
        redim za(4)
        za(0)="绝色"
        za(1)="风流"
        za(2)="土豪"
        za(3)="刀客"
        za(4)="衙役"
        For i=0 to 4
            Call 打开召唤
            Call 打开召唤
            Delay yc+ 200
            dm_ret = dm.FindStr(175,93,350,263,za(i),"f8fcf8-000000",1.0,intX,intY)
            //        FindPic 0,0,807,621,"C:\XYW\"& za(i) &".bmp",0.9,intX,intY
            If intX > 0 And intY > 0 Then//找回生3
                guai =za(i)
                Delay yc+ 200
                Call 关闭道具
                Call 关闭召唤
                Call 关闭任务
                Call 交任务
                Call 关闭道具
                Exit sub
            End If//找回生3
        Next         
        Call 关闭召唤 
        Call 关闭任务   
        Call 关闭道具    
        Call 去大唐南抓怪
        Exit Sub

        ///////////////////////////////////////////////大唐南

    elseIf guaiditu="阳关" then/////////////分析怪物地点


        redim za(2)
        za(0)="弩手"
        za(1)="厥刀" 
        For i=0 to 1
            Call 打开召唤
            Call 打开召唤
            Delay yc+ 200
            dm_ret = dm.FindStr(175,93,350,263,za(i),"f8fcf8-000000",1.0,intX,intY)
            //        FindPic 0,0,807,621,"C:\XYW\"& za(i) &".bmp",0.9,intX,intY
            If intX > 0 And intY > 0 Then//找回生3
                guai =za(i)
                Delay yc+ 200
                Call 关闭道具
                Call 关闭召唤
                Call 关闭任务
                Call 交任务
                Call 关闭道具