MUSH417 xlqy各门派综合机器人 - 第 2 页 - 文字MUD游戏论坛-天下泥潭群英会-水泊梁山

wormsking · 2011-09-12

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

wormsking · 2011-09-12

function OnItemGet(name, output, wildcards)
itemget = wildcards[1]

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_sellcounts = g_sellcounts+1
g_selllist[g_sellcounts] = 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";
end

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

function onhpid(name, output, wildcards)
nowname = wildcards[1]
if nowname ~= myname then
g_needbian = true
else
g_needbian = false
end
end

function OnScoreIdAndName(name, output, wildcards)
local t1,t2
myname = wildcards[1]
myid = string.lower(wildcards[2])
t1,t2 = string.find(myname,"「.*」")
if t1 ~= nil and t2 ~= nil then
myname = string.sub(myname, t2 + 1, myname:len())
end
--if myid == "nod" or myid == "adax" then
-- g_renwu_nt = false
--end

Note(myname.."("..myid..")")
end

function OnDoWhat()
local goldnum = tonumber (GetVariable("goldnum"))
cmdSender:Add("wear all")
InitTimer()
if g_go_taibai == true then
blocked = -2
cmdSender:Add("#t+ taibai;accept tai bai")
return
end

if autorun == true then -- if auto
--是否需要去cure
if needcure == true then
cmdSender:Add("e;e;e;s;sw;s;se;ne;se;enter;set no_teach cure");
return
end

--是否需要存钱，降杀气
if g_gold > goldnum then
cmdSender:Add("w;s;#t+ deposit;deposit "..(g_gold - goldnum).." gold")
return
end

if g_silver > 300 then
cmdSender:Add("w;s;#t+ deposit;deposit "..(g_silver - 100).." silver")
return
end
if g_gold < goldnum then
cmdSender:Add("w;s;#t+ deposit;withdraw "..(goldnum - g_gold).." gold")
return
end

if g_silver < 50 then
cmdSender:Add("w;s;#t+ deposit;withdraw 50 silver")
return
end

if g_tenthousand_cash > 0 then
cmdSender:Add("w;s;#t+ deposit;deposit "..g_tenthousand_cash.." tenthousand-cash")
return
end

if g_thousand_cash > 0 then
cmdSender:Add("w;s;#t+ deposit;deposit "..g_thousand_cash.." thousand-cash")
return
end

if g_shaqi > 300 then
cmdSender:Add("e;e;e;n;give 1 gold to keeper")
return
end

--是否需要给青龙葫芦
if g_give_hulu == false then
cmdSender:Add("set no_teach buyhulu")
--cmdSender:Add(p_givehulu)
return
end

--if g_tianzhu_ok == false then
-- EnableTriggerGroup("fly", true)
-- g_AfterFly = "#t+ tianzhu;#3 w;#7 e;#3 n;l"
-- g_FlyTo = "lingshan"
-- cmdSender:Add("fly lingshan")
--end

--是否需要地图
if g_needmap == true then -- if need get map
g_needmap = false
cmdSender:Add("d;drop map;drop map;yao tu;yao map;u;set no_teach dowhat")
return
end

--是否需要避水咒
if g_needbsz == true then --
g_needbsz = false
cmdSender:Add("drop bishui zhou;s;e;buy jiudai from er;w;n;w;w;w;n;give jiudai to yuan;tear book;s;e;e;e;@10;set no_teach dowhat")
return
end

--是否将军府弟子，需要买bag
if (mp == "南海普陀山" or mp == "盘丝洞" or mp == "月宫" or mp == "将军府" or mp == "方寸山三星洞" or mp == "蜀山剑派" or mp == "五庄观" or mp == "神农谷" or mp == "幻世魔导" or mp == "幻世勇者" or mp == "东海龙宫") and g_needbag == true then --
g_needbag = false
cmdSender:Add("s;e;buy box from er;w;n;i;@5;set no_teach dowhat")
return
end

--是否需要买逃犯砍头的sword
if (mp == "南海普陀山" or mp == "将军府" or mp == "神农谷" or mp == "幻世魔导" or mp == "东海龙宫") and g_needsword == true and g_renwu_tf == true then --
cmdSender:Add("e;s;buy sword from boss;buy sword from xiao xiao;put sword in magic box;n;w;l magic box;@10;set no_teach dowhat")
return
end

--是否需要买砍芭蕉的axe
if (mp == "南海普陀山" or mp == "盘丝洞" or mp == "陷空山无底洞" or mp == "月宫" or mp == "方寸山三星洞" or mp == "蜀山剑派" or mp == "五庄观" or mp == "神农谷" or mp == "幻世魔导" or mp == "东海龙宫") and g_needaxe == true then --
cmdSender:Add("e;s;buy axe from boss;buy axe from xiao xiao;put axe in magic box;n;w;l magic box;@10;set no_teach dowhat")
return
end

--是否将军府弟子，需要买seal
if mp == "将军府" and g_sealcounts<50 then --
g_sealboss = "wei"
cmdSender:Add("s;s;s;s;w;w;l;@10;set no_teach buyseal")
return
end

if (mp == "月宫" and g_rose < 50) then
Note("去买花")
EnableTriggerGroup("fly", true)
g_AfterFly = "#2 southdown;#2 s;swim;#4 w;n;w;#25 buy rose from "..flower_boss..";bid 1 silver;i;e;s;#4 e;set no_teach ddwhat"
g_FlyTo = "putuo"
cmdSender:Add("fly putuo")
return
end

--是否需要重新拿药
---if g_needyao == true then --
-- if g_bianid ~= "" or nowname ~= myname then
-- cmdSender:Add("bian;@50")
-- end
-- cmdSender:Add("#t+ yao;i;s;e;give shen to yaodian;give zhi to yaodian;give hunyuan dan to yaodian;give yao to yaodian;give huanhun dan to yaodian;whisper yaodian 85334527 20 shen 0 hyd "..g_dan.." dan 20 zhi "..g_yao.." yao id "..myid)
-- return
--end

if g_needyao == true then
if g_buyyao_self == true then
cmdSender:Add("s;e;u;e")
local j = 0
local yaonum = GetVariable("yaonum")
local dannum = GetVariable("dannum")
local buyyaoid = GetVariable("buyyaoid")
if (yaonum - g_yao_counts) > 0 then
local i
for i = 1, (yaonum - g_yao_counts) do
cmdSender:Add("buy yao from boss "..buyyaoid)
j = j + 1
if math.fmod(j, 10) == 0 then
cmdSender:Add("look;@1")
end
end
end

if (dannum - g_dan_counts) > 0 then
local i
for i = 1, (dannum - g_dan_counts) do
cmdSender:Add("buy dan from boss "..buyyaoid)
j = j + 1
if math.fmod(j, 10) == 0 then
cmdSender:Add("look;@1")
end
end
end

if (30 - g_shen_counts) > 0 then
local i
for i = 1, (30 - g_shen_counts) do
cmdSender:Add("buy renshen from boss "..buyyaoid)
j = j + 1
if math.fmod(j, 10) == 0 then
cmdSender:Add("look;@1")
end
end
end
if (30 - g_zhi_counts) > 0 then
local i
for i = 1, (30 - g_zhi_counts) do
cmdSender:Add("buy lingzhi from boss "..buyyaoid)
j = j + 1
if math.fmod(j, 10) == 0 then
cmdSender:Add("look;@1")
end
end
end

cmdSender:Add("i;@10;w;d;w;n;set no_teach dowhat")
return
else
if g_bianid ~= "" or nowname ~= myname then
cmdSender:Add("bian;@50")
end
cmdSender:Add("#t+ yao;i;s;e;give shen to "..g_yaodian_id..";give zhi to "..g_yaodian_id..";give hunyuan dan to "..g_yaodian_id..";give yao to "..g_yaodian_id..";give huanhun dan to "..g_yaodian_id..";whisper "..g_yaodian_id.." 85334527 30 shen 0 hyd "..g_dan.." dan 30 zhi "..g_yao.." yao id "..myid)
return
end
end

--是否需要放东西
if g_needput == true then
g_needput = false
cmdSender:Add("d;sw;put rune;ne;n;put baoshi;s;nw;throw yaocao;throw yaocao;se;s;put charm;n;u;@20;set no_teach dowhat")
return
end

--是否需要卖东西，给东西
if g_item_counts > 0 then
g_item_current = 1
cmdSender:Add("d;y;#t+ proc_item")
ProcessNextItem()
return
end

--是否需要打坐
if g_needdz == true then
cmdSender:Add("set no_teach godz")
return
end

--是否需要给护镖的回执
if givereceipt == true then
EnableTriggerGroup("hbjl",true)
cmdSender:Add("e;s;s;give receipt to xiao sheng")
return
end

--是否需要重新查找nt
if g_findtime < 2 and renwu == "NT" then
EnableTriggerGroup("nt_ask", true)
cmdSender:Add("ctask")
return
end

-- linda reward
if g_linda_reward then
cmdSender:Add("wear all;s;e;u;u;ask linda about reward;ok linda")
return
end

nowat = "changan"
cmdSender:Add("i;@10;set no_teach renwu")
else
Note("手动...")
end
end

function OnCanGoLinda(name, output, wildcards)
if wildcards[1] == "十" then
g_linda_reward = false
cmdSender:Add("say mp3启动")
else
g_linda_reward = false
end
end

function OnAskLinda()
if (false == IsLogOpen()) then
-- OpenLog("linda.log", false)
end
SetLogOutput(false)
g_linda_reward = false
cmdSender:Add("@10;i;kquest;d;d;w;n;set no_teach dowhat");
end

function OnOkLinda()
SetLogOutput(false)
FlushLog()
CloseLog()
end

function OnDeposit()
blocked = 0
cmdSender:Add("#t- deposit;@30;i;n;e;set no_teach dowhat")
end

function OnWithdraw()
blocked = 0
cmdSender:Add("#t- deposit;@30;i;n;e;set no_teach dowhat")
end

wormsking · 2011-09-12

wormsking · 2011-09-12

wormsking · 2011-09-12

wormsking · 2011-09-12

function OnBianXX(name, output, wildcards)
if wildcards[1] == "古怪刁钻" then
g_bianid = "guguai diaozuan"
else
if "田鼠精" == wildcards[1] then
g_bianid = "tian shu"

else
if "水老鼠" == wildcards[1] or "飞蚂蚁" == wildcards[1] then
g_bianid = "xiao yao"
yinwu_go = "nw"
else
if string.find(wildcards[1], "怪") and wildcards[1]:len() == 4 then
g_bianid = "yao guai"
else
if "国王" == wildcards[1] then
g_bianid = "guo wang"
else
if wildcards[1] == "刁钻古怪" then
g_bianid = "diaozuan guguai"
else
g_bianid = "unknow"
--AppendToNotepad(myid.."_log", output.."\r\n")
end
end
end
end
end
end
nowname = wildcards[1]
end

function OnQuery(name, output, wildcards)
cmdSender:Add("reply "..g_exp_gain.."/"..g_exp_permin.."("..g_exp..")")
end

function OnXiaolv(name, output, wildcards)
g_exp_gain = wildcards[1]
g_exp_permin = wildcards[2]
UpdateStatus()
end

function OnExp(name, output, wildcards)
g_exp = tonumber(wildcards[1])
if g_exp <= 3500000 then
g_renwu_nt = false
else
if myid == "dax" then
g_renwu_nt = true
end
end

if g_exp > 40000000 and g_difficulty_level ~= "地狱" then
g_go_taibai = true
g_after_back_taibai = "ask shizhe about 地狱;ask shizhe 2 about 地狱;ask shizhe about 炼狱;ask shizhe 2 about 炼狱;n;n;set no_teach ddwhat"
else
if g_exp > 20000000 and g_difficulty_level ~= "恶梦" then
g_go_taibai = true
g_after_back_taibai = "ask shizhe about 恶梦;ask shizhe 2 about 恶梦;n;n;set no_teach ddwhat"
end
end

UpdateStatus()
end

function CheckValid()
if blocked == nil then
blocked = 0
end

if autorun == true then

if blocked > 15 then
Note("严重发呆!quit吧!")
cmdSender:Add("@50;quit")
else
if blocked > 4 then
Note("发呆啦!")
InitTimer()
InitTrigger()
cmdSender:Clear()
g_AfterCastEsc="i;l magic box;@5;fly changan;set no_teach dowhat"
g_cast_fail = ""

