MUSH417 xlqy各门派综合机器人

[wormsking]

function might_pfm()
if renwu == "叛将" then
if string.find(guai_name, "方寸判将") then
cmdSender:Add("#w+ ;hp;follow "..target_id..";surrender;ec;jiali max;ef;kill "..target_id..";remove shield;remove shield 2;wield sword;wield dagger;wield sword 2;wield dagger 2;wear all;jiali max;"..zhuanshiperform..";perform rain;perform shan;#w- ;unwield sword;unwield sword 2;unwield dagger;unwield dagger 2")
else
cmdSender:Add("#w+ ;hp;follow "..target_id..";remove shield;wield axe;wield dagger;wear all;jiali max;enchant max;surrender;ec;ef;kill "..target_id..";"..g_race_spe..";perform wardance;unwield axe;unwield dagger;remove shield;wield sword;wield sword 2;wield all;wear all;"..zhuanshiperform..";perform rain;perform shan;#w- ;unwield sword;unwield sword 2;unwield dagger;unwield dagger 2")
end
else
cmdSender:Add("hp;follow "..target_id..";remove shield;remove shield 2;wield axe;wield axe 2;wield dagger;wear all;jiali max;enchant max;surrender;ec;ef;kill "..target_id..";perform wardance;unwield axe;unwield axe 2;unwield dagger;remove shield;wield sword;wield sword 2;wield all;wear all;"..zhuanshiperform..";perform rain;perform shan;unwield sword;unwield sword 2;unwield dagger;unwield dagger 2")
end
end


function fc_pfm()
if renwu == "叛将" then
if string.find(guai_name, "方寸判将") then
cmdSender:Add("hp;cast dingshen on "..target_id..";remove shield;wield stick;wield dagger;wear all;jiali max;enchant max;surrender;ec;ef;kill "..target_id..";"..g_race_spe..";"..zhuanshiperform..";perform wu;unwield stick;unwield dagger;remove shield;wield sword;wield all;wear all;perform taiji;unwield sword;unwield dagger")
else
cmdSender:Add("hp;cast dingshen on "..target_id..";remove shield;wield stick;wield dagger;wear all;jiali max;enchant max;surrender;ec;ef;kill "..target_id..";"..g_race_spe..";"..zhuanshiperform..";perform pili;perform qiankun;perform daodaodao;perform end;perform wu;unwield stick;unwield dagger;remove shield;wield sword;wield all;wear all;perform taiji;unwield sword;unwield dagger")
end
else
cmdSender:Add("hp;cast dingshen on "..target_id..";remove shield;wield stick;wield dagger;wear all;jiali max;enchant max;surrender;ec;ef;kill "..target_id..";"..zhuanshiperform..";perform pili;perform qiankun;perform daodaodao;perform end;perform wu;unwield stick;unwield dagger;remove shield;wield sword;wield all;wear all;perform taiji;unwield sword;unwield dagger")
end
end

function moon_pfm()
if renwu == "叛将" then
if string.find(guai_name, "方寸判将") then
cmdSender:Add("hp;cast mihun on "..target_id..";perform flower;remove shield;jiali max;wield sword;wield dagger;wear all;enchant 0;surrender;ec;ef;kill "..target_id..";"..g_race_spe..";"..zhuanshiperform..";jiali none;perform tian;unwield sword;unwield dagger;remove shield;wield whip;wield all;wear all;perform love;unwield whip;unwield dagger")
else
cmdSender:Add("hp;cast mihun on "..target_id..";perform flower on "..target_id..";remove shield;jiali max;wield sword;wield dagger;wear all;enchant 0;surrender;ec;ef;kill "..target_id..";"..g_race_spe..";"..zhuanshiperform..";jiali none;perform tian;unwield sword;unwield dagger;remove shield;wield whip;wield all;wear all;jiali max;perform love;unwield whip;unwield dagger")
end
else
cmdSender:Add("hp;cast mihun on "..target_id..";perform flower on "..target_id..";remove shield;jiali max;wield sword;wield dagger;wear all;enchant 0;surrender;ec;ef;kill "..target_id..";"..zhuanshiperform..";jiali none;perform tian;unwield sword;unwield dagger;remove shield;wield whip;wield all;wear all;jiali max;perform love;unwield whip;unwield dagger")
end
end

