if 气血()==0 then 转到("复活判断") end
挑战田伯光=0         --改1挑战田伯光  改0不挑战
陈百臂拉边角打=0   --改1拉  改0不拉
队伍躲陈百臂机关=0   --改1躲  改0不躲
if 当前地图()=="镇嵩宝塔" then 转到("设置副本") end
if 精力()<1 then 转到("没精力") end
if 0<查找任务("可接","领取白云熊胆丸") then 转到("做领取丸") end
是否卖出绿装=0  --改1卖，改0不卖
if 0<查找任务("可接","80级") then 转到("接侠客挑战") end
if 0<查找任务("完成","80级") then 转到("交侠客挑战") end
if 内力()<70 then 向下执行(2) end
if 气血()>80 then 向下执行(3) end
if 当前地图()=="福州城" then 转到("福州恢复血气") end
if 当前地图()=="洛阳城" then 转到("洛阳恢复血气") end
if 当前地图()=="镇嵩宝塔" then else 转到("集中补给进副本") end
重载脚本()


::没精力::


if 是否有队伍()==1 then end --队伍里1人就直接进

::接侠客挑战::
任务目标("领取","80级");等待(3000)
加速()
上马()
if 查找("NPC","白发剑客")<5 then else 向上执行(3) end 
打开NPC("白发剑客");等待(1000)
NPC对话("<侠客挑战>80级");等待(1000)
任务对话("接受");等待(2000)
重载脚本()

::交侠客挑战::
任务目标("完成","80级");等待(3000)
加速()
上马()
if 查找("NPC","白发剑客")<5 then else 向上执行(3) end 
打开NPC("白发剑客");等待(1000)
对话框选项(1);等待(1000)
任务对话("完成");等待(2000)
重载脚本()

::复活判断::
if 单刷无复活丸退出副本重新进()==1 then else 向下执行(7) end
if 是否有队伍()==1 then else 向下执行(6) end
if 背包物品("数量","白云熊胆丸")>0 then 向下执行(5) end
窗口事件("Win_ReviveItem","back")
发送("8500")
等待(4000)   --单刷没有复活丸就退出副本
重载脚本()
if 全队阵亡退出副本()==1 then else 向下执行(5) end
窗口事件("Win_ReviveItem","back")
发送("8500")
等待(4000)   --退出副本
重载脚本()
if 气血()==0 then 等待(1000) end
if 窗口事件("Win_InstanceAward")==1 then 转到("抽奖") end
重载脚本()

::做领取丸::
寻径(75,421,38,10);等待(3000)
if 坐标距离(421,10)<2 then else 向上执行(1) end
打开NPC("千小伊");等待(1000)
NPC对话("<每日任务>宝银发放");等待(1000)
任务对话("接受");等待(1000)
寻径(75,366,36,109);等待(3000)
if 坐标距离(366,109)<3 then else 向上执行(1) end
打开NPC("");等待(1000)
NPC对话("<每日>领取白云熊胆丸");等待(1000)
任务对话("接受");等待(2000)
重载脚本()

对话框选项(1);等待(1000)
木柴堆  瓦罐 火把 木箱 木桶






::进入镇嵩宝塔::
设置("清空挂机坐标") -- 清空列表
设置("目标怪物","石灯","火把","石灯","木柴堆","瓦罐","木箱","木桶","古董架","白瓷瓶")
设置("怪物不打") -- 对应 单选框
引怪模式(0) --关
if 是否有队伍()==0 then 转到("队伍判断") end
if 我是队长() then 等待(8000) else 转到("等待进入") end
窗口事件("Win_BattleFieldEnter","Btn_Instance") --打开副本界面
窗口事件("Win_InstanceList","Btn_InstanceSort1")
等待(2000)
if 队员距离()<20 then else 向上执行(1) end
if 副本难度()=="盟主难度" then 发送("58000000000000000000330E00000000000004") end 
if 副本难度()=="英雄难度" then 发送("58000000000000000000330E00000000000003") end 
if 副本难度()=="侠客难度" then 发送("58000000000000000000330E00000000000002") end
if 副本难度()=="普通难度" then 发送("58000000000000000000330E00000000000001") end
等待(3000)
if 当前地图()=="镇嵩宝塔" then 重载脚本() end
转到("进入镇嵩宝塔")

::等待进入::
设置("清空挂机坐标") -- 清空列表
设置("目标怪物","石灯","火把","石灯","木柴堆","瓦罐","木箱","木桶","古董架","白瓷瓶")
设置("怪物不打") -- 对应 单选框
引怪模式(0) --关
if 我是队长() then 转到("进入镇嵩宝塔") else 等待(3000) end
if 当前地图()=="镇嵩宝塔" then 转到("做镇嵩宝塔") end
向上执行(2)