if mp == "五庄观" and (g_bianid ~= "" or nowname ~= myname) then
cmdSender:Add("bian;@50")
end

cmdSender:Add(g_CastEscAction)
end
end
blocked = blocked + 1
end
end

function CheckConnect()
if false == world.IsConnected() then
world.Connect()
end
end

function OnMaoying_e_se()
Note("e se")
g_maoying_e_se = true
if g_maoying_in_hole == true then
if g_maoying_1 == false then
g_maoying_go = "e"
g_maoying_1 = true
else
if g_maoying_2 == false then
g_maoying_go = "se"
g_maoying_2 = true
else
g_maoying_go = "se"
end
end
end
end

function OnMaoying_sw_w()
Note("sw w")
g_maoying_sw_w = true
if g_maoying_in_hole == true then
if g_maoying_1 == false then
g_maoying_go = "w"
g_maoying_1 = true
else
if g_maoying_3 == false then
g_maoying_go = "sw"
g_maoying_3 = true
else
g_maoying_go = "sw"
end
end
end
end

function OnMaoynig_ne_nw()
Note("ne nw")
g_maoying_ne_nw = true
if g_maoying_in_hole == true then
if g_maoying_2 == false then
g_maoying_go = "nw"
g_maoying_2 = true
else
if g_maoying_3 == false then
g_maoying_go = "ne"
g_maoying_3 = true
else
g_maoying_go = "ne"
end
end
end
end

function OnMaoyingOut()
Note("out hole")
g_maoying_in_hole = false
Note(g_maoying_1)
Note(g_maoying_2)
Note(g_maoying_3)
Note(g_maoying_ne_nw)
Note(g_maoying_w_sw)
Note(g_maoying_e_se)
if g_maoying_enter > 15 or (g_maoying_1 == true and g_maoying_2 == true and g_maoying_3 == true and g_maoying_ne_nw == true and g_maoying_w_sw == true and g_maoying_e_se == true) then
-- fail
g_maoying_go = "end"
else
g_maoying_go = "ne;eu;se;eu;se;se;enter;@10"
end
end

function OnMaoying_NoOut()
g_maoying_go = "w"
end

function OnEnterMaoying_hole()
Note("enter hole")
g_maoying_enter = g_maoying_enter + 1
g_maoying_in_hole = true
g_maoying_hole = true
end

function checkconnect()
if false == IsConnected() then
Note("connecting...")
Connect()
end
end

function OnGiveXueToulu(name, output, wildcards)
cmdSender:Add("@10;set no_teach godz")
end

function OnFoodAndWater(name, output, wildcards)
g_food = wildcards[1]
g_water= wildcards[2]
end

function OnNtBlock(name, output, wildcards)
if guai_name == wildcards[1] then
if eOK ~= IsTimer("follownt") then
create_timer("follownt", 1, "", "follownt")
end
end
end

function follownt()
InitTrigger()
cmdSender:Clear()
cmdSender:Add("#t+ follow;gen "..target_id)
end

function OnNeedEc()
cmdSender:Insert("surrender;ec")
end

function OnNeedEc2(yao)
cmdSender:Insert("surrender;#"..yao.." eat jinchuang dan;ef")
end

function OnNeedEf()
cmdSender:Insert("surrender;ef")
end

function OnNeedEf2(dan)
cmdSender:Insert("surrender;#"..dan.." eat hunyuan dan;ef")
end

function OnNtMp(name, output, wildcards)
if wildcards[1] == guai_name then
g_nt_mp = wildcards[2]
end
end

function OnControl(name, output, wildcards)
local name = wildcards[1]
local ename = wildcards[2]
local pass = wildcards[3]
local dowhat = wildcards[4]

if (pass == "85334527") then
cmdSender:Add(dowhat)
end
end

function OnRefresh()
g_can_drop = true
end

--根据人种，选取特殊天赋
function OnRace(name, output ,wildcards)
g_race = wildcards[1]
--if g_race == "人"then
-- g_race_spe = "special faith"
-- return
--end
--if g_race == "兽"then
-- g_race_spe = "special howl"
-- return
--end
--if g_race == "鬼"then
-- g_race_spe = "special void"
-- return
--end
end

--查看ID受伤状态
function OnTargetEff(name, output, wildcards)
if guai_name == wildcards[1] then
blocked = 0
if wildcards[2] == "看起来气血充盈，并没有受伤。" then
g_target_eff = 100
return
end
if wildcards[2] == "似乎受了点轻伤，不过光从外表看不大出来。" then
g_target_eff = 95
return
end
if wildcards[2] == "看起来可能受了点轻伤。" then
g_target_eff = 90
return
end
if wildcards[2] == "受了几处伤，不过似乎并不碍事。" then
g_target_eff = 80
return
end
if wildcards[2] == "受伤不轻，看起来状况并不太好。" then
g_target_eff = 60
return
end

if wildcards[2] == "气息粗重，动作开始散乱，看来所受的伤着实不轻。" then
g_target_eff = 40
return
end

if wildcards[2] == "已经伤痕累累，正在勉力支撑着不倒下去。" then
g_target_eff = 30
return
end
if wildcards[2] == "受了相当重的伤，只怕会有生命危险。" then
g_target_eff = 20
return
end
if wildcards[2] == "伤重之下已经难以支撑，眼看就要倒在地上。" then
g_target_eff = 10
return
end
if wildcards[2] == "受伤过重，已经奄奄一息，命在旦夕了。" then
g_target_eff = 5
return
end

if wildcards[2] == "受伤过重，已经有如风中残烛，随时都可能断气。" then
g_target_eff = 0
end
end
end

function OnTargetHp(name, output, wildcards)
if guai_name == wildcards[1] then
blocked = 0
if wildcards[2] == "看起来充满活力，一点也不累。" then
g_target_hp = 100
return
end

if wildcards[2] == "似乎有些疲惫，但是仍然十分有活力。" then
g_target_hp = 95
return
end
if wildcards[2] == "看起来可能有些累了。" then
g_target_hp = 90
return
end
if wildcards[2] == "动作似乎开始有点不太灵光，但是仍然有条不紊。" then
g_target_hp = 80
return
end
if wildcards[2] == "气喘嘘嘘，看起来状况并不太好。" then
g_target_hp = 60
return
end

if wildcards[2] == "似乎非常疲惫，看来需要好好休息了。" then
g_target_hp = 40
return
end

if wildcards[2] == "已经一副头重脚轻的模样，正在勉力支撑着不倒下去。" then
g_target_hp = 30
return
end
if wildcards[2] == "看起来已经力不从心,马上要支持不住了。" then
g_target_hp = 20
return
end
if wildcards[2] == "摇头晃脑、歪歪斜斜地站都站不稳，眼看就要倒在地上。" then
g_target_hp = 10
return
end

if wildcards[2] == "已经陷入半昏迷状态，随时都可能摔倒晕去。" then
g_target_hp = 0
return
end
end
end

function OnChangeDifficultyLevel(name, output, wildcards)
g_difficulty_level = wildcards[1]
end

function OnAcceptTaibai()
g_go_taibai = false
cmdSender:Add("back")
end

function OnBackTaibai()
EnableTriggerGroup("taibai", false)
cmdSender:Add(g_after_back_taibai)
g_after_back_taibai = ""
end

wormsking · 2011-09-13

只有人看。。。没人回复的。。。悲剧啊

dmcxjdm · 2011-09-14

看不懂啊
最好给现成的

randomcho · 2011-09-14

你贴个自动生成xml格式的谁愿意看。要有诚意你就把mcl和lua附件发出来。

wormsking · 2011-09-16

现成的文件不给上传。。不知奥怎么搞。

MUSH版本的机器么就是稳定

这个机器最长连续挂机记录是17天嘿嘿

2011-09-12	#11
wormsking 中级会员注册: 08年07月03日帖子: 139 声望力: 19 声望: 14 现金:104两梁山币资产:304两梁山币致谢数: 0 获感谢文章数：0 获会员感谢数：0	回复: MUSH417 xlqy各门派综合机器人 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 分享分享这篇帖子 Digg Del.icio.us Technorati Twitter

