--黄金之链

队友数量=取副本定义队友()
是否跟随=取副本是否跟随队长()
是否接受邀请或申请进队=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 副本打怪子程序(地图,x,y)
       if(取地图名称() == 地图) then
          召唤坐骑()
          寻路(x,y)
          等待(其他间隔)
          while(取周围怪数量()>0) do
	       杀怪(0,1)
	       等待(其他间隔)
           拣包(只捡取物品)
	       等待(其他间隔)
		   寻路(x,y)
	      end
	   end
end

function 副本打怪()
    while(取任务进度("黄金之链") == 0 and 取地图名称() == "玄雷坡") do
        召唤坐骑()
	副本打怪子程序("玄雷坡",135,198)
        副本打怪子程序("玄雷坡",135,177)
	副本打怪子程序("玄雷坡",145,188)
        副本打怪子程序("玄雷坡",158,188)
        副本打怪子程序("玄雷坡",158,188)
		召唤坐骑()
        副本打怪子程序("玄雷坡",98,87)
        副本打怪子程序("玄雷坡",65,87)
        副本打怪子程序("玄雷坡",98,67)
        副本打怪子程序("玄雷坡",85,57)
        副本打怪子程序("玄雷坡",74,57)
        副本打怪子程序("玄雷坡",65,67)
        副本打怪子程序("玄雷坡",55,58)
        副本打怪子程序("玄雷坡",62,40)
        召唤坐骑()
        副本打怪子程序("玄雷坡",159,64)
        副本打怪子程序("玄雷坡",175,81)
        副本打怪子程序("玄雷坡",199,72)
        副本打怪子程序("玄雷坡",178,63)
        副本打怪子程序("玄雷坡",167,45)
        while(取任务进度("黄金之链") == 0 and 取地图名称() == "玄雷坡") do
            寻路(196,47)
            等待(其他间隔)            
           while (取周围怪数量()>0) do
	         杀怪(0,1)
	         等待(其他间隔)
             拣包2(只捡取物品)
	         等待(其他间隔)
	       end
            拣包2(只捡取物品)
           
        end  
        while(取地图名称() ~= "楼兰") do
            等待(其他间隔)
            拣包2(只捡取物品)
        end  
    end
end

function 副本跟随()
  while(取任务进度("黄金之链") == 0 and 取地图名称() == "玄雷坡") do
    跟随队长()
    拣包2(只捡取物品)
    等待(其他间隔)
  end
end

队友序号=取队内位置()
打印信息("队伍所在位置"..tostring(队友序号))

if(读取任务("黄金之链",1) == false or 取任务进度("黄金之链") == 0) then
    while(寻找文本("玄雷坡 毒障泽地 熔岩之地",取地图名称()) <= 0) 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::