::队伍判断::
if 是否有队伍()==0 then else 转到("进入镇嵩宝塔") end
窗口事件("Win_Main","Btn_Team")   --打开队伍界面
窗口事件("Win_TeamPlaza","Btn_Create")  --创建队伍
窗口事件("Win_TeamFrame","Btn_Close")  --关闭队伍界面
等待(2000)
设置("清空挂机坐标") -- 清空列表
设置("目标怪物","石灯","火把","石灯","木柴堆","瓦罐","木箱","木桶","古董架","白瓷瓶")
设置("怪物不打") -- 对应 单选框
引怪模式(0) --关
转到("进入镇嵩宝塔")


::集中补给进副本::
if 副本集合点()=="洛阳城" then 转到("洛阳集合") end
if 副本集合点()=="福州城" then 转到("福州集合") end
if 集合点==1 then 转到("福州集合") end
if 集合点==2 then 转到("洛阳集合") end
转到("福州集合")

一一一一一一一一一一一一一一一一一一一一一一一一一一一一一一一一一一一一

::福州恢复血气::
if 当前地图()=="镇嵩宝塔" then 转到("做镇嵩宝塔") end
寻径(68,217,58,-165);等待(2000)
if 是否移动() then 发送("900001");等待(1000) end --小跳防止卡路
加速()
上马()
if 查找("NPC","白茯苓")<5 then 向下执行(3) end 
if 查找("NPC","杜仲")<5 then 向下执行(2) end 
if 查找("NPC","西河柳")<5 then else 向上执行(7) end 
打开NPC("");等待(1000)
任务对话("接受")
等待(2000)
转到("集中补给进副本")

::福州集合::
if 当前地图()=="镇嵩宝塔" then 转到("做镇嵩宝塔") end
if 坐标距离(205,-32)<4 then 向下执行(5) else 记住当前位置() end
寻径(68,205,63,-32);等待(2000)
if 是否移动() then 加速() end 
if 取记录距离()<1.5 then 转到("卡了") end
if 是否移动() then 上马() end 
if 坐标距离(205,-32)<4 then else 转到("福州集合") end 
if 窗口事件("Win_BindStatus")==1 then 发送("910009") else 发送("910000") end
打开NPC("");等待(1000)
对话框选项(2);等待(1000)
if 卖绿装勾选()==1 then 卖出绿装() end 
等待(1000)
if 是否卖出绿装==1 then 卖出绿装() else 向下执行(2) end
全部修理();等待(1000)
发送("0E000307000000010002000300040005000C00")	--全部修理()
等待(1000)
启动买药()
等待(1000)
if 买药条件(1)==1 then 向下执行(6) end
if 买药条件(2)==1 then 向下执行(5) end
if 买药条件(3)==1 then 向下执行(4) end
if 买药条件(4)==1 then 向下执行(3) end
if 买药条件(5)==1 then 向下执行(2) end
if 买药条件(6)==1 then else 转到("进入镇嵩宝塔") end
if 买药名称(1)=="杏仁豆腐" then 转到("客栈购买") end
if 买药名称(1)=="阳春面" then 转到("客栈购买") end
if 买药名称(2)=="杏仁豆腐" then 转到("客栈购买") end
if 买药名称(2)=="阳春面" then 转到("客栈购买") end
if 买药名称(3)=="杏仁豆腐" then 转到("客栈购买") end
if 买药名称(3)=="阳春面" then 转到("客栈购买") end
if 买药名称(4)=="杏仁豆腐" then 转到("客栈购买") end
if 买药名称(4)=="阳春面" then 转到("客栈购买") end
if 买药名称(5)=="杏仁豆腐" then 转到("客栈购买") end
if 买药名称(5)=="阳春面" then 转到("客栈购买") end
if 买药名称(6)=="杏仁豆腐" then 转到("客栈购买") end
if 买药名称(6)=="阳春面" then 转到("客栈购买") end
if 买药名称(1)=="稻香牛舌饼" then 转到("客栈购买") end
if 买药名称(1)=="燕皮馄饨" then 转到("客栈购买") end
if 买药名称(2)=="稻香牛舌饼" then 转到("客栈购买") end
if 买药名称(2)=="燕皮馄饨" then 转到("客栈购买") end
if 买药名称(3)=="稻香牛舌饼" then 转到("客栈购买") end
if 买药名称(3)=="燕皮馄饨" then 转到("客栈购买") end
if 买药名称(4)=="稻香牛舌饼" then 转到("客栈购买") end
if 买药名称(4)=="燕皮馄饨" then 转到("客栈购买") end
if 买药名称(5)=="稻香牛舌饼" then 转到("客栈购买") end
if 买药名称(5)=="燕皮馄饨" then 转到("客栈购买") end
if 买药名称(6)=="稻香牛舌饼" then 转到("客栈购买") end
if 买药名称(6)=="燕皮馄饨" then 转到("客栈购买") end
if 当前地图()=="镇嵩宝塔" then 转到("做镇嵩宝塔") end
转到("进入镇嵩宝塔")