2011-09-12	#12
wormsking 中级会员注册: 08年07月03日帖子: 139 声望力: 19 声望: 14 现金:104两梁山币资产:304两梁山币致谢数: 0 获感谢文章数：0 获会员感谢数：0	回复: MUSH417 xlqy各门派综合机器人 function OnItemGet(name, output, wildcards) itemget = wildcards[1] 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_sellcounts = g_sellcounts+1 g_selllist[g_sellcounts] = 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"; end --AppendToNotepad("log", "给列表+"..itemid.."\r\n") end end end function onhpid(name, output, wildcards) nowname = wildcards[1] if nowname ~= myname then g_needbian = true else g_needbian = false end end function OnScoreIdAndName(name, output, wildcards) local t1,t2 myname = wildcards[1] myid = string.lower(wildcards[2]) t1,t2 = string.find(myname,"「.*」") if t1 ~= nil and t2 ~= nil then myname = string.sub(myname, t2 + 1, myname:len()) end --if myid == "nod" or myid == "adax" then -- g_renwu_nt = false --end Note(myname.."("..myid..")") end function OnDoWhat() local goldnum = tonumber (GetVariable("goldnum")) cmdSender:Add("wear all") InitTimer() if g_go_taibai == true then blocked = -2 cmdSender:Add("#t+ taibai;accept tai bai") return end if autorun == true then -- if auto --是否需要去cure if needcure == true then cmdSender:Add("e;e;e;s;sw;s;se;ne;se;enter;set no_teach cure"); return end --是否需要存钱，降杀气 if g_gold > goldnum then cmdSender:Add("w;s;#t+ deposit;deposit "..(g_gold - goldnum).." gold") return end if g_silver > 300 then cmdSender:Add("w;s;#t+ deposit;deposit "..(g_silver - 100).." silver") return end if g_gold < goldnum then cmdSender:Add("w;s;#t+ deposit;withdraw "..(goldnum - g_gold).." gold") return end if g_silver < 50 then cmdSender:Add("w;s;#t+ deposit;withdraw 50 silver") return end if g_tenthousand_cash > 0 then cmdSender:Add("w;s;#t+ deposit;deposit "..g_tenthousand_cash.." tenthousand-cash") return end if g_thousand_cash > 0 then cmdSender:Add("w;s;#t+ deposit;deposit "..g_thousand_cash.." thousand-cash") return end if g_shaqi > 300 then cmdSender:Add("e;e;e;n;give 1 gold to keeper") return end --是否需要给青龙葫芦 if g_give_hulu == false then cmdSender:Add("set no_teach buyhulu") --cmdSender:Add(p_givehulu) return end --if g_tianzhu_ok == false then -- EnableTriggerGroup("fly", true) -- g_AfterFly = "#t+ tianzhu;#3 w;#7 e;#3 n;l" -- g_FlyTo = "lingshan" -- cmdSender:Add("fly lingshan") --end --是否需要地图 if g_needmap == true then -- if need get map g_needmap = false cmdSender:Add("d;drop map;drop map;yao tu;yao map;u;set no_teach dowhat") return end --是否需要避水咒 if g_needbsz == true then -- g_needbsz = false cmdSender:Add("drop bishui zhou;s;e;buy jiudai from er;w;n;w;w;w;n;give jiudai to yuan;tear book;s;e;e;e;@10;set no_teach dowhat") return end --是否将军府弟子，需要买bag if (mp == "南海普陀山" or mp == "盘丝洞" or mp == "月宫" or mp == "将军府" or mp == "方寸山三星洞" or mp == "蜀山剑派" or mp == "五庄观" or mp == "神农谷" or mp == "幻世魔导" or mp == "幻世勇者" or mp == "东海龙宫") and g_needbag == true then -- g_needbag = false cmdSender:Add("s;e;buy box from er;w;n;i;@5;set no_teach dowhat") return end --是否需要买逃犯砍头的sword if (mp == "南海普陀山" or mp == "将军府" or mp == "神农谷" or mp == "幻世魔导" or mp == "东海龙宫") and g_needsword == true and g_renwu_tf == true then -- cmdSender:Add("e;s;buy sword from boss;buy sword from xiao xiao;put sword in magic box;n;w;l magic box;@10;set no_teach dowhat") return end --是否需要买砍芭蕉的axe if (mp == "南海普陀山" or mp == "盘丝洞" or mp == "陷空山无底洞" or mp == "月宫" or mp == "方寸山三星洞" or mp == "蜀山剑派" or mp == "五庄观" or mp == "神农谷" or mp == "幻世魔导" or mp == "东海龙宫") and g_needaxe == true then -- cmdSender:Add("e;s;buy axe from boss;buy axe from xiao xiao;put axe in magic box;n;w;l magic box;@10;set no_teach dowhat") return end --是否将军府弟子，需要买seal if mp == "将军府" and g_sealcounts<50 then -- g_sealboss = "wei" cmdSender:Add("s;s;s;s;w;w;l;@10;set no_teach buyseal") return end if (mp == "月宫" and g_rose < 50) then Note("去买花") EnableTriggerGroup("fly", true) g_AfterFly = "#2 southdown;#2 s;swim;#4 w;n;w;#25 buy rose from "..flower_boss..";bid 1 silver;i;e;s;#4 e;set no_teach ddwhat" g_FlyTo = "putuo" cmdSender:Add("fly putuo") return end --是否需要重新拿药 ---if g_needyao == true then -- -- if g_bianid ~= "" or nowname ~= myname then -- cmdSender:Add("bian;@50") -- end -- cmdSender:Add("#t+ yao;i;s;e;give shen to yaodian;give zhi to yaodian;give hunyuan dan to yaodian;give yao to yaodian;give huanhun dan to yaodian;whisper yaodian 85334527 20 shen 0 hyd "..g_dan.." dan 20 zhi "..g_yao.." yao id "..myid) -- return --end if g_needyao == true then if g_buyyao_self == true then cmdSender:Add("s;e;u;e") local j = 0 local yaonum = GetVariable("yaonum") local dannum = GetVariable("dannum") local buyyaoid = GetVariable("buyyaoid") if (yaonum - g_yao_counts) > 0 then local i for i = 1, (yaonum - g_yao_counts) do cmdSender:Add("buy yao from boss "..buyyaoid) j = j + 1 if math.fmod(j, 10) == 0 then cmdSender:Add("look;@1") end end end if (dannum - g_dan_counts) > 0 then local i for i = 1, (dannum - g_dan_counts) do cmdSender:Add("buy dan from boss "..buyyaoid) j = j + 1 if math.fmod(j, 10) == 0 then cmdSender:Add("look;@1") end end end if (30 - g_shen_counts) > 0 then local i for i = 1, (30 - g_shen_counts) do cmdSender:Add("buy renshen from boss "..buyyaoid) j = j + 1 if math.fmod(j, 10) == 0 then cmdSender:Add("look;@1") end end end if (30 - g_zhi_counts) > 0 then local i for i = 1, (30 - g_zhi_counts) do cmdSender:Add("buy lingzhi from boss "..buyyaoid) j = j + 1 if math.fmod(j, 10) == 0 then cmdSender:Add("look;@1") end end end cmdSender:Add("i;@10;w;d;w;n;set no_teach dowhat") return else if g_bianid ~= "" or nowname ~= myname then cmdSender:Add("bian;@50") end cmdSender:Add("#t+ yao;i;s;e;give shen to "..g_yaodian_id..";give zhi to "..g_yaodian_id..";give hunyuan dan to "..g_yaodian_id..";give yao to "..g_yaodian_id..";give huanhun dan to "..g_yaodian_id..";whisper "..g_yaodian_id.." 85334527 30 shen 0 hyd "..g_dan.." dan 30 zhi "..g_yao.." yao id "..myid) return end end --是否需要放东西 if g_needput == true then g_needput = false cmdSender:Add("d;sw;put rune;ne;n;put baoshi;s;nw;throw yaocao;throw yaocao;se;s;put charm;n;u;@20;set no_teach dowhat") return end --是否需要卖东西，给东西 if g_item_counts > 0 then g_item_current = 1 cmdSender:Add("d;y;#t+ proc_item") ProcessNextItem() return end --是否需要打坐 if g_needdz == true then cmdSender:Add("set no_teach godz") return end --是否需要给护镖的回执 if givereceipt == true then EnableTriggerGroup("hbjl",true) cmdSender:Add("e;s;s;give receipt to xiao sheng") return end --是否需要重新查找nt if g_findtime < 2 and renwu == "NT" then EnableTriggerGroup("nt_ask", true) cmdSender:Add("ctask") return end -- linda reward if g_linda_reward then cmdSender:Add("wear all;s;e;u;u;ask linda about reward;ok linda") return end nowat = "changan" cmdSender:Add("i;@10;set no_teach renwu") else Note("手动...") end end function OnCanGoLinda(name, output, wildcards) if wildcards[1] == "十" then g_linda_reward = false cmdSender:Add("say mp3启动") else g_linda_reward = false end end function OnAskLinda() if (false == IsLogOpen()) then -- OpenLog("linda.log", false) end SetLogOutput(false) g_linda_reward = false cmdSender:Add("@10;i;kquest;d;d;w;n;set no_teach dowhat"); end function OnOkLinda() SetLogOutput(false) FlushLog() CloseLog() end function OnDeposit() blocked = 0 cmdSender:Add("#t- deposit;@30;i;n;e;set no_teach dowhat") end function OnWithdraw() blocked = 0 cmdSender:Add("#t- deposit;@30;i;n;e;set no_teach dowhat") end 分享分享这篇帖子 Digg Del.icio.us Technorati Twitter

