function OnHbMatched(name, output, wildcards)
if g_hbing == true then
EnableTrigger(name, false)
g_hbmatch_times = g_hbmatch_times + 1
if g_hbmatch_times >= g_hb_matchs then
if renwu == "护镖" then
g_find = 1
go_npc_sp = 0
end
end
end
end
-- look paper 看镖单的信息格式3
function OnHbInfo3(name, output, wildcards)
if wildcards[1] ~= "" then
HbProcess(wildcards[1])
end
end
function OnHbInfo33(name, output, wildcards)
local findpattern = wildcards[1] --GetTriggerInfo("hb3",101)
if findpattern == "" then
return
end
Note(findpattern)
local find = false
local newpattern = string.gsub(findpattern,"■",".?.?")
local len = newpattern:len()
local t
if len > 20 then
local tmp = newpattern:sub(1,20)
newpattern = tmp
end
if gfile ~= nil then
gfile:seek("set")
repeat
t = gfile:read("*l")
if t ~= nil then
local ft,ft2 = string.find(t,newpattern)
if ft ~= nil then
find = true
end
else
end
until t == nil or find == true
if find == true then
cmdSender:Add("say hb "..t)
else
cmdSender:Add("@20;drop paper;set no_teach godz")
end
end
end
-- find guai
-- 根据 地址 找到对应 英文 place id
function place_id()
m_place_id = place_map[guai_place]
Note(guai_place..":"..m_place_id)
end
-- 找怪去
function go_place()
if (guai_id == "crazy") then
guai_id = "crazy pker"
end
g_in_renwu = true
cmdSender:Add("#w- ")
g_maoying_hole = false
g_penglai_climb_faint = false
guai_leave = ""
g_cha_id = ""
g_nt_bian = false
g_current_go = ""
if renwu == "护镖" then
cmdSender:Add("unset brief;unset brief_all")
else
cmdSender:Add("set brief;unset brief_all")
end
if renwu == "NT" then
cmdSender:Add("set wimpy 0;unset last_action")
else
cmdSender:Add("set wimpy 3;set last_action quit")
end
cmdSender:Add("wear all")
mp_powerup()
cmdSender:Add("#t- didian;#t+ find")
--EnableTriggerGroup("didian", false)
--EnableTriggerGroup("find", true)
set_guainame()
g_target_hp = 100
g_target_eff = 100
g_find = 0
go_func = go_map[guai_place]
go_func()
end
-- 看到目标怪了
function OnGuaiFinded(name, output, wildcards)
local temp = string.lower(wildcards[1])
if temp == guai_id then
if guai_id == "crazy pker" then
guai_id = "crazy"
end
EnableTriggerGroup("follow", true)
g_find = 1
go_npc_sp = 0
guai_leave = ""
end
end
leave_map = {
["上"] = "up",
["下"] = "down",
["外"] = "out",
["里"] = "enter",
["东北"] = "ne",
["西北"] = "nw",
["东北"] = "ne",
["东南"] = "se",
["西南"] = "sw",
["北"] = "n",
["西"] = "w",
["东"] = "e",
["南"] = "s",
["北边"] = "nu;nd",
["南边"] = "su;sd",
["东边"] = "eu;ed",
["西边"] = "wu;wd",
}
function OnGuaiLeave(name, output, wildcards)
if g_find == 1 and wildcards[1] == guai_name then
guai_leave = leave_map[wildcards[2]]
if guai_leave == nil then
guai_leave = ""
end
end
end
function OnGuaiCome(name, output, wildcards)
if g_find == 0 and wildcards[1] == guai_name then
g_find = 1
local temp = string.lower(wildcards[1])
if guai_id == "crazy pker" then
guai_id = "crazy"
end
EnableTriggerGroup("follow", true)
go_npc_sp = 0
end
end
-- 设置看到怪的触发: 怪名 (ID1 ID2)
function set_guainame()
--DeleteTrigger("guai_name")
if renwu == "叛将" then
AddTriggerEx(
"guai_name1",
"^\>*\s*"..guai_name.."走了过来",
"look",
trigger_flag.Enabled + trigger_flag.RegularExpression + trigger_flag.Replace + trigger_flag.Temporary + trigger_flag.KeepEvaluating ,
-1,
0,
"",
"",
0,
90)
AddTriggerEx(
"guai_name",
guai_name.."\\((.*)\\)",
"",
trigger_flag.Enabled + trigger_flag.RegularExpression + trigger_flag.Replace + trigger_flag.Temporary + trigger_flag.KeepEvaluating ,
-1,
0,
"",
"OnGuaiFinded",
0,
90)
else
AddTriggerEx(
"guai_name",
guai_name.."\\((.*)\\)",
"",
trigger_flag.Enabled + trigger_flag.RegularExpression + trigger_flag.Replace + trigger_flag.Temporary + trigger_flag.KeepEvaluating ,
-1,
0,
"",
"OnGuaiFinded",
0,
90)
end
end
-- 设置护镖地点的触发
function set_hbmatch(matchinfo)
if matchinfo:len()>20 then
t1,t2 = string.find(matchinfo,"，")
if t1 == nil or t1 > 20 then
t1,t2 = string.find(matchinfo,"。")
if t1 == nil or t1 > 20 then
t1 = 20
end
end
hbmatch=string.sub(matchinfo,1,20)
end
Note(matchinfo.."->"..hbmatch)
AddTriggerEx(
"hbmatch",
".*"..hbmatch..".*",
"",
trigger_flag.Enabled + trigger_flag.RegularExpression + trigger_flag.Replace + trigger_flag.Temporary + trigger_flag.KeepEvaluating ,
-1,
0,
"",
"hb_matched",
0,
90)
end
-- 搜寻中 --> set no_teach 搜索中|护镖
function in_search()
if renwu == "NT" then
if g_find == 1 then
xpath:Back()
else
if g_cha_id ~= "" then
if g_bianid == g_cha_id then
cmdSender:Add("cha "..g_cha_id.." 2")
else
cmdSender:Add("cha "..g_cha_id)
end
else
g_cha_id = ""
xpath:Go()
end
end
else
if g_find == 1 then
if renwu == "护镖" then
cmdSender:Add("say here")
else
xpath:Back()
end
else
if renwu == "护镖" then
for i = 1, g_hb_matchs do
EnableTrigger("hbmatch"..i, true)
end
g_hbmatch_times = 0
end
xpath:Go()
end
end
end
function OnChaNoPerson()
g_cha_id = ""
xpath:Go()
end
function OnChaInfo(name, output, wildcards)
if wildcards[1] ~= guai_name then
g_cha_id = ""
xpath:Go()
else
guaimiss = 0
g_findtime = 0
if g_bianid == g_cha_id then
cmdSender:Add("follow "..g_cha_id.." 2")
else
cmdSender:Add("follow "..g_cha_id)
end
g_find = 1
cmdSender:Add("enforce max;enchant max;wear all")
EnableTriggerGroup("find",false)
EnableTriggerGroup("follow",false)
EnableTriggerGroup("pfm", true)
EnableTriggerGroup("renwu_end",true)
--AppendToNotepad(myid.."_log", os.date("%X").."找到NT怪变了\r\n")
EnableTriggerGroup("nt_find", true)
EnableTriggerGroup("nt_fight", true)
EnableTriggerGroup("nt_qin", true)
g_nt_ob = true
g_nt_bian = true
g_ntbianid = g_cha_id
if g_bianid == g_cha_id then
cmdSender:Add("observe "..g_cha_id.." 2;y")
else
cmdSender:Add("observe "..g_cha_id..";y")
end
end
end
function OnChaNoMana()
cmdSender:Insert("eat ling zhi")
if g_bianid == g_cha_id then
cmdSender:Add("cha "..g_cha_id.." 2")
else
cmdSender:Add("cha "..g_cha_id)
end
end
nt_skip_id = "|corpose|skeleton|ring|head|amulet|shoulder|fork|mace|muqin|hammer|waist|wrists|surcoat|boots|sword|dagger|staff|spear|hands|cloth|ling|necklace|axe|sword|blade|silver|gold|coin|dax|adax|nannan|dayday|yaohuzxg|Xsx|Nobutnot|Chrome|Xdog|Chrome|Thing|Sxue|Wkwa|Wswh|Wswh|Luoxia|Fangcunr|Tiandao|Shushanr|Artest|Fcfcfc|App|Nxyh|Skyer|lish|dagonga|wqh|jiajiab|bandc|kong|minpig|damage|baggio|pini|nannan|shory|hyi|xiaohutu|dhxy|oyeah|"
function OnChaId(name, output, wildcards)
local cha_id = string.lower(wildcards[2])
if string.find(nt_skip_id,"|"..cha_id.."|") then
return
else
cmdSender:Add("#t- ntcha")
g_cha_id = cha_id
end
end
-- 打坐完了看hp
function Hp()
EnableTriggerGroup("dz", true)
cmdSender:Add("hp")
end
-- mp
g_AfterFly=""
g_AfterCastEsc=""
g_CastEscAction="get 1 paper seal from magic box"
g_FlyTo=""
-- 门派的特技
function mp_powerup()
if yy_fire == true and g_buyyao_self == true and zhuanshi ~= "一" and zhuanshi ~= "二" then
cmdSender:Add("zscast2")
end
local speskill = GetVariable("speskill")
for spei = 1,g_specounts do
cmdSender:Add("special "..g_spelist[spei])
cmdSender:Add("special lucky "..speskill)
spei = spei+1
end
--if renwu == "NT" and g_nt_type == "擒" then
-- cmdSender:Add("special health")
--end
if mp == "将军府" then
cmdSender:Add("exert haste")
cmdSender:Add("exert jingxin")
return
end
if mp == "南海普陀山" then
cmdSender:Add("cast lianhua")
return
end
if mp == "东海龙宫" then
cmdSender:Add("exert shield")
cmdSender:Add("exert zhenshen")
return
end
if mp == "陷空山无底洞" then
cmdSender:Add("exert blood")
return
end
if mp == "幻世勇者" then
cmdSender:Add("exert armor;cast tongyi")
cmdSender:Add("remove shield;wield axe;wield all;wear all;bs;unwield axe;unwield dagger")
return
end
if mp == "幻世魔导" then
cmdSender:Add("cast protect")
return
end
if mp == "方寸山三星洞" then
cmdSender:Add("exert shenjia")
return
end
if mp == "蜀山剑派" then
cmdSender:Add("exert zhanqi")
cmdSender:Add("exert mirrow")
return
end
if mp == "神农谷" then
cmdSender:Add("perform wuqin")
return
end
if mp == "五庄观" then
cmdSender:Add("exert powerup;exert resist")
return
end
if mp == "月宫" then
cmdSender:Add("remove shield;wield sword;wield all;wear all;perform wuxue;unwield sword;unwield dagger")
return
end
end
-- 收集可以使用的特技
function OnSpecialSkills(name, output, wildcards)
g_specounts = g_specounts + 1
g_spelist[g_specounts] = wildcards[2]
end
-- 收集socre信息
function OnScore(name, output, wildcards)
sex = wildcards[1]
mp = wildcards[2]
SetVariable ("mymp", (wildcards[2]))
if mp == "幻世勇者" then
g_pfm = might_pfm
g_CastEscAction = "#t+ CastEsc;cast fengshi;set no_teach cast"
cmdSender:Add("alias fs cast fengshi")
cmdSender:Add("alias ec exert recover")
cmdSender:Add("alias ef exert refresh")
cmdSender:Add("alias eh exert heal")
cmdSender:Add("alias amp ask lei about 灭妖")
cmdSender:Add("alias wi wield sword")
cmdSender:Add("alias uw unwield sword")
go_master = "#11 n;e;amp"
mp_fly = "lake"
mp_after_cast = "s;ef"
master_go = "w;s"
g_nt_qin = might_nt_qin
g_nt_quan = might_nt_quan
g_nt_fight = might_nt_fight
g_nt_kill = might_nt_kill
g_unwield_all = "unwield sword;unwield dagger;unwield axe"
g_mp_zheng = true
return
end
if mp == "幻世魔导" then
g_pfm = magic_pfm
g_CastEscAction = "#t+ CastEsc;cast move;set no_teach cast"
cmdSender:Add("alias fs cast move")
cmdSender:Add("alias ec exert recover")
cmdSender:Add("alias ef exert refresh")
cmdSender:Add("alias eh exert heal")
cmdSender:Add("alias amp ask keluodi about 神谕")
cmdSender:Add("alias wi wield staff")
cmdSender:Add("alias uw unwield staff")
go_master = "s;sw;wu;amp"
mp_fly = "lake"
mp_after_cast = "ed;ne;n;ef"
master_go = "ed;ne;n"
g_nt_qin = magic_nt_qin
g_nt_quan = magic_nt_quan
g_nt_fight = magic_nt_fight
g_nt_kill = magic_nt_kill
g_unwield_all = "unwield staff;unwield dagger"
g_mp_zheng = true
return
end
if mp == "东海龙宫" then
g_pfm = longgong_pfm
g_CastEscAction = "#t+ CastEsc;cast shuidun;set no_teach cast"
cmdSender:Add("alias fs cast shuidun")
cmdSender:Add("alias ec exert recover")
cmdSender:Add("alias ef exert refresh")
cmdSender:Add("alias eh exert heal")
cmdSender:Add("alias amp ask ao guang about 灭妖")
cmdSender:Add("alias wi wield fork")
cmdSender:Add("alias uw unwield fork")
go_master = "#16 s;#3 e;dive;@50;#2 e;ne;#2 e;eu;#2 e;#2 eu;amp"
mp_fly = "changan"
mp_after_cast = "se;sd;s;ne;sd;#3 s;u;#2 n;#2 wd;#2 w;wd;#2 se;@40;ef"
master_go = "wd;wd;w;w;wd;se;se"
g_nt_qin = longgong_nt_qin
g_nt_quan = longgong_nt_quan
g_nt_fight = longgong_nt_fight
g_nt_kill = longgong_nt_kill
g_unwield_all = "unwield fork;unwield dagger"
g_mp_zheng = true
return
end
if mp == "将军府" then
g_pfm = jjf_pfm
g_CastEscAction = "#t+ CastEsc;get 1 paper seal from magic box"
cmdSender:Add("alias fs get 1 paper seal from magic box")
cmdSender:Add("alias ec exert recover")
cmdSender:Add("alias ef exert refresh")
cmdSender:Add("alias eh exert heal")
cmdSender:Add("alias amp ask qin qiong about 除魔")
cmdSender:Add("alias wi wield spear")
cmdSender:Add("alias uw unwield spear")
go_master = "#2 e;#4 s;amp"
mp_fly = "changan"
mp_after_cast = "nw;nw;ne;n;n"
master_go = "n"
--g_renwu_tf = false
g_nt_qin = jjf_nt_qin
g_nt_quan = jjf_nt_quan
g_nt_fight = jjf_nt_fight
g_nt_kill = jjf_nt_kill
g_unwield_all = "unwield mace;unwield axe;unwield spear;unwield dagger"
g_mp_zheng = true
return
end
if mp == "蜀山剑派" then
g_CastEscAction = "#t+ CastEsc;cast tuoqiao;set no_teach cast"
cmdSender:Add("alias fs cast tuoqiao")
cmdSender:Add("alias ec exert recover")
cmdSender:Add("alias ef exert refresh")
cmdSender:Add("alias eh exert ningshen")
cmdSender:Add("alias amp ask jian sheng about 灭妖")
cmdSender:Add("alias wi wield sword")
cmdSender:Add("alias uw unwield sword")
go_master = "n;#2 nu;#2 n;amp"
mp_fly = "shushan"
mp_after_cast = "s;ef"
g_nt_qin = shushan_nt_qin
g_nt_quan = shushan_nt_quan
g_nt_fight = shushan_nt_fight
g_nt_kill = shushan_nt_kill
master_go = "s"
g_unwield_all = "unwield sword;unwield dagger;unwield axe;unwield whip"
g_mp_zheng = true
if sex == "女性" then
g_pfm = shushan_sexpfm
else
g_pfm = shushan_pfm
end
return
end
if mp == "方寸山三星洞" then
g_CastEscAction = "#t+ CastEsc;cast yundun;set no_teach cast"
cmdSender:Add("alias fs cast yundun")
cmdSender:Add("alias ec exert recover")
cmdSender:Add("alias ef exert refresh")
cmdSender:Add("alias eh exert heal")
cmdSender:Add("alias amp ask master yunyang about 灭妖")
cmdSender:Add("alias wi wield stick")
cmdSender:Add("alias uw unwield stick")
go_master = "#2 n;nu;amp"
mp_fly = "lingtai"
master_go = "sd"
g_pfm = fc_pfm
g_nt_qin = fc_nt_qin
g_nt_quan = fc_nt_quan
g_nt_fight = fc_nt_fight
g_nt_kill = fc_nt_kill
mp_after_cast = "sd;ef"
g_unwield_all = "unwield sword;unwield dagger;unwield stick"
g_mp_zheng = true
return
end
if mp == "五庄观" then
g_CastEscAction = "#t+ CastEsc;fs;set no_teach cast"
cmdSender:Add("alias fs cast wuxing on "..myid)
cmdSender:Add("alias ec exert recover")
cmdSender:Add("alias ef exert refresh")
cmdSender:Add("alias eh exert heal")
cmdSender:Add("alias amp ask zhenyuan daxian about 灭妖")
cmdSender:Add("alias wi wield sword")
cmdSender:Add("alias uw unwield sword")
go_master = "#2 nu;n;nu;enter;w;n;eu;u;amp"
mp_fly = "wuzhuang"
master_go = "l"
g_pfm = wzg_pfm
g_nt_qin = wzg_nt_qin
g_nt_quan = wzg_nt_quan
g_nt_fight = wzg_nt_fight
g_nt_kill = wzg_nt_kill
mp_after_cast = "ec;ef"
g_unwield_all = "unwield sword;unwield dagger;unwield xiao;unwield blade"
g_mp_zheng = true
return
end
if mp == "大雪山" then
g_CastEscAction = "#t+ CastEsc;fs;set no_teach cast"
cmdSender:Add("alias fs cast escape")
cmdSender:Add("alias ec exert recover")
cmdSender:Add("alias ef exert refresh")
cmdSender:Add("alias eh exert heal")
cmdSender:Add("alias amp ask baixiang zunzhe about 索命")
cmdSender:Add("alias wi wield sword")
cmdSender:Add("alias uw unwield sword")
go_master = "#3 nu;n;jump shi bi;n;e;amp"
mp_fly = "xueshan"
master_go = "l"
g_unwield_all = "unwield sword;unwield ling;unwield dagger;unwield axe"
g_mp_zheng = false
return
end
if mp == "神农谷" then
g_CastEscAction = "#t+ CastEsc;fs;set no_teach cast"
cmdSender:Add("alias fs cast yaowu")
cmdSender:Add("alias ec exert recover")
cmdSender:Add("alias ef exert refresh")
cmdSender:Add("alias eh exert heal")
cmdSender:Add("alias amp ask wuyuan daozhang about 济世")
cmdSender:Add("alias wi wield sword")
cmdSender:Add("alias uw unwield sword")
go_master = "#2 e;n;amp"
mp_fly = "changan"
master_go = "s"
g_pfm = sng_pfm
mp_after_cast = "ec;ef"
g_unwield_all = "unwield hammer;unwield ling;unwield dagger;unwield rake"
g_mp_zheng = true
--g_renwu_mp = false
return
end
if mp == "陷空山无底洞" then
g_CastEscAction = "#t+ CastEsc;fs;set no_teach cast"
cmdSender:Add("alias fs cast tudun")
cmdSender:Add("alias ec exert recover")
cmdSender:Add("alias ef exert refresh")
cmdSender:Add("alias eh exert heal")
cmdSender:Add("alias amp ask yu shu about 斗佛")
cmdSender:Add("alias wi wield sword")
cmdSender:Add("alias uw unwield sword")
go_master = "nw;wu;sd;sw;w;s;s;push statue;sw;su;su;u;wu;dive dong;#5 n;amp"
mp_fly = "wudidong"
mp_after_cast = "ef;e;e;w;#5 s;up"
master_go = "ef;#5 s;up"
g_pfm = wdd_pfm
g_nt_qin = wdd_nt_qin
g_nt_quan = wdd_nt_quan
g_nt_fight = wdd_nt_fight
g_nt_kill = wdd_nt_kill
g_unwield_all = "unwield blade;unwield sword;unwield dagger"
g_mp_zheng = false
--g_renwu_mp = false
return
end
if mp == "南海普陀山" then
g_CastEscAction = "#t+ CastEsc;fs;set no_teach cast"
cmdSender:Add("alias fs cast jile")
cmdSender:Add("alias ec exert recover")
cmdSender:Add("alias ef exert refresh")
cmdSender:Add("alias eh exert heal")
cmdSender:Add("alias amp ask huian xingzhe about 降妖")
cmdSender:Add("alias wi wield sword")
cmdSender:Add("alias uw unwield sword")
go_master = "n;n;amp"
mp_fly = "putuo"
master_go = "#2 s"
g_pfm = putuo_pfm
g_nt_qin = putuo_nt_qin
g_nt_quan = putuo_nt_quan
g_nt_fight = putuo_nt_fight
g_nt_kill = putuo_nt_kill
mp_after_cast = "ec;ef;out;n;w;n;w;s;e"
g_unwield_all = "unwield hammer;unwield staff;unwield dagger"
g_mp_zheng = true
--g_renwu_mp = false
return
end
if mp == "月宫" then
g_CastEscAction = "#t+ CastEsc;fs;set no_teach cast"
cmdSender:Add("alias fs cast huadun")
cmdSender:Add("alias ec exert recover")
cmdSender:Add("alias ef exert refresh")
cmdSender:Add("alias eh exert heal")
cmdSender:Add("alias amp ask xi wangmu about 灭妖")
cmdSender:Add("alias wi wield sword")
cmdSender:Add("alias uw unwield sword")
go_master = "climb tree;u;u;enter;n;n;n;w;n;w;amp"
mp_fly = "moon"
master_go = "#2 e"
g_pfm = moon_pfm
g_nt_qin = moon_nt_qin
g_nt_quan = moon_nt_quan
g_nt_fight = moon_nt_fight
g_nt_kill = moon_nt_kill
mp_after_cast = "ec;ef;sd;#3 e;n;e"
g_unwield_all = "unwield whip;unwield blade;unwield dagger;unwield sword"
g_mp_zheng = true
--g_renwu_mp = false
return
end
if mp == "盘丝洞" then
g_CastEscAction = "#t+ CastEsc;fs;set no_teach cast"
cmdSender:Add("alias fs cast ygbh")
cmdSender:Add("alias ec exert recover")
cmdSender:Add("alias ef exert refresh")
cmdSender:Add("alias eh exert heal")
cmdSender:Add("alias amp ask qingxia xianzi about 修炼")
cmdSender:Add("alias wi wield sword")
cmdSender:Add("alias uw unwield sword")
go_master = "eu;nu;#5 n;amp"
mp_fly = "stone"
master_go = "l"
g_pfm = psd_pfm
g_nt_qin = psd_nt_qin
g_nt_quan = psd_nt_quan
g_nt_fight = psd_nt_fight
g_nt_kill = psd_nt_kill
mp_after_cast = "ec;ef;#2 u;s;w;#3 s;out;#2 e"
g_unwield_all = "unwield muqin;unwield whip;unwield dagger;unwield sword"
g_mp_zheng = true
--g_renwu_mp = false
return
end
end