::客栈购买::
if 坐标距离(45,43)<4 then 向下执行(5) else 记住当前位置() end
寻径(1051,45,35,43);等待(2000)
if 是否移动() then 加速();等待(1000) end 
if 取记录距离()<1 then 转到("卡了") end
if 是否移动() then 上马();等待(1000) end 
if 坐标距离(45,43)<5 then else 向上执行(5) end 
if 窗口事件("Win_BindStatus")==1 then 发送("910009") else 发送("910000") end 
打开NPC("佟百城");等待(1000)
启动买药()
等待(1000)
转到("福州集合点")

::福州集合点::
if 坐标距离(205,-32)<4 then 向下执行(5) else 记住当前位置() end
寻径(68,205,63,-32);等待(2000)
if 是否移动() then 加速();等待(1000) end
if 取记录距离()<1 then 转到("卡了") end
if 当前地图()=="镇嵩宝塔" then 转到("做镇嵩宝塔") end
if 坐标距离(205,-32)<5 then else 向上执行(5) end 
转到("进入镇嵩宝塔")

一一一一一一一一一一一一一一一一一一一一一一一一一一一一一一一一一一一一一一一一
if 是否有队伍()==1 then end --队伍里1人就直接进

::洛阳恢复血气::
if 当前地图()=="镇嵩宝塔" then 转到("做镇嵩宝塔") end
if 坐标距离(258,165)<1 then 向下执行(4) else 记住当前位置() end
寻径(75,258,26,165);等待(2000)
if 取记录距离()<1.5 then 转到("卡了") end
if 坐标距离(258,165)<2 then else 向上执行(4) end
打开NPC("丁公藤");等待(1000)
任务对话("接受")
等待(2000)
转到("洛阳集合")

::洛阳集合::
if 当前地图()=="镇嵩宝塔" then 转到("做镇嵩宝塔") end
if 坐标距离(366,109)<1 then 向下执行(4) else 记住当前位置() end
寻径(75,366,36,109);等待(2000)
if 取记录距离()<1 then 转到("卡了") end
if 坐标距离(366,109)<2 then else 向上执行(4) end
if 卖绿装勾选()==1 then 转到("洛阳买药") end 
if 是否卖出绿装==1 then 转到("洛阳买药") end
if 买药条件(1)==1 then 转到("洛阳买药") end
if 买药条件(2)==1 then 转到("洛阳买药") end
if 买药条件(3)==1 then 转到("洛阳买药") end
if 买药条件(4)==1 then 转到("洛阳买药") end
if 买药条件(5)==1 then 转到("洛阳买药") end
if 买药条件(6)==1 then 转到("洛阳买药") end
if 装备耐久度()<9 then 转到("洛阳买药") end
if 当前地图()=="镇嵩宝塔" then 转到("做镇嵩宝塔") end
转到("进入镇嵩宝塔")

::洛阳买药::
if 坐标距离(420,-174)<1 then 向下执行(4) else 记住当前位置() end
寻径(75,420,35,-174);等待(2000) 
if 取记录距离()<1 then 转到("卡了") end
if 坐标距离(420,-174)<2 then else 向上执行(3) end
打开NPC("林芝");等待(1000)
对话框选项(2);等待(1000)
if 是否卖出绿装==1 then 卖出绿装() else 向下执行(2) end
等待(1000)
if 卖绿装勾选()==1 then 卖出绿装() end 
等待(1000)
全部修理()
等待(1000)
启动买药()
等待(1000)
if 买药条件(1)==1 then 向下执行(6) end
if 买药条件(2)==1 then 向下执行(5) end
if 买药条件(3)==1 then 向下执行(4) end
if 买药条件(4)==1 then 向下执行(3) end
if 买药条件(5)==1 then 向下执行(2) end
if 买药条件(6)==1 then else 转到("准备进入副本") end
if 买药名称(1)=="杏仁豆腐" then 转到("酒店购买") end
if 买药名称(1)=="阳春面" then 转到("酒店购买") end
if 买药名称(2)=="杏仁豆腐" then 转到("酒店购买") end
if 买药名称(2)=="阳春面" then 转到("酒店购买") end
if 买药名称(3)=="杏仁豆腐" then 转到("酒店购买") end
if 买药名称(3)=="阳春面" then 转到("酒店购买") end
if 买药名称(4)=="杏仁豆腐" then 转到("酒店购买") end
if 买药名称(4)=="阳春面" then 转到("酒店购买") end
if 买药名称(5)=="杏仁豆腐" then 转到("酒店购买") end
if 买药名称(5)=="阳春面" then 转到("酒店购买") end
if 买药名称(6)=="杏仁豆腐" then 转到("酒店购买") end
if 买药名称(6)=="阳春面" then 转到("酒店购买") end
if 买药名称(1)=="稻香牛舌饼" then 转到("酒店购买") end
if 买药名称(1)=="燕皮馄饨" then 转到("酒店购买") end
if 买药名称(2)=="稻香牛舌饼" then 转到("酒店购买") end
if 买药名称(2)=="燕皮馄饨" then 转到("酒店购买") end
if 买药名称(3)=="稻香牛舌饼" then 转到("酒店购买") end
if 买药名称(3)=="燕皮馄饨" then 转到("酒店购买") end
if 买药名称(4)=="稻香牛舌饼" then 转到("酒店购买") end
if 买药名称(4)=="燕皮馄饨" then 转到("酒店购买") end
if 买药名称(5)=="稻香牛舌饼" then 转到("酒店购买") end
if 买药名称(5)=="燕皮馄饨" then 转到("酒店购买") end
if 买药名称(6)=="稻香牛舌饼" then 转到("酒店购买") end
if 买药名称(6)=="燕皮馄饨" then 转到("酒店购买") end
if 当前地图()=="镇嵩宝塔" then 转到("做镇嵩宝塔") end
转到("准备进入副本")