function wdd_pfm()
if renwu == "叛将" then
if string.find(guai_name, "方寸判将") then
cmdSender:Add("hp;cast dingshen on "..target_id..";enchant 0;surrender;ec;ef;kill "..target_id..";"..g_race_spe..";unwield blade;unwield sword;unwield dagger;perform duzun;remove shield;jiali max;unwield sword;wield blade;wield dagger;wear all;"..zhuanshiperform..";jiali max;perform sword;unwield blade;unwield dagger")
else
cmdSender:Add("hp;cast dingshen on "..target_id..";enchant 0;surrender;ec;ef;kill "..target_id..";"..g_race_spe..";unwield blade;unwield sword;unwield dagger;perform duzun;remove shield;jiali max;unwield sword;wield blade;wield dagger;wear all;"..zhuanshiperform..";jiali max;perform sword;perform diyu;unwield blade;unwield dagger")
end
else
cmdSender:Add("hp;cast dingshen on "..target_id..";enchant 0;surrender;ec;ef;kill "..target_id..";"..g_race_spe..";unwield blade;unwield sword;unwield dagger;perform duzun;remove shield;jiali max;unwield sword;wield blade;wield dagger;wear all;"..zhuanshiperform..";jiali max;perform sword;perform diyu;unwield blade;unwield dagger")
end
end

function wzg_pfm()
if renwu == "叛将" then
if string.find(guai_name, "方寸判将") then
cmdSender:Add("hp;gen "..target_id..";remove shield;jiali max;wield xiao;wield dagger;wear all;jiali 0;enchant 0;surrender;ec;ef;kill "..target_id..";"..g_race_spe..";"..zhuanshiperform..";perform tianlai;unwield xiao;unwield dagger;remove shield;wield sword;wear all;perform jianzhang;perform wanxiang;perform juejian;unwield sword;unwield dagger")
else
cmdSender:Add("hp;gen "..target_id..";remove shield;jiali max;wield xiao;wield dagger;wear all;jiali max;enchant max;surrender;ec;ef;kill "..target_id..";"..g_race_spe..";"..zhuanshiperform..";perform tianlai;unwield xiao;unwield dagger;remove shield;wield blade;wield all;wear all;perform damoyange;unwield blade;remove shield;wield sword;wear all;perform jianzhang;perform wanxiang;perform juejian;unwield sword;unwield dagger")
end
else
cmdSender:Add("hp;gen "..target_id..";remove shield;jiali max;wield xiao;wield dagger;wear all;jiali max;enchant max;surrender;ec;ef;kill "..target_id..";"..zhuanshiperform..";perform tianlai;unwield xiao;unwield dagger;remove shield;wield blade;wield all;wear all;perform damoyange;unwield blade;remove shield;wield sword;wear all;perform jianzhang;perform wanxiang;perform juejian;unwield sword;unwield dagger")
end
end

function sng_pfm()
if renwu == "叛将" then
if string.find(guai_name, "方寸判将") then
cmdSender:Add("hp;gen "..target_id..";remove shield;jiali max;wield hammer;wield dagger;wear all;jiali 0;enchant 0;surrender;ec;ef;kill "..target_id..";"..g_race_spe..";"..zhuanshiperform..";perform nianmo;unwield hammer;unwield dagger;remove shield;wield rake;wield dagger;wear all;perform kumu;unwield rake;unwield dagger")
else
cmdSender:Add("hp;gen "..target_id..";remove shield;jiali max;wield ling;wield dagger;wear all;jiali max;enchant max;surrender;ec;ef;kill "..target_id..";"..g_race_spe..";"..zhuanshiperform..";perform jiemai;perform chuanzhen;unwield ling;unwield dagger;remove shield;wield rake;wield dagger;wear all;perform kumu;unwield rake;unwield dagger")
end
else
cmdSender:Add("hp;gen "..target_id..";remove shield;jiali max;wield ling;wield dagger;wear all;jiali max;enchant max;surrender;ec;ef;kill "..target_id..";"..g_race_spe..";"..zhuanshiperform..";perform jiemai;perform chuanzhen;unwield ling;unwield dagger;remove shield;wield rake;wield dagger;wear all;perform kumu;unwield rake;unwield dagger")
end
end

