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


::没精力::

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

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

::做领取丸::
任务目标("领取","领取白云熊胆丸");等待(3000)
加速()
上马()
if NPC对话框() then else 向上执行(3) end
NPC对话("<每日>领取白云熊胆丸");等待(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
重载脚本()




::进入东厂盗宝::
设置("清空挂机坐标") -- 清空列表
设置("目标怪物","火炮","兵器架","试作机型","宴席桌","木桶")
设置("怪物不打") 
引怪模式(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 发送("58000000000000000000830700000000000004") end 
if 副本难度()=="英雄难度" then 发送("58000000000000000000830700000000000003") end 
if 副本难度()=="侠客难度" then 发送("58000000000000000000830700000000000002") end
if 副本难度()=="普通难度" then 发送("58000000000000000000830700000000000001") 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 卖出绿装() 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.5 then 转到("卡住了") end
if 坐标距离(366,109)<2 then else 向上执行(4) 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 等待(1000) else 重载脚本() 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 then 转到("田伯光对话") end 
if 窗口事件("Win_InstanceAward")==1 then 转到("抽奖") end
转到("做东厂盗宝")


::潜入内部::
if 副本目标("目标")=="从外围潜入东厂内部" then else 转到("做东厂盗宝") end
if 坐标距离(430,-132)<10 then else 向下执行(5) end
移动(425,128,-129);等待(1000)
移动(426,127,-128);等待(1000)
飞行();等待(2000)
if 坐标距离(430,-132)<10 then 向上执行(3) else 等待(4000) end
if 坐标距离(351,-84)<3 then 向下执行(4) else 记住当前位置() end
if 坐标距离(351,-85)<16 then 寻径(1500,351,108,-84);等待(2000) else 向下执行(3) end
if 取记录距离()<1.5 then 转到("卡住了") end
if 坐标距离(351,-84)<3 then 等待(1000) else 向上执行(3) end
if 坐标距离(353,-18)<3 then 向下执行(4) else 记住当前位置() end
if 坐标距离(343,-85)<66 then 寻径(1500,353,111,-18);等待(2000) else 向下执行(4) end
if 取记录距离()<1.5 then 转到("卡住了") end
if 坐标距离(353,-18)<3 then 等待(1000) else 向上执行(3) end
if 是否有红名怪("",40) then 转到("潜入打怪") end
if 副本目标("目标")=="从外围潜入东厂内部" then else 转到("全灭敌人") end
if 坐标距离(353,-18)<3 then 向下执行(4) else 记住当前位置() end
if 坐标距离(343,-85)<66 then 寻径(1500,353,111,-18);等待(2000) else 向下执行(3) end
if 取记录距离()<1.5 then 转到("卡住了") end
if 坐标距离(353,-18)<3 then 等待(1000) else 向上执行(3) end
if 副本目标("目标")=="从外围潜入东厂内部" then else 转到("全灭敌人") end
if 坐标距离(351,63)<3 then 向下执行(4) else 记住当前位置() end
if 坐标距离(354,-6)<70 then 寻径(1500,351,110,63);等待(2000) else 向下执行(3) end
if 取记录距离()<1.5 then 转到("卡住了") end
if 坐标距离(351,63)<3 then 等待(1000) else 向上执行(3) end
if 坐标距离(354,-6)<74 then 等待(1000) else 向下执行(8) end
if 体力()>150 then else 向上执行(1) end
移动(351,110,64);等待(200)
移动(324,111,63);等待(200)
发送("900001");等待(300)
移动(324,111,63)
发送("900002");等待(400)
飞跃(330,120,64);等待(1000)
if 坐标距离(354,-6)<78 then 计时("开始");等待(1000) else 向下执行(6) end
if 坐标距离(354,-6)<78 then 寻径(1500,322,110,64);等待(500) else 向下执行(4) end
if 是否移动() then 加速() end
if 计时("读出")>15 then 转到("卡住了") end  --定时15秒超出15秒就往下
if 坐标距离(322,64)<2 then else 向上执行(3) end
寻径(1500,324,109,95)
if 坐标距离(354,-6)<105 then 计时("开始");等待(1000) else 向下执行(5) end
if 坐标距离(354,-6)<105 then 寻径(1500,324,109,95);等待(1000) else 向下执行(4) end
if 是否移动() then 加速() end
if 计时("读出")>15 then 转到("卡住了") end  --定时15秒超出15秒就往下
if 坐标距离(324,95)<3 then 等待(1000) else 向上执行(3) end
if 坐标距离(324,95)<3 then else 向下执行(3) end
if 窗口事件("Win_EasyBox")==1 then 窗口事件("Win_EasyBox","Btn_Box01");等待(2000) end
if 窗口事件("Win_EasyBox")==1 then 向上执行(1) end
if 坐标距离(340,130)<3 then 向下执行(4) else 记住当前位置() end
if 坐标距离(354,-6)<140 then 寻径(1500,340,120,130);等待(2000) else 向下执行(3) end
if 取记录距离()<1.5 then 转到("卡住了") end
if 坐标距离(340,130)<3 then 等待(1000) else 向上执行(3) end
转到("做东厂盗宝")

寻径(1500,325,110,65)

::潜入打怪::
设置("范围",40)
if 副本目标("目标")=="从外围潜入东厂内部" then else 向下执行(5) end
if 获取挂机()==1 then 等待(1000) else 自动战斗("开启") end
if 是否有队伍()==1 then 等待(1000) else 向下执行(2) end
if 是否有红名怪("",40) then 选中红名怪("",40);等待(500) end
if 是否有红名怪("",40) then 向上执行(4) end
if 地面是否有物品("",20) then 计时("开始");等待(1000) else 向下执行(3) end
if 地面是否有物品("",20) then 等待(1000) else 向下执行(2) end
if 计时("读出")>15 then else 向上执行(1) end  --定时15秒捡物
转到("做东厂盗宝")


::全灭敌人::
设置("范围",40)
if 副本目标("目标")=="全灭敌人" then else 向下执行(9) end
if 获取挂机()==1 then 等待(1000) else 自动战斗("开启") end
if 是否有队伍()==1 then 等待(1000) else 向下执行(6) end
if 是否有红名怪("火枪番役",40) then 选中红名怪("火枪番役",40);等待(500) else 向下执行(2) end
向下执行(4)
if 是否有红名怪("火纹刑官",40) then 选中红名怪("火纹刑官",40);等待(500) else 向下执行(2) end
向下执行(2)
if 是否有红名怪("",40) then 选中红名怪("",40);等待(500) end
if 是否有红名怪("",40) then 向上执行(8) end
if 地面是否有物品("",20) then 计时("开始");等待(1000) else 向下执行(3) end
if 地面是否有物品("",20) then 等待(1000) else 向下执行(2) end
if 计时("读出")>15 then else 向上执行(1) end  --定时15秒捡物
if 坐标距离(340,135)<20 then 向下执行(5) end
if 坐标距离(315,134)<4 then 向下执行(4) else 记住当前位置() end
if 坐标距离(315,134)<27 then 寻径(1500,315,129,134);等待(2000) else 向下执行(3) end
if 取记录距离()<1.5 then 转到("卡住了") end
if 坐标距离(315,134)<4 then 等待(1000) else 向上执行(3) end
if 坐标距离(281,129)<4 then 向下执行(4) else 记住当前位置() end
if 坐标距离(315,134)<34 then 寻径(1500,281,129,129);等待(2000) else 向下执行(3) end
if 取记录距离()<1.5 then 转到("卡住了") end
if 坐标距离(281,129)<4 then 等待(1000) else 向上执行(3) end
if 坐标距离(261,174)<3 then 向下执行(5) else 记住当前位置() end
if 坐标距离(263,140)<30 then 寻径(1500,261,129,174);等待(2000) else 向下执行(4) end
if 是否有红名怪("",40) then 转到("全灭敌人") end
if 取记录距离()<1.5 then 转到("卡住了") end
if 坐标距离(261,174)<3 then 等待(1000) else 向上执行(4) end
if 副本目标("目标")=="从书架后暗门进入盗取《呕血谱》" then 转到("采集书籍") end
if 副本目标("目标")=="全灭敌人" then 转到("全灭敌人") end
转到("做东厂盗宝")



::清理怪物::
if 副本目标("目标")=="携《呕血谱》与向问天在东厂外汇合" then else 向下执行(7) end
if 获取挂机()==1 then 等待(1000) else 自动战斗("开启") end
if 是否有队伍()==1 then 等待(1000) else 向下执行(4) end
if 是否有红名怪("番役掌班",40) then 选中红名怪("番役掌班",40);等待(500) else 向下执行(2) end
向下执行(2)
if 是否有红名怪("火枪番役",40) then 选中红名怪("火枪番役",40);等待(500) end
if 是否有红名怪("",40) then 向上执行(6) end
if 地面是否有物品("",20) then 计时("开始");等待(1000) else 向下执行(3) end
if 地面是否有物品("",20) then 等待(1000) else 向下执行(2) end
if 计时("读出")>15 then else 向上执行(1) end  --定时15秒捡物
if 坐标距离(208,144)<35 then else 向下执行(8) end
if 坐标距离(180,154)<3 then 向下执行(5) else 记住当前位置() end
寻径(1500,180,125,154);等待(2000)
if 是否有红名怪("",40) then 转到("清理怪物") end
if 取记录距离()<1.5 then 转到("卡住了") end
if 坐标距离(180,154)<3 then else 向上执行(5) end
发送("900001");等待(200)
飞跃(169,127,152);等待(1000)
if 坐标距离(168,111)<3 then 向下执行(5) else 记住当前位置() end
寻径(1500,168,96,111);等待(2000)
if 是否有红名怪("",40) then 转到("清理怪物") end
if 取记录距离()<1.5 then 转到("卡住了") end
if 坐标距离(168,111)<3 then 等待(1000) else 向上执行(4) end
if 坐标距离(185,96)<3 then 向下执行(5) else 记住当前位置() end
寻径(1500,185,98,96);等待(2000)
if 是否有红名怪("",40) then 转到("清理怪物") end
if 取记录距离()<1.5 then 转到("卡住了") end
if 坐标距离(185,96)<3 then 等待(1000) else 向上执行(4) end
转到("做东厂盗宝")

::前往汇合点::
if 副本目标("目标")=="继续前往汇合点" then 自动战斗("关闭") else 转到("做东厂盗宝") end
if 坐标距离(223,82)<72 then else 向下执行(8) end
if 坐标距离(260,13)<3 then 向下执行(7) else 记住当前位置() end
寻径(1500,260,116,13);等待(2000)
if 坐标距离(241,81)<3 then 发送("900001") else 向下执行(3) end
等待(200)
飞跃(247,116,81);等待(2000)
if 取记录距离()<1.5 then 转到("卡住了") end
if 坐标距离(260,13)<3 then 等待(1000) else 向上执行(7) end
if 副本目标("目标")=="继续前往汇合点" then 自动战斗("关闭") else 转到("做东厂盗宝") end
if 坐标距离(270,-18)<55 then else 向下执行(9) end
if 坐标距离(269,-26)<3 then 向下执行(4) else 记住当前位置() end
寻径(1500,269,116,-26);等待(2000)
if 取记录距离()<1.5 then 转到("卡住了") end
if 坐标距离(269,-26)<3 then else 向上执行(3) end
if 坐标距离(262,-86)<3 then 向下执行(4) else 记住当前位置() end
寻径(1500,262,109,-86);等待(2000)
if 取记录距离()<1.5 then 转到("卡住了") end
if 坐标距离(262,-86)<3 then else 向上执行(3) end
if 副本目标("目标")=="继续前往汇合点" then 自动战斗("关闭") else 转到("做东厂盗宝") end
if 坐标距离(261,-101)<3 then 向下执行(4) else 记住当前位置() end
寻径(1500,261,109,-101);等待(2000)
if 取记录距离()<1.5 then 转到("卡住了") end
if 坐标距离(261,-101)<3 then else 向上执行(3) end
if 坐标距离(261,-191)<3 then 向下执行(4) else 记住当前位置() end
寻径(1500,261,107,-191);等待(2000)
if 取记录距离()<1.5 then 转到("卡住了") end
if 坐标距离(261,-191)<3 then else 向上执行(3) end
转到("做东厂盗宝")

::击败贾询::
设置("范围",40) 
if 副本目标("目标")=="击败东厂太监贾询" then else 转到("做东厂盗宝") end
if 查找对象("田伯光")>0 then 转到("田伯光对话") end 
if 窗口事件("Win_InstanceAward")==1 then 转到("抽奖") end
if 获取挂机()==1 then 等待(1000) else 自动战斗("开启") end
if 是否有队伍()==1 then 等待(1000) else 向下执行(4) end
if 查找对象("贾询",32)>0 then else 向下执行(5) end
if 查找对象("贾询",10)>0 then else 寻径到对象("贾询",32);等待(1000) end
if 查找对象("贾询",32)>0 then 选中对象("贾询",32);等待(500) end
if 查找对象("薛荔鬼手",32)>0 then 向下执行(2) end
if 查找对象("贾询",32)>0 then 向上执行(9) end
发送("1F000000000000070E01FFFFFF00000000000000000000000044A25CC2EA867442A5634CC201")
发送("6900070E")  --按住招架
等待(1000)
if 查找对象("薛荔鬼手",32)>0 then 向上执行(3) end
发送("1F000000000000070E01FFFFFF00000000000000000000000044A25CC2EA867442A5634CC201")
转到("击败贾询")


if 查找对象("田伯光")>0 then 转到("田伯光对话") end 
if 窗口事件("Win_InstanceAward")==1 then 转到("抽奖") end
转到("做东厂盗宝")



::采集书籍::
移动(261,129,174);等待(2000)
if 副本目标("目标")=="从书架后暗门进入盗取《呕血谱》" then else 转到("全灭敌人") end
if 窗口事件("Win_EasyBox")==1 then 窗口事件("Win_EasyBox","Btn_Box01");等待(2000) end
if 窗口事件("Win_EasyBox")==1 then 向上执行(2) end
移动(261,130,166);等待(5000)
转到("做东厂盗宝")

::击败东厂百户::
if 副本目标("目标")=="击败东厂百户" then 设置("范围",32) else 转到("全灭敌人") end
if 获取挂机()==1 then 等待(1000) else 自动战斗("开启") end
if 是否有队伍()==1 then 等待(1000) else 向下执行(4) end
if 查找对象("东厂理刑百户",32)>0 then else 向下执行(4) end
if 查找对象("东厂理刑百户",10)>0 then else 寻径到对象("东厂理刑百户",32);等待(1000) end
if 查找对象("东厂理刑百户",32)>0 then 选中对象("东厂理刑百户",32);等待(500) end
if 查找对象("东厂理刑百户",60)>0 then 向上执行(5) end
if 地面是否有物品("",20) then 计时("开始");等待(1000) else 向下执行(3) end
if 地面是否有物品("",20) then 等待(1000) else 向下执行(2) end
if 计时("读出")>15 then else 向上执行(1) end  --定时15秒捡物
if 坐标距离(220,128)<3 then 向下执行(4) else 记住当前位置() end
寻径(1500,220,125,128);等待(2000)
if 取记录距离()<1.5 then 转到("卡住了") end
if 坐标距离(220,128)<3 then 等待(1000) else 向上执行(7) end
转到("做东厂盗宝")

::击败罗睺星君::
if 副本目标("目标")=="击败罗睺星君" then 设置("范围",32) else 转到("做东厂盗宝") end
if 获取挂机()==1 then 等待(1000) else 自动战斗("开启") end
if 是否有队伍()==1 then 等待(1000) else 向下执行(4) end
if 查找对象("罗睺星君",32)>0 then else 向下执行(4) end
if 查找对象("罗睺星君",10)>0 then else 寻径到对象("罗睺星君",32);等待(1000) end
if 查找对象("罗睺星君",32)>0 then 选中对象("罗睺星君",32);等待(500) end
if 查找对象("罗睺星君",50)>0 then 向上执行(5) end
if 地面是否有物品("",20) then 计时("开始");等待(1000) else 向下执行(3) end
if 地面是否有物品("",20) then 等待(1000) else 向下执行(2) end
if 计时("读出")>15 then else 向上执行(1) end  --定时15秒捡物
计时("开始");等待(1000)
if 坐标距离(253,-23)<3 then 向下执行(4) else 记住当前位置() end
寻径(1500,253,116,-23);等待(2000)
if 计时("读出")>30 then 向下执行(2) end  --定时15秒捡物
if 坐标距离(253,-23)<3 then 等待(1000) else 向上执行(2) end
寻径(1500,252,114,-41);等待(2000)
if 活动入口("距离","宝箱")<3 then 向下执行(3) end
if 活动入口("查找","宝箱") then 活动入口("寻径","宝箱");等待(1000) end
if 活动入口("距离","宝箱")<3 then else 向上执行(1) end
if 窗口事件("Win_EasyBox")==1 then 窗口事件("Win_EasyBox","Btn_Box01");等待(8000) end
if 地面是否有物品("",10) then 向下执行(2) end
if 窗口事件("Win_EasyBox")==1 then 窗口事件("Win_EasyBox","Btn_Box01");等待(8000) end
if 地面是否有物品("",20) then 计时("开始");等待(1000) else 向下执行(5) end
if 窗口事件("Win_EasyBox")==1 then 窗口事件("Win_EasyBox","Btn_Box06") end
if 地面是否有物品("",25) then 捡物("",25);等待(500) end
if 计时("读出")>15 then 向下执行(2) end  --定时15秒捡物
if 地面是否有物品("",25) then 向上执行(3) end
寻径(1500,252,114,-30);等待(2000)
发送("900001");等待(200)
发送("900002");等待(200)
飞跃(253,116,-24);等待(3000)
if 当前高度()<115 then 向上执行(4) end
转到("做东厂盗宝")

::继续深入::
if 副本目标("目标")=="继续深入东厂内部" then else 转到("做东厂盗宝") end
if 坐标距离(334,103)<3 then 向下执行(4) else 记住当前位置() end
if 坐标距离(337,130)<27 then 寻径(1500,334,120,103);等待(2000) else 向下执行(3) end
if 取记录距离()<1.5 then 转到("卡住了") end
if 坐标距离(334,103)<3 then 等待(1000) else 向上执行(3) end
if 坐标距离(309,105)<3 then 向下执行(4) else 记住当前位置() end
if 坐标距离(309,105)<26 then 寻径(1500,309,125,105);等待(2000) else 向下执行(3) end
if 取记录距离()<1.5 then 转到("卡住了") end
if 坐标距离(309,105)<3 then 等待(1000) else 向上执行(3) end
if 坐标距离(310,133)<2 then 向下执行(4) else 记住当前位置() end
if 坐标距离(310,133)<29 then 寻径(1500,310,129,133);等待(2000) else 向下执行(3) end
if 取记录距离()<1.5 then 转到("卡住了") end
if 坐标距离(310,133)<2 then 等待(1000) else 向上执行(3) end
if 副本目标("目标")=="全灭敌人" then 转到("全灭敌人") end
转到("做东厂盗宝")

近卫番役  侦缉司房  火枪番役  贾询  东厂理刑百户  罗睺星君   先杀 火纹刑官  番役掌班 罗睺星兵

::抽奖::
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)
重载脚本()



::卡住了::
等待(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 查找对象("田伯光")>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
转到("做镇嵩宝塔")


寻径(1500,252,114,-43) --继续前往汇合点1宝箱


寻径(1500,302,106,-93) --继续前往汇合点2宝箱