::酒店购买::
if 当前地图()=="镇嵩宝塔" then 转到("做镇嵩宝塔") end
if 坐标距离(444,-227)<1 then 向下执行(4) else 记住当前位置() end
寻径(75,444,38,-227);等待(2000) 
if 取记录距离()<1.5 then 转到("卡了") end
if 坐标距离(444,-227)<2 then else 向上执行(4) end
打开NPC("花不醉");等待(1000)
启动买药()
等待(1000)
if 当前地图()=="镇嵩宝塔" then 转到("做镇嵩宝塔") end
if 坐标距离(366,109)<1 then 向下执行(4) else 记住当前位置() end
寻径(75,366,36,109);等待(2000)
if 取记录距离()<1.5 then 转到("卡了") end
if 坐标距离(366,109)<2 then else 向上执行(4) end
转到("进入镇嵩宝塔")

::准备进入副本::
if 当前地图()=="镇嵩宝塔" then 转到("做镇嵩宝塔") end
if 坐标距离(366,109)<1 then 向下执行(4) else 记住当前位置() end
寻径(75,366,36,109);等待(2000)
if 取记录距离()<1.5 then 转到("卡了") end
if 坐标距离(366,109)<2 then else 向上执行(4) end
转到("进入镇嵩宝塔")

::设置副本::
设置("清空挂机坐标") -- 清空列表
设置("目标怪物","石灯","火把","石灯","木柴堆","瓦罐","木箱","木桶","古董架","白瓷瓶")
设置("怪物不打") -- 对应 单选框
引怪模式(0) --关
转到("做镇嵩宝塔")

::做镇嵩宝塔::
if 当前地图()=="镇嵩宝塔" then else 重载脚本() end
if 获取挂机()==1 then 自动战斗("关闭") end
if 副本目标("目标")=="穿过谷底，与不戒和尚会合" then 转到("穿过谷底") end
if 副本目标("目标")=="谷底戒备森严，看来敌人早有准备" then 转到("戒备森严") end
if 副本目标("目标")=="小心埋伏，迅速解决战斗" then 转到("戒备森严") end
if 副本目标("目标")=="跳过山石向上，进入宝塔" then 转到("跳过山石") end
if 副本目标("目标")=="探索第一层" then 转到("探索第一层") end
if 副本目标("目标")=="四周的墙壁血迹斑斑，甚至还未干涸" then 转到("凝神戒备") end
if 副本目标("目标")=="敌人发现了你的行踪，凝神戒备" then 转到("凝神戒备") end
if 副本目标("目标")=="前往第二层" then 转到("前往第二层") end
if 副本目标("目标")=="探索第二层" then 转到("探索第二层") end
if 副本目标("目标")=="这家伙满脸横肉，手上的屠刀被鲜血染红" then 转到("满脸横肉") end
if 副本目标("目标")=="前往第三层" then 转到("前往第三层") end
if 副本目标("目标")=="探索第三层" then 转到("探索第三层") end
if 副本目标("目标")=="四周布满了陷阱，不经意间会触动开关" then 转到("四周布满") end
if 副本目标("目标")=="四周有人看守，只能突围向上" then 转到("四周布满") end
if 副本目标("目标")=="前往第四层" then 转到("前往第四层") end
if 副本目标("目标")=="探索第四层" then 转到("探索第四层") end
if 副本目标("目标")=="各种机关暗器防不胜防，打败它们的操纵者" then 转到("各种机关") end
if 副本目标("目标")=="前往第五层" then 转到("前往第五层") end
if 副本目标("目标")=="探索第五层" then 转到("探索第五层") end
if 副本目标("目标")=="嵩山派的先人曾在此研习武学" then 转到("嵩山派的先人") end
if 副本目标("目标")=="前往第六层" then 转到("前往第六层") end
if 副本目标("目标")=="探索第六层" then 转到("探索第六层") end
if 副本目标("目标",0,6)=="嵩山派副掌门" then 转到("掌门汤英鹗") end
if 查找对象("田伯光")>0 then 转到("田伯光对话") end 
if 窗口事件("Win_InstanceAward")==1 then 转到("抽奖") end
if 是否有红名怪("",25) then 转到("打红名怪") end
转到("做镇嵩宝塔")