function psd_pfm()
if renwu == "叛将" then
if string.find(guai_name, "方寸判将") then
cmdSender:Add("hp;gen "..target_id..";remove shield;jiali max;wield muqin;wield dagger;wear all;jiali 0;enchant 0;surrender;ec;ef;kill "..target_id..";"..g_race_spe..";"..zhuanshiperform..";perform zui;unwield muqin;unwield dagger;remove shield;wield sword;wield dagger;wear all;jifa sword qingxia-jian;perform xiaohun;enable sword chixin-jian;perform hongyan;unwield sword;unwield dagger")
else
cmdSender:Add("hp;gen "..target_id..";remove shield;jiali max;wield muqin;wield dagger;wear all;jiali max;enchant max;surrender;ec;ef;kill "..target_id..";"..g_race_spe..";"..zhuanshiperform..";perform zui;unwield muqin;unwield dagger;remove shield;wield sword;wield dagger;wear all;jifa sword qingxia-jian;perform xiaohun;enable sword chixin-jian;perform hongyan;unwield sword;unwield dagger")
end
else
cmdSender:Add("hp;gen "..target_id..";remove shield;jiali max;wield muqin;wield dagger;wear all;jiali max;enchant max;surrender;ec;ef;kill "..target_id..";"..g_race_spe..";"..zhuanshiperform..";perform zui;unwield muqin;unwield dagger;remove shield;wield sword;wield dagger;wear all;jifa sword qingxia-jian;perform xiaohun;enable sword chixin-jian;perform hongyan;unwield sword;unwield dagger")
end
end

function shushan_pfm()
if renwu == "叛将" then
if string.find(guai_name, "方寸判将") then
cmdSender:Add("hp;follow "..target_id..";remove shield;jiali max;wield sword;wield dagger;wear all;jiali max;surrender;ec;ef;kill "..target_id..";"..shushan_busy_pfm..";"..zhuanshiperform..";enable sword canxin-jian;cast jianshen;enable sword yujianshu;perform wanjian;enable sword mindsword;unwield sword;unwield dagger")
else
cmdSender:Add("hp;follow "..target_id..";remove shield;jiali max;wield sword;wield dagger;wear all;jiali max;enchant max;surrender;ec;ef;kill "..target_id..";special void;"..shushan_busy_pfm..";"..zhuanshiperform..";enable sword canxin-jian;perform xiangsi;cast jianshen;enable sword mindsword;unwield sword;unwield dagger")
end
else
cmdSender:Add("hp;follow "..target_id..";remove shield;jiali max;wield sword;wield dagger;wear all;jiali max;enchant max;surrender;ec;ef;kill "..target_id..";special void;"..shushan_busy_pfm..";"..zhuanshiperform..";enable sword canxin-jian;perform xiangsi;cast jianshen;enable sword mindsword;unwield sword;unwield dagger")
end
end

function shushan_sexpfm()
if renwu == "叛将" then
if string.find(guai_name, "月宫判将") then
cmdSender:Add("set wimpy 60;hp;follow "..target_id..";wear all;wield sword;wield sword 2;jiali max;surrender;ec;ef;kill "..target_id..";"..shushan_busy_pfm..";"..zhuanshiperform..";enable sword canxin-jian;perform xiangsi;unwield sword;wield whip;perform yue;unwield whip;wield sword;cast jianshen;enable sword yujianshu;perform wanjian;enable sword mindsword;unwield sword;unwield sword 2")
else
cmdSender:Add("hp;follow "..target_id..";wear all;wield sword;wield sword 2;jiali max;enchant max;surrender;ec;ef;kill "..target_id..";special void;"..shushan_busy_pfm..";"..zhuanshiperform..";enable sword canxin-jian;perform xiangsi;unwield sword;wield whip;perform yue;unwield whip;wield sword;cast jianshen;enable sword mindsword;unwield sword;unwield sword 2")
end
else
cmdSender:Add("hp;follow "..target_id..";wear all;wield sword;wield sword 2;jiali max;enchant max;surrender;ec;ef;kill "..target_id..";special void;"..shushan_busy_pfm..";"..zhuanshiperform..";enable sword canxin-jian;perform xiangsi;unwield sword;wield whip;perform yue;unwield whip;wield sword;cast jianshen;enable sword mindsword;unwield sword;unwield sword 2")
end
end