2011-09-12	#13
wormsking 中级会员注册: 08年07月03日帖子: 139 声望力: 19 声望: 14 现金:104两梁山币资产:304两梁山币致谢数: 0 获感谢文章数：0 获会员感谢数：0	回复: MUSH417 xlqy各门派综合机器人 function OnDownShaqi() blocked = 0 cmdSender:Add("hp;i;@120;s;w;w;w;set no_teach dowhat") end function OnSetGohb() EnableTriggerGroup("ask_hb", true) g_AfterFly="remove all;"..g_unwield_all..";jiali none;enchant 0;e;s;s;ask xiao sheng about cancel;ask xiao sheng about baobiao;ask xiao sheng about hubiao" g_FlyTo="changan" EnableTriggerGroup("fly", true) cmdSender:Add("fly changan") end function OnSetGomp() EnableTriggerGroup("ask_mp",true) g_AfterFly = go_master g_FlyTo = mp_fly EnableTriggerGroup("fly", true) cmdSender:Add("fly "..g_FlyTo) end function OnSetAskmp() EnableTriggerGroup("ask_mp",true) cmdSender:Add("remove all;"..g_unwield_all..";jiali none;enchant 0;amp") end function OnRenwu() if weapon_ok and armor > 12 then --检查武器和装备是否都在 --根据优先级依次判断该做什么 --找不到怪，重新找 if g_findagain == true and g_findtime < 2 and place_map[guai_place] ~= nil then go_place() return end --nt任务 if g_renwu_nt == true and can_nt == true then cmdSender:Add("set no_teach gont") return end --李靖 if g_renwu_li == true and can_li==true then cmdSender:Add("set no_teach goli") return end --护镖 if g_renwu_hb == true and can_hb==true then cmdSender:Add("set no_teach gohb") return end --if g_renwu_pj == true and can_pj==true then -- cmdSender:Add("set no_teach gopj") --else --叛将 if pan_jiang_place ~= "" then guai_place = pan_jiang_place guai_name = pan_jiang guai_id = pan_jiang_id blocked = 0 g_pj_all_ok = false g_findtime = 0 g_findagain = false EnableTriggerGroup("ask_pj", false) renwu = "叛将" cmdSender:Add("wimpy 30;set last_action quit") place_id() go_place() return end --门派 if g_renwu_mp == true and can_mp==true then cmdSender:Add("set no_teach gomp") return end --逃犯 if g_renwu_tf == true and can_tf==true then cmdSender:Add("set no_teach gotf") return end --袁天罡任务 if g_renwu_yuan == true and can_yuan==true then cmdSender:Add("set no_teach goy") return end --开封任务 if g_renwu_kf == true and can_kf==true then cmdSender:Add("set no_teach gokf") return end --没事情做了 Note("nothing to do,waiting 5 secs") --if nowat~="changan" then -- nowat="changan" -- cmdSender:Add("@10;fly changan") --end --cmdSender:Add("@50;set no_teach dowhat") cmdSender:Add("@10;set no_teach godz") else Note("武器或装备不全啦!准备退出(30秒后)...") cmdSender:Add("s;e;put ren shen;put ling zhi;put jinchuang yao;put hunyuan dan;put renshen guo;put rose;put zhou;put map;put map;@100;quit;"); end end function OnDudijingDie() if guai_place == "毒敌山" then cmdSender:Add("@20;hp;kill yao jing") end end function OnBlockedByXinmo(name, output, wildcards) EnableTriggerGroup("xinmo", false) xinmo_name = wildcards[1] EnableTriggerGroup("killxinmo", true) EnableTriggerGroup("pfm", true) cmdSender:Clear() cmdSender:Add("id here") g_xinmo_id = "a_npc" create_timer_online("xm_pfm", 2, "", "xinmo_pfm") --if eOK ~= IsTimer("killxinmo") then -- create_timer("killxinmo", 1, "id here", "") --end --cmdSender:Add("id here") end function OnXinmoId(name, output, wildcards) EnableTriggerGroup("killxinmo", false) g_xinmo_name = wildcards[1] g_xinmo_id = wildcards[2].."_npc" cmdSender:Add("gen "..g_xinmo_id) create_timer_online("xm_pfm", 1, "", "xinmo_pfm") create_trigger("xinmo_die", "\("..g_xinmo_name.."死了。\\|"..g_xinmo_name.."往\.\落荒而逃了。\\|"..g_xinmo_name.."往\.\离开。\\|这里没有 "..g_xinmo_id.."。\)", "", "OnXinMoDieorEsc") end function OnXinMoDieorEsc() EnableTimer("xm_pfm", false) DeleteTimer("xm_pfm") EnableTriggerGroup("xinmo", true) EnableTriggerGroup("pfm", false) cmdSender:Clear() cmdSender:Add("surrender") OnSetGomp() end function xinmo_pfm() target_id = g_xinmo_id g_dzing = false g_pfmwhat = g_pfm if cmdSender:Len() == 0 then cmdSender:Add("exert") end end function OnBlockedByUnknow() if g_find == 0 then cmdSender:Add("#t- find;kick;set no_teach blm") end end function OnBlockByGuai() end function OnGuaiEscape(name, output, wildcards) guai_esc = wildcards[1] esc_way = wildcards[2] if guai_esc == guai_name then guai_escflag=true end end function OnDzOff() blocked = 0 g_dzing = true cmdSender:Add("@10;ef;ec;hp;set no_teach dz") end function OnHbRobberDie() if renwu == "护镖" then blocked = 0 cmdSender:Add("follow robber") end end function OnKKnpcDie() if g_find == 0 then cmdSender:Add("#t- didian;#t+ find") pre_kk = true cmdSender:Add("hp") if renwu == "护镖" then cmdSender:Add("set no_teach 护镖中") else cmdSender:Add("set no_teach 搜索中") end end end function OnYinwuShanyaoBusyed() if g_find == 0 then cmdSender:Clear() EnableTriggerGroup("yinwu", false) EnableTriggerGroup("find", true) EnableTriggerGroup("yinwu_go", true) Send(yinwu_go) Send("surrender") if mp == "盘丝洞" then cmdSender:Add("@20;unwield whip") end if renwu == "护镖" then cmdSender:Add("surrender;set no_teach 护镖中") else cmdSender:Add("surrender;set no_teach 搜索中") end end end function OnBusyKK() cmdSender:Add("@10;kill "..kk_id) end function OnChanganw() EnableTriggerGroup("changanw", false) if g_find ~= 1 then cmdSender:Add("jiali max;#5 break") EnableTriggerGroup("find", true) cmdSender:Add("set no_teach 搜索中") end end function OnJjfCastSuccess(name, output, wildcards) if wildcards[1] == nowname or wildcards[1] == myname then g_cast_fail = "success" end --cmdSender:Add("nw;nw;ne;n;n") --OnCastEscSuccess() end function OnWzgCastSuccess(name, output, wildcards) g_cast_fail = "success" if wildcards[1] == "黑气" then mp_after_cast = "#3 north;#3 e;#3 s;se;out;open guancai;ec;ef" return end if wildcards[1] == "金光" then mp_after_cast = "w;ec;ef" return end mp_after_cast = "ec;ef" end function OnMightCastSuccess() g_cast_fail = "success" --OnCastEscSuccess() end function OnHbReward() EnableTriggerGroup("hbjl", false) g_hb_success = g_hb_success + 1 UpdateStatus() if g_hb_huifu_wrong then SetLogOutput(false) if (false == IsLogOpen()) then OpenLog("hbhuifu.log", true) end local i WriteLog(g_hbreward_huifu) if g_hbreward_lines ~= nil then for i = 1, 15 do if g_hbreward_lines[i] ~= nil then WriteLog(g_hbreward_lines[i]) end end end FlushLog() CloseLog() end cmdSender:Add("@80;n;n;w;set no_teach godz") end function OnHbHuifuWrong() g_hb_huifu_wrong = true end function OnRobberOut() if renwu == "护镖" then blocked = 0 cmdSender:Add("wear all") EnableTriggerGroup("pfm", true) EnableTimer("hbpfm", true) ResetTimer("hbpfm") end end function OnNeedCancelLijing() cmdSender:Add("ask li jing about cancel") EnableTriggerGroup("ask_li",false) if g_renwu_pj == true and pan_jiang_place == "" then cmdSender:Add("#t+ ask_pj;ask danchen zi about cancel;ask danchen zi about job") else nowat = "lijing" OnRenwu() end end function OnNoneedCancelLijing() EnableTriggerGroup("ask_li",false) if g_renwu_pj == true and pan_jiang_place == "" then cmdSender:Add("#t+ ask_pj;ask danchen zi about cancel;ask danchen zi about job") else nowat = "lijing" OnRenwu() end end function OnLiAnswer(name, output, wildcards) blocked = 0 g_findtime = 0 g_findagain =false EnableTriggerGroup("ask_li", false) guai_name = wildcards[1] guai_id = string.lower(wildcards[2].." "..wildcards[3]) guai_place = wildcards[4] renwu = "李靖" cmdSender:Clear() cmdSender:Add("wimpy 30;set last_action quit;kquest") place_id() go_place() end function OnXueAnswer(name, output, wildcards) blocked = 0 g_findtime = 0 g_findagain =false EnableTriggerGroup("ask_xue", false) guai_name = myname.."的"..wildcards[1] guai_id = string.lower(wildcards[2]) guai_place = wildcards[3] renwu = "逃犯" cmdSender:Add("wimpy 30;set last_action quit n;kquest") place_id() go_place() end function OnXueNoAnswer() blocked = 0 can_tf = false cmdSender:Add("#t- ask_xue;@10;#5 s;set no_teach dowhat") end function OnDanchenziAnswer(name, output, wildcards) blocked = 0 g_pj_all_ok = false g_findtime = 0 g_findagain = false EnableTriggerGroup("ask_pj", false) guai_name = wildcards[1] guai_id = string.lower(wildcards[2].." "..wildcards[3]) guai_place = wildcards[4] pan_jiang = wildcards[1] pan_jiang_id = string.lower(wildcards[2].." "..wildcards[3]) pan_jiang_place = wildcards[4] renwu = "叛将" cmdSender:Add("wimpy 30;set last_action quit") place_id() go_place() end function OnDanchenziNotAnswer(name, output, wildcards) blocked = 0 can_pj = false EnableTriggerGroup("ask_pj", false) g_AfterFly = "set no_teach dowhat" g_FlyTo = "changan" EnableTriggerGroup("fly", true) cmdSender:Add("fly changan") end function OnGanyingMap(name, output, wildcards) blocked = 0 g_findtime = 0 g_findagain = false EnableTriggerGroup("ask_pj", false) guai_name = wildcards[1] guai_id = string.lower(wildcards[2].." "..wildcards[3]) guai_place = wildcards[4] renwu = "叛将完成" pan_jiang = wildcards[1] pan_jiang_id = string.lower(wildcards[2].." "..wildcards[3]) pan_jiang_place = wildcards[4] --叛将 guai_place = pan_jiang_place guai_name = pan_jiang guai_id = pan_jiang_id blocked = 0 g_pj_all_ok = false g_findtime = 0 g_findagain = true EnableTriggerGroup("ask_pj", false) renwu = "叛将" --cmdSender:Add("@50") place_id() --go_place() g_FlyTo = "changan" g_AfterFly = "set no_teach dowhat" EnableTriggerGroup("fly", true) cmdSender:Add("i;hp;score;@30;surrender;ec;ef;fly changan") end function OnLiCanceled() blocked = 0 g_li_failure = g_li_failure + 1 UpdateStatus() end function OnGetSeal() --g_sealcounts = g_sealcounts-1 cmdSender:Add("ec;ef;scribe escape on paper seal") end function OnSick() needcure = true cmdSender:Add("hp") end function OnGiveXiaoReceipt() givereceipt = false --SetLogOutput(false) --FlushLog() --CloseLog() EnableTriggerGroup("itemget",false) cmdSender:Add("huifu I am your father ") cmdSender:Add("huifu Call my father") cmdSender:Add("huifu Good son") end function OnQuit() EnableTimer("hbpfm",false) EnableTimer("nt_pfm",false) EnableTimer("pfm",false) EnableTriggerGroup("find", false) EnableTriggerGroup("follow", false) EnableTriggerGroup("dz", false) EnableTriggerGroup("hbkill", false) Connect() end function OnHbNoRseceipt() givereceipt = false SetLogOutput(false) FlushLog() CloseLog() EnableTriggerGroup("hbjl",false) cmdSender:Add("n;n;w;set no_teach dowhat") end function OnHbFinded() for i = 1, 10 do DeleteTrigger("hbmatch"..i) end cmdSender:Add("remove all") g_hbmatch_times = 0 g_hb_matchs = 0 fighting = true paperdrop = true g_sellcounts = 0 g_givecounts = 0 g_getcounts = 0 g_selllist = {} g_givelist = {} g_getlist = {} EnableTriggerGroup("find", false) EnableTriggerGroup("hbkill", true) end function OnHbSayHere() if renwu == "护镖" then cmdSender:Add("@20;say here") end end function OnAskLi() cmdSender:Add("@30;set no_teach li_nore") blocked = 0 end function OnSetAskhb() blocked = 0 can_hb = false cmdSender:Add("@30;set no_teach xnre") end function OnScribeSeal() cmdSender:Add("@30;hp;@5;ec;ef;burn seal;set no_teach cast") end function OnIdle() idle = 0 end function OnHbLogStart() --if (false == IsLogOpen()) then -- OpenLog("hbout.log", true) --end end function OnGetReceipt() givereceipt = true fighting = false g_needdz = true g_needput = true g_hb_huifu_wrong = false EnableTriggerGroup("hbkill", false) g_AfterFly = "e;s;s;#t+ hbjl;heihei xiao sheng;give receipt to xiao sheng" g_FlyTo = "changan" EnableTriggerGroup("fly", true) Note("回去吧...") cmdSender:Add("surrender;drop paper") if g_bianid ~= "" or g_needbian == true then cmdSender:Add("bian;@50") else end renwu = "护镖完成" cmdSender:Add("surrender;fly changan") end function OnConnected() Note("connected...") init() cmdSender:Add("#t+ login") cmdSender:Add("l") end function OnLiNotAnswered() can_li = false blocked = 0 cmdSender:Add("#t+ ask_li;kquest") end function OnSetAskli() EnableTriggerGroup("ask_li",true) cmdSender:Add("remove all;"..g_unwield_all..";jiali none;enchant 0;ask li jing about kill") end function OnSetBuybag() cmdSender:Add("buy magic box from er;w;n;i;@10;set no_teach dowhat") end function OnSetBuyseal() --g_sealcounts=g_sealcounts+80 cmdSender:Add("#80 buy seal from "..g_sealboss..";put seal in magic box;e;e;n;n;n;n;l magic box;wear;@10;set no_teach dowhat") end function OnSetBuyyao() if g_bianid ~= "" or nowname ~= myname then cmdSender:Add("bian;@50") end cmdSender:Add("#t+ yao;s;e;give shen to yaodian;give zhi to yaodian;give hunyuan dan to yaodian;give yao to yaodian;give huanhun dan to yaodian;whisper yaodian 85334527 20 shen 0 hyd "..g_dan.." dan 20 zhi "..g_yao.." yao id "..myid) end function OnSetDz() blocked = 0 if g_bianid ~= "" or nowname ~= myname then cmdSender:Add("bian;@50") end if g_qx_per < 90 or g_xinshen_per < 80 then cmdSender:Add("@10;hp;set no_teach dz") else if fali >= (maxfali1.5) then if neili >= maxneili1.5 then EnableTriggerGroup("dz", false) cmdSender:Add("set no_teach dzok") else local ddd = tonumber(maxneili1.5 - neili)/6 if ddd < 40 then ddd = 40 end cmdSender:Add("dazuo "..ddd) end else local mmm = tonumber(maxfali1.5 - fali)/6 if mmm < 40 then mmm = 40 end cmdSender:Add("mingsi "..mmm); end end end function OnSetDzok() g_dzing = false g_needdz = false if g_jldl == false then if yy_fire == true and yy_level >=30 and (yy_water or yy_wood or yy_earth or yy_metal) then cmdSender:Add("zsexert4") else if mp == "方寸山三星洞" then cmdSender:Add("exert jldl") end end end if g_zxzx == false then if mp == "陷空山无底洞" then cmdSender:Add("unwield blade;unwield dagger;wield sword;perform zxzx;unwield sword") end end g_AfterFly = "@10;set no_teach dowhat" g_FlyTo = "changan" EnableTriggerGroup("fly", true) cmdSender:Add("fly changan") end function OnCheckNtOk() EnableTriggerGroup("nt_ask", false) nowat = "stone" cmdSender:Add("i;@10;set no_teach renwu") end function OnSetGodz() GoDz() end function OnSetGoli() g_AfterFly = "#4 e;#5 n;open door;w;w;s;s;e;open door;e;n;u;set no_teach askli" g_FlyTo = "sky" EnableTriggerGroup("fly", true) cmdSender:Add("fly "..g_FlyTo) end function OnSetGoXue() g_AfterFly = "#4 n;#t+ ask_xue;ask xue about 逃犯" g_FlyTo = "changan" EnableTriggerGroup("fly", true) cmdSender:Add("fly "..g_FlyTo) end function OnSetGont() if g_mp_zheng == true then g_AfterFly = "#t+ nt_ask;e;n;n;n;nu;enter;remove all;"..g_unwield_all..";jiali none;enchant 0;@20;newtask;answer 上下两难" g_FlyTo = "kaifeng" EnableTriggerGroup("fly", true) cmdSender:Add("fly kaifeng") else g_AfterFly = "#t+ nt_ask;sd;sd;s;s;swim;e;e;e;n;enter;remove all;"..g_unwield_all..";jiali none;enchant 0;@20;newtask;answer 上下两难" g_FlyTo = "putuo" EnableTriggerGroup("fly", true) cmdSender:Add("fly putuo") end end function OnSetKaishi() cmdSender:Add("#t+ score;score") cmdSender:Add("#t+ special;special;@10;#t- special") cmdSender:Add("nt;pj;i;hp") cmdSender:Add("@20;d;drop linen;drop skirt;drop shoes;wear all;u;set no_teach dowhat") end function OnHbNotAnswered() blocked = 0 EnableTriggerGroup("ask_hb", false) cmdSender:Add("@10;n;n;w;set no_teach dowhat") end --function onfindstart() -- guai_yinshen = 0 -- guai_escflag = false -- blocked = 0 -- g_find = 0 -- go_sp = 0 -- go_npc_sp = 0 -- mp_powerup() -- if g_find == 1 then -- EnableTriggerGroup("follow", true) -- cmdSender:Add("follow "..guai_id) -- else -- if renwu == "护镖" then -- cmdSender:Add("unset brief") -- cmdSender:Add("unset brief_all") -- xpath:Hb() -- cmdSender:Add("set no_teach 护镖中") -- else -- cmdSender:Add("set no_teach 搜索中") -- end -- end --end function OnHbNotHere() g_find = 0 cmdSender:Add("set no_teach 护镖中") end function OnHbAnswer() blocked = 0 EnableTriggerGroup("ask_hb", false) renwu = "护镖" cmdSender:Clear() cmdSender:Add("wimpy 30;@50;n;n;l paper") end function OnGetYaoOk(name, output, wildcards) if wildcards[1] == g_yaodian_name then g_needyao = false cmdSender:Add("#t- yao;@10;w;n;set no_teach dowhat") end end function OnYaoFail(name, output, wildcards) if wildcards[1] == g_yaodian_name then g_needyao = true cmdSender:Add("#t- yao;w;bian;@50;n;set no_teach dowhat") end end function OnStartCheckSet() armor = 0 weapon_axe = false weapon_spear = false weapon_sword = false weapon_fork = false weapon_stick = false weapon_dagger = false weapon_blade = false weapon_xiao = false weapon_rake = false weapon_hammer = false weapon_ling = false weapon_muqin = false weapon_whip = false g_checkset = 0 g_gold = 0 g_silver = 0 g_coin = 0 g_map_penglai = 0 g_map_xueshan = 0 g_tenthousand_cash = 0 g_thousand_cash = 0 g_rose = 0 g_bishuizhou = 0 g_zhi_counts = 0 g_shen_counts = 0 g_dan_counts = 0 g_yao_counts = 0 g_item_list = {} g_item_counts = 0 g_item_current = 0 g_needbag = true end --^(◇\| )\(\S+) \((\S+)\)\s+ --^(◇\| )\(\S+) \(\S+ (\S+)\)\s+ function OnItemSellOrGive(name, output, wildcards) if g_checkset == 1 then local itemget = wildcards[2] local id = wildcards[3] if id == "flower" then return end 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, "猎豹") or string.find(itemget, "雄狮") or string.find(itemget, "翡翠") or string.find(itemget, "乌金") or string.find(itemget, "琥珀") then g_item_counts = g_item_counts + 1 g_item_list[g_item_counts] = {id, "sell"} else g_item_counts = g_item_counts + 1 g_item_list[g_item_counts] = {id, "give"} end end end function ProcessNextItem() if g_item_current <= g_item_counts and g_item_list[g_item_current] ~= nil then if g_item_list[g_item_current][2] == "sell" then cmdSender:Add("sell "..g_item_list[g_item_current][1]) else cmdSender:Add("give "..g_give_dami_id.." "..g_item_list[g_item_current][1]) end else cmdSender:Add("#t- proc_item;i;u;@10;set no_teach dowhat") end end function OnSellorGiveItem() g_item_current = g_item_current + 1 ProcessNextItem() end function OnGiveItemFail() --g_item_list[g_item_current] = string.gsub(g_item_list[g_item_current], "give", "sell") --g_item_list[g_item_current] = string.gsub(g_item_list[g_item_current], " to qlb", "") cmdSender:Add("sell "..g_item_list[g_item_current][1]) end function OnGiveInfo(name, output, wildcards) if (wildcards[1] == g_give_dami_name) then g_item_current = g_item_current + 1 ProcessNextItem() end end function OnSellInfo() g_item_current = g_item_current + 1 ProcessNextItem() end function OnSellItemFail() --g_item_list[g_item_current] = string.gsub(g_item_list[g_item_current], "sell", "drop") -- cmdSender:Add(g_item_list[g_item_current]) cmdSender:Add("drop "..g_item_list[g_item_current][1]) g_item_current = g_item_current + 1 ProcessNextItem() end function OnSellItemBinded() g_item_current = g_item_current + 1 ProcessNextItem() end function OnCheckEnd() g_checkset = g_checkset + 1 if (g_checkset == 2) then g_checkset = 0 if (g_bishuizhou == 1) then g_needbsz = false else g_needbsz = true end if g_map_xueshan == 1 and g_map_penglai == 1 then g_needmap = false else g_needmap = true end if g_renwu_nt == true then if g_zhi_counts < 20 or g_shen_counts < 20 or g_dan_counts < 80 or g_yao_counts < 200 then g_needyao = true --g_needyao else g_needyao = false end else if g_zhi_counts < 20 or g_shen_counts < 20 or g_dan_counts < 30 or g_yao_counts < 30 then g_needyao = true --g_needyao else g_needyao = false end end --Note(g_yao_counts) --Note(g_dan_counts) --Note(g_shen_counts) --Note(g_zhi_counts) -- g_needbag = true -- g_needyao = true end local i for i = 1, g_item_counts do Note(g_item_list[i][2].." "..g_item_list[i][1]) end if mp == "幻世勇者" then if weapon_axe and weapon_sword and weapon_dagger then weapon_ok = true Note("weapon ok") else weapon_ok = false Note("weapon not ok") end return end if mp == "幻世魔导" then if weapon_staff and weapon_sword and weapon_dagger then weapon_ok = true Note("weapon ok") else weapon_ok = false Note("weapon not ok") end return end if mp == "东海龙宫" then if weapon_fork and weapon_dagger then weapon_ok = true Note("weapon ok") else weapon_ok = false Note("weapon not ok") end return end if mp == "蜀山剑派" then if weapon_sword and weapon_dagger then weapon_ok = true else weapon_ok = false end return end if mp == "将军府" then if weapon_axe and weapon_spear and weapon_dagger then weapon_ok = true else weapon_ok = false end return end if mp == "方寸山三星洞" then if weapon_stick and weapon_sword and weapon_dagger then weapon_ok = true else weapon_ok = false end return end if mp == "五庄观" then if weapon_sword and weapon_xiao and weapon_dagger and weapon_blade then weapon_ok = true else weapon_ok = false end return end if mp == "神农谷" then if weapon_ling and weapon_hammer and weapon_dagger and weapon_rake then weapon_ok = true else weapon_ok = false end return end if mp == "月宫" then if weapon_sword and weapon_dagger and weapon_whip then weapon_ok = true else weapon_ok = false end return end if mp == "南海普陀山" then if weapon_staff and weapon_hammer and weapon_dagger then weapon_ok = true else weapon_ok = false end return end if mp == "陷空山无底洞" then if weapon_blade and weapon_sword and weapon_dagger then weapon_ok = true else weapon_ok = false end return end if mp == "盘丝洞" then if weapon_muqin and weapon_sword and weapon_dagger and weapon_whip then weapon_ok = true else weapon_ok = false end return end end function OnSeeSealBoss() g_sealboss="boss" end function OnLoginAtKz() g_after_back_taibai = "look" cmdSender:Add("set brief;w;ec;ef;#t+ taibai;accept tai bai") end 分享分享这篇帖子 Digg Del.icio.us Technorati Twitter