::打红名怪::
设置("范围",25)
if 获取挂机()==1 then else 自动战斗("开启") end
if 是否有队伍()==1 then 等待(1000) else 向下执行(2) end
if 是否有红名怪("",25) then 选中红名怪("",25);等待(1000) end
if 是否有红名怪("",25) then 向上执行(3) end
转到("25范围捡物")


::穿过谷底::
if 副本目标("目标")=="穿过谷底，与不戒和尚会合" then else 转到("做镇嵩宝塔") end
if 坐标距离(524,-5)<1 then 向下执行(4) else 记住当前位置() end
寻径(1525,524,15,-5);等待(1000)
if 取记录距离()<1.5 then 转到("卡住了") end
if 坐标距离(524,-5)<2 then else 向上执行(4) end
转到("做镇嵩宝塔")

::戒备森严::
设置("范围",30)
if 副本目标("目标")=="谷底戒备森严，看来敌人早有准备" then 向下执行(2) end
if 副本目标("目标")=="小心埋伏，迅速解决战斗" then 转到("小心埋伏") end
if 获取挂机()==1 then else 自动战斗("开启") end
if 是否有队伍()==1 then 等待(1000) else 向下执行(2) end
if 是否有红名怪("",30) then 选中红名怪("",30);等待(1000) end
if 是否有红名怪("",30) then 向上执行(5) end
转到("25范围捡物")

::小心埋伏::
if 副本目标("目标")=="小心埋伏，迅速解决战斗" then else 转到("25范围捡物") end
if 获取挂机()==1 then else 自动战斗("开启") end
if 是否有队伍()==1 then 等待(1000) else 向下执行(2) end
if 是否有红名怪("",30) then 选中红名怪("",30);等待(1000) end
if 是否有红名怪("",30) then 向上执行(4) end
if 坐标距离(511,1)<1 then 向下执行(4) else 记住当前位置() end
寻径(1525,511,15,1);等待(2000)
if 取记录距离()<1.5 then 转到("卡住了") end
if 坐标距离(511,1)<2 then else 向上执行(3) end
转到("25范围捡物")

::跳过山石::
if 副本目标("目标")=="跳过山石向上，进入宝塔" then else 转到("做镇嵩宝塔") end
if 坐标距离(489,-11)<12 then 转到("过山石继续") end
if 坐标距离(496,-2)<10 then 转到("过山石继续") end 
if 坐标距离(514,-10)<3 then 转到("卡坐标了") end
if 坐标距离(500,-25)<1 then 向下执行(5) else 记住当前位置() end
寻径(1525,500,26,-25);等待(1000)
if 查找对象("路障",6)>0 then 转到("打路障") end
if 取记录距离()<1.5 then 转到("卡住了") end
if 坐标距离(500,-25)<2 then else 向上执行(5) end
等待(1000)
if 体力()>80 then else 向上执行(1) end
发送("900001")
等待(300)
飞跃(498,33,-26)
等待(2000)
发送("900001")
等待(300)
发送("900002")
等待(500)
飞跃(493,35,-25)
等待(2000)
if 当前高度()>33 then else 转到("跳过山石") end
转到("过山石继续")

移动
飞跃(493,35,-22)

::卡坐标了::
移动(519,15,-2);等待(2000)
移动(510,15,-1);等待(2000)
转到("跳过山石")

::过山石继续::
if 坐标距离(489,-11)<12 then else 向下执行(2) end
移动(489,35,-11);等待(1000)
if 副本目标("目标")=="跳过山石向上，进入宝塔" then else 转到("做镇嵩宝塔") end
寻径(1525,500,41,5);等待(3000)
转到("做镇嵩宝塔")


if 坐标距离(762,423)<2 then 向下执行(3) else 计时("开始") end
寻径(1525,762,147,423);等待(1000)
if 计时("读出")>10 then 向下执行(2) end  
if 坐标距离(762,423)<4 then 等待(1000) else 向上执行(2) end



::探索第一层::
if 副本目标("目标")=="探索第一层" then else 转到("做镇嵩宝塔") end
寻径(1525,762,147,423);等待(2000)
转到("做镇嵩宝塔")

::凝神戒备::
设置("范围",30)
if 副本目标("目标")=="四周的墙壁血迹斑斑，甚至还未干涸" then 向下执行(2) end
if 副本目标("目标")=="敌人发现了你的行踪，凝神戒备" then else 转到("25范围捡物") end
if 获取挂机()==1 then 等待(1000) else 自动战斗("开启") end
if 是否有队伍()==1 then 等待(1000) else 向下执行(2) end
if 是否有红名怪("",30) then 选中红名怪("",30);等待(1000) end
if 是否有红名怪("",30) then 向上执行(5) end
转到("25范围捡物")

::前往第二层::
if 副本目标("目标")=="前往第二层" then else 转到("做镇嵩宝塔") end
if 坐标距离(757,423)<28 then else 向下执行(2) end
寻径(1525,736,147,423);等待(2000)
if 副本目标("目标")=="前往第二层" then else 转到("做镇嵩宝塔") end
寻径(1525,715,147,423);等待(3000)
转到("做镇嵩宝塔")