function magic_pfm()
if renwu == "叛将" then
if string.find(guai_name, "方寸判将") then
cmdSender:Add("hp;follow "..target_id..";remove shield;remove shield 2;wield staff;wield dagger;wield staff 2;wield dagger 2;wear all;jiali max;surrender;ec;ef;kill "..target_id..";"..shushan_busy_pfm..";"..zhuanshiperform..";perform zengfa;perform fengmo;cast hufa;cast final;perform guyuan;unwield staff;unwield staff 2;unwield dagger;unwield dagger 2")
else
cmdSender:Add("hp;follow "..target_id..";remove shield;remove shield 2;wield staff;wield dagger;wield staff 2;wield dagger 2;wear all;jiali max;enchant max;surrender;ec;ef;kill "..target_id..";special faith;"..shushan_busy_pfm..";"..zhuanshiperform..";perform zengfa;perform fengmo;cast hufa;cast final;perform guyuan;unwield staff;unwield staff 2;unwield dagger;unwield dagger 2")
end
else
cmdSender:Add("hp;follow "..target_id..";remove shield;remove shield 2;wield staff;wield dagger;wield staff 2;wield dagger 2;wear all;jiali max;enchant max;surrender;ec;ef;kill "..target_id..";special faith;"..shushan_busy_pfm..";"..zhuanshiperform..";perform zengfa;perform fengmo;cast hufa;cast final;perform guyuan;unwield staff;unwield staff 2;unwield dagger;unwield dagger 2")
end
end


function longgong_pfm()
if renwu == "护镖" then
cmdSender:Add("hp;follow "..target_id..";wear all;wield fork;wield fork 2;jiali max;ec;ef;kill "..target_id..";"..shushan_busy_pfm..";"..zhuanshiperform..";cast freez;wield fork;perform bibo;unwield fork;perform sheshen;perform long;perform leidong")
end
if renwu == "叛将" then
if string.find(guai_name, "方寸判将") then
cmdSender:Add("hp;follow "..target_id..";wear all;wield fork;wield fork 2;jiali max;surrender;ec;ef;kill "..target_id..";"..shushan_busy_pfm..";"..zhuanshiperform..";cast freez;wield fork;perform bibo;unwield fork;perform sheshen;perform long;perform leidong")
else
cmdSender:Add("hp;follow "..target_id..";wear all;wield fork;wield fork 2;jiali max;enchant max;surrender;ec;ef;kill "..target_id..";special faith;"..shushan_busy_pfm..";"..zhuanshiperform..";cast freez;wield fork;perform bibo;unwield fork;perform sheshen;perform long;perform leidong")
end
else
cmdSender:Add("hp;follow "..target_id..";wear all;wield fork;wield fork 2;jiali max;enchant max;surrender;ec;ef;kill "..target_id..";special faith;"..shushan_busy_pfm..";"..zhuanshiperform..";cast freez;wield fork;perform bibo;unwield fork;perform sheshen;perform long;perform leidong")
end
end

function hp_get_info1( name, line, wildcards )
local str = wildcards[0];
--AppendToNotepad( "hp", str .. "\r\n" )
local i, j = string.find( str, "心神" )
if i ~= nil then
xinshen = tonumber(wildcards[2])
maxxinshen = tonumber(wildcards[3])
end

g_xinshen_per = tonumber(wildcards[4])
if g_in_renwu == true or mp ~= "蜀山剑派" then
if g_xinshen_per < 60 then
cmdSender:Insert("#8 eat hunyuan dan")
else
if g_xinshen_per < 70 then
cmdSender:Insert("#5 eat hunyuan dan")
else
if g_xinshen_per < 80 then
cmdSender:Insert("#3 eat hunyuan dan")
else
if g_xinshen_per < 90 then
cmdSender:Insert("#2 eat hunyuan dan")
else