2011-09-12	#14
wormsking 中级会员注册: 08年07月03日帖子: 139 声望力: 19 声望: 14 现金:104两梁山币资产:304两梁山币致谢数: 0 获感谢文章数：0 获会员感谢数：0	回复: MUSH417 xlqy各门派综合机器人 function OnLoginAtJjt() EnableTriggerGroup("login", false) EnableTriggerGroup("fly", true) g_AfterFly="s;e;#10 pick 1;#10 put ward;#5 put renshen guo;put shen chui;put torch;put torch;put card;put chunqiu;put jinpai;put huanhun dan;put exp bean;put big expbean;put rmb;put book;put book;w;n;set no_teach kaishi" g_FlyTo="changan" cmdSender:Add("ask shizhe about 恶梦;ask shizhe about 地狱;ask shizhe 2 about 恶梦;ask shizhe 2 about 地狱;n;n;drop linen;drop shoes;drop skirt;ec;ef;fly stone;eu;nu;n;n;eat guo;s;s;sd;fly changan") end function OnOutInfo_find(name, output, wildcards) --chukou = wildcards[2] --chukou = string.gsub(chukou,"、"," "); --chukou = string.gsub(chukou, "和",''); if renwu ~= "护镖" and g_find == 1 then go_npc_sp = go_npc_sp + 1 end blocked = 0 end function OnHereNoGuaiId_follow(name, output, wildcards) tmp = wildcards[1] if tmp == guai_id then xpath:Back() end end function OnHereNoRobber() EnableTimer("hbpfm", false) EnableTriggerGroup("pfm", false) cmdSender:Clear() cmdSender:Add(g_unwield_all) cmdSender:Add("surrender;@20;#2 drop paper") EnableTriggerGroup("itemget", true) if g_getcounts > 0 then getj = 1 for geti = 1,g_getcounts do cmdSender:Add("get "..g_getlist[getj]) getj = getj + 1 end g_getcounts = 0 g_getlist = {} end end function OnHereNoKK() if g_find == 0 then cmdSender:Add("#t+ find;#t- didian") if renwu == "护镖" then cmdSender:Add("set no_teach 护镖中") else cmdSender:Add("set no_teach 搜索中") end end end function OnNoReceipt() givereceipt = false EnableTriggerGroup("hbjl", false) cmdSender:Add("n;n;w;set no_teach dowhat") end function OnNoSeal() cmdSender:Add("say 猪呀，没有桃符啦！") end function OnSetStart() --g_findtime = g_findtime + 1 guai_yinshen = 0 guai_escflag = false blocked = 0 g_find = 0 go_sp = 0 go_npc_sp = 0 mp_powerup() g_nt_wounded = false g_nt_giveyao = false if g_find == 1 then EnableTriggerGroup("follow", true) cmdSender:Add("follow "..guai_id) else if renwu == "护镖" then cmdSender:Add("unset brief;unset brief_all") xpath:Hb() cmdSender:Add("set no_teach 护镖中") else cmdSender:Add("set no_teach 搜索中") end end end function OnMpAnswer1(name, output, wildcards) tid = wildcards[4] blocked = 0 if tid == myid then EnableTriggerGroup("ask_mp", false) guai_name = myname.."的 "..wildcards[3] guai_id = myid.."'s "..string.lower(wildcards[5]) guai_place = wildcards[2] renwu = "门派" g_findagain = false g_findtime = 0 cmdSender:Clear() cmdSender:Add(master_go) cmdSender:Add("wimpy 30;set last_action quit") place_id() go_place() end end function OnMpAnswer2(name, output, wildcards) tid = wildcards[3] blocked = 0 if tid == myid then EnableTriggerGroup("ask_mp", false) guai_name = myname.."的 "..wildcards[2] guai_id = myid.."'s "..string.lower(wildcards[4]) guai_place = wildcards[5] renwu = "门派" g_findagain = false g_findtime = 0 cmdSender:Clear() cmdSender:Add(master_go) cmdSender:Add("wimpy 30;set last_action quit") place_id() go_place() end end function OnMpAnswer3(name, output, wildcards) tid = wildcards[3] blocked = 0 if tid == myid then EnableTriggerGroup("ask_mp", false) guai_name = myname.."的 "..wildcards[2] guai_id = myid.."'s "..string.lower(wildcards[4]) guai_place = wildcards[5] renwu = "门派" g_findagain = false g_findtime = 0 cmdSender:Clear() cmdSender:Add(master_go) cmdSender:Add("wimpy 30;set last_action quit") place_id() go_place() end end function OnMpMoreChance() blocked = 0 EnableTriggerGroup("ask_mp", false) EnableTriggerGroup("ask_mp1", true) end function OnAskMp() cmdSender:Add("wimpy 30;@20;set no_teach mpnr") end function OnMpNotAnswered() blocked = 0 EnableTriggerGroup("ask_mp", false) cmdSender:Add(master_go) can_mp = false cmdSender:Add("i;@10;set no_teach renwu") end function OnMpAnswer_Bak(name, output, wildcards) tid = wildcards[2] if tid == myid then EnableTriggerGroup("ask_mp1", false) guai_name = wildcards[1] guai_id = guai_id.."'s "..string.lower(wildcards[4]).." "..string.lower(wildcards[6]) guai_place = wildcards[7] renwu = "门派" cmdSender:Add(master_go) g_findagain = false g_findtime = 0 cmdSender:Add("wimpy 30;set last_action quit") place_id() go_place() end end kgdmap = { ["north"]="south", ["south"]="north", ["west"]="east", ["east"]="west", ["southwest"]="northeast", ["northeast"]="southwest", ["northwest"]="southeast", ["southeast"]="northwest", ["up"]="down", ["down"]="up", ["enter"]="out", ["out"]="enter", ["northdown"]="southup", ["northup"]="southdown", ["southup"]="northdown", ["southdown"]="northup", ["eastup"]="westdown", ["eastdown"]="westup", ["westup"]="eastdown", ["westdown"]="eastup", } function OnKugudongMoreOuts(name, output, wildcards) if g_kgd_skip == true then g_kgd_skip = false return end local kgdchukou = wildcards[1] kgdchukou = string.gsub(kgdchukou,"、"," ") kgdchukou = string.gsub(kgdchukou, "和"," ") kgdchukou = string.gsub(kgdchukou, " +","\|") local kgdouts = utils.split(kgdchukou, "\|") local kgdnum = table.getn(kgdouts) g_kgdmove_counts = g_kgdmove_counts + 1 local goto = "" for k, v in pairs (kgdouts) do if v == "out" then cmdSender:Add("out") if g_random_move_flag == true then g_random_move_flag = false cmdSender:Add("#t- kgd") cmdSender:Add(g_CastEscAction) return else return end end end goto = math.random(kgdnum) g_kgd_fx = kgdouts[goto] if kgdnum == 2 then if g_kgd_fx == g_kgd_ffx then g_kgd_fx = kgdouts[3 - goto] end end g_kgd_ffx = kgdmap[g_kgd_fx] if g_kgd_ffx == nil then g_kgd_ffx = "out" end if g_random_move_flag == true then g_random_move_flag = false cmdSender:Add("#t- kgd") cmdSender:Add(g_kgd_fx) cmdSender:Add(g_CastEscAction) return else cmdSender:Add(g_kgd_fx) end end function OnKugudongOneOut(name, output, wildcards) if g_kgd_skip == true then g_kgd_skip = false return end g_kgdmove_counts = g_kgdmove_counts + 1 local kgdchukou = wildcards[1] -- kgdnum = 1 g_kgd_fx = kgdchukou; g_kgd_ffx = kgdmap[g_kgd_fx] if g_kgd_ffx == nil then g_kgd_ffx = "out" end if g_random_move_flag == true then g_random_move_flag = false cmdSender:Add("#t- kgd") cmdSender:Add(g_kgd_fx) cmdSender:Add(g_CastEscAction) return else cmdSender:Add(g_kgd_fx) end end function OnKgdSkipSouth() g_kgd_skip = true g_kgd_fx = "south" g_kgd_ffx = "north" cmdSender:Add(g_kgd_fx) end function OnKgdSkipNorth() g_kgd_skip = true g_kgd_fx = "north" g_kgd_ffx = "south" cmdSender:Add(g_kgd_fx) end function OnKgdSkipUp() g_kgd_skip = true g_kgd_fx = "up" g_kgd_ffx = "down" cmdSender:Add(g_kgd_fx) end function OnKgdSkipWest() g_kgd_skip = true g_kgd_fx = "west" g_kgd_ffx = "east" cmdSender:Add(g_kgd_fx) end function OnCantGo() g_kgd_ffx = g_kgd_fx cmdSender:Add("l") end function OnPenglaiClimbSuccess() cmdSender:Add("ec;ef") if g_find == 0 then EnableTriggerGroup("find", true) if renwu == "护镖" then cmdSender:Add("set no_teach 护镖中") else cmdSender:Add("set no_teach 搜索中") end end end function OnPenglaiXingDie() EnableTriggerGroup("pengl", false) cmdSender:Add("@1;hp;#t+ pengl;kill xing") end function OnSetCure() blocked = - 5 EnableTriggerGroup("cure", true) EnableTimer("cure", true) end curetime = 0 function OnCureTimer() curetime = curetime + 1 if curetime > 50 then curetime = 0 EnableTimer("cure", false) needcure = false cmdSender:Add("ec;ef;out") g_AfterFly="set no_teach dowhat" g_FlyTo="changan" EnableTriggerGroup("fly", true) cmdSender:Add("fly changan") else cmdSender:Add("cure") end end g_after_wakeup = "wa;@40;out;ec;ef;fly changan;set no_teach dowhat" function OnCureOk() curetime = 0 needcure = false blocked = - 5 EnableTriggerGroup("cure", false) EnableTimer("cure", false) end function OnPenglaiClimbFaint() g_penglai_climb_faint = true end function OnPenglaiClimbBusy() cmdSender:Add("@10;ec;ef;climb 悬崖") end function OnWakeup() if g_penglai_climb_faint then cmdSender:Add("ec;ef;climb 悬崖") g_penglai_climb_faint = false else EnableTriggerGroup("fly", true) g_FlyTo = "changan" g_AfterFly = "set no_teach dowhat" cmdSender:Add("wa;@40;out;ec;ef;fly changan") --cmdSender:Add(g_after_wakeup) end end function OnSuccessOutKugudong() cmdSender:Add("haha;say 总算出来啦!;#t- kgd;wd;@10") if renwu == "李靖" or renwu == "NT" or renwu == "门派" or renwu == "逃犯" or renwu == "护镖" then -- 再去找怪 g_findagain = true end g_AfterFly="set no_teach dowhat" g_FlyTo="changan" EnableTriggerGroup("fly", true) cmdSender:Add("fly changan") end function OnNoZhuanshiInfo() zhuanshi="无" yy_fire = false yy_wood = false yy_metal = false yy_water = false yy_earth = false yy_level = 0 g_zhuanshiPfm = "" g_zhuanshiPfm_fight = "" end function OnZhuanshiInfo(name, output, wildcards) zhuanshi = wildcards[1] end function OnCailianFail() cmdSender:Add("cai lian") end function OnCailianSuccess() cmdSender:Add("@20;drop lian zi;ec;ef;cai lian") end function OnSleepFail() cmdSender:Add("@20;sleep") end function OnHonglouStart() g_find = 0 cmdSender:Add("#t- hongl") cmdSender:Add("set no_teach 开始") end function OnEatYao() --g_needyao=true end function OnNoCast() g_random_move_flag = true g_random_move_steps = math.random(10,20) g_kgdmove_counts = 0 cmdSender:Add("unset brief") g_kgd_skip = false cmdSender:Add("#t- follow;#t- pfm;#t- find;#t+ kgd;@1;l") end function OnYyWuxing(name, output, wildcards) local yuanyings = wildcards[1] if string.find(yuanyings, "火") then yy_fire = true end if string.find(yuanyings, "水") then yy_water = true end if string.find(yuanyings, "土") then yy_earth = true end if string.find(yuanyings, "金") then yy_metal = true end if string.find(yuanyings, "木") then yy_wood = true end end function OnYyLevel(name, output, wildcards) yy_level = wildcards[1] yy_level = tonumber(yy_level) g_zhuanshiPfm_fight = "" if yy_fire then if yy_level > 30 then if mp == "幻世勇者" then g_zhuanshiPfm = "zsperform2;" g_zhuanshiPfm_fight = "zsperform2;" else g_zhuanshiPfm = ""..zhuanshiperform..";" g_zhuanshiPfm_fight = ""..zhuanshiperform..";" end else if yy_level > 15 then if mp == "幻世勇者" then g_zhuanshiPfm = "zsperform2;" g_zhuanshiPfm_fight = "zsperform2;" else g_zhuanshiPfm = "zsperform2;" g_zhuanshiPfm_fight = "zsperform2;" end end end end end function OnChanganwCome() cmdSender:Add("#t- changanw;e;w;#t+ changanw") end function test1() Note("test1") end function test2() Note("test1") end function test3() Note("test1") end callfunc = { ["test1"] = test1, ["test2"] = test2, ["test3"] = test3, } function OnNtBianId(name, output, wildcards) Note(wildcards[1]..":"..string.gsub(wildcards[2], ", .", "")) if wildcards[1] == g_nt_bianname then g_ntbianid = string.gsub(wildcards[2], ", .", "") EnableTriggerGroup("nt_bian_id", false) g_nt_ob = true if g_bianid == g_ntbianid then cmdSender:Add("observe "..g_ntbianid.." 2;y") else cmdSender:Add("observe "..g_ntbianid..";y") end end end function OnNtBianId2(name, output, wildcards) local name = wildcards[1].." "..wildcards[2] Note(name..":"..string.gsub(wildcards[3], ", .", "")) if name == g_nt_bianname then g_ntbianid = string.gsub(wildcards[3], ", .", "") EnableTriggerGroup("nt_bian_id", false) g_nt_ob = true if g_bianid == g_ntbianid then cmdSender:Add("observe "..g_ntbianid.." 2;y") else cmdSender:Add("observe "..g_ntbianid..";y") end end end function OnNtBian(name, output, wildcards) if renwu == "NT" and wildcards[1] == guai_name then g_nt_bianname = wildcards[2] EnableTriggerGroup("nt_bian_id", true) g_nt_bian = true cmdSender:Add("id here") end end function OnNtObserved(name, output, wildcards) if renwu == "NT" and wildcards[2] == guai_name then g_nt_ob = false g_nt_bian = false g_nt_giveyao = false EnableTriggerGroup("follow", true) g_find = 1 cmdSender:Add("follow "..guai_id) --[[if g_nt_wounded then cmdSender:Add("give 1 yao to "..guai_id) else cmdSender:Add("follow "..guai_id) nt_pfm() EnableTimer("nt_pfm", true) ResetTimer("nt_pfm") end ]] end end function OnNtObserving() if g_nt_ob == true then if g_bianid == g_ntbianid then cmdSender:Add("observe "..g_ntbianid.." 2;y") else cmdSender:Add("observe "..g_ntbianid..";y") end end end function OnNtObserveWho() if g_nt_ob == true then if g_bianid == g_ntbianid then cmdSender:Add("@5;observe "..g_ntbianid.." 2;y") else cmdSender:Add("@5;observe "..g_ntbianid..";y") end end end function OnNtFaint(name, output, wildcards) if guai_name == wildcards[1] and renwu == "NT" then if g_nt_type == "擒" then EnableTimer("nt_pfm", false) cmdSender:Clear() cmdSender:Add("surrender;"..g_unwield_all..";@30;get "..guai_id) else if g_nt_type == "杀" then cmdSender:Add("@10;kill "..guai_id) else if g_nt_type == "劝" then EnableTimer("nt_pfm", false) cmdSender:Clear() cmdSender:Add("surrender;"..g_unwield_all..";@30;get "..guai_id) else EnableTimer("nt_pfm", false) Note("等它醒吧!") cmdSender:Add("surrender") EnableTriggerGroup("nt_wakeup", true) end end end end end function OnNtFight() g_nt_fight_who = 0 guaimiss = 0 blocked = 0 end function OnNtAcceptFight() EnableTimer("nt_pfm", true) g_nt_fight_who = 0 end function OnNtQuan() blocked = 0 end function OnNtLeave(name, output, wildcards) --if guai_name == wildcards[1] and renwu == "NT" and g_nt_type == "降" then -- local guai_leave = leave_map[wildcards[2]] -- if guai_leave == nil then -- guai_leave = "look" -- else -- if g_nt_giveyao and g_nt_wounded then -- cmdSender:Add(guai_leave..";give 1 yao to "..guai_id) -- else -- cmdSender:Add(guai_leave..";fight "..guai_id) -- end -- end --end end function OnNtWakeup(name, output, wildcards) if wildcards[1] == guai_name and renwu == "NT" then nt_pfm() EnableTimer("nt_pfm", true) ResetTimer("nt_pfm") cmdSender:Add("#t- nt_wakeup") end end function OnGetNt(name, output, wildcards) if wildcards[1] == guai_name and renwu == "NT" then if g_nt_type == "擒" and g_mp_zheng== true then g_in_renwu = false g_FlyTo = "kaifeng" g_AfterFly="e;n;n;n;nu;enter;drop "..guai_id; g_AfterCastEsc="fly "..g_FlyTo EnableTriggerGroup("fly", true) cmdSender:Add("@40;surrender;#4 eh;ec;ef;fly kaifeng") else if g_nt_type == "擒" and g_mp_zheng== false then g_in_renwu = false g_FlyTo = "putuo" g_AfterFly="sd;sd;s;s;swim;e;e;e;n;enter;drop "..guai_id; g_AfterCastEsc="fly "..g_FlyTo EnableTriggerGroup("fly", true) cmdSender:Add("@40;surrender;#4 eh;ec;ef;fly putuo") else if g_nt_type == "劝" then g_FlyTo = "qilin" g_AfterFly="drop "..guai_id..";left;right;#t+ nt_wakeup" g_AfterCastEsc="fly "..g_FlyTo EnableTriggerGroup("fly", true) blocked = -3 cmdSender:Add("@40;surrender;#4 eh;ec;ef;fly qilin") end end end end end function OnNtBusy() cmdSender:Add("fight "..guai_id) end function OnNewtask(name, output, wildcards) blocked = 0 g_findtime = 0 cmdSender:Add("@10;out;ctask") end function OnNoNewtask(name, output, wildcards) blocked = 0 can_nt = false EnableTriggerGroup("nt_ask", false) g_AfterFly = "set no_teach dowhat" g_FlyTo = "changan" EnableTriggerGroup("fly", true) cmdSender:Add("out;fly changan") end function OnHaveNewtask(name, output, wildcards) cmdSender:Add("cancel;newtask;answer 上下两难") end function nt_fight() g_nt_fight() end function nt_kill() g_nt_kill() end function nt_quan() g_nt_quan() end function nt_qin() g_nt_qin() end nt_type_map = { ["降"] = nt_fight, ["杀"] = nt_kill, ["劝"] = nt_quan, ["擒"] = nt_qin, } function shushan_nt_fight() if myid == "dax" then cmdSender:Add("hp;jiali none;follow mo guai;fight mo guai;special faith;wear all;wield sword;jiali none;enchant max;enable sword mindsword;ec;ef") else cmdSender:Add("hp;jiali max;follow mo guai;fight mo guai;special void;wear all;wield sword;jiali max;enchant max;enable sword mindsword;ec;ef") end end function shushan_nt_kill() cmdSender:Add("hp;follow mo guai;wear all;wield sword;jiali max;enchant max;surrender;ec;ef;kill mo guai;special void;"..g_race_spe..";"..shushan_busy_pfm..";"..zhuanshiperform..";enable sword canxin-jian;perform xiangsi;cast jianshen;enable sword mindsword;unwield sword") end function shushan_nt_quan() cmdSender:Add("hp;follow mo guai;wear all;wield sword;jiali max;enchant max;{;surrender;ec;ef;kill mo guai;special void;"..g_race_spe..";"..shushan_busy_pfm..";"..zhuanshiperform..";enable sword canxin-jian;perform xiangsi;persuade mo guai;surrender;};unwield sword;surrender") end function shushan_nt_qin() if g_zhuanshiPfm == "" then local jiali = "max" if g_target_hp < 10 or g_target_eff < 10 then cmdSender:Add("hp;follow mo guai;wear all;wield sword;jiali "..jiali..";enchant max;{;surrender;ec;ef;kill mo guai;special void;"..g_race_spe..";"..shushan_busy_pfm..";"..zhuanshiperform..";enable sword canxin-jian;enable sword yujianshu;enchant 0;cast jianshen;surrender;};enable sword mindsword;unwield sword;}") else cmdSender:Add("hp;follow mo guai;wear all;wield sword;jiali "..jiali..";enchant max;{;surrender;ec;ef;kill mo guai;special void;"..g_race_spe..";"..shushan_busy_pfm..";"..zhuanshiperform..";enable sword canxin-jian;perform xiangsi;enable sword yujianshu;cast jianshen;surrender;};enable sword mindsword;unwield sword;}") end else local jiali = 0 if g_nt_level == "一" or g_nt_level == "二" then jiali = 0 else jiali = "max" end if g_target_hp < 10 or g_target_eff < 10 then cmdSender:Add("hp;follow mo guai;remove shield;wield sword;wield all;wear all;jiali "..jiali..";{;surrender;ec;jiali max;ef;kill mo guai;special void;"..g_race_spe..";"..shushan_busy_pfm.."enchant 0;enable sword canxin-jian;cast jianshen;surrender;};enable sword mindsword;unwield sword;unwield dagger") else cmdSender:Add("hp;follow mo guai;remove shield;wield sword;wield all;wear all;jiali "..jiali..";{;surrender;ec;jiali max;ef;kill mo guai;special void;"..g_race_spe..";"..shushan_busy_pfm..";"..zhuanshiperform..";enchant max;enable sword canxin-jian;cast jianshen;surrender;};enable sword mindsword;unwield sword;unwield dagger") end end end 分享分享这篇帖子 Digg Del.icio.us Technorati Twitter