::探索第二层::
if 副本目标("目标")=="探索第二层" then else 转到("做镇嵩宝塔") end
寻径(1525,760,147,322);等待(2000)
转到("做镇嵩宝塔")


::满脸横肉::
设置("范围",30)
if 副本目标("目标")=="这家伙满脸横肉，手上的屠刀被鲜血染红" then else 转到("25范围捡物") end
if 获取挂机()==1 then 等待(1000) else 自动战斗("开启") end
if 是否有队伍()==1 then 等待(1000) else 向下执行(2) end
if 是否有红名怪("",30) then 选中红名怪("",30);等待(1000) end
if 是否有红名怪("",30) then 向上执行(5) end
转到("25范围捡物")

::打路障::
if 获取挂机()==1 then else 自动战斗("开启") end
if 查找对象("路障",6)>0 then 选中对象("路障");等待(1000) else 向下执行(4) end
自动使用技能(1);等待(1000) 
等待(1000)
if 查找对象("路障",6)>0 then 向上执行(4) end
等待(1000)
转到("10范围捡物")


::前往第三层::
if 副本目标("目标")=="前往第三层" then else 转到("做镇嵩宝塔") end
if 坐标距离(759,321)<28 then else 向下执行(2) end
寻径(1525,734,147,321);等待(2000)
if 副本目标("目标")=="前往第三层" then else 转到("做镇嵩宝塔") end
寻径(1525,711,147,321);等待(3000)
转到("做镇嵩宝塔")

::探索第三层::
if 副本目标("目标")=="探索第三层" then else 转到("做镇嵩宝塔") end
寻径(1525,761,146,226);等待(2000)
转到("做镇嵩宝塔")

::四周布满::
设置("范围",30)
if 副本目标("目标")=="四周布满了陷阱，不经意间会触动开关" then 向下执行(2) end
if 副本目标("目标",0,6)=="四周有人看守" then 转到("突围向上") else 转到("25范围捡物") end
if 获取挂机()==1 then else 自动战斗("开启") end
if 是否有队伍()==1 then 等待(1000) else 向下执行(2) end
if 是否有红名怪("",30) then 选中红名怪("",30);等待(1000) end
if 是否有红名怪("",30) then 向上执行(5) end
转到("25范围捡物")

::突围向上::
if 副本目标("目标",0,6)=="四周有人看守" then else 转到("25范围捡物") end
if 坐标距离(749,237)<4 then 转到("脱离危险坐标") end
if 坐标距离(742,226)<4 then 转到("脱离危险坐标") end
if 坐标距离(749,215)<4 then 转到("脱离危险坐标") end
if 坐标距离(761,215)<4 then 转到("脱离危险坐标") end
if 坐标距离(767,226)<4 then 转到("脱离危险坐标") end
if 坐标距离(761,237)<4 then 转到("脱离危险坐标") end
if 坐标距离(755,226)<8 then 转到("脱离危险坐标") end
if 获取挂机()==1 then 等待(1000) else 自动战斗("开启") end
if 是否有红名怪("",30) then 转到("突围向上") end
转到("25范围捡物")


::脱离危险坐标::
if 获取挂机()==1 then 自动战斗("关闭") end
if 坐标距离(749,237)<4 then 移动(736,145,236);等待(1000) else 向下执行(2) end
if 坐标距离(749,237)<4 then 向上执行(1) end
if 坐标距离(742,226)<4 then 移动(736,145,236);等待(1000) else 向下执行(2) end
if 坐标距离(742,226)<4 then 向上执行(1) end
if 坐标距离(749,215)<4 then 移动(755,145,205);等待(1000) else 向下执行(2) end
if 坐标距离(749,215)<4 then 向上执行(1) end
if 坐标距离(761,215)<4 then 移动(755,145,205);等待(1000) else 向下执行(2) end
if 坐标距离(761,215)<4 then 向上执行(1) end
if 坐标距离(767,226)<4 then 移动(773,145,236);等待(1000) else 向下执行(2) end
if 坐标距离(767,226)<4 then 向上执行(1) end
if 坐标距离(761,237)<4 then 移动(773,145,236);等待(1000) else 向下执行(2) end
if 坐标距离(761,237)<4 then 向上执行(1) end
if 坐标距离(755,226)<8 then 寻径(1525,733,145,212);等待(1000) else 向下执行(2) end
if 坐标距离(755,226)<8 then 向上执行(1) end
if 获取挂机()==1 then else 自动战斗("开启") end
转到("突围向上")


::前往第四层::
if 副本目标("目标")=="前往第四层" then else 转到("做镇嵩宝塔") end
if 坐标距离(755,226)<28 then else 向下执行(2) end
寻径(1525,731,145,227);等待(2000)
if 副本目标("目标")=="前往第四层" then else 转到("做镇嵩宝塔") end
寻径(1525,711,145,227);等待(2000)
转到("做镇嵩宝塔")