end
end
end
end
else
if g_xinshen_per < 60 then
for i = 1, 9 do
cmdSender:Insert("@10;cast heal")
end
else
if g_xinshen_per < 70 then
for i = 1, 7 do
cmdSender:Insert("@10;cast heal")
end
else
if g_xinshen_per < 80 then
for i = 1, 5 do
cmdSender:Insert("@10;cast heal")
end
else
if g_xinshen_per < 90 then
for i = 1, 3 do
cmdSender:Insert("@10;cast heal")
end
else
if g_xinshen_per < 95 then
cmdSender:Insert("@10;cast heal")
end
end
end
end
end

end
local j
i, j = string.find( str, "法力" )
if i ~= nil then
fali = tonumber(wildcards[5]);
maxfali = tonumber(wildcards[6])
if fali < maxfali/3 then
cmdSender:Insert("eat zhi")
end
end
end

function OnHpShaqi(name, line, wildcards)
g_shaqi = tonumber(wildcards[1])
end

function hp_get_info( name, line, wildcards )
local str = wildcards[0];
str = string.sub( str, 0, -4 )
--AppendToNotepad( "hp", str .. "\r\n" )
local i, j = string.find( str, "气血" )
if i ~= nil then
qixue = tonumber(wildcards[2]);
maxqixue = tonumber(wildcards[3]);
end

g_qx_per = tonumber(wildcards[4])
if g_in_renwu == true then
if g_qx_per < 60 then
cmdSender:Insert("#8 eat jinchuang yao;ec")
else
if g_qx_per < 70 then
cmdSender:Insert("#5 eat jinchuang yao;ec")
else
if g_qx_per<80 then
cmdSender:Insert("#3 eat jinchuang yao;ec")
else
if g_qx_per<90 then
cmdSender:Insert("#2 eat jinchuang yao;ec")
else

end
end
end
end
else
if g_qx_per < 50 then
if (mp == "蜀山剑派") then
local i
for i = 1, 5 do
cmdSender:Insert("@10;cast heal")
end
else
cmdSender:Insert("#5 eat jinchuang yao")
end
else
if g_qx_per < 60 then
cmdSender:Insert("#8 eh")
else
if g_qx_per < 70 then
cmdSender:Insert("#5 eh")
else
if g_qx_per < 80 then
cmdSender:Insert("#3 eh")
else
if g_qx_per < 100 then
cmdSender:Insert("#2 eh")
else

end
end
end
end
end
end
i, j = string.find( str, "内力" )
if i ~= nil then
neili = tonumber(wildcards[5]);
maxneili = tonumber(wildcards[6]);
if (not_enough_neili == true or neili < maxneili/3 or neili < 800) then
cmdSender:Insert("eat shen")
end
end
end

function OnDzBusyNow()
EnableTriggerGroup("dz", false)
DoAfterSpecial(3, "Hp()", 12)
end

function OnNotEnoughNL()
not_enough_neili = true
--EnableTriggerGroup("eatshen", false)
--cmdSender:Add("eat shen;@20;#t+ eatshen")
end

function OnEatShen()
not_enough_neili = false
end

function OnQianliyanGuai(name, output, wildcards)
guai_name = wildcards[1]
guai_id = wildcards[2]
guai_place = wildcards[3]
place_id()
go_place()
end


init()

AddTriggerEx(
"hp_get_info1",
"(┃〖 心神 〗\\s*(\\S*)\\s*/\\S*(\\S*)\\s*\\[\\s*(\\S*)\\%\\]\\s*〖 法力 〗\\s*(\\S*)\\s*/\\s*(\\S*)\\s*\\(\\+.*\\)┃)",
"",
trigger_flag.Enabled + trigger_flag.RegularExpression + trigger_flag.Replace + trigger_flag.Temporary + trigger_flag.KeepEvaluating ,
-1,
0,
"",
"hp_get_info1",
0,
91)

AddTriggerEx(
"hp_get_info",
"(┃〖 气血 〗\\s*(\\S*)\\s*/\\s*(\\S*)\\s*\\[\\s*(\\S*)\\%\\]\\s*〖 内力 〗\\s*(\\S*)\\s*/\\s*(\\S*)\\s*\\(\\+.*\\)┃)",
"",
trigger_flag.Enabled + trigger_flag.RegularExpression + trigger_flag.Replace + trigger_flag.Temporary + trigger_flag.KeepEvaluating ,
-1,
0,
"",
"hp_get_info",
0,
90)