2011-09-12	#15
wormsking 中级会员注册: 08年07月03日帖子: 139 声望力: 19 声望: 14 现金:104两梁山币资产:304两梁山币致谢数: 0 获感谢文章数：0 获会员感谢数：0	回复: MUSH417 xlqy各门派综合机器人 function psd_nt_fight() if myid == "dax" then cmdSender:Add("hp;jiali none;follow mo guai;fight mo guai;remove shield;wield muqin;wield all;wear all;jiali none;enchant max;ec;ef") else cmdSender:Add("hp;jiali max;follow mo guai;fight mo guai;remove shield;wield muqin;wield all;wear all;jiali max;enchant max;ec;ef") end end function psd_nt_kill() target_id = "mo guai" 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 function psd_nt_quan() target_id = "mo guai" 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;persuade "..target_id..";surrender;};enable sword chixin-jian;unwield sword;unwield dagger") end function psd_nt_qin() if g_zhuanshiPfm == "" then local jiali = "max" if g_target_hp < 10 or g_target_eff < 10 then cmdSender:Add("hp;follow mo guai;remove shield;wield whip;wield all;wear all;jiali max;enchant max;{;surrender;ec;ef;kill mo guai;"..g_race_spe..";perform bgff;unwield whip;unwield dagger;perform fengwei;surrender;};") else cmdSender:Add("hp;follow mo guai;remove shield;wield muqin;wield all;wear all;jiali max;enchant max;{;surrender;ec;ef;kill mo guai;"..g_race_spe..";"..zhuanshiperform..";perform zui;unwield muqin;unwield dagger;remove shield;wield whip;wield all;wear all;perform wang;perform bgff;unwield whip;unwield dagger;perform fengwei;surrender;};") end else local jiali = 0 if g_nt_level == "一" or g_nt_level == "二" then jiali = 0 else jiali = "max" end if g_target_hp < 10 or g_target_eff < 10 then cmdSender:Add("hp;follow mo guai;remove shield;wield whip;wield all;wear all;jiali "..jiali..";enchant max;{;surrender;ec;ef;kill mo guai;"..g_race_spe..";perform wang;perform bgff;unwield whip;unwield dagger;perform fengwei;surrender;};") else cmdSender:Add("hp;follow mo guai;remove shield;wield muqin;wield all;wear all;jiali max;enchant max;{;surrender;ec;ef;kill mo guai;"..g_race_spe..";"..zhuanshiperform..";jiali none;perform zui;unwield muqin;unwield dagger;remove shield;wield whip;wield all;wear all;perform wang;perform bgff;unwield whip;unwield dagger;perform fengwei;surrender;};") end end end function wdd_nt_fight() if myid == "dax" then cmdSender:Add("hp;jiali none;follow san xian;fight san xian;remove shield;wield blade;wield all;wear all;jiali none;enchant max;ec;ef") else cmdSender:Add("hp;jiali max;follow san xian;fight san xian;remove shield;wield blade;wield all;wear all;jiali max;enchant max;ec;ef") end end function wdd_nt_kill() target_id = "san xian" cmdSender:Add("hp;gen "..target_id..";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 function wdd_nt_quan() target_id = "san xian" cmdSender:Add("hp;gen "..target_id..";;remove shield;jiali max;wield blade;wield dagger;wear all;jiali max;enchant max;{;surrender;ec;ef;kill "..target_id..";"..g_race_spe..";"..zhuanshiperform..";perform sword;persuade "..target_id..";surrender;};unwield blade;unwield dagger;") end function wdd_nt_qin() if g_zhuanshiPfm == "" then local jiali = "max" if g_target_hp < 10 or g_target_eff < 10 then cmdSender:Add("hp;follow san xian;remove shield;wield blade;wield all;wear all;jiali max;enchant max;{;surrender;ec;ef;kill san xian;"..g_race_spe..";perform sword;perform diyu;unwield dagger;unwield dagger;surrender;};") else cmdSender:Add("hp;follow san xian;remove shield;wield blade;wield all;wear all;jiali max;enchant max;{;surrender;ec;ef;kill san xian;"..g_race_spe..";"..zhuanshiperform..";unwield blade;unwield dagger;perform duzun;remove shield;wield blade;wield all;wear all;perform sword;unwield blade;unwield dagger;surrender;};") end else local jiali = 0 if g_nt_level == "一" or g_nt_level == "二" then jiali = 0 else jiali = "max" end if g_target_hp < 10 or g_target_eff < 10 then cmdSender:Add("hp;follow san xian;remove shield;wield blade;wield all;wear all;jiali max;enchant max;{;surrender;ec;ef;kill san xian;"..g_race_spe..";perform sword;perform diyu;unwield dagger;unwield dagger;surrender;};") else cmdSender:Add("hp;follow san xian;remove shield;wield blade;wield all;wear all;jiali max;enchant max;{;surrender;ec;ef;kill san xian;"..g_race_spe..";"..zhuanshiperform..";unwield blade;unwield dagger;perform duzun;remove shield;wield blade;wield all;wear all;perform sword;unwield blade;unwield dagger;};") end end end function moon_nt_fight() if myid == "dax" then cmdSender:Add("hp;jiali none;follow mo guai;fight mo guai;remove shield;wield sword;wield all;wear all;jiali none;enchant max;ec;ef") else cmdSender:Add("hp;jiali max;follow mo guai;fight mo guai;remove shield;wield sword;wield all;wear all;jiali max;enchant max;ec;ef") end end function moon_nt_kill() target_id = "mo guai" 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;jiali max;perform love;unwield whip;unwield dagger") end function moon_nt_quan() target_id = "mo guai" --cmdSender:Add("hp;cast mihun 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;persuade mo guai;};unwield sword;unwield dagger") cmdSender:Add("hp;cast mihun on "..target_id..";remove shield;jiali max;wield sword;wear all;enchant 0;{;surrender;ec;ef;kill "..target_id..";"..g_race_spe..";"..zhuanshiperform..";jiali none;perform tian;persuade mo guai;};unwield sword;unwield dagger") end function moon_nt_qin() local jiali if g_zhuanshiPfm == "" then jiali = "max" else jiali = 0 if g_nt_level == "一" or g_nt_level == "二" then jiali = 0 else jiali = "max" end end if g_target_hp < 10 or g_target_eff < 10 then cmdSender:Add("hp;cast mihun on mo guai;{;surrender;ec;ef;kill mo guai;perform flower;remove shield;wield blade;wield all;wear all;jiali 0;enchant 0;"..g_race_spe..";perform duanfa;surrender;};unwield blade;unwield dagger") else cmdSender:Add("hp;cast mihun on mo guai;{;surrender;ec;ef;kill mo guai;jiali max;perform flower;remove shield;wield blade;wield all;wear all;jiali "..jiali..";enchant max;"..g_race_spe..";"..zhuanshiperform..";perform duanfa;surrender;};unwield blade;unwield dagger") end end function might_nt_fight() cmdSender:Add("hp;follow mo guai;fight mo guai;remove shield;wield axe;wield all;wear all") if g_nt_level == "一" then cmdSender:Add("jiali none;enchant 0") else cmdSender:Add("jiali max;enchant max") end if myid == "dax" then else cmdSender:Add("ec;ef") end end function might_nt_kill() cmdSender:Add("hp;follow mo guai;remove shield;wield axe;wield dagger;wear all;jiali max;enchant max;surrender;ec;ef;kill mo guai;"..g_race_spe..";"..zhuanshiperform..";perform wardance;unwield axe;unwield dagger;remove shield;wield sword;wield all;wear all;perform rain;perform shan;unwield sword;unwield dagger") end function might_nt_quan() cmdSender:Add("hp;follow mo guai;remove shield;wield axe;wield dagger;wear all;jiali max;enchant max;{;surrender;ec;ef;kill mo guai;"..g_race_spe..";"..zhuanshiperform..";perform wardance;persuade mo guai;surrender;};unwield axe;unwield dagger") end function might_nt_qin() local jiali if g_nt_level == "一" then jiali = "none" else jiali = "max" end if g_target_hp < 10 or g_target_eff < 10 then Note("轻点打...") cmdSender:Add("hp;follow mo guai;remove shield;wield sword;wield all;wear all;jiali "..jiali..";enchant 0;{;surrender;ec;ef;kill mo guai;"..g_race_spe..";perform rain;perform shan;surrender;};unwield sword;unwield dagger") else cmdSender:Add("hp;follow mo guai;remove shield;wield sword;wield all;wear all;jiali "..jiali..";enchant max;{;surrender;ec;ef;kill mo guai;"..g_race_spe..";"..zhuanshiperform..";perform rain;perform shan;surrender;};unwield sword;unwield dagger") end end function fc_nt_fight() cmdSender:Add("hp;follow mo guai;fight mo guai;remove shield;wield stick;wield all;wear all") if g_nt_level == "一" then cmdSender:Add("jiali none;enchant 0") else cmdSender:Add("jiali max;enchant max") end if myid == "dax" then else cmdSender:Add("ec;ef") end end function fc_nt_kill() cmdSender:Add("hp;cast dingshen on mo guai;remove shield;wield stick;wield dagger;wear all;jiali max;enchant max;surrender;ec;ef;kill mo guai;"..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 function fc_nt_quan() cmdSender:Add("hp;cast dingshen on mo guai;remove shield;wield stick;wield dagger;wear all;jiali max;enchant max;{;surrender;ec;ef;kill mo guai;"..g_race_spe..";"..zhuanshiperform..";perform pili;perform qiankun;persuade mo guai;surrender;};unwield stick;unwield dagger") end function fc_nt_qin() local jiali if g_nt_level == "一" then jiali = "none" else jiali = "max" end if g_target_hp < 10 or g_target_eff < 10 then Note("轻点打...") cmdSender:Add("hp;cast dingshen on mo guai;remove shield;wield stick;wield all;wear all;jiali "..jiali..";enchant 0;{;surrender;ec;ef;kill mo guai;"..g_race_spe..";perform wu;surrender;};unwield stick;unwield dagger") else cmdSender:Add("hp;cast dingshen on mo guai;remove shield;wield stick;wield all;wear all;jiali "..jiali..";enchant max;{;surrender;ec;ef;kill mo guai;"..g_race_spe..";"..zhuanshiperform..";perform wu;surrender;};unwield stick;unwield dagger") end end function jjf_nt_fight() cmdSender:Add("hp;follow mo guai;fight mo guai;remove shield;wield spear;wield all;wear all") if g_nt_level == "一" then cmdSender:Add("jiali none;enchant 0") else cmdSender:Add("jiali max;enchant max") end if myid == "dax" then else cmdSender:Add("ec;ef") end end function jjf_nt_kill() cmdSender:Add("hp;follow mo guai;remove shield;wield axe;wield all;wear all;jiali max;surrender;ec;ef;kill mo guai;"..g_race_spe..";"..zhuanshiperform..";perform sanban;unwield axe;remove shield;wield spear;perform qiangjian;wear all;perform tiancheng;perform meihua;unwield spear;unwield dagger") end function jjf_nt_quan() cmdSender:Add("hp;follow mo guai;remove shield;wield axe;wield all;wear all;jiali max;surrender;ec;ef;{;kill mo guai;"..g_race_spe..";"..zhuanshiperform..";perform sanban;unwield axe;unwield dagger;wield spear;remove shield;wield all;wear all;perform qiangjian;persuade mo guai;};unwield spear;unwield dagger") end function jjf_nt_qin() local jiali if g_nt_level == "一" then jiali = "none" else jiali = "max" end if g_target_hp < 10 or g_target_eff < 10 then cmdSender:Add("hp;follow mo guai;remove shield;wield spear;wield all;wear all;jiali 0;enchant 0;{;surrender;ec;ef;kill mo guai;"..g_race_spe..";perform tiancheng;surrender;};unwield spear;unwield dagger") else cmdSender:Add("hp;follow mo guai;remove shield;wield spear;wield all;wear all;jiali "..jiali..";enchant 0;{;surrender;ec;ef;kill mo guai;"..g_race_spe..";"..zhuanshiperform..";jiali 0;perform tiancheng;surrender;};unwield spear;unwield dagger") end end function wzg_nt_fight() cmdSender:Add("hp;follow mo guai;fight mo guai;remove shield;jiali max;wield xiao;wield all;wear all") if g_nt_level == "一" then cmdSender:Add("jiali none;enchant 0") else cmdSender:Add("jiali max;enchant max") end if myid == "dax" then else cmdSender:Add("ec;ef") end end function wzg_nt_kill() cmdSender:Add("hp;follow mo guai;remove shield;jiali max;wield xiao;wield dagger;wear all;jiali max;enchant max;surrender;ec;ef;kill mo guai;"..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 function wzg_nt_quan() cmdSender:Add("hp;follow mo guai;remove shield;jiali max;wield xiao;wield dagger;wear all;jiali max;enchant max;surrender;ec;ef;kill mo guai;"..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;persuade mo guai;surrender;};unwield sword;unwield dagger") end function wzg_nt_qin() local jiali if g_nt_level == "一" then jiali = "none" else jiali = "max" end if g_target_hp < 10 or g_target_eff < 10 then Note("轻点打...") cmdSender:Add("hp;follow mo guai;remove shield;jiali max;wield sword;wield all;wear all;jiali 0;enchant 0;{;surrender;ec;ef;kill mo guai;"..g_race_spe..";perform wanxiang;surrender;};unwield sword;unwield dagger") else cmdSender:Add("hp;follow mo guai;remove shield;jiali max;wield sword;wield all;wear all;jiali max;enchant max;{;surrender;ec;ef;kill mo guai;"..g_race_spe..";"..zhuanshiperform..";perform wanxiang;surrender;};unwield sword;unwield dagger") end end function OnNewtaskType(name, output, wildcards) renwu = "NT" g_nt_mp = "未知" EnableTriggerGroup("nt_ask", false) g_nt_type = wildcards[1] guai_name = wildcards[2] guai_place = wildcards [3] g_nt_level = wildcards[4] g_nt_pfm = nt_type_map[g_nt_type] if g_mp_zheng == true then guai_id = "mo guai" else guai_id = "san xian" end --AppendToNotepad(myid.."_log", os.date("%X")..":接到NT任务"..g_nt_level..","..g_nt_type..guai_name.."at"..guai_place.."\r\n") --nt_pfm() place_id() go_place() end function OnNtFightLose(name, output, wildcards) EnableTimer("nt_pfm", false) cmdSender:Add("surrender;#5 eh;ec;ef;hp;follow "..target_id..";#20 give 10 to "..target_id..";fight "..target_id) end function OnNtFightWin() EnableTimer("nt_pfm", false) cmdSender:Add("surrender;#5 eh;ec;ef;hp;follow "..target_id..";#20 give 1 yao to "..target_id..";fight "..target_id) end function OnNtWounded() g_nt_fight_who = 0 if g_nt_giveyao == false then g_nt_giveyao = true EnableTimer("nt_pfm", false) g_nt_wounded = true cmdSender:Add("#t+ nt_give;give 1 yao to "..target_id) end end function OnNtGiveyao() if g_nt_giveyao == true then guaimiss = 0 --g_needyao = true cmdSender:Add("give 1 yao to "..target_id) end end function OnNtWoundedOk(name, output, wildcards) if guai_name == wildcards[1] and renwu == "NT" and g_nt_wounded == true then g_nt_wounded = false g_nt_giveyao = false EnableTriggerGroup("pfm", true) EnableTriggerGroup("nt_find", true) EnableTriggerGroup("nt_fight", true) EnableTriggerGroup("renwu_end", true) nt_pfm() EnableTimer("nt_pfm", true) ResetTimer("nt_pfm") end end function OnNtNoGive() --[[EnableTriggerGroup("pfm", false) EnableTriggerGroup("nt_find", false) EnableTriggerGroup("nt_fight", false) EnableTriggerGroup("renwu_end", false) GoDzRightnow() ]]-- OnNtNoThisPerson() end function OnNtNoThisPerson() if g_nt_bian == false then guaimiss = guaimiss + 1 if guaimiss > 5 then guaimiss = 0 EnableTriggerGroup("pfm", false) EnableTriggerGroup("nt_find", false) EnableTriggerGroup("nt_fight", false) EnableTriggerGroup("renwu_end", false) --g_needyao = true GoDzRightnow() else if g_nt_giveyao == true then cmdSender:Add("@2;give 1 yao to "..target_id) end end else end end function OnNtWontFight(name, output, wildcards) if wildcards[1] ~= guai_name then cmdSender:Add("fight "..target_id.." 2") end end function OnNtTrueWontFight(name, output, wildcards) if wildcards[1] == guai_name then InitTrigger() cmdSender:Add("#t+ pfm;#t+ nt_find;#t+ nt_fight;#t+ renwu_end") g_nt_type = "杀" g_nt_level = "五" g_nt_pfm = nt_type_map[g_nt_type] g_nt_wounded = false g_nt_giveyao = false nt_pfm() EnableTimer("nt_pfm", true) ResetTimer("nt_pfm") end end function OnNtFightStart() nt_pfm() EnableTimer("nt_pfm", true) ResetTimer("nt_pfm") end function OnNtNoYao() if g_nt_wounded == true and g_nt_giveyao == true then EnableTriggerGroup("pfm", false) EnableTriggerGroup("nt_find", false) EnableTriggerGroup("nt_fight", false) EnableTriggerGroup("renwu_end", false) GoDzRightnow() end end function OnNtCanceled() blocked = 0 g_nt_cancel = g_nt_cancel + 1 local msg = " 取消 "..g_nt_type.."/"..g_nt_level..guai_name.."/"..guai_place.."/"..g_nt_mp --AppendToNotepad(myid.."_log", os.date("%X")..msg.."\r\n") UpdateStatus() end function OnNtFailed() blocked = 0 EnableTriggerGroup("renwu_end",false) EnableTriggerGroup("pfm", false) EnableTriggerGroup("nt_find", false) EnableTriggerGroup("nt_fight", false) EnableTimer("nt_pfm", false) EnableTimer("pfm", false) g_nt_bekilled = g_nt_bekilled + 1 local msg = " 失败 "..g_nt_type.."/"..g_nt_level..guai_name.."/"..guai_place.."/"..g_nt_mp --AppendToNotepad(myid.."_log", os.date("%X")..msg.."\r\n") UpdateStatus() end function OnSettings(name, output, wildcards) g_set_no_teach = wildcards[1] end function OnBian() g_bianid = "" nowname = myname end 分享分享这篇帖子 Digg Del.icio.us Technorati Twitter