::探索第四层::
if 副本目标("目标")=="探索第四层" then else 转到("做镇嵩宝塔") end
寻径(1525,756,145,113);等待(2000)
转到("做镇嵩宝塔")



::各种机关::
if 陈百臂拉边角打==1 then 转到("百壁拉边打") end
if 副本目标("目标",0,8)=="各种机关暗器防不" then else 转到("25范围捡物") end
if 是否有队伍()>1 then else 向下执行(6) end  --队伍2人以上取消躲机关
if 队伍躲陈百臂机关==1 then else 向下执行(5) end
if 坐标距离(761,113)<5 then 转到("机关脱离") end
if 坐标距离(757,109)<5 then 转到("机关脱离") end
if 坐标距离(752,114)<5 then 转到("机关脱离") end
if 坐标距离(757,118)<5 then 转到("机关脱离") end
if 获取挂机()==1 then 等待(1000) else 自动战斗("开启") end
if 是否有红名怪("",30) then 转到("各种机关") end
转到("25范围捡物")

::机关脱离::
if 获取挂机()==1 then 自动战斗("关闭") end
if 坐标距离(761,113)<5 then 移动(771,145,113);等待(1000) else 向下执行(2) end
if 坐标距离(761,113)<5 then 向上执行(1) end
if 坐标距离(757,109)<5 then 移动(757,145,98);等待(1000) else 向下执行(2) end
if 坐标距离(757,109)<5 then 向上执行(1) end
if 坐标距离(752,114)<5 then 移动(742,145,113);等待(1000) else 向下执行(2) end
if 坐标距离(752,114)<5 then 向上执行(1) end
if 坐标距离(757,118)<5 then 移动(757,145,129);等待(1000) else 向下执行(2) end
if 坐标距离(757,118)<5 then 向上执行(1) end
if 获取挂机()==1 then else 自动战斗("开启") end
转到("各种机关")


::百壁拉边打::
if 副本目标("目标",0,8)=="各种机关暗器防不" then else 转到("25范围捡物") end
if 坐标距离(783,113)<17 then 向下执行(6) end
if 获取挂机()==1 then 自动战斗("关闭") end
if 坐标距离(780,114)<6 then 向下执行(4) else 计时("开始") end
寻径(1525,780,145,114);等待(1000)
if 计时("读出")>10 then 向下执行(2) end  
if 坐标距离(780,114)<6 then else 向上执行(2) end
if 获取挂机()==1 then 等待(1000) else 自动战斗("开启") end
if 是否有红名怪("",50) then else 寻径(1525,758,145,124);等待(3000) end
转到("百壁拉边打")

::前往第五层::
if 副本目标("目标")=="前往第五层" then else 转到("做镇嵩宝塔") end
if 坐标距离(756,113)<25 then else 向下执行(2) end
寻径(1525,735,145,114);等待(2000)
if 副本目标("目标")=="前往第五层" then else 转到("做镇嵩宝塔") end
寻径(1525,711,145,114);等待(3000)
转到("做镇嵩宝塔")

::探索第五层::
if 副本目标("目标")=="探索第五层" then else 转到("做镇嵩宝塔") end
寻径(1525,515,145,386);等待(3000)
转到("做镇嵩宝塔")

::嵩山派的先人::
if 副本目标("目标")=="嵩山派的先人曾在此研习武学" then else 转到("25范围捡物") end
if 获取挂机()==1 then else 自动战斗("开启") end
if 是否有队伍()==1 then 等待(1000) else 向下执行(2) end
if 是否有红名怪("",30) then 选中红名怪("",30);等待(1000) end
if 是否有红名怪("",30) then 向上执行(4) end
转到("25范围捡物")

::前往第六层::
if 副本目标("目标")=="前往第六层" then else 转到("做镇嵩宝塔") end
if 坐标距离(513,386)<25 then else 向下执行(2) end
寻径(1525,492,145,385);等待(2000)
if 坐标距离(465,386)<2 then 向下执行(4) end
寻径(1525,477,145,386);等待(3000)
if 活动入口("距离","泉水")<3 then 吸取("泉水");等待(4000) end
if 气血()<90 then 吸取("泉水");等待(3000) end
寻径(1525,465,145,386);等待(2000)
转到("做镇嵩宝塔")

::探索第六层::
if 副本目标("目标")=="探索第六层" then else 转到("做镇嵩宝塔") end
寻径(1525,351,137,412);等待(1000)
转到("做镇嵩宝塔")

::掌门汤英鹗::
设置("范围",50)
if 副本目标("目标",0,6)=="嵩山派副掌门" then else 转到("做镇嵩宝塔") end
if 获取挂机()==1 then else 自动战斗("开启") end
if 是否有队伍()==1 then 等待(1000) else 向下执行(2) end
if 是否有红名怪("",30) then 选中红名怪("",30);等待(1000) end
if 是否有红名怪("",30) then 向上执行(4) end
if 查找对象("田伯光")>0 then 转到("田伯光对话") end 
if 窗口事件("Win_InstanceAward")==1 then 转到("抽奖") end
转到("做镇嵩宝塔")