function OnCancelPanjiangJob()
g_pj_cancel = g_pj_cancel + 1
UpdateStatus()
end

function OnGiveNiujingHulu()
g_give_hulu = true
cmdSender:Add("haha")
end

function OnItemDrop(name, output, wildcards)
tmp_guai = wildcards[1]
if ( (renwu == "护镖" and (tmp_guai == "强盗" or tmp_guai == "劫匪")) or (tmp_guai == guai_name)) then
itemget = wildcards[2]

if string.find(itemget, "盔") then
itemid = "head"
else
if string.find(itemget, "护肩") then
itemid = "shoulder"
else
if string.find(itemget, "护身符") then
itemid = "amulet"
else
if string.find(itemget, "项链") then
itemid = "necklace"
else
if string.find(itemget, "盔甲") then
itemid = "armor"
else
if string.find(itemget, "腰带") then
itemid = "waist"
else
if string.find(itemget, "手套") then
itemid = "hands"
else
if string.find(itemget, "袍") then
itemid = "cloth"
else
if string.find(itemget, "戒指") then
itemid = "ring"
else
if string.find(itemget, "披风") then
itemid = "surcoat"
else
if string.find(itemget, "靴") then
itemid = "boots"
else
if string.find(itemget, "盾") then
itemid = "shield"
else
if string.find(itemget, "匕首") then
itemid = "dagger"
else
if string.find(itemget, "棍") then
itemid = "stick"
else
if string.find(itemget, "剑") then
itemid = "sword"
else
if string.find(itemget, "耙") then
itemid = "rake"
else
if string.find(itemget, "刀") then
itemid = "blade"
else
if string.find(itemget, "鞭") then
itemid = "whip"
else
if string.find(itemget, "枪") then
itemid = "spear"
else
if string.find(itemget, "斧") then
itemid = "axe"
else
if string.find(itemget, "锏") then
itemid = "mace"
else
if string.find(itemget, "翎") then
itemid = "ling"
else
if string.find(itemget, "琴") then
itemid = "muqin"
else
if string.find(itemget, "叉") then
itemid = "fork"
else
if string.find(itemget, "箫") then
itemid = "xiao"
else
if string.find(itemget, "杖") then
itemid = "staff"
else
if string.find(itemget, "锤") then
itemid = "hammer"
else
if string.find(itemget, "铠甲") then
itemid = "armor"
else
if string.find(itemget, "护腕") then
itemid = "wrists"
else
itemid = "unknow"
end
end
end
end
end
end
end
end
end
end
end
end
end
end
end
end
end
end
end
end
end
end
end
end
end
end
end
end
end
if itemid ~= "unknow" then
if string.find(itemget, "鳄鱼") or
string.find(itemget, "黑木") or
string.find(itemget, "青铜") or
string.find(itemget, "牛皮") or
string.find(itemget, "蟒皮") or
string.find(itemget, "玛瑙") or
string.find(itemget, "珍珠") or
string.find(itemget, "精钢") or
string.find(itemget, "纯银") or
string.find(itemget, "玄铁") or
string.find(itemget, "猎豹") then
g_getcounts = g_getcounts + 1
g_getlist[g_getcounts] = itemid
--AppendToNotepad("log", "捡列表+"..itemid.."\r\n")
else
g_givecounts = g_givecounts + 1
g_givelist[g_givecounts] = itemid;
if string.find(itemget, "雄狮") or
string.find(itemget, "翡翠") or
string.find(itemget, "乌金") or
string.find(itemget, "琥珀") then
g_givelist2[g_givecounts] = "sell"
else
g_givelist2[g_givecounts] = "give"

--cmdSender:Add("jianding "..itemid)
if g_jianding ~= "" then
g_jianding = "jianding "..itemid..";"..g_jianding
else
g_jianding = "jianding "..itemid
end
end

--AppendToNotepad("log", "给列表+"..itemid.."\r\n")
end
end
end
end