--玄佛珠
队友数量=取副本定义队友()
其他间隔=1
是否跟随=取副本是否跟随队长()
是否接受邀请或申请进队=1
只捡取物品="玄昊玉 新莽神符 忆魂石 回天神石 龙魂玉 金蚕丝 隐贤名玉 玄佛珠 何悦的信 引魔珠（地） 引魔珠（风） 引魔珠（毒） 引魔珠（玄） 引魔珠（焰）"
开启人物保护()
开启组队()
if (寻找文本 ("玄雷坡 毒障泽地 熔岩之地",取地图名称 ()) <= 0) then
        自动洛阳加血(80)
end
function 接任务(任务名字,任务地图,任务npc,对话内容)
    while (取任务进度(任务名字) == -1) do
        召唤坐骑()
        寻路2(任务地图,任务npc)
        打开(任务npc)
        等待(其他间隔)
        对话(对话内容)
        等待(其他间隔)
        if (寻找文本(取对话框内容(),"5次") > 0) then
            打印信息("今天任务已经5次")
            return -1
        else
            接受()
        end
        等待(其他间隔)
        
    end
           return 0
end

function 进副本(任务名字,任务地图,任务npc,对话内容1,对话内容2,副本内地图)
    while(取任务进度(任务名字) == 0) do
        if(取地图名称() == 任务地图) then
            召唤坐骑()
            寻路2(任务地图,任务npc)
            等待(其他间隔)
            if(打开(任务npc) == true) then
                等待(其他间隔)
                if(对话(对话内容1) == true) then
                    等待(其他间隔)
                    if(对话(对话内容2) == true) then
                         判断地图()
                        if(寻找文本(取对话框内容(),"失败") > 0) then
                            打印信息("任务失败，放弃任务等待30分钟后继续任务！")
                            放弃任务(任务名字)
                        end
                    end
                end
            end
          
        end
      if 取地图名称()== 副本内地图 then          
          break
      end

    end    
end
function 交任务(任务名字,任务地图,任务npc,对话内容,是否继续)
 while(取任务进度(任务名字) == 1) do
        寻路2(任务地图,任务npc)
        等待(其他间隔)
        打开(任务npc)
        等待(其他间隔)
        对话(任务名字)
        等待(其他间隔)
   if 是否继续~=nil then
        继续()
        等待(其他间隔)
   end
        完成()
        等待(其他间隔)
 end
 while(取任务进度(任务名字) == 2) do
        打印信息("任务失败，放弃任务等待30分钟后继续任务！")
        放弃任务(任务名字)
        等待(其他间隔)
 end
end

function 副本消灭怪物(参数背包物品,参数1_x,参数1_y)
        召唤坐骑()
        local n=0;
		local 位置=判断位置()
		if 位置~=参数背包物品 and 位置~="" then 
		   return
		end
		if 取背包物品数量 (参数背包物品) == 0 and 是否是队长()==1 then
		   return;
		end
        if (取地图名称 () == "毒障泽地") then                       
            寻路 (参数1_x,参数1_y)
            等待 (其他间隔)
            下坐骑()	                
            while 取背包物品数量 (参数背包物品) == 1 do                  
                  n=0;
                  while(取周围怪数量()==0) do 
				      if  是否是队长()==1 then	      
                        使用物品 (参数背包物品)
                      end
                      等待 (1)
                      if(n==30) then
                           break;
                      end
                      n=n+1
	              end
				  
                  if 是否是队长()~=1 then	      
                     break;
                  end

            end             
	        
            等待 (其他间隔)
           ::start::
           while(取周围怪数量()>0) do
	          杀怪 (0,1)
	          等待 (其他间隔)
              拣包 (只捡取物品)
	          等待 (其他间隔)
              寻路 (参数1_x,参数1_y)
           end
          n=0; 
          while(取周围怪数量()==0) do
             if n==0 then                
               寻路 (参数1_x+14,参数1_y);
             elseif n==1 then
               寻路 (参数1_x,参数1_y+14);
             elseif n==2 then
               寻路 (参数1_x-14,参数1_y);
             elseif n==3 then
               寻路 (参数1_x,参数1_y-14);
             end 
             if (取周围怪数量()>0) then
	       goto start; 
             end            
             n=n+1;
             if(n==4) then
                      break;
             end 
         end
     end 