转到("做镇嵩宝塔")



探索第四层







::10范围捡物::
等待(1000)
if 地面是否有物品("",10) then 计时("开始");等待(1000) else 向下执行(5) end
if 窗口事件("Win_EasyBox")==1 then 窗口事件("Win_EasyBox","Btn_Box06") end
if 地面是否有物品("",10) then 捡物("",10);等待(500) end
if 计时("读出")>10 then 向下执行(2) end  --定时10秒捡物
if 地面是否有物品("",10) then 向上执行(3) end
if 活动入口("距离","")<7 then 调息();等待(2000) end
转到("做镇嵩宝塔")

::25范围捡物::
等待(1000)
if 地面是否有物品("",50) then 计时("开始");等待(1000) else 向下执行(5) end
if 窗口事件("Win_EasyBox")==1 then 窗口事件("Win_EasyBox","Btn_Box06") end
if 地面是否有物品("",50) then 捡物("",50);等待(500) end
if 计时("读出")>20 then 向下执行(2) end  --定时10秒捡物
if 地面是否有物品("",50) then 向上执行(3) end
if 活动入口("距离","")<7 then 调息();等待(2000) end
转到("做镇嵩宝塔")

::卡了::
等待(1000)
if 取记录距离()<1.5 then 自动战斗("关闭") else 重载脚本() end
if 走过==1 then else 向下执行(5) end
坐标移动(0,2);等待(1000)
坐标移动(0,2);等待(500)
走过=2
重载脚本()
if 走过==2 then else 向下执行(5) end
坐标移动(0,-4);等待(1000)
坐标移动(0,-2);等待(500)
走过=3
重载脚本()
if 走过==3 then else 向下执行(5) end
坐标移动(-2,0);等待(500)
坐标移动(-2,0);等待(500)
走过=4
重载脚本()
if 走过==4 then else 向下执行(3) end
坐标移动(4,0);等待(1000)
坐标移动(2,0);等待(500)
走过=1
重载脚本()



::卡住了::
等待(1000)
if 取记录距离()<1 then 自动战斗("关闭") else 重载脚本() end
if 走过==1 then else 向下执行(6) end
坐标移动(0,2);等待(1000)
坐标移动(0,2);等待(500)
发送("900001");等待(200)
走过=2
重载脚本()
if 走过==2 then else 向下执行(6) end
坐标移动(0,-4);等待(1000)
坐标移动(0,-2);等待(500)
发送("900001");等待(200)
走过=3
重载脚本()
if 走过==3 then else 向下执行(6) end
坐标移动(-2,0);等待(500)
坐标移动(-2,0);等待(500)
发送("900001");等待(200)
走过=4
重载脚本()
if 走过==4 then else 向下执行(4) end
坐标移动(4,0);等待(1000)
坐标移动(2,0);等待(500)
发送("900001");等待(200)
走过=1
重载脚本()


::抽奖::
if 窗口事件("Win_InstanceAward")==1 then 等待(1000) else 重载脚本() end 
if 窗口事件("Win_LootRoll")==1 then 窗口事件("Win_LootRoll","Btn_Need1") end 
等待(500)
if 窗口事件("Win_LootRoll")==1 then 向上执行(2) end --出现捡物则需求
自动战斗("关闭");等待(1000)
额外奖励()
等待(4000) 
发送("78000000")
发送("78000100")
发送("78000200") 
发送("78000300") 
发送("78000400")
发送("78000500")
等待(2000)  
窗口事件("Win_InstanceAward","Btn_Close")
窗口事件("Win_InstanceAward","IDCANCEL")
if 窗口事件("Win_EasyBox")==1 then 窗口事件("Win_EasyBox","Btn_Box06") end
if 地面是否有物品("",60) then 捡物("",60);等待(500) end
if 地面是否有物品("",60) then 向上执行(2) end
调息()
自动战斗("关闭");等待(1000)
if 窗口事件("Win_BattleFieldMain")==1 then else 向下执行(2) end
窗口事件("Win_BattleFieldMain","Btn_BattleFieldLeave")
等待(3000)
重载脚本()

::田伯光对话::
if 查找对象("田伯光")>0 then 寻径到对象("田伯光") else 重载脚本() end 
等待(2000)
if 查找("NPC","田伯光")<5 then else 向上执行(2) end 
打开NPC("田伯光");等待(1000)
if 挑战田伯光==1 then 向下执行(3) end
对话框选项(1);等待(1000)
向下执行(4)
对话框选项(2);等待(1000)
任务对话("接受");等待(1000)
转到("挑战田伯光")
任务对话("接受");等待(1000)
转到("抽奖")

::挑战田伯光::
if 获取挂机()==1 then else 自动战斗("开启") end
等待(1000)
if 是否有红名怪("",30) then 向上执行(2) end
if 窗口事件("Win_InstanceAward")==1 then 转到("抽奖") end
转到("做镇嵩宝塔")