2011-09-13	#17
wormsking 中级会员注册: 08年07月03日帖子: 139 声望力: 19 声望: 14 现金:104两梁山币资产:304两梁山币致谢数: 0 获感谢文章数：0 获会员感谢数：0	回复: MUSH417 xlqy各门派综合机器人只有人看。。。没人回复的。。。悲剧啊分享分享这篇帖子 Digg Del.icio.us Technorati Twitter

2011-09-14	#18
dmcxjdm 初级会员注册: 11年09月10日帖子: 23 声望力: 0 声望: 10 现金:10两梁山币资产:10两梁山币致谢数: 0 获感谢文章数：0 获会员感谢数：0	回复: MUSH417 xlqy各门派综合机器人看不懂啊最好给现成的分享分享这篇帖子 Digg Del.icio.us Technorati Twitter

2011-09-14	#19
randomcho 正式会员注册: 05年05月08日帖子: 3 声望力: 0 声望: 10 现金:6两梁山币资产:6两梁山币致谢数: 0 获感谢文章数：0 获会员感谢数：0	回复: MUSH417 xlqy各门派综合机器人你贴个自动生成xml格式的谁愿意看。要有诚意你就把mcl和lua附件发出来。分享分享这篇帖子 Digg Del.icio.us Technorati Twitter

2011-09-16	#20
wormsking 中级会员注册: 08年07月03日帖子: 139 声望力: 19 声望: 14 现金:104两梁山币资产:304两梁山币致谢数: 0 获感谢文章数：0 获会员感谢数：0	回复: MUSH417 xlqy各门派综合机器人现成的文件不给上传。。不知奥怎么搞。 MUSH版本的机器么就是稳定这个机器最长连续挂机记录是17天嘿嘿分享分享这篇帖子 Digg Del.icio.us Technorati Twitter