end

function 判断位置()
   if 取背包物品数量 ("引魔珠（焰）")==1 then
       return("引魔珠（焰）")
   elseif 取背包物品数量 ("引魔珠（玄）")==1 then
       return("引魔珠（玄）")
   elseif 取背包物品数量 ("引魔珠（毒）")==1 then
       return("引魔珠（毒）")    
   elseif 取背包物品数量 ("引魔珠（地）")==1 then
       return("引魔珠（地）")
   elseif 取背包物品数量 ("引魔珠（风）")==1 then
       return("引魔珠（风）")
   end
    return("")
end

function 副本打怪()
  while (取任务进度 ("玄佛珠") == 0 and 取地图名称 () == "毒障泽地") do
        副本消灭怪物("引魔珠（风）",133,197)
        副本消灭怪物("引魔珠（地）",82,70)
        副本消灭怪物("引魔珠（毒）",182,64)
        副本消灭怪物("引魔珠（玄）",183,167)
        副本消灭怪物("引魔珠（焰）",73,137)

        队友序号=取队内位置()
        打印信息(队友序号)

        while (取任务进度 ("玄佛珠") == 0 and 取地图名称 () == "毒障泽地") do
            if (队友序号 == 1) then
                寻路 (125,105)
            end
            if (队友序号 == 2) then
                寻路 (120,106)
            end
            if (队友序号 == 3) then
                寻路 (118,111)
            end
            if (队友序号 == 4) then
                寻路 (128,115)
            end
            if (队友序号 == 5) then
                寻路 (123,115)
            end
            if (队友序号 == 6) then
                寻路 (125,109)
            end
            等待 (其他间隔)
            杀怪 (0,0)
            等待 (其他间隔)
            拣包 (只捡取物品)
        end

    local 计次 = 0; 
    while (取地图名称 () ~= "楼兰" and 计次 < 35) do
        计次 = 计次 + 1
        拣包 (只捡取物品)
        杀怪 (0,0)
        等待 (1)
    end
   end

end

function 副本跟随()

  while(取任务进度("玄佛珠") == 0 and 取地图名称() == "毒障泽地") do
    跟随队长()
    拣包2(只捡取物品)
    等待(其他间隔)
  end
end

 队友序号=取队内位置()
 打印信息(队友序号)
 
while (读取任务 ("玄佛珠",1) == false or 取任务进度 ("玄佛珠") == 0) do  
   
    while (寻找文本 ("玄雷坡 毒障泽地 熔岩之地",取地图名称 ()) == -1) do
        召唤坐骑() 
        寻路2("楼兰","刘盾")
        if (取任务进度 ("玄佛珠") == 2) then
          放弃任务 ("玄佛珠")
          等待 (1800)
        end
        if 接任务("玄佛珠","楼兰","刘盾","玄佛珠")==-1 then
             goto en
        end 
        if(是否接受邀请或申请进队==1) then
           
           while(取队友数量() < 队友数量 and 取地图名称() == "楼兰") do  
               打印信息("正在组队")	
               寻路2("楼兰","刘盾")			   
               等待(其他间隔)
           end
           打印信息("组队完成")
        end 
        进副本("玄佛珠","楼兰","刘盾","玄佛珠","前往毒障泽地","毒障泽地")          
    end
    while (寻找文本 ("玄雷坡 毒障泽地 熔岩之地",取地图名称 ()) ~= -1) do
       if 是否跟随~=true then
         副本打怪()
       else
         副本跟随()
       end
	end
end

--交任务
 交任务("玄佛珠","楼兰","刘盾","玄佛珠")

 ::en::