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

wormsking · 2011-09-12

奇怪为什么不能上传文件压缩rar也不行压缩zip也不行。。

我干脆。。把文件内容复制上来吧 MUSH本来就要自己修改的大家参考一下吧呵呵

先来一个 .mcl文件内容为mush的WORLD文件

<?xml version="1.0" encoding="iso-8859-1"?>
<!DOCTYPE muclient>




<muclient>
<world
muclient_version="4.40"
world_file_version="15"
date_saved="2010-07-07 14:47:54"

auto_say_override_prefix="-"
auto_say_string="say "
chat_name="Name-not-set"
command_stack_character=";"
id="f7ea3825fb923acf90da390f"
input_font_name="FixedSys"
mapping_failure="Alas, you cannot go that way."
name="llla"
new_activity_sound="(No sound)"
output_font_name="新宋体"
script_editor="notepad"
script_filename="E:\MUSHclient\lua\xlqy.lua"
script_language="Lua"
site="202.91.225.232"
spam_message="look"
speed_walk_prefix="#"
terminal_identification="mushclient"

arrows_change_history="y"
arrow_recalls_partial="y"
auto_pause="y"
auto_repeat="y"
auto_resize_minimum_lines="1"
auto_resize_maximum_lines="20"
chat_foreground_colour="red"
chat_background_colour="black"
chat_port="4050"
confirm_on_paste="y"
confirm_on_send="y"
detect_pueblo="y"
echo_colour="10"
echo_hyperlink_in_output_window="y"
edit_script_with_notepad="y"
enable_aliases="y"
enable_beeps="y"
enable_command_stack="y"
enable_scripts="y"
enable_speed_walk="y"
enable_timers="y"
enable_triggers="y"
enable_trigger_sounds="y"
history_lines="1000"
hyperlink_adds_to_command_history="y"
hyperlink_colour="#0080FF"
indent_paras="y"
input_background_colour="white"
input_font_height="9"
input_font_weight="400"
input_text_colour="black"
keypad_enable="y"
line_information="y"
max_output_lines="5000"
mud_can_change_link_colour="y"
mud_can_change_options="y"
note_text_colour="#040000"
output_font_height="9"
output_font_weight="400"
output_font_charset="134"
paste_delay_per_lines="1"
pixel_offset="1"
port="6666"
proxy_port="1080"
send_file_delay_per_lines="1"
send_mxp_afk_response="y"
spam_line_count="20"
tab_completion_lines="200"
underline_hyperlinks="y"
unpause_on_send="y"
use_custom_link_colour="y"
use_default_input_font="y"
warn_if_scripting_inactive="y"
wrap_column="167"
write_world_name_to_log="y"
> 
<connect_text>g
n
llla
muduser
y
ec
ef
</connect_text>

</world>



<triggers
muclient_version="4.40"
world_file_version="15"
date_saved="2010-07-07 14:47:54"
>
<trigger
group="kgd"
lines_to_match="2"
match=".*炉青烟袅绕。旁边是张八仙桌，桌子左右各放了张太师椅。平常萧总镖头\n就在这里接待客人，商谈生意。客厅左边通向一条长廊，右边应该是通向后院。"
multi_line="y"
regexp="y"
script="OnKgdSkipNorth"
sequence="100"
>
</trigger>
<trigger
group="renwu_end"
match="\>*\s*(\S+\s*\S+)死了。$"
regexp="y"
script="OnNtDie"
sequence="100"
>
</trigger>
<trigger
group="nt_fight"
lines_to_match="3"
keep_evaluating="y"
match="\>*\s*你对着(.*)说道：.*，领教.*的高招！\n\n看起来(.*)并不想跟你较量。"
multi_line="y"
regexp="y"
script="OnNtTrueWontFight"
sequence="100"
>
</trigger>
<trigger
group="yinwu"
lines_to_match="2"
match="\>*\s*你收拳发力，招化长拳之秘奥义\[窒气诀\]向山妖攻去！\n山妖被一阵拳风扫中，身形不由慢了下来。"
multi_line="y"
regexp="y"
script="OnYinwuShanyaoBusyed"
sequence="100"
>
</trigger>
<trigger
enabled="y"
group="checkset"
keep_evaluating="y"
match="\s+(\S+) $(coin|silver|gold|xueshan map|eastsea map|bishui zhou|tenthousand\-cash|thousand\-cash|ren shen|ling zhi|jinchuang yao|hunyuan dan|bag|magic box|rose)$$"
regexp="y"
script="OnCheckOtherSets"
sequence="100"
other_text_colour="lightseagreen"
other_back_colour="white"
>
</trigger>
<trigger
enabled="y"
group="score"
match="^ 为求取真经你已经历了(.*)的岁月 $"
name="score_end"
regexp="y"
script="OnScoreEnd"
sequence="100"
>
</trigger>
<trigger
enabled="y"
group="score"
match="^ 元婴经验值：.*元婴道行：.*元婴等级：(\S*)$"
name="yylevel"
regexp="y"
script="OnYyLevel"
sequence="100"
>
</trigger>
<trigger
enabled="y"
group="score"
match="^ 元婴五行： (\S*)$"
name="yyinfo"
regexp="y"
script="OnYyWuxing"
sequence="100"
>
</trigger>
<trigger
enabled="y"
group="score"
match="^ 转世轮回：你还未窥天道，尚无转世轮回$"
regexp="y"
script="OnNoZhuanshiInfo"
sequence="100"
>
</trigger>
<trigger
enabled="y"
group="score"
match="^ 转世轮回：你已转世(.*)道轮回$"
name="zhuanshi"
regexp="y"
script="OnZhuanshiInfo"
sequence="100"
>
</trigger>
<trigger
enabled="y"
group="checkset"
keep_evaluating="y"
match="^( |◇ )(\S+) $(\S+)$\s*"
regexp="y"
script="OnItemSellOrGive"
sequence="100"
>
</trigger>
<trigger
enabled="y"
group="checkset"
match="^( |◇ )(\S+) $\S+ (\S+)$\s*"
regexp="y"
script="OnItemSellOrGive"
sequence="100"
>
</trigger>
<trigger
custom_colour="17"
enabled="y"
group="checkset"
keep_evaluating="y"
match="^( |√)★.* $.*(axe|dagger|sword|stick|spear|mace|xiao|blade|staff|fork|muqin|rake|ling|hammer|whip)$"
regexp="y"
script="OnCheckWeapon"
sequence="100"
other_text_colour="red"
other_back_colour="blue"
>
</trigger>
<trigger
custom_colour="17"
enabled="y"
group="checkset"
match="^( |◇)★\S* $.*(armor|waist|necklace|boots|ring|head|hands|amulet|shield|shoulder|wrists|cloth|surcoat)$"
regexp="y"
script="OnCheckArmor"
sequence="100"
other_text_colour="red"
other_back_colour="blue"
>
</trigger>
<trigger
group="autokillnpc"
lines_to_match="2"
match="^((.*)怪死了。$|(.*)豹死了。$|(.*)虎死了。$|(.*)狮死了。$)"
multi_line="y"
regexp="y"
send_to="12"
sequence="100"
>
<send>cmdSender:Add("@10;kill yao guai")</send>
</trigger>
<trigger
group="autokillnpc3"
lines_to_match="2"
match="^(.*)精死了。$"
multi_line="y"
regexp="y"
send_to="12"
sequence="100"
>
<send>cmdSender:Add("@10;kill yao jing")</send>
</trigger>
<trigger
group="autokillnpc2"
lines_to_match="2"
match="^(.*)妖死了。$"
multi_line="y"
regexp="y"
send_to="12"
sequence="100"
>
<send>cmdSender:Add("@10;kill xiao yao")</send>
</trigger>
<trigger
custom_colour="2"
enabled="y"
group="Normal"
match="^(灵蕴天成|乘风踏云|天神降世|聚魄还虚|气壮山河|狂暴铁拳|铜皮铁骨|战气冲霄|铜皮铁骨|护体神功|镇蕴七星|乘风踏云) $(\S*) $$(普通|专家|大师|宗师|大宗师)$$"
name="special"
regexp="y"
script="OnSpecialSkills"
sequence="100"
>
</trigger>
<trigger
enabled="y"
group="dudi"
keep_evaluating="y"
match="^.*精死了。$"
regexp="y"
script="OnDudijingDie"
sequence="100"
>
</trigger>
<trigger
custom_colour="15"
group="checkbag"
keep_evaluating="y"
match="^\>"
regexp="y"
script="OnCheckBagEnd"
sequence="100"
>
</trigger>
<trigger
group="linda"
lines_to_match="16"
match="^\>*(.*)\n(.*)\n(.*)\n(.*)\n(.*)\n(.*)\n(.*)\n(.*)\n(.*)\n(.*)\n(.*)\n(.*)\n(.*)\n\n\n千堆雪说道：参见help rewardli，请说出问题的答案$answer \<答案\>$！"
multi_line="y"
regexp="y"
script="on_linda_info"
sequence="100"
>
</trigger>
<trigger
group="killxinmo"
match="^\>*(\S+)\s+\= (\S+)\_npc$"
regexp="y"
script="OnXinmoId"
sequence="100"
>
</trigger>
<trigger
group="nt_find"
match="^\>*\s*(.+)手捻口诀，念动真言，摇身一变，变得和(.+)一模一样！"
regexp="y"
script="OnNtBian"
sequence="100"
>
</trigger>
<trigger
group="nt_find"
keep_evaluating="y"
match="^\>*\s*(.+)往(\S+)离开。"
regexp="y"
script="OnNtLeave"
sequence="100"
>
</trigger>
<trigger
group="find"
keep_evaluating="y"
match="^\>*\s*(.+)往(\S+)离开。$"
regexp="y"
script="OnGuaiLeave"
sequence="100"
>
</trigger>
<trigger
group="find"
match="^\>*\s*(.+)走了过来。$"
regexp="y"
script="OnGuaiCome"
sequence="100"
>
</trigger>
<trigger
custom_colour="10"
enabled="y"
group="xinmo"
match="^\>*\s*(\S*)的心魔一把抓住了你！$"
name="xinmoblock"
regexp="y"
script="OnBlockedByXinmo"
sequence="100"
>
</trigger>
<trigger
group="nt_qin"
match="^\>*\s*(\S*)脚下一个不稳，跌在地上一动也不动了"
regexp="y"
script="OnNtFaint"
sequence="100"
>
</trigger>
<trigger
custom_colour="3"
group="nt_fight"
match="^\>*\s*(\S*)说道：哈哈，你输了，快滚吧\!"
regexp="y"
script="OnNtFightLose"
sequence="100"
>
</trigger>
<trigger
custom_colour="3"
group="nt_fight"
match="^\>*\s*(\S*)说道：我好了，来来来，咱们再大战三百回合。"
regexp="y"
script="OnNtWoundedOk"
sequence="100"
>
</trigger>
<trigger
custom_colour="3"
group="nt_fight"
match="^\>*\s*(\S*)说道：我还没准备好，你就开打了，不算数。"
regexp="y"
script="OnNtFightWin"
sequence="100"
>
</trigger>
<trigger
group="nt_fight"
match="^\>*\s*(\S*)说道：我受伤了，这样打不公平吧。"
regexp="y"
script="OnNtWounded"
sequence="100"
>
</trigger>
<trigger
custom_colour="3"
group="nt_fight"
match="^\>*\s*(\S*)说道：我一时大意，也没尽全力，我不服，再比一次。"
regexp="y"
script="OnNtFightWin"
sequence="100"
>
</trigger>
<trigger
custom_colour="2"
group="nt_bian_id"
keep_evaluating="y"
match="^\>*\s*(\S+) (\S+)\s*\=\s*(\S+.*)$"
regexp="y"
script="OnNtBianId2"
sequence="100"
>
</trigger>
<trigger
enabled="y"
group="Normal"
match="^\>*\s*(\S+)$(assist|dayday|snowman)$告诉你：how$"
regexp="y"
script="OnQuery"
sequence="100"
>
</trigger>
<trigger
group="nt_bian_id"
keep_evaluating="y"
match="^\>*\s*(\S+)\s*\=\s*(\S+.*)$"
regexp="y"
script="OnNtBianId"
sequence="100"
>
</trigger>
<trigger
group="CastEsc"
match="^\>*\s*(\S+)趁着火影逃跑了。$"
regexp="y"
script="OnJjfCastSuccess"
sequence="100"
>
</trigger>
<trigger
group="nt_wakeup"
match="^\>*\s*(\S+)慢慢睁开眼睛，清醒了过来。$"
regexp="y"
script="OnNtWakeup"
sequence="100"
>
</trigger>
<trigger
enabled="y"
group="Normal"
match="^\>*\s*(\S+)说\:现在想跑\? 来不急了\!"
regexp="y"
script="OnNtBlock"
sequence="100"
>
</trigger>
<trigger
group="nt_fight"
match="^\>*\s*(\S+)说道：废话少说，尽管放马过来，看谁怕谁"
regexp="y"
script="OnNtAcceptFight"
sequence="100"
>
</trigger>
<trigger
enabled="y"
group="Normal"
match="^\>*\s*(\S+)说道：我可是出自名门：(\S+)$"
regexp="y"
script="OnNtMp"
sequence="100"
>
</trigger>
<trigger
group="nt_fight"
keep_evaluating="y"
match="^\>*\s*(\S+)往(\S*)离开。"
regexp="y"
script="OnNtLeave"
sequence="100"
>
</trigger>
<trigger
group="guaiesc"
keep_evaluating="y"
match="^\>*\s*(\W*)往(.*)落荒而逃了。$"
name="guai_esc"
regexp="y"
script="OnGuaiEscape"
sequence="100"
>
</trigger>
<trigger
enabled="y"
group="Normal"
match="^\>*\s*(\W+)对你痛快地说道：“好吧！”$"
regexp="y"
script="OnGetYaoOk"
sequence="100"
>
</trigger>
<trigger
enabled="y"
group="Normal"
match="^\>*\s*(\W+)说道：见鬼啦"
regexp="y"
script="OnYaoFail"
sequence="100"
>
</trigger>
<trigger
group="didian"
match="^\>*\s*(百花仙子|春十三娘|古波儿西|西波儿古|天波儿笑|笑波儿天|金毛狮子|大使|吴刚|白猿|赤身鬼使|直健|郭申|守寺僧|护宫卫士|香香|马面鬼|牛头鬼|边关守将|金毛狮子|罗春|翼人守卫|卫士|夏鹏展)死了。$"
regexp="y"
script="OnKKnpcDie"
sequence="100"
>
</trigger>
<trigger
group="CastEsc"
match="^\>*\s*(不许在这里拿人东西！|不得无礼。)$"
regexp="y"
send_to="12"
sequence="100"
>
<send>cmdSender:Add("set no_teach cast")</send>
</trigger>
<trigger
group="hongl"
match="^\>*\s*(荡悠悠三更梦|〖荡悠悠三更梦〗)"
regexp="y"
script="OnHonglouStart"
sequence="100"
>
</trigger>
<trigger
group="kgd"
match="^\>*\s*(店小二满脸堆笑地挡住了你|那里只有巫师才能进去。|游戏并未开放。|黑熊怪伸手拦住你：|掌厨僧伸手拦住你：|亲兵喝道：闲杂人等不得乱闯！|守卫拦住你说道：进阵以后就不能走出来了，还是不要进去为好。|秦安喝道：将军府岂是你乱闯之地！有何贵干|薛仁贵铁枪一横，喝道：此乃皇宫，禁行！|禹王卒一把拦住了你。)"
regexp="y"
script="OnCantGo"
sequence="100"
>
</trigger>
<trigger
group="aaaaa"
match="^\>*\s*(还是老老实实打麻将吧？！|请不要在拱猪房里施用法术，谢谢。|你张开嘴，结结吧吧地念了几声咒语。|你看样子输红了眼，想念咒语。|青鬏龟童对你说道：大人，莫念莫念，切莫伤您龟寿。|这里不准念咒文。|你对着.*结结巴巴的想念咒语，却怎么也张不开嘴。|老害虫对你直摇头：这大喜的日子，你念哪门子咒啊！|按时地方把你温柔的塞进下水道里，叮嘱道，一路多多保重！|这里不能乱施展内功。)$"
regexp="y"
script="OnNoCast"
sequence="100"
>
</trigger>
<trigger
group="ask_mp"
match="^\>*\s*(惠岸行者|云阳真人|剑圣|雷欧纳德|秦琼|镇元大仙|雾渊道长|西王母|青霞仙子|玉鼠精)说道：不是让你去杀了(\S*)的(.*)$(\S*)'s (.*)$么？"
name="ask_mp1"
regexp="y"
script="OnMpAnswer1"
sequence="100"
>
</trigger>
<trigger
group="ask_mp"
match="^\>*\s*(惠岸行者|云阳真人|剑圣|雷欧纳德|秦琼|镇元大仙|雾渊道长|西王母|青霞仙子|玉鼠精)说道：你真是没用，我再给你一次机会！"
regexp="y"
script="OnMpMoreChance"
sequence="100"
>
</trigger>
<trigger
group="ask_mp"
match="^\>*\s*(惠岸行者|云阳真人|剑圣|雷欧纳德|秦琼|镇元大仙|雾渊道长|西王母|青霞仙子|玉鼠精)说道：现有(.*)$(\S*)'s (.*)$在(\S*)(为非作歹|替|一带)"
name="ask_mp3"
regexp="y"
script="OnMpAnswer3"
sequence="100"
>
</trigger>
<trigger
group="ask_mp"
match="^\>*\s*(惠岸行者|云阳真人|剑圣|雷欧纳德|秦琼|镇元大仙|雾渊道长|西王母|青霞仙子|玉鼠精)说道：现在(.*)$(\S*)'s (.*)$出现在(\S*)(为非作歹|替|一带)"
name="ask_mp2"
regexp="y"
script="OnMpAnswer2"
sequence="100"
>
</trigger>
<trigger
custom_colour="2"
enabled="y"
group="wakeup"
match="^\>*\s*(慢慢地你终于又有了知觉．．．|突然你百会之中冒出一道寒气，水银泄地瞬间游遍你全身！)$"
regexp="y"
script="OnWakeup"
sequence="100"
>
</trigger>
<trigger
enabled="y"
group="fly"
match="^\>*\s*(你被定住了，哪里飞得起来！|你正忙着呢，没工夫腾云驾雾。|你正在战斗，飞不开。)$"
regexp="y"
script="OnFlyFail"
sequence="100"
>
</trigger>
<trigger
enabled="y"
group="eatyao"
match="^\>*\s*(你吃下一颗混元丹，脸色看起来好多了．|你吃下一只人参。|你吃下一颗灵芝。|你吃下一包金创药，气色看起来好多了。)$"
regexp="y"
script="OnEatYao"
sequence="100"
>
</trigger>
<trigger
group="CastEsc"
lines_to_match="2"
match="^\>*\s*(你的法力不足。|你的法力不够了！|你的法力不够！|你的法力不能控制逃命符。)$"
regexp="y"
send_to="12"
sequence="100"
>
<send>cmdSender:Insert("eat ling zhi")</send>
</trigger>
<trigger
group="CastEsc"
match="^\>*\s*(你的身影随着一股清风突然出现。|你的身形化为无形，随着烟雾瞬间已是万里开外。|你散出满天的花瓣,等到花瓣落尽,身影已然消失在花影中！|只见你一个跟头跳起，一去二三里，离地四五丈，踏云而去也！|只见白光一闪，你整个人已经被收到宝盒去了|你向空中抛了一把土，念句咒，钻入土中不见了。|你的身影突然出现在一阵尘土中。|一时间，祥云霭霭，佛光普照，你乘祥云飘然而去...)"
regexp="y"
script="OnMightCastSuccess"
sequence="100"
>
</trigger>
<trigger
enabled="y"
match="^\>*\s*(你精神太差，难以集中精力念咒。|你的精神无法集中！)$"
regexp="y"
send_to="12"
sequence="100"
>
<send>cmdSender:Add("ec;ef")</send>
</trigger>
<trigger
enabled="y"
group="bian"
match="^\>*\s*(你口念咒语，身形一晃，现了真身。|你想变成谁？|只见你面色苍白，一个恍惚之间，已经现了原形。)$"
regexp="y"
script="OnBian"
sequence="100"
>
</trigger>
<trigger
group="pfm"
match="^\>*\s*(你略一运功，眼前立刻出现了那条熟悉的身影，剪不断，理还乱，搅得你心烦气燥。|你要用内功做什么？)$"
regexp="y"
script="OnExert"
sequence="100"
>

wormsking · 2011-09-12

</trigger>
<trigger
enabled="y"
group="eatshen"
match="^\>*\s*(你内力不足了!|你的内力不够了!|你内力不足了|你内力不够了|你内力不足|你内力不够|你的内力不足！)"
regexp="y"
script="OnNotEnoughNL"
send_to="12"
sequence="100"
>
<send>cmdSender:Insert("eat ren shen")</send>
</trigger>
<trigger
group="deposit"
match="^\>*\s*(你身上没有带这种钱。|你带的钱不够。|你带的银子不够。|你带的黄金不够。|你拿出\S+，存进了钱庄。)"
regexp="y"
script="OnDeposit"
sequence="100"
>
</trigger>
<trigger
group="dz"
match="^\>*\s*(你行功完毕，吸一口气，缓缓站了起来。|你行功完毕，从冥思中回过神来。)$"
regexp="y"
script="OnDzOff"
sequence="100"
>
</trigger>
<trigger
custom_colour="10"
enabled="y"
group="Normal"
match="^\>*\s*(你中龙形搏击的内伤开始发作了|你中龙形搏击的内伤开始发作了!|你觉得爪痕一阵巨痛，不由全身一阵抽搐。)"
regexp="y"
script="OnSick"
sequence="100"
>
</trigger>
<trigger
group="hbkill"
match="^\>*\s*(强盗|劫匪)一声呼哨，说道：点子硬，扯呼。$"
regexp="y"
script="OnHbRobberDie"
sequence="100"
>
</trigger>
<trigger
custom_colour="2"
group="yinwu"
match="^\>*\s*(山妖看到你这气拔千钧的剑气，竟不知如何招架！|这里没有这个人。|这里没有 shan yao。|山妖只看到寒尖一点，双目一阵剧痛，眼前一黑就什么也看不见了，顿时长声痛极而呼！|山妖神不守舍地看着你，怜香惜玉之心由然而起，竟然忘了自己在战斗之中。|山妖已经魂不守舍，呆若木鸡了！|山妖已经动弹不得了！|结果山妖手足被冻的僵硬，动弹不得。|结果山妖手足僵硬，果然动弹不得！|山妖一不留神被网个正着,脱身不的。|山妖目前正自顾不暇，放胆攻击吧！)$"
regexp="y"
script="OnYinwuShanyaoBusyed"
sequence="100"
>
</trigger>
<trigger
group="find"
match="^\>*\s*(顺风耳告诉你：奇怪，找不到这个人．．．|顺风耳告诉你：此人道行甚高，你查不出来．．．|顺风耳告诉你：此人法力甚高，你查不出来．．．)$"
regexp="y"
script="OnChaNoPerson"
sequence="100"
>
</trigger>
<trigger
group="dz"
match="^\>*\s*(系统喘气中|你现在正忙着呢)"
regexp="y"
script="OnDzBusyNow"
sequence="100"
>
</trigger>
<trigger
enabled="y"
group="nt_fail"
match="^\>*\s*(元始天尊|通天教主)盯着你\,摇了摇头说\:看来你的修行不够\,不可担当大任。说完伸手在你顶门一拍$"
regexp="y"
script="OnNtFailed"
sequence="100"
>
</trigger>
<trigger
group="maoying_hole"
match="^\>*\s*(这里明显的出口是 east 和 southeast。|这里明显的出口是 southeast 和 east。)$"
regexp="y"
script="OnMaoying_e_se"
sequence="100"
>
</trigger>
<trigger
group="maoying_hole"
match="^\>*\s*(这里明显的出口是 northwest 和 northeast。|这里明显的出口是 northeast 和 northwest。)$"
regexp="y"
script="OnMaoynig_ne_nw"
sequence="100"
>
</trigger>
<trigger
group="maoying_hole"
match="^\>*\s*(这里明显的出口是 west 和 southwest。|这里明显的出口是 southwest 和 west。)$"
regexp="y"
script="OnMaoying_sw_w"
sequence="100"
>
</trigger>
<trigger
group="pfm"
match="^\>*\s*\( (\W*)(看起来充满活力，一点也不累。|似乎有些疲惫，但是仍然十分有活力。|看起来可能有些累了。|动作似乎开始有点不太灵光，但是仍然有条不紊。|气喘嘘嘘，看起来状况并不太好。|似乎非常疲惫，看来需要好好休息了。|已经一副头重脚轻的模样，正在勉力支撑着不倒下去。|看起来已经力不从心,马上要支持不住了。|摇头晃脑、歪歪斜斜地站都站不稳，眼看就要倒在地上。|已经陷入半昏迷状态，随时都可能摔倒晕去。)"
regexp="y"
script="OnTargetHp"
sequence="100"
>
</trigger>
<trigger
group="pfm"
match="^\>*\s*$ (\W*)(看起来气血充盈，并没有受伤。|似乎受了点轻伤，不过光从外表看不大出来。|看起来可能受了点轻伤。|受了几处伤，不过似乎并不碍事。|受伤不轻，看起来状况并不太好。|气息粗重，动作开始散乱，看来所受的伤着实不轻。|已经伤痕累累，正在勉力支撑着不倒下去。|受了相当重的伤，只怕会有生命危险。|伤重之下已经难以支撑，眼看就要倒在地上。|受伤过重，已经奄奄一息，命在旦夕了。|受伤过重，已经有如风中残烛，随时都可能断气。) $"
regexp="y"
script="OnTargetEff"
sequence="100"
>
</trigger>
<trigger
group="pfm"
match="^\>*\s*\( (\W*)(看起来头脑清醒，一点也不迷糊。|拍了拍自己的脑袋，似乎有点不太得劲。|看起来有些迷糊了。|的确有点迷糊了，但还辨得出东西南北。|两眼发直，口角流涎，神智开始混乱。|迷迷糊糊，摇摇晃晃，已经辨不出东西南北了。|神智已经处在极度混乱中,再也支持不住了。|心智已经完全迷失，随时都有可能背过气去。)"
regexp="y"
sequence="100"
>
</trigger>
<trigger
enabled="y"
group="tianzhu"
keep_evaluating="y"
match="^\>*\s*\S+走了过来。$"
regexp="y"
sequence="100"
>
</trigger>
<trigger
group="changanw"
keep_evaluating="y"
match="^\>*\s*\S+走了过来。$"
regexp="y"
script="OnChanganwCome"
sequence="100"
>
</trigger>
<trigger
group="proc_item"
match="^\>*\s*\W*可以卖.*已经加到你的户头上了\!$"
name="sellinfo"
regexp="y"
script="OnSellInfo"
sequence="100"
>
</trigger>
<trigger
group="taibai"
match="^\>*\s*……祥云徐徐降落，太白金星和你从里走出。$"
regexp="y"
script="OnAcceptTaibai"
sequence="100"
>
</trigger>
<trigger
group="changanw"
match="^\>*\s*「咚」的一声，你从机关掉到了铁笼中"
regexp="y"
script="OnChanganw"
sequence="100"
>
</trigger>
<trigger
group="ask_pj"
match="^\>*\s*〖十劫难行踪图〗对你说道：(\S+)$(\S+) (\S+)$在(\S+)(，快去找吧！|出现，快去探察！)"
regexp="y"
script="OnGanyingMap"
sequence="100"
>
</trigger>
<trigger
enabled="y"
group="checkset"
match="^\>*\s*───────────────────────────────────────$"
regexp="y"
script="OnCheckEnd"
sequence="100"
>
</trigger>
<trigger
group="pengl"
match="^\>*\s*半空中有人哈哈笑了几声。。。"
regexp="y"
script="OnPenglaiXingDie"
sequence="100"
>
</trigger>
<trigger
enabled="y"
group="Normal"
match="^\>*\s*别忘了你现在是一(.*)！$"
regexp="y"
send_to="12"
sequence="100"
>
<send>cmdSender:Insert("bian;@60;w")</send>
</trigger>
<trigger
group="nt_ask"
lines_to_match="3"
match="^\>*\s*参见help rewardli2"
multi_line="y"
regexp="y"
script="OnNewtask"
sequence="100"
>
</trigger>
<trigger
enabled="y"
group="itemdrop"
match="^\>*\s*从(.*)身上掉了出来一(.*)"
name="itemdrop"
regexp="y"
script="OnItemDrop"
sequence="100"
>
</trigger>
<trigger
group="hbjl"
match="^\>*\s*错了错了！"
regexp="y"
script="OnHbHuifuWrong"
sequence="100"
>
</trigger>
<trigger
group="ask_pj"
match="^\>*\s*丹臣子对你说道：(\S+)$(\S+) (\S+)$在(\S+)(，快去找吧！|出现，快去探察！)"
regexp="y"
script="OnDanchenziAnswer"
sequence="100"
>
</trigger>
<trigger
enabled="y"
group="fly"
match="^\>*\s*到了！你按下云头跳了下来。$"
regexp="y"
script="OnFlySuccess"
sequence="100"
>
</trigger>
<trigger
group="find"
match="^\>*\s*断肠妇人拿出一张黄钱给你。设定环境变数：no\_teach \= \"(搜索|护镖)中\""
regexp="y"
script="in_search"
sequence="100"
>
</trigger>
<trigger
group="nt_fight"
match="^\>*\s*对方不要你的东西。"
regexp="y"
script="OnNtNoGive"
sequence="100"
>
</trigger>
<trigger
group="nt_fight"
match="^\>*\s*对方正忙着呢，没时间理你．．．$"
regexp="y"
script="OnNtGiveyao"
sequence="100"
>
</trigger>
<trigger
enabled="y"
group="eatshen"
match="^\>*\s*顿时你觉得气息充足。$"
regexp="y"
script="OnEatShen"
sequence="100"
>
</trigger>
<trigger
group="renwu_end"
match="^\>*\s*恭喜你得到了奖赏，你的道行和潜能提高了。$"
regexp="y"
script="OnRenwuEnd"
sequence="100"
>
</trigger>
<trigger
group="hbjl"
match="^\>*\s*恭喜你顺利完成任务！你得到了.*！$"
regexp="y"
script="OnHbReward"
sequence="100"
>
</trigger>
<trigger
group="kgd"
match="^\>*\s*观礼台由平坦宽适的红木一级级搭成，地下铺着花纹虎皮和金钱豹$"
regexp="y"
script="OnKgdSkipSouth"
sequence="100"
>
</trigger>
<trigger
enabled="y"
group="kgd1"
match="^\>*\s*忽然一阵黄风呼啸而来，你身不由己被卷了进去！$"
regexp="y"
script="OnFallinKuGuDong"
sequence="100"
>
</trigger>
<trigger
group="hbkill"
match="^\>*\s*忽听几声呼哨，几个强人跳了出来。$"
regexp="y"
script="OnRobberOut"
sequence="100"
>
</trigger>
<trigger
enabled="y"
group="tianzhu"
match="^\>*\s*皇宫伺卫将枪一横，威严地喝了一声：禁行！$"
regexp="y"
sequence="100"
>
</trigger>
<trigger
group="nt_fight"
keep_evaluating="y"
match="^\>*\s*看起来(\S+)并不想跟你较量。"
regexp="y"
script="OnNtWontFight"
sequence="100"
>
</trigger>
<trigger
group="linda"
keep_evaluating="y"
match="^\>*\s*李靖：第(.+)个妖「.*」已经完成。"
regexp="y"
script="OnCanGoLinda"
sequence="100"
>
</trigger>
<trigger
group="ask_li"
keep_evaluating="y"
match="^\>*\s*李靖：第.*个妖「.*」已经完成。$"
regexp="y"
script="OnNoneedCancelLijing"
sequence="100"
>
</trigger>
<trigger
group="renwu_end"
keep_evaluating="y"
match="^\>*\s*李靖：第.*个妖「.+」没有完成。$"
regexp="y"
script="OnLijingNotKilled"
sequence="100"
>
</trigger>
<trigger
group="ask_li"
keep_evaluating="y"
match="^\>*\s*李靖：第.+个妖「.*」没有完成。$"
regexp="y"
script="OnNeedCancelLijing"
sequence="100"
>
</trigger>
<trigger
group="renwu_end"
keep_evaluating="y"
match="^\>*\s*李靖：第.+个妖「.*」已经完成。$"
regexp="y"
script="OnLijingKilled"
sequence="100"
>
</trigger>
<trigger
group="ask_li"
make_underline="y"
match="^\>*\s*李靖对你说道：近有\S* (\S*)$(\S*) (\S*)$在(\S*)为非作歹"
name="li_info"
regexp="y"
script="OnLiAnswer"
sequence="100"
>
</trigger>
<trigger
group="CastEsc"
match="^\>*\s*那里只有巫师才能进去。$"
regexp="y"
script="OnScribeSeal"
sequence="100"
>
<send>cmdSender:Add("w;d;w;n")</send>
</trigger>
<trigger
enabled="y"
group="jldl"
match="^\>*\s*你把小无相功在体内运行一周，只觉内力运行随心所欲无不如意！$"
regexp="y"
send_to="12"
sequence="100"
>
<send>g_jldl=true</send>
</trigger>
<trigger
enabled="y"
group="Normal"
match="^\>*\s*你被扣掉了 \S*武学经验！$"
regexp="y"
script="OnCancelPanjiangJob"
sequence="100"
>
</trigger>
<trigger
group="CastEsc"
match="^\>*\s*你从.*中拿出一叠桃符纸。$"
regexp="y"
script="OnGetSeal"
sequence="100"
>
</trigger>
<trigger
group="deposit"
match="^\>*\s*你从银号里取出"
regexp="y"
script="OnWithdraw"
sequence="100"
>
</trigger>
<trigger
group="renwu_end"
keep_evaluating="y"
match="^\>*\s*你得到了.*潜能，.*武学经验，.*道行。$"
regexp="y"
script="OnNTKilled"
sequence="100"
>
</trigger>
<trigger
custom_colour="2"
group="renwu_end"
keep_evaluating="y"
make_underline="y"
match="^\>*\s*你得到了.*武学经验和.*点潜能、.*道行\!$"
regexp="y"
script="OnLijingKilled"
sequence="100"
>
</trigger>
<trigger
group="renwu_end"
match="^\>*\s*你得到了：\S+精神\.$"
regexp="y"
script="OnPanjiangKilled"
sequence="100"
>
</trigger>
<trigger
group="find"
match="^\>*\s*你的法力不够，用不了地耳灵。$"
regexp="y"
script="OnChaNoMana"
sequence="100"
>
</trigger>
<trigger
enabled="y"
group="jldl"
match="^\>*\s*你的借力打力运行一周天完毕，将内力收回丹田。$"
regexp="y"
send_to="12"
sequence="100"
>
<send>g_jldl=false</send>
</trigger>
<trigger
group="CastEsc"
match="^\>*\s*你的身影突然出现在一.?.?(.*)中。$"
regexp="y"
script="OnWzgCastSuccess"
sequence="100"
>
</trigger>
<trigger
enabled="y"
group="panjiang_end"
match="^\>*\s*你的一轮劫难结束了！$"
regexp="y"
script="OnPanjiangAllOk"
sequence="100"
>
</trigger>
<trigger
enabled="y"
group="score"
match="^\>*\s*你的种族：(\S+)$"
regexp="y"
script="OnRace"
sequence="100"
>
</trigger>
<trigger
enabled="y"
group="Normal"
match="^\>*\s*你对着(.*)喝道：「.*！今日不是你死就是我活！」$"
regexp="y"
send_to="12"
sequence="100"
>
<send>blocked=0</send>
</trigger>
<trigger
enabled="y"
group="fly"
match="^\>*\s*你奋力望上一跳，似乎想飞起来。结果离地不到三尺就一个倒栽葱摔了下来。$"
regexp="y"
script="OnFlyFailNoMana"
sequence="100"
>
</trigger>
<trigger
custom_colour="6"
enabled="y"
group="Normal"
match="^\>*\s*你感觉身体一点点虚弱下去！$"
regexp="y"
script="OnSick"
sequence="100"
>
</trigger>
<trigger
group="hongl"
match="^\>*\s*你刚睡过一觉\, 先活动活动吧。 $"
regexp="y"
script="OnSleepFail"
sequence="100"
>
</trigger>
<trigger
enabled="y"
group="give"
keep_evaluating="y"
match="^\>*\s*你给(.*)一(.*)。$"
name="give"
regexp="y"
script="OnGiveInfo"
sequence="100"
>
</trigger>
<trigger
group="nt_fight"
match="^\>*\s*你给(\S*)一些金创药。"
regexp="y"
script="OnNtGiveyao"
sequence="100"
>
</trigger>
<trigger
custom_colour="2"
enabled="y"
group="Normal"
match="^\>*\s*你给守门牛精一个油葫芦。$"
regexp="y"
script="OnGiveNiujingHulu"
sequence="100"
>
</trigger>
<trigger
group="hbjl"
match="^\>*\s*你给萧升一张回执。$"
regexp="y"
script="OnGiveXiaoReceipt"
sequence="100"
>
</trigger>
<trigger
enabled="y"
group="Normal"
match="^\>*\s*你给薛仁贵一颗(.*)的头颅。$"
regexp="y"
script="OnGiveXueToulu"
sequence="100"
>
</trigger>
<trigger
group="cure"
match="^\>*\s*你红光满面地站了起来，走到泉边。$"
regexp="y"
script="OnCureOk"
sequence="100"
>
</trigger>
<trigger
enabled="y"
group="HbCancel"
match="^\>*\s*你红着脸，羞愧的对萧升说：\S+不才，难以胜任，还请萧镖头多多见谅\!$"
regexp="y"
script="OnHbCancel"
sequence="100"
>
</trigger>
<trigger
enabled="y"
group="Normal"
match="^\>*\s*你获得了(妖刀|霹雳棍|妖刀|仙剑|魔枪|除魔锏|鬼斧|神锤|行军丹|天魔琴|情丝|神叉|黄金战甲|佛杖)。$"
regexp="y"
script="OnPanjiangGet"
sequence="100"
>
</trigger>
<trigger
group="itemget"
match="^\>*\s*你捡起一(.*)。$"
name="itemget"
regexp="y"
script="OnItemGet"
sequence="100"
>
</trigger>
<trigger
group="nt_qin"
match="^\>*\s*你将(\S+)扶了起来背在背上。"
regexp="y"
script="OnGetNt"
sequence="100"
>
</trigger>
<trigger
group="follow"
match="^\>*\s*你决定开始跟随(.*)一起行动。$"
name="follow1"
regexp="y"
script="OnFollowGuai"
sequence="100"
>
</trigger>
<trigger
group="CastEsc"
match="^\>*\s*你口中吐出几团丝线，将身形包在茧中。$"
regexp="y"
script="OnShuShanCastSuccess"
sequence="100"
>
</trigger>
<trigger
enabled="y"
group="Normal"
match="^\>*\s*你历了太多的江湖风风雨雨终于有些累了。江湖人\,总是在人老之前心也就老了\,$"
name="quit"
regexp="y"
script="OnQuit"
sequence="100"
>
</trigger>
<trigger
enabled="y"
group="Normal"
match="^\>*\s*你卖什么物品？$"
regexp="y"
send_to="12"
sequence="100"
>
<send>cmdSender:Add("u;i;@5;set no_teach dowhat")</send>
</trigger>
<trigger
group="pengl"
match="^\>*\s*你慢慢的爬了上来。$"
regexp="y"
script="OnPenglaiClimbSuccess"
sequence="100"
>
</trigger>
<trigger
group="nt_ask"
match="^\>*\s*你没有任务在身。"
regexp="y"
script="OnCheckNtOk"
sequence="100"
>
</trigger>
<trigger
group="renwu_end"
match="^\>*\s*你没有任务在身。$"
regexp="y"
script="OnNTKilled"
sequence="100"
>
</trigger>
<trigger
group="check"
match="^\>*\s*你目前设定的环境变数有：$"
regexp="y"
sequence="100"
>
</trigger>
<trigger
enabled="y"
group="Normal"
match="^\>*\s*你拿出\S+$(Gold|Silver|Coin)$给庙祝。"
regexp="y"
script="OnDownShaqi"
sequence="100"
>
</trigger>
<trigger
enabled="y"
group="fly"
match="^\>*\s*你揉揉眼睛，醒了过来，原来是在做梦啊。$"
regexp="y"
script="OnFlyFailHongl"
sequence="100"
>
</trigger>
<trigger
group="nt_fight"
keep_evaluating="y"
match="^\>*\s*你身上没有这样东西。"
regexp="y"
script="OnNtNoYao"
sequence="100"
>
</trigger>
<trigger
group="hbjl"
keep_evaluating="y"
match="^\>*\s*你身上没有这样东西。$"
regexp="y"
script="OnNoReceipt"
sequence="100"
>
</trigger>
<trigger
group="yueg"
match="^\>*\s*你试着运用所学的轻功纵身跳上荷叶，发现不妙又赶紧跳了回来．$"
regexp="y"
script="OnCailianFail"
sequence="100"
>
</trigger>
<trigger
enabled="y"
group="bian"
match="^\>*\s*你手捻口诀，念动真言，摇身一变，变得和(.*)一模一样！$"
regexp="y"
script="OnBianXX"
sequence="100"
>
</trigger>
<trigger
enabled="y"
group="penglai"
match="^\>*\s*你手上一个不稳，从崖上掉了下来。。。$"
regexp="y"
sequence="100"
>
</trigger>
<trigger
custom_colour="2"
group="find"
match="^\>*\s*你手向后一扬，示意镖车停下，朗声说道：到了，等待接镖。$"
regexp="y"
script="OnHbFinded"
sequence="100"
>
</trigger>
<trigger
group="yueg"
match="^\>*\s*你双脚在莲叶上一点，身子轻轻在水上掠过，回来时手中已多了一只莲蓬。$"
regexp="y"
script="OnCailianSuccess"
sequence="100"
>
</trigger>
<trigger
enabled="y"
group="Normal"
match="^\>*\s*你说道：NT不做"
regexp="y"
send_to="12"
sequence="100"
>
<send>g_renwu_nt=false</send>
</trigger>
<trigger
enabled="y"
group="Normal"
match="^\>*\s*你说道：NT做"
regexp="y"
send_to="12"
sequence="100"
>
<send>g_renwu_nt=true</send>
</trigger>
<trigger
enabled="y"
group="Normal"
match="^\>*\s*你说道：PJ做$"
regexp="y"
send_to="12"
sequence="100"
>
<send>g_renwu_pj = true</send>
</trigger>
<trigger
group="find"
match="^\>*\s*你说道：here$"
regexp="y"
script="OnHbSayHere"
sequence="100"
>
</trigger>
<trigger
group="mp3"
match="^\>*\s*你说道：mp3启动"
regexp="y"
sequence="100"
sound="F:\MUSHclient\lua\tada.wav"
>
</trigger>
<trigger
enabled="y"
group="nt_quan"
match="^\>*\s*你说道：放下屠刀，立地成佛。"
regexp="y"
script="OnNtQuan"
sequence="100"
>
</trigger>
<trigger
group="nt_ask"
lines_to_match="2"
match="^\>*\s*你说道：敢问.*前来何事？\n(元始天尊|通天教主)沉思片刻说"
multi_line="y"
regexp="y"
script="OnNoNewtask"
sequence="100"
>
</trigger>
<trigger
group="nt_ask"
lines_to_match="2"
match="^\>*\s*你说道：敢问.*前来何事？\n(元始天尊|通天教主)说道"
multi_line="y"
regexp="y"
script="OnHaveNewtask"
sequence="100"
>
</trigger>
<trigger
group="nt_ask"
lines_to_match="2"
match="^\>*\s*你说道：敢问.*前来何事？\n(元始天尊|通天教主)用赞许的目光看着你，说："
multi_line="y"
regexp="y"
script="OnNoNewtask"
sequence="100"
>
</trigger>
<trigger
group="nt_ask"
lines_to_match="2"
match="^\>*\s*你说道：敢问.*前来何事？\n\n(元始天尊|通天教主)说道"
multi_line="y"
regexp="y"
script="OnNewtask"
sequence="100"
>
</trigger>
<trigger
group="nt_ask"
lines_to_match="3"
match="^\>*\s*你说道：敢问.*前来何事？\n\n(元始天尊|通天教主)说道"
multi_line="y"
regexp="y"
script="OnHaveNewtask"
sequence="100"
>
</trigger>
<trigger
enabled="y"
group="nt_canceled"
match="^\>*\s*你说道：这个任务.*恐怕无能为力。$"
regexp="y"
script="OnNtCanceled"
sequence="100"
>
</trigger>
<trigger
custom_colour="1"
enabled="y"
group="Normal"
match="^\>*\s*你所受\S+发作了！"
regexp="y"
script="OnSick"
sequence="100"
>
</trigger>
<trigger
group="yueg"
match="^\>*\s*你突然意识到采莲不免有失英雄本色，不禁又把手缩了回来"
regexp="y"
script="OnCailianFail"
sequence="100"
>
</trigger>
<trigger
group="nt_find"
match="^\>*\s*你微一凝神，向(.+)细细打量过去，"
regexp="y"
script="OnNtObserving"
sequence="100"
>
</trigger>
<trigger
group="nt_fight"
match="^\>*\s*你现在不能移动！$"
regexp="y"
sequence="100"
>
</trigger>
<trigger
group="nt_ask"
lines_to_match="2"
match="^\>*\s*你现在的任务是(\S*)散仙,(\S*)在(\S*)。\n难度：(\S*)"
multi_line="y"
regexp="y"
script="OnNewtaskType"
sequence="100"
>
</trigger>
<trigger
group="nt_ask"
lines_to_match="2"
match="^\>*\s*你现在的任务是(\S*)妖,(\S*)在(\S*)。\n难度：(\S*)"
multi_line="y"
regexp="y"
script="OnNewtaskType"
sequence="100"
>
</trigger>
<trigger
enabled="y"
group="score"
match="^\>*\s*你现在的职称 : .* (\S*)$(\S*)$$"
name="scoreid"
regexp="y"
script="OnScoreIdAndName"
sequence="100"
>
</trigger>
<trigger
enabled="y"
group="penglai"
match="^\>*\s*你现在很忙，爬什么呀！$"
regexp="y"
sequence="100"
>
</trigger>
<trigger
enabled="y"
group="fly"
match="^\>*\s*你现在头脑不太清醒，当心掉下来摔死。$"
regexp="y"
script="OnFlyFailNeedHeal"
sequence="100"
>
</trigger>
<trigger
enabled="y"
group="jldl"
match="^\>*\s*你现在真气不纯。$"
regexp="y"
send_to="12"
sequence="100"
>
<send>g_jldl=false</send>
</trigger>
<trigger
group="nt_fight"
match="^\>*\s*你现在正忙着呢。$"
regexp="y"
script="OnNtFightWho"
sequence="100"
>
</trigger>
<trigger
group="kgd"
match="^\>*\s*你现在正站在一个长安武馆的教练场中，地上铺着黄色的细砂，一群$"
regexp="y"
script="OnKgdSkipSouth"
sequence="100"
>
</trigger>
<trigger
group="nt_find"
match="^\>*\s*你想查看谁？"
regexp="y"
script="OnNtObserveWho"
sequence="100"
>
</trigger>
<trigger
enabled="y"
group="fly"
match="^\>*\s*你想飞起来，可是体力似乎有点不支。$"
regexp="y"
script="OnFlyFailNeedHeal"
sequence="100"
>
</trigger>
<trigger
group="nt_fight"
match="^\>*\s*你想攻击谁？"
regexp="y"
script="OnNtFightWho"
sequence="100"
>
</trigger>
<trigger
group="ask_mp"
match="^\>*\s*你向(惠岸行者|云阳真人|剑圣|雷欧纳德|秦琼|镇元大仙|雾渊道长|西王母|青霞仙子|玉鼠精)打听有关.*的消息。$"
regexp="y"
script="OnAskMp"
sequence="100"
>
</trigger>
<trigger
enabled="y"
group="Normal"
match="^\>*\s*你向\S+买下一些\S+。$"
regexp="y"
send_to="12"
sequence="100"
>
<send>blocked=0</send>
</trigger>
<trigger
group="ask_pj"
lines_to_match="3"
match="^\>*\s*你向丹臣子打听有关『job』的消息。\n丹臣子惊讶地“啊”了一声。\n丹臣子说道：这么快就回来了?"
multi_line="y"
regexp="y"
script="OnDanchenziNotAnswer"
sequence="100"
>
</trigger>
<trigger
group="ask_pj"
lines_to_match="2"
match="^\>*\s*你向丹臣子打听有关『job』的消息。\n你先下去休息吧!"
multi_line="y"
regexp="y"
script="OnDanchenziNotAnswer"
sequence="100"
>
</trigger>
<trigger
enabled="y"
group="Normal"
lines_to_match="3"
match="^\>*\s*你向李靖打听有关『cancel』的消息。\n李靖无奈地耸耸肩。\n李靖说道：你既然无力收服\S*, 只好任它去了。\Z"
multi_line="y"
regexp="y"
script="OnLiCanceled"
sequence="100"
>
</trigger>
<trigger
group="ask_li"
match="^\>*\s*你向李靖打听有关『kill』的消息。$"
name="ask_li"
regexp="y"
script="OnAskLi"
sequence="100"
>
</trigger>
<trigger
enabled="y"
group="Normal"
lines_to_match="2"
match="^\>*\s*你向时空使者打听有关『(.*)』的消息。\n时空使者说道：欢迎进入(.*)级别!"
multi_line="y"
regexp="y"
script="OnChangeDifficultyLevel"
sequence="100"
>
</trigger>
<trigger
enabled="y"
group="Normal"
lines_to_match="2"
match="^\>*\s*你向时空使者打听有关『(.*)』的消息。\n时空使者说道：你不是已经在(.*)级别了吗?"
multi_line="y"
regexp="y"
script="OnChangeDifficultyLevel"
sequence="100"
>
</trigger>
<trigger
enabled="y"
group="Normal"
lines_to_match="3"
match="^\>*\s*你向时空使者打听有关『(.*)』的消息。\n时空使者摇了摇头。\n时空使者说道：你不是已经在(.*)级别了吗?"
multi_line="y"
regexp="y"
script="OnChangeDifficultyLevel"
sequence="100"
>
</trigger>
<trigger
group="ask_hb"
match="^\>*\s*你向萧升打听有关『hubiao』的消息。$"
regexp="y"
script="OnSetAskhb"
sequence="100"
>
</trigger>
<trigger
group="ask_xue"
lines_to_match="2"
match="^\>*\s*你向薛仁贵打听有关『逃犯』的消息。\n薛仁贵说道：不是让你替我抓回.*么？"
multi_line="y"
regexp="y"
script="OnXueNoAnswer"
sequence="100"
>
</trigger>
<trigger
group="ask_xue"
lines_to_match="3"
match="^\>*\s*你向薛仁贵打听有关『逃犯』的消息。\n薛仁贵说道：现有(.*)$(.*)$流窜到(\S+)一带滋扰民众，\n你马上把他的人头拿来见我！"
multi_line="y"
regexp="y"
script="OnXueAnswer"
sequence="100"
>
</trigger>
<trigger
group="ask_xue"
lines_to_match="2"
match="^\>*\s*你向薛仁贵打听有关『逃犯』的消息。\n薛仁贵说道：有劳您了，您先休息一下吧！"
multi_line="y"
regexp="y"
script="OnXueNoAnswer"
sequence="100"
>
</trigger>
<trigger
group="kgd"
match="^\>*\s*你眼前出现一座硕大的垃圾堆。这里是长安城内最大的废物堆积处，$"
regexp="y"
script="OnKgdSkipUp"
sequence="100"
>
</trigger>
<trigger
group="CastEsc"
match="^\>*\s*你咬破手指，伸手在桃符纸上画了几下。$"
regexp="y"
script="OnScribeSeal"
sequence="100"
>
</trigger>
<trigger
enabled="y"
group="Normal"
match="^\>*\s*你一次输入太多命令了。$"
name="too_much_cmds"
regexp="y"
send_to="12"
sequence="100"
>
<send>cmdSender:Insert("@90")</send>
</trigger>
<trigger
group="hblog"
match="^\>*\s*你一面用锐利的目光盯着萧升，一面「嘿嘿嘿．．．．」地奸笑着。$"
regexp="y"
script="OnHbLogStart"
sequence="100"
>
</trigger>
<trigger
enabled="y"
group="checkset"
match="^\>*\s*你拥有下列\S*样东西（负重 \S*）：$"
regexp="y"
script="OnStartCheckSet"
sequence="100"
>
</trigger>
<trigger
enabled="y"
group="idle"
match="^\>*\s*你用力拍打着自己的脑袋，口中念念有词的踱来踱去：我活着道底是为了什么？$"
regexp="y"
script="OnIdle"
sequence="100"
>
</trigger>
<trigger
group="maoying_hole"
match="^\>*\s*你在黑暗中找到一出口，挤了出去。$"
regexp="y"
script="OnMaoyingOut"
sequence="100"
>
</trigger>
<trigger
custom_colour="2"
group="maoying_hole"
match="^\>*\s*你在蒿草石缝中扒开一个洞，钻了进去。$"
regexp="y"
script="OnEnterMaoying_hole"
sequence="100"
>
</trigger>
<trigger
group="find"
match="^\>*\s*你这个路盲，到处乱跑，耽误了大事，看你如何向镖局交代！$"
regexp="y"
script="OnHbFail"
sequence="100"
>
</trigger>
<trigger
group="didian"
match="^\>*\s*你正忙着\.\.\.\.\.\.。$"
regexp="y"
script="OnBusyKK"
sequence="100"
>
</trigger>
<trigger
custom_colour="6"
group="hbkill"
match="^\>*\s*你仔细的看了看回执上的签押，确是总镖头的字迹画押，点头道：没错，请验镖。$"
regexp="y"
script="OnGetReceipt"
sequence="100"
>
</trigger>
<trigger
enabled="y"
group="fly"
match="^\>*\s*你纵身想飞，可脚上像灌了铅一样\.\.\.$"
regexp="y"
script="OnFlyFailHongl"
sequence="100"
>
</trigger>
<trigger
enabled="y"
group="connect"
match="^\>*\s*您上次连线的时间是："
regexp="y"
script="OnConnected"
sequence="100"
>
</trigger>
<trigger
group="linda"
match="^\>*\s*千堆雪说道：你还是专心除妖灭魔吧！"
regexp="y"
script="OnAskLinda"
sequence="100"
>
</trigger>
<trigger
enabled="y"
group="findguai"
match="^\>*\s*千里眼告诉你：(.*)$(.*)$在(.*)。$"
name="qianliyan"
regexp="y"
script="OnQianliyanGuai"
sequence="100"
>
</trigger>
<trigger
group="yinwu"
match="^\>*\s*山妖难以抵御引力，整个人被吸入了时空之门！$"
regexp="y"
sequence="100"
>
</trigger>
<trigger
enabled="y"
group="set"
match="^\>*\s*设定环境变数：no\_(top|teach) \= \"ddwhat\"$"
regexp="y"
send_to="12"
sequence="100"
>
<send>EnableTriggerGroup("fly", true)
g_AfterFly = "set no_teach dowhat"
g_FlyTo = "changan"
cmdSender:Add("fly changan")
</send>
</trigger>
<trigger
custom_colour="2"
enabled="y"
group="set"
match="^\>*\s*设定环境变数：no\_(top|teach) \= \"dowhat\"$"
regexp="y"
script="OnDoWhat"
sequence="100"
>

wormsking · 2011-09-12

</trigger>
<trigger
group="find"
match="^\>*\s*设定环境变数：no\_teach \= \"(搜索|护镖)中\"$"
regexp="y"
script="in_search"
sequence="100"
>
</trigger>
<trigger
enabled="y"
group="set"
match="^\>*\s*设定环境变数：no\_teach \= \"askli\"$"
regexp="y"
script="OnSetAskli"
sequence="100"
>
</trigger>
<trigger
enabled="y"
group="set"
match="^\>*\s*设定环境变数：no\_teach \= \"askmp\"$"
regexp="y"
script="OnSetAskmp"
sequence="100"
>
</trigger>
<trigger
enabled="y"
group="set"
match="^\>*\s*设定环境变数：no\_teach \= \"baox2\"$"
regexp="y"
script="go_baox2"
sequence="100"
>
</trigger>
<trigger
enabled="y"
group="set"
match="^\>*\s*设定环境变数：no\_teach \= \"biangw\"$"
regexp="y"
script="go_biangw"
sequence="100"
>
</trigger>
<trigger
enabled="y"
group="set"
match="^\>*\s*设定环境变数：no\_teach \= \"buybag\"$"
regexp="y"
script="OnSetBuybag"
sequence="100"
>
</trigger>
<trigger
enabled="y"
group="set"
match="^\>*\s*设定环境变数：no\_teach \= \"buyhulu\"$"
regexp="y"
script="BuyHulu"
sequence="100"
>
</trigger>
<trigger
enabled="y"
group="set"
match="^\>*\s*设定环境变数：no\_teach \= \"buyseal\"$"
regexp="y"
script="OnSetBuyseal"
sequence="100"
>
</trigger>
<trigger
enabled="y"
group="set"
match="^\>*\s*设定环境变数：no\_teach \= \"buyyao\"$"
regexp="y"
script="OnSetBuyyao"
sequence="100"
>
</trigger>
<trigger
enabled="y"
group="Normal"
match="^\>*\s*设定环境变数：no\_teach \= \"cast\""
regexp="y"
script="OnCastSuccess"
sequence="100"
>
</trigger>
<trigger
enabled="y"
group="set"
match="^\>*\s*设定环境变数：no\_teach \= \"checksl\"$"
regexp="y"
sequence="100"
>
</trigger>
<trigger
custom_colour="3"
enabled="y"
group="set"
match="^\>*\s*设定环境变数：no\_teach \= \"cure\"$"
regexp="y"
script="OnSetCure"
sequence="100"
>
</trigger>
<trigger
group="didian"
match="^\>*\s*设定环境变数：no\_teach \= \"die\"$"
regexp="y"
script="OnKKnpcDie"
sequence="100"
>
</trigger>
<trigger
enabled="y"
group="set"
match="^\>*\s*设定环境变数：no\_teach \= \"dz\"$"
regexp="y"
script="OnSetDz"
sequence="100"
>
</trigger>
<trigger
enabled="y"
group="set"
match="^\>*\s*设定环境变数：no\_teach \= \"dzok\"$"
regexp="y"
script="OnSetDzok"
sequence="100"
>
</trigger>
<trigger
enabled="y"
group="set"
match="^\>*\s*设定环境变数：no\_teach \= \"end\"$"
regexp="y"
script="OnSetEnd"
sequence="100"
>
</trigger>
<trigger
enabled="y"
group="set"
match="^\>*\s*设定环境变数：no\_teach \= \"givehulu\"$"
regexp="y"
script="GiveHulu"
sequence="100"
>
</trigger>
<trigger
enabled="y"
group="set"
match="^\>*\s*设定环境变数：no\_teach \= \"godz\"$"
regexp="y"
script="OnSetGodz"
sequence="100"
>
</trigger>
<trigger
enabled="y"
group="set"
match="^\>*\s*设定环境变数：no\_teach \= \"gohb\"$"
regexp="y"
script="OnSetGohb"
sequence="100"
>
</trigger>
<trigger
enabled="y"
group="set"
match="^\>*\s*设定环境变数：no\_teach \= \"goli\"$"
regexp="y"
script="OnSetGoli"
sequence="100"
>
</trigger>
<trigger
enabled="y"
group="set"
match="^\>*\s*设定环境变数：no\_teach \= \"gomp\"$"
regexp="y"
script="OnSetGomp"
sequence="100"
>
</trigger>
<trigger
enabled="y"
group="set"
match="^\>*\s*设定环境变数：no\_teach \= \"gont\"$"
regexp="y"
script="OnSetGont"
sequence="100"
>
</trigger>
<trigger
enabled="y"
group="set"
match="^\>*\s*设定环境变数：no\_teach \= \"gotf\"$"
regexp="y"
script="OnSetGoXue"
sequence="100"
>
</trigger>
<trigger
enabled="y"
group="Normal"
match="^\>*\s*设定环境变数：no\_teach \= \"gotianz\"$"
regexp="y"
script="go_tianz2"
sequence="100"
>
</trigger>
<trigger
enabled="y"
group="set"
match="^\>*\s*设定环境变数：no\_teach \= \"huoyun2\"$"
regexp="y"
script="go_huoy2"
sequence="100"
>
</trigger>
<trigger
enabled="y"
group="set"
match="^\>*\s*设定环境变数：no\_teach \= \"kaishi\"$"
regexp="y"
script="OnSetKaishi"
sequence="100"
>
</trigger>
<trigger
group="ask_li"
match="^\>*\s*设定环境变数：no\_teach \= \"li\_nore\"$"
regexp="y"
script="OnLiNotAnswered"
sequence="100"
>
</trigger>
<trigger
enabled="y"
group="set"
match="^\>*\s*设定环境变数：no\_teach \= \"mpbusy\"$"
regexp="y"
script="mp_busy_skill"
sequence="100"
>
</trigger>
<trigger
group="ask_mp"
match="^\>*\s*设定环境变数：no\_teach \= \"mpnr\"$"
regexp="y"
script="OnMpNotAnswered"
sequence="100"
>
</trigger>
<trigger
enabled="y"
group="set"
match="^\>*\s*设定环境变数：no\_teach \= \"nuerguo2\"$"
regexp="y"
script="go_nue2"
sequence="100"
>
</trigger>
<trigger
enabled="y"
group="set"
match="^\>*\s*设定环境变数：no\_teach \= \"pengl2\"$"
regexp="y"
script="go_pengl2"
sequence="100"
>
</trigger>
<trigger
enabled="y"
group="set"
match="^\>*\s*设定环境变数：no\_teach \= \"qilin2\"$"
regexp="y"
script="go_qil2"
sequence="100"
>
</trigger>
<trigger
enabled="y"
group="set"
match="^\>*\s*设定环境变数：no\_teach \= \"renwu\"$"
regexp="y"
script="OnRenwu"
sequence="100"
>
</trigger>
<trigger
enabled="y"
group="set"
match="^\>*\s*设定环境变数：no\_teach \= \"tianzhu2\"$"
regexp="y"
script="go_tianz2"
sequence="100"
>
</trigger>
<trigger
enabled="y"
group="set"
match="^\>*\s*设定环境变数：no\_teach \= \"wuji2\"$"
regexp="y"
script="go_wuj2"
sequence="100"
>
</trigger>
<trigger
group="ask_hb"
match="^\>*\s*设定环境变数：no\_teach \= \"xnre\"$"
regexp="y"
script="OnHbNotAnswered"
sequence="100"
>
</trigger>
<trigger
group="find"
match="^\>*\s*设定环境变数：no\_teach \= \"开始\"$"
regexp="y"
script="OnSetStart"
sequence="100"
>
</trigger>
<trigger
group="hbjl"
match="^\>*\s*什么啊～？"
regexp="y"
sequence="100"
>
</trigger>
<trigger
group="find"
match="^\>*\s*顺风耳告诉你：(.+)的道行已达"
regexp="y"
script="OnChaInfo"
sequence="100"
>
</trigger>
<trigger
group="find"
match="^\>*\s*似乎不是这个地方，再找找？$"
regexp="y"
script="OnHbNotHere"
sequence="100"
>
</trigger>
<trigger
group="ask_hb"
match="^\>*\s*萧升对你说道：有人托镖局.*。$"
regexp="y"
script="OnHbAnswer"
sequence="100"
>
</trigger>
<trigger
enabled="y"
keep_evaluating="y"
match="^\>*\s*一股阴冷的浓雾突然出现，很快地包围了你。"
match_text_colour="y"
regexp="y"
script="mp_jifa"
sequence="100"
text_colour="15"
>
</trigger>
<trigger
enabled="y"
group="hb"
lines_to_match="4"
match="^\>*\s*一张顾主写着目的地的镖单，上面还有顾主的签名和手印。\n只见上面写着：\n.*\n(.*)\Z"
multi_line="y"
name="hb3"
regexp="y"
script="OnHbInfo3"
sequence="100"
>
</trigger>
<trigger
enabled="y"
group="hb"
lines_to_match="6"
match="^\>*\s*一张顾主写着目的地的镖单，上面还有顾主的签名和手印。\n只见上面写着：\n\S+\n\n(.*)\Z"
multi_line="y"
regexp="y"
script="OnHbInfo1"
sequence="100"
>
</trigger>
<trigger
enabled="y"
group="hb"
lines_to_match="4"
match="^\>*\s*一张顾主写着目的地的镖单，上面还有顾主的签名和手印。\n只见上面写着：\n\n(.*)\Z"
multi_line="y"
name="hb"
regexp="y"
script="OnHbInfo1"
sequence="100"
>
</trigger>
<trigger
enabled="y"
group="hb"
lines_to_match="5"
match="^\>*\s*一张顾主写着目的地的镖单，上面还有顾主的签名和手印。\n只见上面写着：\n\n\n(.*)\Z"
multi_line="y"
name="hb2"
regexp="y"
script="OnHbInfo2"
sequence="100"
>
</trigger>
<trigger
custom_colour="15"
enabled="y"
group="Normal"
match="^\>*\s*一只具有神秘力量的魔盒，可以合成$combine、forge、runiced$你想要的东西，你也可以把它当作临时的存储箱。"
regexp="y"
script="OnCheckBagStart"
sequence="100"
>
</trigger>
<trigger
group="autokillnpc2"
match="^\>*\s*用 suicide 指令会比较快:P。"
regexp="y"
send_to="12"
sequence="100"
>
<send>cmdSender:Add("@10;kill xiao yao 2")</send>
</trigger>
<trigger
group="autokillnpc3"
match="^\>*\s*用 suicide 指令会比较快:P。"
regexp="y"
send_to="12"
sequence="100"
>
<send>cmdSender:Add("@10;kill yao jing 2")</send>
</trigger>
<trigger
group="autokillnpc"
match="^\>*\s*用 suicide 指令会比较快:P。"
regexp="y"
send_to="12"
sequence="100"
>
<send>cmdSender:Add("@10;kill yao guai 2")</send>
</trigger>
<trigger
enabled="y"
group="boss"
match="^\>*\s*杂货铺老板 \S*$Boss \w*$$"
regexp="y"
script="OnSeeSealBoss"
sequence="100"
>
</trigger>
<trigger
enabled="y"
group="tianzhu"
match="^\>*\s*昭阳宫里紫气袅袅，正面是一绘金玉边彩屏，有数丈之宽光照$"
regexp="y"
sequence="100"
>
</trigger>
<trigger
group="kgd"
keep_evaluating="y"
match="^\>*\s*这家客栈紧靠长安城中心，所以生意非常兴隆。兼之价钱低廉，更是$"
regexp="y"
script="OnKgdSkipWest"
sequence="100"
>
</trigger>
<trigger
enabled="y"
group="login"
keep_evaluating="y"
match="^\>*\s*这家客栈紧靠长安城中心，所以生意非常兴隆。兼之价钱低廉，更是$"
regexp="y"
script="OnLoginAtKz"
sequence="100"
>
</trigger>
<trigger
group="autokillnpc2"
match="^\>*\s*这里(没有)这个人。"
regexp="y"
send_to="12"
sequence="100"
>
<send>EnableTriggerGroup("autokillnpc2", false)
cmdSender:Add("#t- autokillnpc2;#t- follow;#t+ autokillnpc3;kill yao jing")
</send>
</trigger>
<trigger
group="didian"
keep_evaluating="y"
match="^\>*\s*这里(没有)这个人。"
regexp="y"
script="OnHereNoKK"
sequence="100"
>
</trigger>
<trigger
group="autokillnpc3"
match="^\>*\s*这里(没有)这个人。"
regexp="y"
send_to="12"
sequence="100"
>
<send>EnableTriggerGroup("autokillnpc3", false)
cmdSender:Add("#t- autokillnpc3;#t- follow;ask "..guai_id.." about 师门")
EnableTriggerGroup("nt_find", true)
EnableTriggerGroup("nt_fight", true)
EnableTriggerGroup("nt_qin", true)
g_nt_giveyao = false
nt_pfm()
EnableTimer("nt_pfm", true)
ResetTimer("nt_pfm")</send>
</trigger>
<trigger
group="autokillnpc"
match="^\>*\s*这里(没有)这个人。"
regexp="y"
send_to="12"
sequence="100"
>
<send>EnableTriggerGroup("autokillnpc", false)
cmdSender:Add("#t- autokillnpc;#t- follow;#t+ autokillnpc2;kill xiao yao")</send>
</trigger>
<trigger
group="find"
keep_evaluating="y"
match="^\>*\s*这里(明显|唯一)的出口是(.*)。$"
name="out_info"
regexp="y"
script="OnOutInfo_find"
sequence="100"
>
</trigger>
<trigger
custom_colour="3"
group="pfm"
keep_evaluating="y"
match="^\>*\s*这里没有 (.*)。"
name="noguaiid"
regexp="y"
script="OnHereNoGuaiId"
sequence="100"
>
</trigger>
<trigger
group="follow"
keep_evaluating="y"
match="^\>*\s*这里没有 (.*)。$"
name="follow3"
regexp="y"
script="OnHereNoGuaiId_follow"
sequence="100"
>
</trigger>
<trigger
enabled="y"
group="Normal"
match="^\>*\s*这里没有 a\_npc。$"
regexp="y"
script="OnXinMoDieorEsc"
sequence="100"
>
</trigger>
<trigger
custom_colour="2"
group="hbkill"
match="^\>*\s*这里没有 robber。$"
regexp="y"
script="OnHereNoRobber"
sequence="100"
>
</trigger>
<trigger
group="maoying_hole"
match="^\>*\s*这里没有任何明显的出路。$"
regexp="y"
script="OnMaoying_NoOut"
sequence="100"
>
</trigger>
<trigger
group="ask_xue"
keep_evaluating="y"
match="^\>*\s*这里没有这个人。"
regexp="y"
script="OnXueNoAnswer"
sequence="100"
>
</trigger>
<trigger
group="nt_fight"
keep_evaluating="y"
match="^\>*\s*这里没有这个人。"
regexp="y"
script="OnNtNoThisPerson"
sequence="100"
>
</trigger>
<trigger
group="CastEsc"
match="^\>*\s*这里没有这样东西。$"
regexp="y"
script="OnNoSeal"
sequence="100"
>
</trigger>
<trigger
group="kgd"
keep_evaluating="y"
match="^\>*\s*这里明显的出口是 (.*)。$"
name="kgdouts"
regexp="y"
script="OnKugudongMoreOuts"
sequence="100"
>
</trigger>
<trigger
group="kgd"
match="^\>*\s*这里是地下河的码头，几个没有户口的船夫在使劲地吆喝着：做我的船吧！$"
regexp="y"
script="OnKgdSkipUp"
sequence="100"
>
</trigger>
<trigger
group="kgd"
keep_evaluating="y"
match="^\>*\s*这里唯一的出口是 (.*)。$"
name="kgdout"
regexp="y"
script="OnKugudongOneOut"
sequence="100"
>
</trigger>
<trigger
group="nt_find"
match="^\>*\s*只见(.+)浑身松软，瘫倒在地．．．却果然正是(.+)！"
regexp="y"
script="OnNtObserved"
sequence="100"
>
</trigger>
<trigger
group="taibai"
match="^\>*\s*只见一团祥云飘下，太白金星和你从里面走出。$"
regexp="y"
script="OnBackTaibai"
sequence="100"
>
</trigger>
<trigger
enabled="y"
group="fly"
match="^\>*\s*周围没有一片云，没办法腾云驾雾。$"
regexp="y"
script="OnFlyFailNoCloud"
sequence="100"
>
</trigger>
<trigger
custom_colour="3"
enabled="y"
group="login"
match="^\>*\s*朦朦胧胧的什么也看不清。你隐隐约约地觉得只要$"
regexp="y"
script="OnLoginAtJjt"
sequence="100"
>
</trigger>
<trigger
enabled="y"
group="Normal"
match="^\>*【好友频道】(.*)$\w+$：how exp$"
regexp="y"
send_to="12"
sequence="100"
>
<send>cmdSender:Add("friendtalk "..g_exp_gain.."/"..g_exp_permin.."("..g_exp..")")</send>
</trigger>
<trigger
custom_colour="7"
group="find"
match="^\>\>\>"
regexp="y"
script="OnBlockedByUnknow"
sequence="100"
>
</trigger>
<trigger
group="nt_fight"
match="^\>\s*加油！加油！加油！$"
regexp="y"
script="OnNtFight"
sequence="100"
>
</trigger>
<trigger
enabled="y"
group="Normal"
match="^\s*卖花的 (\S+)$Boss \S+$"
regexp="y"
send_to="12"
sequence="100"
>
<send>flower_boss="boss"</send>
</trigger>
<trigger
enabled="y"
group="Normal"
match="^\s*卖花的荷花$He hua$$"
regexp="y"
send_to="12"
sequence="100"
>
<send>flower_boss="he hua"</send>
</trigger>
<trigger
enabled="y"
group="Normal"
match="^\s*天下第一 (\S+)$Boss (.*)$"
regexp="y"
send_to="12"
sequence="100"
>
<send>world.SetVariable("buyyaoid", "%2");</send>
</trigger>
<trigger
enabled="y"
group="score"
match="^\s*性别：\[(男性|女性)\] 体重：\[.*\] 门派：\[\s*(\S*)\s*\]$"
name="score"
regexp="y"
script="OnScore"
sequence="100"
>
</trigger>
<trigger
group="ntcha"
match="^\s+(.*)$(.*)$$"
regexp="y"
script="OnChaId"
sequence="100"
lowercase_wildcard="y"
>
</trigger>
<trigger
custom_colour="5"
group="checkbag"
keep_evaluating="y"
match="^\s+(\S+)$(Sword|Paper seal|sword|Lumber axe)$$"
regexp="y"
script="OnCheckBag"
sequence="100"
>
</trigger>
<trigger
group="check"
match="^no\_teach \"(.*)\"$"
regexp="y"
sequence="100"
>
</trigger>
<trigger
enabled="y"
match="^┃ 个人状态姓名：(\S*)\s*性别：(男|女)性\s*I D：\[(\S*)\]\s*┃$"
name="hpid"
regexp="y"
script="onhpid"
sequence="100"
>
</trigger>
<trigger
enabled="y"
group="hp_shaqi"
match="^┃〖官职〗\d+\s+〖战意〗\d+\s+〖杀气〗(\d+)\s+┃$"
regexp="y"
script="OnHpShaqi"
sequence="100"
>
</trigger>
<trigger
enabled="y"
group="Normal"
match="^┃〖食物〗.*〖武学〗(\d+)\s+┃$"
regexp="y"
script="OnExp"
sequence="100"
>
</trigger>
<trigger
enabled="y"
group="Normal"
match="^经验值：(\S+)，平均每分钟(\S+)点\!$"
regexp="y"
script="OnXiaolv"
sequence="100"
>
</trigger>
<trigger
group="kgd"
match="舍利塔"
regexp="y"
script="OnSuccessOutKugudong"
sequence="100"
>
</trigger>
</triggers>



<aliases
muclient_version="4.40"
world_file_version="15"
date_saved="2010-07-07 14:47:54"
>
<alias
match="ask_hb"
enabled="y"
sequence="100"
>
<send>set no_teach gohb</send>
</alias>
<alias
match="ask_li"
enabled="y"
sequence="100"
>
<send>set no_teach goli</send>
</alias>
<alias
match="debug"
enabled="y"
send_to="12"
sequence="100"
>
<send>cmdSender:Add("{;#20 go east;};#30 go west")</send>
</alias>
<alias
match="go_place"
enabled="y"
send_to="12"
sequence="100"
>
<send>set_guainame()
place_id()
go_place()</send>
</alias>
<alias
match="gogo"
enabled="y"
send_to="12"
sequence="100"
>
<send>cmdSender:Add("set no_teach dowhat")</send>
</alias>
<alias
script="hbpfm"
match="hbpfm"
enabled="y"
sequence="100"
>
</alias>
<alias
match="jfsk"
enabled="y"
sequence="100"
>
<send>jifa axe sanban-axe
jifa dodge yanxing-steps
jifa parry bawang-qiang
jifa spear bawang-qiang
jifa spells baguazhou
jifa force lengquan-force
jifa leadership strategy
jifa blade wuhu-blade
jifa unarmed changquan
jifa mace wusi-mace</send>
</alias>
<alias
match="kaishi"
enabled="y"
sequence="100"
>
<send>set no_teach dowhat</send>
</alias>
<alias
name="kk"
match="kk (.*)"
enabled="y"
regexp="y"
send_to="12"
sequence="100"
>
<send>target_id=GetAliasInfo("kk", 101)
Note(target_id)
g_pfm()</send>
</alias>
<alias
match="mp3"
enabled="y"
send_to="12"
sequence="100"
>
<send>EnableTriggerGroup("mp3", true)</send>
</alias>
<alias
match="nts"
enabled="y"
send_to="12"
sequence="100"
>
<send>cmdSender:Add("#t+ nt_ask;ctask")</send>
</alias>
<alias
match="pfm"
enabled="y"
send_to="12"
sequence="100"
>
<send>g_pfm()</send>
</alias>
<alias
match="qq"
enabled="y"
send_to="12"
sequence="100"
>
<send>nt_quan()</send>
</alias>
<alias
match="setpfm"
enabled="y"
send_to="12"
sequence="100"
>
<send>g_pfm=shushan_sexpfm</send>
</alias>
<alias
match="smpfm"
enabled="y"
sequence="100"
>
<send>special power
special hatred
special defense
yj
yq
jifa sword canxin-jian
perform xiangsi
jifa sword mindsword
cast jiushen
cast jianshen
ss</send>
</alias>
<alias
script="mp_powerup"
match="spe"
enabled="y"
sequence="100"
>
</alias>
<alias
match="start"
enabled="y"
send_to="12"
sequence="100"
>
<send>cmdSender:Add("#t+ linda")
autorun=true
blocked=0</send>
</alias>
<alias
match="stop"
enabled="y"
send_to="12"
sequence="100"
>
<send>autorun=false
EnableTimer("hbpfm",false)
EnableTimer("pfm",false)
cmdSender:Add("#t- linda")</send>
</alias>
<alias
name="test"
match="test (.*)"
enabled="y"
group="test"
regexp="y"
send_to="12"
sequence="100"
>
<send>renwu="NT"
autorun=true
guai_place=GetAliasInfo("test", 101)
guai_name="黄金"
guai_id="gold"
place_id()
go_place()</send>
</alias>
<alias
match="tt"
enabled="y"
send_to="12"
sequence="100"
>
<send>blocked=4</send>
</alias>
<alias
match="xmp3"
enabled="y"
send_to="12"
sequence="100"
>
<send>EnableTriggerGroup("mp3", false)</send>
</alias>
</aliases>



<timers
muclient_version="4.40"
world_file_version="15"
date_saved="2010-07-07 14:47:54"
>
<timer name="checkidle" script="CheckValid" enabled="y" second="15.00" offset_second="0.00" group="checkidle" >

</timer>
<timer name="pfm" script="pfm" second="0.50" offset_second="0.00" group="pfm" >

</timer>
<timer name="hbpfm" script="hbpfm" second="0.50" offset_second="0.00" group="hbpfm" >

</timer>
<timer name="reconnect" script="checkconnect" enabled="y" second="15.00" offset_second="0.00" group="reconnect" active_closed="y" >

</timer>
<timer name="nt_pfm" script="nt_pfm" second="0.50" offset_second="0.00" group="nt_pfm" >

</timer>
<timer name="cure" script="OnCureTimer" second="3.00" offset_second="0.00" group="cure" >

</timer>
<timer name="refresh" enabled="y" second="30.00" offset_second="0.00" send_to="12"
group="refresh" >
<send>can_nt=true
can_mp=true
can_hb=true
can_li=true
can_kf=true
can_tf=true
can_yuan=true
can_pj=true</send>

</timer>
<timer name="xukong" script="mp_busy" second="4.00" offset_second="0.00" >

</timer>
</timers>



<macros
muclient_version="4.40"
world_file_version="15"
date_saved="2010-07-07 14:47:54"
>

<macro name="up" type="send_now" >
<send>up</send>

</macro>

<macro name="down" type="send_now" >
<send>down</send>

</macro>

<macro name="north" type="send_now" >
<send>north</send>

</macro>

<macro name="south" type="send_now" >
<send>south</send>

</macro>

<macro name="east" type="send_now" >
<send>east</send>

</macro>

<macro name="west" type="send_now" >
<send>west</send>

</macro>

<macro name="examine" type="replace" >
<send>examine </send>

</macro>

<macro name="look" type="replace" >
<send>look </send>

</macro>

<macro name="page" type="replace" >
<send>page </send>

</macro>

<macro name="say" type="replace" >
<send>say </send>

</macro>

<macro name="whisper" type="replace" >
<send>whisper </send>

</macro>

<macro name="doing" type="send_now" >
<send>DOING</send>

</macro>

<macro name="who" type="send_now" >
<send>WHO</send>

</macro>

<macro name="drop" type="replace" >
<send>drop </send>

</macro>

<macro name="take" type="replace" >
<send>take </send>

</macro>

<macro name="logout" type="send_now" >
<send>LOGOUT</send>

</macro>

<macro name="quit" type="send_now" >
<send>QUIT</send>

</macro>
</macros>



<variables
muclient_version="4.40"
world_file_version="15"
date_saved="2010-07-07 14:47:54"
>
<variable name="buyyaoid">amei</variable>
<variable name="dannum">50</variable>
<variable name="dohb">no</variable>
<variable name="dont">no</variable>
<variable name="dopj">no</variable>
<variable name="flower_id"></variable>
<variable name="giveid">upup</variable>
<variable name="giveidname">天天向上</variable>
<variable name="goldnum">120</variable>
<variable name="mymp">南海普陀山</variable>
<variable name="racespe">special void</variable>
<variable name="speskill">rune</variable>
<variable name="superperform">zsperform2</variable>
<variable name="yaodianid"></variable>
<variable name="yaodianname"></variable>
<variable name="yaonum">50</variable>
</variables>



<colours
muclient_version="4.40"
world_file_version="15"
date_saved="2010-07-07 14:47:54"
>

<ansi>

<normal>
<colour seq="1" rgb="black" />
<colour seq="2" rgb="maroon" />
<colour seq="3" rgb="green" />
<colour seq="4" rgb="olive" />
<colour seq="5" rgb="navy" />
<colour seq="6" rgb="purple" />
<colour seq="7" rgb="teal" />
<colour seq="8" rgb="white" />

</normal>

<bold>
<colour seq="1" rgb="gray" />
<colour seq="2" rgb="#FF1919" />
<colour seq="3" rgb="#19FF19" />
<colour seq="4" rgb="#FFFF19" />
<colour seq="5" rgb="#1919FF" />
<colour seq="6" rgb="#FF19FF" />
<colour seq="7" rgb="#19FFFF" />
<colour seq="8" rgb="gainsboro" />

</bold>

</ansi>

<custom>
<colour seq="1" name="Custom1" text="#FF8080" back="black" />
<colour seq="2" name="Custom2" text="#FFFF80" back="black" />
<colour seq="3" name="Custom3" text="#80FF80" back="black" />
<colour seq="4" name="Custom4" text="#80FFFF" back="black" />
<colour seq="5" name="Custom5" text="#0080FF" back="black" />
<colour seq="6" name="Custom6" text="#FF80C0" back="black" />
<colour seq="7" name="Custom7" text="red" back="black" />
<colour seq="8" name="Custom8" text="#0080C0" back="black" />
<colour seq="9" name="Custom9" text="magenta" back="black" />
<colour seq="10" name="Custom10" text="#804040" back="black" />
<colour seq="11" name="Custom11" text="#FF8040" back="black" />
<colour seq="12" name="Custom12" text="teal" back="black" />
<colour seq="13" name="Custom13" text="#004080" back="black" />
<colour seq="14" name="Custom14" text="#FF0080" back="black" />
<colour seq="15" name="Custom15" text="green" back="black" />
<colour seq="16" name="Custom16" text="blue" back="black" />

</custom>
</colours>



<keypad
muclient_version="4.40"
world_file_version="15"
date_saved="2010-07-07 14:47:54"
>

<key name="0" >
<send>look</send>
</key>

<key name="1" >
<send>sw</send>
</key>

<key name="2" >
<send>south</send>
</key>

<key name="3" >
<send>se</send>
</key>

<key name="4" >
<send>west</send>
</key>

<key name="5" >
<send>WHO</send>
</key>

<key name="6" >
<send>east</send>
</key>

<key name="7" >
<send>nw</send>
</key>

<key name="8" >
<send>north</send>
</key>

<key name="9" >
<send>ne</send>
</key>

<key name="." >
<send>hide</send>
</key>

<key name="/" >
<send>inventory</send>
</key>

<key name="*" >
<send>idle</send>
</key>

<key name="-" >
<send>up</send>
</key>

<key name="+" >
<send>down</send>
</key>

<key name="Ctrl+0" >
</key>

<key name="Ctrl+1" >
</key>

<key name="Ctrl+2" >
</key>

<key name="Ctrl+3" >
</key>

<key name="Ctrl+4" >
</key>

<key name="Ctrl+5" >
</key>

<key name="Ctrl+6" >
</key>

<key name="Ctrl+7" >
</key>

<key name="Ctrl+8" >
</key>

<key name="Ctrl+9" >
</key>

<key name="Ctrl+." >
</key>

<key name="Ctrl+/" >
</key>

<key name="Ctrl+*" >
</key>

<key name="Ctrl+-" >
</key>

<key name="Ctrl++" >
</key>
</keypad>



<printing
muclient_version="4.40"
world_file_version="15"
date_saved="2010-07-07 14:47:54"
>

<ansi>

<normal>

</normal>

<bold>
<style seq="1" bold="y" />
<style seq="2" bold="y" />
<style seq="3" bold="y" />
<style seq="4" bold="y" />
<style seq="5" bold="y" />
<style seq="6" bold="y" />
<style seq="7" bold="y" />
<style seq="8" bold="y" />

</bold>

</ansi>
</printing>
</muclient>

wormsking · 2011-09-12

由于每帖限制字数
上面就是MCL 涉及基本变量触发等基本配置的.mcl文件。
后面还有 3个.lua文件的内容慢慢贴。。。。诡异的地方

wormsking · 2011-09-12

event_v2.lua文件

-- handle "event1"
--Listener.new():Register(Event.new("event1"), EventHandler1.new())
--EventHander1 = class(Callback)
--function EventHander1:Do(event, )
-- do something
-- cmdSender:Add("cmd1;#3 cmd2;@2;cmd3") -- #3 means repeat 3 times, @2 means delay 2 seconds
--end

-- handle "event2" five times
--Listener.new():Register(Event.new("event2, 0, 5"), EventHandler2.new())
--EventHander2 = class(Callback)
--function EventHander2:Do(event, )
-- -- do something
-- cmdSender:Add({"cmd4", "@3", "#2 cmd5"}) -- accept commands in a table
--end

-- handle "event3" twice within 10 seconds. if it is not triggered twice within 10 seconds, a timeout event is sent.
--Listener.new():Register(Event.new("event3, 10, 2"), EventHandler3.new())
--EventHander3 = class(Callback)
--function EventHander3:Do(event, )
-- -- do something
-- if (event.isTimeout) then
-- cmdSender:Add("cmd6")
-- else
-- cmdSender:Add({"cmd7", "cmd8"})
-- end
--end

---------------------------------------------------------
-- OO, implement class module
---------------------------------------------------------

pre_kk = false

local _class = {}

function class(super)
local class_type = {}
class_type.ctor = false
class_type.super = super
class_type.new =
function(...)
local obj = {}
do
local create
create =
function(c, ...)
if c.super then
create(c.super, ...)
end
if c.ctor then
c.ctor(obj, ...)
end
end
create(class_type, ...)
end
setmetatable(obj, { __index = _class[class_type] })
return obj
end
local vtbl = {}
_class[class_type] = vtbl

setmetatable(class_type, { __newindex =
function(t, k, v)
vtbl[k] = v
end
})

if super then
setmetatable(vtbl, { __index =
function(t,k)
local ret = _class[super][k]
vtbl[k] = ret
return ret
end
})
end

return class_type
end

---------------------------------------------------------
-- event
--- type: type of an event
--- timeout: in a particular time(in seconds) didn't receive the event will fire a timeout event
--- times: the event will be triggered how many times, then will be self removed
---------------------------------------------------------

Event = class()

function Event:ctor(type, timeout, times)
self.type = type
if (timeout == nil and times == nil) then
-- if both timeout and times are not set, then can be triggered any times (set times to zero)
self.timeout = 0
self.times = 0
elseif (timeout ~= nil and times == nil) then
-- if timeout is set, times is not set, then can be trigger only once
self.timeout = timeout
self.times = 1
else
-- if both timeout and times are set, then can be trigger any times within timeout
self.timeout = timeout
self.times = times
end
self.isTimeout = false
self.triggered = 0
end

function Event:Reset()
self.isTimeout = false
self.triggered = 0
end
---------------------------------------------------------
-- callback: callback function when receved an event
---------------------------------------------------------

Callback = class()

function Callback:ctor(insideFunc)
self.func = insideFunc
end

function Callback:Invoke(event, ...)
-- logging
helper:Print("Event:", event.type, " Timeout:", event.isTimeout, " Triggered:", event.triggered)
-- call handler
self:Do(event, ...)
end

function Callback:Do(event, ...)
helper:Print("Do Noting")
end
---------------------------------------------------------
-- listener
---------------------------------------------------------

Listener = class()

function Listener:ctor()
self.id = CreateGUID()
end

function Listener:Register(event, callback)
assert(event.type ~= nil, "event type is nil")
self.event = event
self.callback = callback
-- create timer if has timeout
if (event.timeout ~= 0) then -- create timer using type as timer name
helper:AddTimer(self.event.type, self.event.timeout)
end
-- add self in listener list
dispatcher:AddListener(self)
end

function Listener:Remove()
assert(self.event ~= nil, "have to register event then remove it")
-- if has timer and the timer is not timeout, delete it
if (self.event.timeout ~= 0 and not self.event.isTimeout) then
helper:RemoveTimer(self.event.type)
end
-- remove self in listener list
dispatcher:RemoveListener(self)
end

function Listener:OnEvent(...)
-- add triggered times
self.event.triggered = self.event.triggered + 1
-- check if reach triggered times
if (self.event.times ~= 0 and self.event.triggered == self.event.times) then
self:Remove()
end
-- call back
self.callback:Invoke(self.event, ...)
end

function Listener:OnTimeout()
-- set isTimeout and call back
self.event.isTimeout = true
-- delete listener
self:Remove()
-- call back
self.callback:Invoke(self.event)
end
---------------------------------------------------------
-- event dispatcher
---------------------------------------------------------

EventDispatcher = class()

function EventDispatcher:ctor()
self.listeners = {}
end

function EventDispatcher:AddListener(listener)
self.listeners[listener.id] = listener
end

function EventDispatcher:RemoveListener(listener)
self.listeners[listener.id] = nil
end

function EventDispatcher:IsListening(listener)
return (self.listeners[listener.id] ~= nil)
end

function EventDispatcher:Match(eventType)
local matchs = {}
for k, v in pairs (self.listeners) do
if (v.event.type == eventType) then
table.insert(matchs, v)
end
end
return matchs
end

function EventDispatcher:SendEvent(eventType, ...)
local matchs = self:Match(eventType)
if (#matchs ~= 0) then
for k, v in pairs (matchs) do
v:OnEvent(...)
end
end
end

function EventDispatcher:SendTimeout(timerName)
local matchs = self:Match(timerName)
if (#matchs ~= 0) then
for k, v in pairs (matchs) do
v:OnTimeout()
end
end
end

-- only one instance
dispatcher = EventDispatcher.new()
---------------------------------------------------------
-- Helper
---------------------------------------------------------

Helper = class()

function Helper:ctor()
self.isPrint = false
self.cmds = {}
end

function Helper:Print(...)
if self.isPrint then
Note(...)
end
end

function Helper:AddTimer(name, interval)
local hours = math.floor(interval / 3600)
interval = interval - (hours * 3600)
local minutes = math.floor(interval / 60)
local seconds = interval - (minutes * 60)
local status = AddTimer (name, hours, minutes, seconds, "dispatcher:SendTimeout(\"" .. name .. "\")", timer_flag.OneShot + timer_flag.Temporary + timer_flag.Replace, "")
assert(status == error_code.eOK, "fail to create timer:" .. name)
SetTimerOption(name, "send_to", 12)
EnableTimer(name, true)
ResetTimer(name)
end

function Helper:ResetTimer(name, interval)
assert(IsTimer(name), "timer doesn't exist")
EnableTimer(name, false)
local hours = math.floor(interval / 3600)
interval = interval - (hours * 3600)
local minutes = math.floor(interval / 60)
local seconds = interval - (minutes * 60)
SetTimerOption(name, "hour", hours)
SetTimerOption(name, "minute", minutes)
SetTimerOption(name, "second", seconds)
EnableTimer(name, true)
ResetTimer(name)
end

function Helper:RemoveTimer(name)
EnableTimer(name, false)
DeleteTimer(name)
end

-- only one instance
helper = Helper.new()
---------------------------------------------------------
-- Command
--- Repeat: #4 xx (repeat 4 times for command xx)
--- Delay: @3 (delay 3 seconds)
---------------------------------------------------------

Command = class()

function Command:ctor()
self.cmds = {}
self.isRunning = false
self.thread = nil
self.count = 0
self.nowait = false
self.time = os.time()
end

function Command:ToTable(cmds)
assert(type(cmds) == "string", "commands must be string type")
local retVal = {}
for k, v in pairs(utils.split(cmds, ";")) do
if (string.sub(v, 1, 1) == "#") then -- convert repeat command
local sb, se = string.find(v, "%s+")
assert(sb ~= nil and se ~= nil, "wrong repeat command format")
local scc = string.sub(v, 2, sb -1)
if scc == "t+" or scc == "T+" or scc == "T-" or scc == "t-" or scc == "w+" or scc == "w-" then
retVal[#retVal + 1] = v
else
local times = tonumber(string.sub(v, 2, sb - 1))
local cmd = string.sub(v, se + 1)
for i = 1, times, 1 do
retVal[#retVal + 1] = cmd
end
end
else
retVal[#retVal + 1] = v
end
end
return retVal
end

function Command:Add(cmds)
if (type(cmds) == "string") then
cmds = self:ToTable(cmds)
end
assert(type(cmds) == "table", "commands must be string or table type")
-- add cmds
for k, v in pairs (cmds) do
self.cmds[#self.cmds + 1] = v
end
-- wakeup to process
self:Wakeup()
end

function Command:Insert(cmds)
if (type(cmds) == "string") then
cmds = self:ToTable(cmds)
end
assert(type(cmds) == "table", "commands must be string or table type")
-- insert cmds
for k, v in pairs (cmds) do
--self.cmds[#self.cmds + 1] = v
table.insert(self.cmds, 1, v)
end
-- wakeup to process
self:Wakeup()
end

function Command:Clear()
self.cmds = {}
self.nowait = false
Note("cmdSender clear...")
end

function Command:Wakeup()
if (self.thread == nil) then
cmdSender.thread = coroutine.create(cmdSender.Do)
end
if (not self.isRunning) then
local dcounts = (os.time() - self.time) * 25
self.count = self.count - dcounts
if self.count < 0 then
self.count = 0
end
coroutine.resume(self.thread)
end
end

function Command:Len()
return #self.cmds
end

function Command:Do()
while true do
local cmd = nil
if cmdSender.nowait == false and cmdSender.count > 10 then
Note("wait 0.3 second...")
cmdSender.count = 0
DoAfterSpecial(0.3, "coroutine.resume(cmdSender.thread)", 12)
coroutine.yield()
else
if (#cmdSender.cmds ~= 0) then
cmd = cmdSender.cmds[1] -- pick cmd in queue
table.remove (cmdSender.cmds, 1) -- remove cmd in queue
end

if (cmd ~= nil) then
cmdSender.isRunning = true

if (string.sub(cmd, 1, 1) == "@") then
local interval = tonumber(string.sub(cmd, 2))
if (interval > 0) then
cmdSender.count = cmdSender.count - interval
if cmdSender.count < 0 then
cmdSender.count = 0
end
interval=interval/10
helper:Print("delay:", interval)
Note("等待"..interval.."秒...")
DoAfterSpecial(interval, "coroutine.resume(cmdSender.thread)", 12)
pre_kk = false
coroutine.yield()
end
else
if (string.sub(cmd, 1, 1) == "#") then -- convert repeat command
if string.sub(cmd, 2, 2) == "w" then
if string.sub(cmd, 3, 3) == "+" then
cmdSender.nowait = true
else
if string.sub(cmd, 3, 3) == "-" then
cmdSender.nowait = false
else
cmdSender:Send(cmd)
end
end
else
local sb, se = string.find(cmd, "%s+")
assert(sb ~= nil and se ~= nil, "wrong repeat command format")
local scc = string.sub(cmd, 2, sb -1)
if scc == "t+" or scc == "T+" then
local group = string.sub(cmd, se + 1)
Note("Enable trigger Group "..group);
EnableTriggerGroup(group, true)
else
if scc == "t-" or scc == "T-" then
local group = string.sub(cmd, se + 1)
EnableTriggerGroup(group, false)
Note("Disable trigger Group "..group);
else
cmdSender:Send(cmd)
end
end
end
else
if (string.sub(cmd, 1, 1) == '{') then
Note("no waiting...")
cmdSender.nowait = true
else
if (string.sub(cmd, 1, 1) == '}') then
cmdSender.nowait = false
Note("stop no waiting...")
else
cmdSender:Send(cmd)
end
end
end
end
else
cmdSender.isRunning = false
--if cmdSender.count > 0 then
-- cmdSender.count = cmdSender.count - 1
--end
cmdSender.time = os.time()
coroutine.yield()
end

end
end
end

function Command:Send(cmd)
helper:Print("cmd:", cmd)
SendImmediate(cmd)
self.count = self.count + 1
end

cmdSender = Command.new()

wormsking · 2011-09-12

global.lua文件

require "wait"
require "tprint"
-- ================================================
-- 公共函数部分
-----------------------------------------------------------------------------------------------------------------
-- 创建一个临时的一次性定时器
function create_timer( t_name, t_time, t_com, t_function )
local hours, minutes, seconds = my_convert_seconds ( math.floor( t_time ) )
local flag = AddTimer (
t_name,
hours,
minutes,
seconds,
t_com,
timer_flag.Enabled
+ timer_flag.OneShot
--+ timer_flag.TimerSpeedWalk
+ timer_flag.Replace
+ timer_flag.Temporary,
t_function
)
if flag > 0 then
Note("--[建立一次性定时器" .. t_name .. "失败 " .. "错误号：" .. flag)
else
Note("--[建立一次性定时器" .. t_name .. "成功")
end
end

-----------------------------------------------------------------------------------------------------------------
-- 创建一个临时的续性定定时器
function create_timer_online( t_name, t_time, t_com, t_function )
local hours, minutes, seconds = my_convert_seconds ( math.floor( t_time ) )
local flag = AddTimer (
t_name,
hours,
minutes,
seconds,
t_com,
timer_flag.Enabled
--+ timer_flag.OneShot
--+ timer_flag.TimerSpeedWalk
+ timer_flag.Replace
+ timer_flag.Temporary,
t_function
)
if flag > 0 then
Note("--[建立持续性定时器" .. t_name .. "失败 " .. "错误号：" .. flag)
else
Note("--[建立持续性定时器" .. t_name .. "成功")
end
end

-- ----------------------------------------------------------
-- convert x seconds to hours, minutes, seconds (for AddTimer)
-- 将时间转换成AddTimer能用的格式
-- ----------------------------------------------------------
function my_convert_seconds (seconds)
local hours = math.floor (seconds / 3600)
seconds = seconds - (hours * 3600)
local minutes = math.floor (seconds / 60)
seconds = seconds - (minutes * 60)
return hours, minutes, seconds
end -- function convert_seconds
-----------------------------------------------------------------------------------------------------------------
-- 创建一个临时的一次性触发器
function create_trigger( t_name, t_match, t_response, t_function )
local flag = AddTrigger(
t_name,
t_match,
t_response,
trigger_flag.Enabled + trigger_flag.RegularExpression + trigger_flag.Replace + trigger_flag.Temporary + trigger_flag.OneShot + trigger_flag.KeepEvaluating,
-1,
0,
"",
t_function
)
if flag > 0 then
Note("--[建立一次性触发器" .. t_name .. "失败 " .. "错误号：" .. flag)
else
Note("--[建立一次性触发器" .. t_name .. "成功")
end
end

-----------------------------------------------------------------------------------------------------------------
-- 创建一个临时的一次性触发器
function create_trigger_online( t_name, t_match, t_response, t_function )
--if t_name ~= "" then
-- DeleteTrigger( t_name )
--end
local flag = AddTrigger(
t_name,
t_match,
t_response,
trigger_flag.Enabled + trigger_flag.RegularExpression + trigger_flag.Replace + trigger_flag.Temporary + trigger_flag.KeepEvaluating,
-1,
0,
"",
t_function
)
if flag > 0 then
Note("--[建立持续性触发器" .. t_name .. "失败 " .. "错误号：" .. flag)
else
Note("--[建立持续性触发器" .. t_name .. "成功")
end
end

wormsking · 2011-09-12

关键的xlqy.lua文件配置所有任务的触发动作
包括li mp hb pj nt tf 任务
由于内容较多估计要分N分了

require "global"
require "event_v2"

-- path
g_work_dir = "e:\\mushclient\\lua\\"

require "xlqy_map"

function on_linda_info(name, output, wildcards)
local answer = "江流儿"
cmdSender:Add("answer "..answer..";@10;i;kquest;@5;d;d;w;n;set no_teach dowhat")
end

function UpdateStatus()
local ntdo = ""
if g_renwu_nt then
ntdo = "yes"
else
ntdo = "no"
end

local ntfail = g_nt_errkill + g_nt_bekilled + g_nt_cancel

SetStatus(myid.." Hb:"..g_hb_success.."/"..g_hb_failure..",Li:"..g_li_success.."/"..g_li_failure..",Nt:"..g_nt_success.."/"..ntfail.."("..g_nt_cancel.."/"..g_nt_errkill.."/"..g_nt_bekilled..") NT:"..ntdo.." PJ:"..g_pj_killed.."/"..g_pj_cancel.." "..g_exp_gain.."/"..g_exp_permin..":"..g_exp.."/"..guai_place..":"..guai_name)
end

-- require "hb"
-- hb
filename = g_work_dir.."hb.txt"

zonepattern = ".*\/"
gfile = assert(io.open(filename,"r"));

function querydb(whowho)
who = GetTriggerInfo(whowho,101)
findpattern = GetTriggerInfo(whowho,102)
local find = false
Note(findpattern)
newpattern = string.gsub(findpattern,"■",".?.?")
Note(newpattern)
len = newpattern:len()
if len > 20 then
tmp = newpattern:sub(1,20)
newpattern = tmp
--Note("!!!too long!!!")
end

if gfile ~= nil then
Note("gfile\n")
gfile:seek("set")
repeat
t = gfile:read("*l")
if t ~= nil then
ft,ft2 = string.find(t,newpattern)
if ft ~= nil then
find = true

ft,ft2 = string.find(t,zonepattern)
if t:len() < 20 then
cmdSender:Add("tell "..who.." match="..t)
else
cmdSender:Add("tell "..who.." match="..t:sub(ft2+13,ft2+24))
end

if ft ~= nil then
cmdSender:Add("tell "..who.." where="..t:sub(ft,ft2))
else
cmdSender:Add("tell "..who.." where=unknow")
end
else
--Note(t)
end
else
end
until t == nil or find == true
end
end

-- look paper 看镖单的信息格式1
function OnHbInfo1(name, output, wildcards)
if wildcards[1] ~= "" then
HbProcess(wildcards[1])
end
end

function OnHbInfo11(name, output, wildcards)
local findpattern = wildcards[1]

if findpattern == "" then
return
end

Note(findpattern)
local find = false
local newpattern = string.gsub(findpattern,"■",".?.?")
local len = newpattern:len()
local t
if len > 20 then
local tmp = newpattern:sub(1,20)
newpattern = tmp
end

if gfile ~= nil then
gfile:seek("set")
repeat
t = gfile:read("*l")
if t ~= nil then
local ft,ft2 = string.find(t,newpattern)
if ft ~= nil then
find = true
end
else

end
until t == nil or find == true

if find == true then
cmdSender:Add("say hb "..t)
else
cmdSender:Add("@20;drop paper;set no_teach godz")
end
end
end

function OnHbInfo2(name, output, wildcards)
if wildcards[1] ~= "" then
HbProcess(wildcards[1])
end
end

-- look paper 看镖单的信息格式2
function OnHbInfo22(name, output, wildcards)
local findpattern = wildcards[1]

if findpattern == "" then
return
end
Note(findpattern)
local find = false
local newpattern = string.gsub(findpattern,"■",".?.?")
local len = newpattern:len()
local t
if len > 20 then
local tmp = newpattern:sub(1,20)
newpattern = tmp
end

if gfile ~= nil then
gfile:seek("set")
repeat
t = gfile:read("*l")
if t ~= nil then
local ft,ft2 = string.find(t,newpattern)
if ft ~= nil then
find = true
end
else
end
until t == nil or find == true

if find == true then
cmdSender:Add("say hb "..t)
else
cmdSender:Add("@20;drop paper;set no_teach godz")
end
end
end

function HbProcess(hbinfo)
g_hbpaper = hbinfo
local info1 = hbinfo
local info2 = string.gsub(info1, "■■", "■")
while info1 ~= info2 do
info1 = info2
info2 = string.gsub(info1, "■■", "■")
end
info2 = string.gsub(info2, "■", ";")
local hbinfolist = utils.split(info2, ";")

local hbinfo_counts = table.getn(hbinfolist)

local line
local finded = false
local tobreak = false

local i = hbinfo_counts
local patterns = hbinfo_counts
for i =1, hbinfo_counts do
Note(hbinfolist[i])
end
for i = 1, hbinfo_counts do
gfile:seek("set")
finded = false
repeat
local fail = false
line = gfile:read("*l")
if line then
for j = 1, patterns do
if string.find(line, hbinfolist[j]) then
--Note("find"..hbinfolist[j])
else
fail = true
break
end
end

if fail == false then
finded = true
end
end
until line == nil or finded

if finded == true then
break
end
patterns = patterns - 1
end

if finded == true then
g_hbline = line
Note("start find biao...")
Note(line)
local t1, t2 = string.find(line, "\/")

if t1 ~= nil then
Note("->"..string.sub(line, 1, t1 - 1))
g_hbmatch_times = 0

for i = 1, 10 do
DeleteTrigger("hbmatch"..i)
end

Note(line)
if patterns >= 10 then
patterns = 10
for i=1, patterns do
AddTriggerEx(
"hbmatch"..i,
".*"..string.sub(hbinfolist[i], 1, 2)..".*",
"",
trigger_flag.Enabled + trigger_flag.RegularExpression + trigger_flag.Replace + trigger_flag.Temporary + trigger_flag.KeepEvaluating ,
0,
0,
"",
"OnHbMatched",
0,
90)
end
else
local n = 0
for i=1, patterns do
n = n + 1
AddTriggerEx(
"hbmatch"..n,
".*"..string.sub(hbinfolist[i], 1, 2)..".*",
"",
trigger_flag.Enabled + trigger_flag.RegularExpression + trigger_flag.Replace + trigger_flag.Temporary + trigger_flag.KeepEvaluating ,
0,
0,
"",
"OnHbMatched",
0,
90)

end
for i=1, patterns do
if n >= 10 then
break
end

if hbinfolist[i]:len() >= 4 then
n = n + 1
AddTriggerEx(
"hbmatch"..n,
".*"..string.sub(hbinfolist[i], 3, 4)..".*",
"",
trigger_flag.Enabled + trigger_flag.RegularExpression + trigger_flag.Replace + trigger_flag.Temporary + trigger_flag.KeepEvaluating ,
0,
0,
"",
"OnHbMatched",
0,
90)
end
end

for i=1, patterns do
if n >= 10 then
break
end

if hbinfolist[i]:len() >= 6 then
n = n + 1
AddTriggerEx(
"hbmatch"..n,
".*"..string.sub(hbinfolist[i], 5, 6)..".*",
"",
trigger_flag.Enabled + trigger_flag.RegularExpression + trigger_flag.Replace + trigger_flag.Temporary + trigger_flag.KeepEvaluating ,
0,
0,
"",
"OnHbMatched",
0,
90)
end
end

for i=1, patterns do
if n >= 10 then
break
end

if hbinfolist[i]:len() >= 8 then
n = n + 1
AddTriggerEx(
"hbmatch"..n,
".*"..string.sub(hbinfolist[i], 6, 7)..".*",
"",
trigger_flag.Enabled + trigger_flag.RegularExpression + trigger_flag.Replace + trigger_flag.Temporary + trigger_flag.KeepEvaluating ,
0,
0,
"",
"OnHbMatched",
0,
90)
end
end

for i=1, patterns do
if n >= 10 then
break
end

if hbinfolist[i]:len() >= 10 then
n = n + 1
AddTriggerEx(
"hbmatch"..n,
".*"..string.sub(hbinfolist[i], 9, 10)..".*",
"",
trigger_flag.Enabled + trigger_flag.RegularExpression + trigger_flag.Replace + trigger_flag.Temporary + trigger_flag.KeepEvaluating ,
0,
0,
"",
"OnHbMatched",
0,
90)
end
end

for i=1, patterns do
if n >= 10 then
break
end

if hbinfolist[i]:len() >= 12 then
n = n + 1
AddTriggerEx(
"hbmatch"..n,
".*"..string.sub(hbinfolist[i], 11, 12)..".*",
"",
trigger_flag.Enabled + trigger_flag.RegularExpression + trigger_flag.Replace + trigger_flag.Temporary + trigger_flag.KeepEvaluating ,
0,
0,
"",
"OnHbMatched",
0,
90)
end
end
for i=1, patterns do
if n >= 10 then
break
end

if hbinfolist[i]:len() >= 14 then
n = n + 1
AddTriggerEx(
"hbmatch"..n,
".*"..string.sub(hbinfolist[i], 13, 14)..".*",
"",
trigger_flag.Enabled + trigger_flag.RegularExpression + trigger_flag.Replace + trigger_flag.Temporary + trigger_flag.KeepEvaluating ,
0,
0,
"",
"OnHbMatched",
0,
90)
end
end
for i=1, patterns do
if n >= 10 then
break
end

if hbinfolist[i]:len() >= 16 then
n = n + 1
AddTriggerEx(
"hbmatch"..n,
".*"..string.sub(hbinfolist[i], 15, 16)..".*",
"",
trigger_flag.Enabled + trigger_flag.RegularExpression + trigger_flag.Replace + trigger_flag.Temporary + trigger_flag.KeepEvaluating ,
0,
0,
"",
"OnHbMatched",
0,
90)
end
end
patterns = n
end
renwu = "护镖"
Note(g_hb_matchs)
g_hb_matchs = patterns
guai_place = string.sub(line, 1, t1 - 1)
--set_hbmatch(wildcards[2])
place_id()
go_place()
else
g_hb_matchs = 0
g_hbmatch_times = 0
Note(line)
cmdSender:Add("@20;drop paper;set no_teach godz")
end
else
g_hb_matchs = 0
Note(line)
cmdSender:Add("@20;drop paper;set no_teach godz")
end

end

wormsking · 2011-09-12

function OnHbMatched(name, output, wildcards)
if g_hbing == true then
EnableTrigger(name, false)
g_hbmatch_times = g_hbmatch_times + 1
if g_hbmatch_times >= g_hb_matchs then
if renwu == "护镖" then
g_find = 1
go_npc_sp = 0
end
end
end
end

-- look paper 看镖单的信息格式3
function OnHbInfo3(name, output, wildcards)
if wildcards[1] ~= "" then
HbProcess(wildcards[1])
end
end

function OnHbInfo33(name, output, wildcards)
local findpattern = wildcards[1] --GetTriggerInfo("hb3",101)

if findpattern == "" then
return
end
Note(findpattern)
local find = false
local newpattern = string.gsub(findpattern,"■",".?.?")
local len = newpattern:len()
local t
if len > 20 then
local tmp = newpattern:sub(1,20)
newpattern = tmp
end

if gfile ~= nil then
gfile:seek("set")
repeat
t = gfile:read("*l")
if t ~= nil then
local ft,ft2 = string.find(t,newpattern)
if ft ~= nil then
find = true
end
else
end
until t == nil or find == true

if find == true then
cmdSender:Add("say hb "..t)
else
cmdSender:Add("@20;drop paper;set no_teach godz")
end
end
end
-- find guai

-- 根据地址找到对应英文 place id
function place_id()
m_place_id = place_map[guai_place]
Note(guai_place..":"..m_place_id)
end

-- 找怪去
function go_place()
if (guai_id == "crazy") then
guai_id = "crazy pker"
end

g_in_renwu = true

cmdSender:Add("#w- ")

g_maoying_hole = false

g_penglai_climb_faint = false
guai_leave = ""
g_cha_id = ""
g_nt_bian = false

g_current_go = ""
if renwu == "护镖" then
cmdSender:Add("unset brief;unset brief_all")
else
cmdSender:Add("set brief;unset brief_all")
end

if renwu == "NT" then
cmdSender:Add("set wimpy 0;unset last_action")
else
cmdSender:Add("set wimpy 3;set last_action quit")
end

cmdSender:Add("wear all")
mp_powerup()
cmdSender:Add("#t- didian;#t+ find")
--EnableTriggerGroup("didian", false)
--EnableTriggerGroup("find", true)
set_guainame()
g_target_hp = 100
g_target_eff = 100
g_find = 0
go_func = go_map[guai_place]
go_func()
end

-- 看到目标怪了
function OnGuaiFinded(name, output, wildcards)
local temp = string.lower(wildcards[1])
if temp == guai_id then
if guai_id == "crazy pker" then
guai_id = "crazy"
end

EnableTriggerGroup("follow", true)
g_find = 1
go_npc_sp = 0
guai_leave = ""

end
end

leave_map = {
["上"] = "up",
["下"] = "down",
["外"] = "out",
["里"] = "enter",
["东北"] = "ne",
["西北"] = "nw",
["东北"] = "ne",
["东南"] = "se",
["西南"] = "sw",
["北"] = "n",
["西"] = "w",
["东"] = "e",
["南"] = "s",
["北边"] = "nu;nd",
["南边"] = "su;sd",
["东边"] = "eu;ed",
["西边"] = "wu;wd",
}

function OnGuaiLeave(name, output, wildcards)
if g_find == 1 and wildcards[1] == guai_name then
guai_leave = leave_map[wildcards[2]]
if guai_leave == nil then
guai_leave = ""
end
end
end

function OnGuaiCome(name, output, wildcards)
if g_find == 0 and wildcards[1] == guai_name then
g_find = 1
local temp = string.lower(wildcards[1])

if guai_id == "crazy pker" then
guai_id = "crazy"
end

EnableTriggerGroup("follow", true)
go_npc_sp = 0
end
end

-- 设置看到怪的触发: 怪名 (ID1 ID2)
function set_guainame()
--DeleteTrigger("guai_name")
if renwu == "叛将" then
AddTriggerEx(
"guai_name1",
"^\>*\s*"..guai_name.."走了过来",
"look",
trigger_flag.Enabled + trigger_flag.RegularExpression + trigger_flag.Replace + trigger_flag.Temporary + trigger_flag.KeepEvaluating ,
-1,
0,
"",
"",
0,
90)
AddTriggerEx(
"guai_name",
guai_name.."\$(.*)\$",
"",
trigger_flag.Enabled + trigger_flag.RegularExpression + trigger_flag.Replace + trigger_flag.Temporary + trigger_flag.KeepEvaluating ,
-1,
0,
"",
"OnGuaiFinded",
0,
90)
else
AddTriggerEx(
"guai_name",
guai_name.."\$(.*)\$",
"",
trigger_flag.Enabled + trigger_flag.RegularExpression + trigger_flag.Replace + trigger_flag.Temporary + trigger_flag.KeepEvaluating ,
-1,
0,
"",
"OnGuaiFinded",
0,
90)

end
end
-- 设置护镖地点的触发
function set_hbmatch(matchinfo)
if matchinfo:len()>20 then
t1,t2 = string.find(matchinfo,"，")
if t1 == nil or t1 > 20 then
t1,t2 = string.find(matchinfo,"。")
if t1 == nil or t1 > 20 then
t1 = 20
end
end
hbmatch=string.sub(matchinfo,1,20)
end

Note(matchinfo.."->"..hbmatch)

AddTriggerEx(
"hbmatch",
".*"..hbmatch..".*",
"",
trigger_flag.Enabled + trigger_flag.RegularExpression + trigger_flag.Replace + trigger_flag.Temporary + trigger_flag.KeepEvaluating ,
-1,
0,
"",
"hb_matched",
0,
90)
end

-- 搜寻中 --> set no_teach 搜索中|护镖
function in_search()
if renwu == "NT" then
if g_find == 1 then
xpath:Back()
else
if g_cha_id ~= "" then
if g_bianid == g_cha_id then
cmdSender:Add("cha "..g_cha_id.." 2")
else
cmdSender:Add("cha "..g_cha_id)
end
else
g_cha_id = ""
xpath:Go()
end
end
else

if g_find == 1 then
if renwu == "护镖" then
cmdSender:Add("say here")
else
xpath:Back()
end
else
if renwu == "护镖" then
for i = 1, g_hb_matchs do
EnableTrigger("hbmatch"..i, true)
end
g_hbmatch_times = 0
end
xpath:Go()
end
end
end

function OnChaNoPerson()
g_cha_id = ""
xpath:Go()
end

function OnChaInfo(name, output, wildcards)
if wildcards[1] ~= guai_name then
g_cha_id = ""
xpath:Go()
else
guaimiss = 0
g_findtime = 0
if g_bianid == g_cha_id then
cmdSender:Add("follow "..g_cha_id.." 2")
else
cmdSender:Add("follow "..g_cha_id)
end

g_find = 1
cmdSender:Add("enforce max;enchant max;wear all")
EnableTriggerGroup("find",false)
EnableTriggerGroup("follow",false)
EnableTriggerGroup("pfm", true)
EnableTriggerGroup("renwu_end",true)

--AppendToNotepad(myid.."_log", os.date("%X").."找到NT怪变了\r\n")
EnableTriggerGroup("nt_find", true)
EnableTriggerGroup("nt_fight", true)
EnableTriggerGroup("nt_qin", true)
g_nt_ob = true
g_nt_bian = true
g_ntbianid = g_cha_id
if g_bianid == g_cha_id then
cmdSender:Add("observe "..g_cha_id.." 2;y")
else
cmdSender:Add("observe "..g_cha_id..";y")
end
end
end

function OnChaNoMana()
cmdSender:Insert("eat ling zhi")
if g_bianid == g_cha_id then
cmdSender:Add("cha "..g_cha_id.." 2")
else
cmdSender:Add("cha "..g_cha_id)
end
end

nt_skip_id = "|corpose|skeleton|ring|head|amulet|shoulder|fork|mace|muqin|hammer|waist|wrists|surcoat|boots|sword|dagger|staff|spear|hands|cloth|ling|necklace|axe|sword|blade|silver|gold|coin|dax|adax|nannan|dayday|yaohuzxg|Xsx|Nobutnot|Chrome|Xdog|Chrome|Thing|Sxue|Wkwa|Wswh|Wswh|Luoxia|Fangcunr|Tiandao|Shushanr|Artest|Fcfcfc|App|Nxyh|Skyer|lish|dagonga|wqh|jiajiab|bandc|kong|minpig|damage|baggio|pini|nannan|shory|hyi|xiaohutu|dhxy|oyeah|"

function OnChaId(name, output, wildcards)
local cha_id = string.lower(wildcards[2])

if string.find(nt_skip_id,"|"..cha_id.."|") then
return
else
cmdSender:Add("#t- ntcha")
g_cha_id = cha_id
end
end

-- 打坐完了看hp
function Hp()
EnableTriggerGroup("dz", true)
cmdSender:Add("hp")
end

-- mp

g_AfterFly=""
g_AfterCastEsc=""
g_CastEscAction="get 1 paper seal from magic box"
g_FlyTo=""

-- 门派的特技
function mp_powerup()
if yy_fire == true and g_buyyao_self == true and zhuanshi ~= "一" and zhuanshi ~= "二" then
cmdSender:Add("zscast2")
end
local speskill = GetVariable("speskill")
for spei = 1,g_specounts do
cmdSender:Add("special "..g_spelist[spei])
cmdSender:Add("special lucky "..speskill)
spei = spei+1
end

--if renwu == "NT" and g_nt_type == "擒" then
-- cmdSender:Add("special health")
--end

if mp == "将军府" then
cmdSender:Add("exert haste")
cmdSender:Add("exert jingxin")
return
end
if mp == "南海普陀山" then
cmdSender:Add("cast lianhua")
return
end
if mp == "东海龙宫" then
cmdSender:Add("exert shield")
cmdSender:Add("exert zhenshen")
return
end
if mp == "陷空山无底洞" then
cmdSender:Add("exert blood")
return
end
if mp == "幻世勇者" then
cmdSender:Add("exert armor;cast tongyi")
cmdSender:Add("remove shield;wield axe;wield all;wear all;bs;unwield axe;unwield dagger")
return
end
if mp == "幻世魔导" then
cmdSender:Add("cast protect")
return
end
if mp == "方寸山三星洞" then
cmdSender:Add("exert shenjia")
return
end
if mp == "蜀山剑派" then
cmdSender:Add("exert zhanqi")
cmdSender:Add("exert mirrow")
return
end

if mp == "神农谷" then
cmdSender:Add("perform wuqin")
return
end

if mp == "五庄观" then
cmdSender:Add("exert powerup;exert resist")
return
end

if mp == "月宫" then
cmdSender:Add("remove shield;wield sword;wield all;wear all;perform wuxue;unwield sword;unwield dagger")
return
end

end

-- 收集可以使用的特技
function OnSpecialSkills(name, output, wildcards)
g_specounts = g_specounts + 1
g_spelist[g_specounts] = wildcards[2]
end

-- 收集socre信息
function OnScore(name, output, wildcards)
sex = wildcards[1]
mp = wildcards[2]
SetVariable ("mymp", (wildcards[2]))
if mp == "幻世勇者" then
g_pfm = might_pfm
g_CastEscAction = "#t+ CastEsc;cast fengshi;set no_teach cast"
cmdSender:Add("alias fs cast fengshi")
cmdSender:Add("alias ec exert recover")
cmdSender:Add("alias ef exert refresh")
cmdSender:Add("alias eh exert heal")
cmdSender:Add("alias amp ask lei about 灭妖")
cmdSender:Add("alias wi wield sword")
cmdSender:Add("alias uw unwield sword")
go_master = "#11 n;e;amp"
mp_fly = "lake"
mp_after_cast = "s;ef"
master_go = "w;s"
g_nt_qin = might_nt_qin
g_nt_quan = might_nt_quan
g_nt_fight = might_nt_fight
g_nt_kill = might_nt_kill

g_unwield_all = "unwield sword;unwield dagger;unwield axe"

g_mp_zheng = true
return
end
if mp == "幻世魔导" then
g_pfm = magic_pfm
g_CastEscAction = "#t+ CastEsc;cast move;set no_teach cast"
cmdSender:Add("alias fs cast move")
cmdSender:Add("alias ec exert recover")
cmdSender:Add("alias ef exert refresh")
cmdSender:Add("alias eh exert heal")
cmdSender:Add("alias amp ask keluodi about 神谕")
cmdSender:Add("alias wi wield staff")
cmdSender:Add("alias uw unwield staff")
go_master = "s;sw;wu;amp"
mp_fly = "lake"
mp_after_cast = "ed;ne;n;ef"
master_go = "ed;ne;n"
g_nt_qin = magic_nt_qin
g_nt_quan = magic_nt_quan
g_nt_fight = magic_nt_fight
g_nt_kill = magic_nt_kill

g_unwield_all = "unwield staff;unwield dagger"

g_mp_zheng = true
return
end
if mp == "东海龙宫" then
g_pfm = longgong_pfm
g_CastEscAction = "#t+ CastEsc;cast shuidun;set no_teach cast"
cmdSender:Add("alias fs cast shuidun")
cmdSender:Add("alias ec exert recover")
cmdSender:Add("alias ef exert refresh")
cmdSender:Add("alias eh exert heal")
cmdSender:Add("alias amp ask ao guang about 灭妖")
cmdSender:Add("alias wi wield fork")
cmdSender:Add("alias uw unwield fork")
go_master = "#16 s;#3 e;dive;@50;#2 e;ne;#2 e;eu;#2 e;#2 eu;amp"
mp_fly = "changan"
mp_after_cast = "se;sd;s;ne;sd;#3 s;u;#2 n;#2 wd;#2 w;wd;#2 se;@40;ef"
master_go = "wd;wd;w;w;wd;se;se"
g_nt_qin = longgong_nt_qin
g_nt_quan = longgong_nt_quan
g_nt_fight = longgong_nt_fight
g_nt_kill = longgong_nt_kill

g_unwield_all = "unwield fork;unwield dagger"

g_mp_zheng = true
return
end
if mp == "将军府" then
g_pfm = jjf_pfm
g_CastEscAction = "#t+ CastEsc;get 1 paper seal from magic box"
cmdSender:Add("alias fs get 1 paper seal from magic box")
cmdSender:Add("alias ec exert recover")
cmdSender:Add("alias ef exert refresh")
cmdSender:Add("alias eh exert heal")
cmdSender:Add("alias amp ask qin qiong about 除魔")
cmdSender:Add("alias wi wield spear")
cmdSender:Add("alias uw unwield spear")
go_master = "#2 e;#4 s;amp"
mp_fly = "changan"
mp_after_cast = "nw;nw;ne;n;n"
master_go = "n"
--g_renwu_tf = false
g_nt_qin = jjf_nt_qin
g_nt_quan = jjf_nt_quan
g_nt_fight = jjf_nt_fight
g_nt_kill = jjf_nt_kill
g_unwield_all = "unwield mace;unwield axe;unwield spear;unwield dagger"

g_mp_zheng = true
return
end
if mp == "蜀山剑派" then
g_CastEscAction = "#t+ CastEsc;cast tuoqiao;set no_teach cast"
cmdSender:Add("alias fs cast tuoqiao")
cmdSender:Add("alias ec exert recover")
cmdSender:Add("alias ef exert refresh")
cmdSender:Add("alias eh exert ningshen")
cmdSender:Add("alias amp ask jian sheng about 灭妖")
cmdSender:Add("alias wi wield sword")
cmdSender:Add("alias uw unwield sword")
go_master = "n;#2 nu;#2 n;amp"
mp_fly = "shushan"
mp_after_cast = "s;ef"

g_nt_qin = shushan_nt_qin
g_nt_quan = shushan_nt_quan
g_nt_fight = shushan_nt_fight
g_nt_kill = shushan_nt_kill

master_go = "s"
g_unwield_all = "unwield sword;unwield dagger;unwield axe;unwield whip"

g_mp_zheng = true
if sex == "女性" then
g_pfm = shushan_sexpfm
else
g_pfm = shushan_pfm
end
return
end
if mp == "方寸山三星洞" then
g_CastEscAction = "#t+ CastEsc;cast yundun;set no_teach cast"
cmdSender:Add("alias fs cast yundun")
cmdSender:Add("alias ec exert recover")
cmdSender:Add("alias ef exert refresh")
cmdSender:Add("alias eh exert heal")
cmdSender:Add("alias amp ask master yunyang about 灭妖")
cmdSender:Add("alias wi wield stick")
cmdSender:Add("alias uw unwield stick")
go_master = "#2 n;nu;amp"
mp_fly = "lingtai"
master_go = "sd"

g_pfm = fc_pfm
g_nt_qin = fc_nt_qin
g_nt_quan = fc_nt_quan
g_nt_fight = fc_nt_fight
g_nt_kill = fc_nt_kill

mp_after_cast = "sd;ef"

g_unwield_all = "unwield sword;unwield dagger;unwield stick"

g_mp_zheng = true
return
end

if mp == "五庄观" then
g_CastEscAction = "#t+ CastEsc;fs;set no_teach cast"
cmdSender:Add("alias fs cast wuxing on "..myid)
cmdSender:Add("alias ec exert recover")
cmdSender:Add("alias ef exert refresh")
cmdSender:Add("alias eh exert heal")
cmdSender:Add("alias amp ask zhenyuan daxian about 灭妖")
cmdSender:Add("alias wi wield sword")
cmdSender:Add("alias uw unwield sword")
go_master = "#2 nu;n;nu;enter;w;n;eu;u;amp"
mp_fly = "wuzhuang"
master_go = "l"

g_pfm = wzg_pfm
g_nt_qin = wzg_nt_qin
g_nt_quan = wzg_nt_quan
g_nt_fight = wzg_nt_fight
g_nt_kill = wzg_nt_kill

mp_after_cast = "ec;ef"

g_unwield_all = "unwield sword;unwield dagger;unwield xiao;unwield blade"

g_mp_zheng = true
return
end

if mp == "大雪山" then
g_CastEscAction = "#t+ CastEsc;fs;set no_teach cast"
cmdSender:Add("alias fs cast escape")
cmdSender:Add("alias ec exert recover")
cmdSender:Add("alias ef exert refresh")
cmdSender:Add("alias eh exert heal")
cmdSender:Add("alias amp ask baixiang zunzhe about 索命")
cmdSender:Add("alias wi wield sword")
cmdSender:Add("alias uw unwield sword")
go_master = "#3 nu;n;jump shi bi;n;e;amp"
mp_fly = "xueshan"
master_go = "l"

g_unwield_all = "unwield sword;unwield ling;unwield dagger;unwield axe"

g_mp_zheng = false

return
end

if mp == "神农谷" then
g_CastEscAction = "#t+ CastEsc;fs;set no_teach cast"
cmdSender:Add("alias fs cast yaowu")
cmdSender:Add("alias ec exert recover")
cmdSender:Add("alias ef exert refresh")
cmdSender:Add("alias eh exert heal")
cmdSender:Add("alias amp ask wuyuan daozhang about 济世")
cmdSender:Add("alias wi wield sword")
cmdSender:Add("alias uw unwield sword")
go_master = "#2 e;n;amp"
mp_fly = "changan"
master_go = "s"

g_pfm = sng_pfm

mp_after_cast = "ec;ef"

g_unwield_all = "unwield hammer;unwield ling;unwield dagger;unwield rake"

g_mp_zheng = true

--g_renwu_mp = false
return
end

if mp == "陷空山无底洞" then
g_CastEscAction = "#t+ CastEsc;fs;set no_teach cast"
cmdSender:Add("alias fs cast tudun")
cmdSender:Add("alias ec exert recover")
cmdSender:Add("alias ef exert refresh")
cmdSender:Add("alias eh exert heal")
cmdSender:Add("alias amp ask yu shu about 斗佛")
cmdSender:Add("alias wi wield sword")
cmdSender:Add("alias uw unwield sword")
go_master = "nw;wu;sd;sw;w;s;s;push statue;sw;su;su;u;wu;dive dong;#5 n;amp"
mp_fly = "wudidong"
mp_after_cast = "ef;e;e;w;#5 s;up"
master_go = "ef;#5 s;up"

g_pfm = wdd_pfm
g_nt_qin = wdd_nt_qin
g_nt_quan = wdd_nt_quan
g_nt_fight = wdd_nt_fight
g_nt_kill = wdd_nt_kill

g_unwield_all = "unwield blade;unwield sword;unwield dagger"

g_mp_zheng = false

--g_renwu_mp = false
return
end

if mp == "南海普陀山" then
g_CastEscAction = "#t+ CastEsc;fs;set no_teach cast"
cmdSender:Add("alias fs cast jile")
cmdSender:Add("alias ec exert recover")
cmdSender:Add("alias ef exert refresh")
cmdSender:Add("alias eh exert heal")
cmdSender:Add("alias amp ask huian xingzhe about 降妖")
cmdSender:Add("alias wi wield sword")
cmdSender:Add("alias uw unwield sword")
go_master = "n;n;amp"
mp_fly = "putuo"
master_go = "#2 s"

g_pfm = putuo_pfm
g_nt_qin = putuo_nt_qin
g_nt_quan = putuo_nt_quan
g_nt_fight = putuo_nt_fight
g_nt_kill = putuo_nt_kill

mp_after_cast = "ec;ef;out;n;w;n;w;s;e"

g_unwield_all = "unwield hammer;unwield staff;unwield dagger"

g_mp_zheng = true

--g_renwu_mp = false
return
end

if mp == "月宫" then
g_CastEscAction = "#t+ CastEsc;fs;set no_teach cast"
cmdSender:Add("alias fs cast huadun")
cmdSender:Add("alias ec exert recover")
cmdSender:Add("alias ef exert refresh")
cmdSender:Add("alias eh exert heal")
cmdSender:Add("alias amp ask xi wangmu about 灭妖")
cmdSender:Add("alias wi wield sword")
cmdSender:Add("alias uw unwield sword")
go_master = "climb tree;u;u;enter;n;n;n;w;n;w;amp"
mp_fly = "moon"
master_go = "#2 e"

g_pfm = moon_pfm
g_nt_qin = moon_nt_qin
g_nt_quan = moon_nt_quan
g_nt_fight = moon_nt_fight
g_nt_kill = moon_nt_kill

mp_after_cast = "ec;ef;sd;#3 e;n;e"

g_unwield_all = "unwield whip;unwield blade;unwield dagger;unwield sword"

g_mp_zheng = true

--g_renwu_mp = false
return
end

if mp == "盘丝洞" then
g_CastEscAction = "#t+ CastEsc;fs;set no_teach cast"
cmdSender:Add("alias fs cast ygbh")
cmdSender:Add("alias ec exert recover")
cmdSender:Add("alias ef exert refresh")
cmdSender:Add("alias eh exert heal")
cmdSender:Add("alias amp ask qingxia xianzi about 修炼")
cmdSender:Add("alias wi wield sword")
cmdSender:Add("alias uw unwield sword")
go_master = "eu;nu;#5 n;amp"
mp_fly = "stone"
master_go = "l"

g_pfm = psd_pfm
g_nt_qin = psd_nt_qin
g_nt_quan = psd_nt_quan
g_nt_fight = psd_nt_fight
g_nt_kill = psd_nt_kill
mp_after_cast = "ec;ef;#2 u;s;w;#3 s;out;#2 e"

g_unwield_all = "unwield muqin;unwield whip;unwield dagger;unwield sword"

g_mp_zheng = true

--g_renwu_mp = false
return
end

end

wormsking · 2011-09-12

-- 门派死亡激发
function mp_jifa()
local mp = GetVariable("mymp")
autorun=false
EnableTimer("pfm", false)
EnableTimer("hbpfm", false)
EnableTimer("cure", false)
EnableTimer("nt_pfm", false)
ResetTimer("reconnect")
EnableTimer("reconnect", true)
DeleteTimer("xm_pfm")
EnableTimer("xukong", false)

if mp == "将军府" then
cmdSender:Add("@50;jifa axe sanban-axe;jifa dodge yanxing-steps;jifa parry bawang-qiang;jifa spear bawang-qiang;jifa spells baguazhou;jifa force lengquan-force;jifa leadership strategy;jifa blade wuhu-blade;jifa unarmed changquan;jifa mace wusi-mace;quit")
return
end

if mp == "陷空山无底洞" then
cmdSender:Add("@50;jifa dodge kugu-blade;jifa force huntian-qigong;jifa spells dao;jifa blade kugu-blade;jifa parry kugu-blade;jifa unarmed yinfeng-zhua;jifa sword qixiu-jian;quit")
return
end

if mp == "方寸山三星洞" then
cmdSender:Add("@50;jifa spells dao;jifa dodge jindouyun;jifa unarmed puti-zhi;jifa force wuxiangforce;jifa stick qianjun-bang;jifa parry qianjun-bang;jifa sword liangyi-jian;quit")
return
end
if mp == "蜀山剑派" then
cmdSender:Add("@50;jifa sword canxin-jian;jifa unarmed hunyuan-zhang;jifa force zixia-shengong;jifa spells taoism;jifa parry mindsword;jifa dodge sevensteps;quit")
return
end

if mp == "盘丝洞" then
cmdSender:Add("@50;jifa force jiuyin-xinjing;jifa spells pansi-dafa;jifa dodge yueying-wubu;jifa parry qingxia-jian;jifa sword chixin-jian;jifa unarmed lanhua-shou;jifa music qin;jifa whip yinsuo-jinling;quit")
return
end

end

function OnLijingNotKilled()
if renwu == "李靖" then
EnableTriggerGroup("renwu_end", false)
EnableTriggerGroup("pfm", false)
EnableTimer("pfm", false)
g_findagain = true
GoDzRightnow()
end
end

function InitVar()
--大米id和名字
g_jianding = ""
local superperform = GetVariable("superperform")
local giveid = GetVariable("giveid")
local giveidname = GetVariable("giveidname")
local flower_id = GetVariable("flower_id")
local yaodianname = GetVariable("yaodianname")
local yaodianid = GetVariable("yaodianid")
local racespe = GetVariable("racespe")

g_race_spe = racespe

g_give_dami_name = giveidname
g_give_dami_id = giveid
zhuanshiperform = superperform
flower_boss = flower_id

g_yaodian_name = yaodianname
g_yaodian_id = yaodianid

--是否要自己买药
g_buyyao_self = true

yinwu_go = "ne"
g_race = "人"
--g_race_spe = "special faith"
g_pj_all_ok = false

g_tianzhu_ok = false

g_findagain = false
g_findtime = 0
idle = 0
g_qx_per = 100
g_xinshen_per = 100
g_needbian = false
g_dzing = false
g_in_renwu = false
blocked = 0
autorun = true
g_sealcounts = 0
g_sealboss = "wei"
g_find = 0
target_id = "none"

g_specounts = 0

g_spelist = {}

g_sellcounts = 0
g_givecounts = 0
g_getcounts = 0

g_getlist = {}
g_selllist = {}
g_givelist = {}
g_givelist2 = {}

hbmatch = "asdfsadfdsfdsafdsafdsaf"

givereceipt = false
guai_id = "none"

guai_name = "none"
guai_place = "none"

g_needput = true
g_needmap = true
g_needbag = false
g_needyao = true
g_needbsz = true
g_sealboss ="wei"
g_needsword = false
g_needaxe = false

g_needdz = true
g_pfm = jjf_pfm

-- mp
g_renwu_mp = true
-- li
g_renwu_li = true
-- hb

local dohb = GetVariable("dohb")
if dohb == "yes" then
g_renwu_hb = true
else
g_renwu_hb = false
end

local dopj = GetVariable("dopj")
if dopj == "yes" then
g_renwu_pj = true
else
g_renwu_pj = false
end

local dont = GetVariable("dont")
if dont == "yes" then
g_renwu_nt = true
else
g_renwu_nt = false
end

g_renwu_kf = false
g_renwu_tf = true
g_renwu_yuan = false

can_nt = true
can_mp = true
can_li = true
can_hb = true
can_pj = true
can_kf = true
can_tf = true
can_yuan = true

--枯骨洞
g_kgd_fx = ""
g_kgd_ffx = ""
g_kgdmove_counts = 0

g_random_move_flag = false
g_random_move_steps = 0

yy_fire = false
yy_water = false
yy_earth = false
yy_metal = false
yy_wood = false

kk_id = ""

g_zhuanshiPfm = ""
g_zhuanshiPfm_fight = ""

g_hb_success = 0
g_hb_failure = 0

g_li_success = 0
g_li_failure = 0

g_nt_success = 0
g_nt_cancel = 0

g_nt_notfind = 0
g_nt_errkill = 0
g_nt_bekilled = 0

g_hb_matchs = 0
g_hbmatch_times = 0

g_hbpaper = ""
g_hbline = ""
g_hbing = true

g_current_go = ""

g_nt_bianid = ""
g_nt_bianname = ""
g_nt_ob = false

g_nt_giveyao = false
g_nt_fight_who = 0

g_nt_bian = false

g_nt_qin = shushan_nt_qin
g_nt_quan = shushan_nt_quan
g_nt_fight = shushan_nt_fight
g_nt_kill = shushan_nt_kill

if g_renwu_nt then
g_yao = 300
g_dan = 100
else
g_yao = 30
g_dan = 30
end

g_checkset = 0

g_gold = 0
g_silver = 0
g_coin = 0
g_map_penglai = 0
g_map_xueshan = 0

g_bishuizhou = 0

g_shaqi = 0

myid = "none"
myname = "天晓得"
nowname = ""
mp = ""
sex = ""

g_set_no_teach = ""

g_penglai_climb_faint = false
g_bianid = ""

g_exp_gain = 0
g_exp_permin = 0
g_exp = 0
g_item_list = {}
g_item_counts = 0
g_item_current = 0

g_jldl = false
g_zxzx = false

g_hb_huifu_wrong = false

g_linda_reward = false

g_panjiang_name = ""
g_panjiang_place = ""
g_panjiang_killed = true
g_panjiang_find = 0

g_maoynig_1 = false
g_maoynig_2 = false
g_maoynig_3 = false

g_maoying_go = "end"

g_maoying_hole = false

g_maoying_in_hole = false

g_thousand_cash = 0
g_tenthousand_cash = 0
g_cast_fail = ""

-- 杀怪用剑气好吗?
--shushan_busy_pfm = "perform jianqi;"
shushan_busy_pfm = ""
g_nt_type = "??"
g_nt_level = "??"
g_nt_mp = "未知"

pan_jiang = ""
pan_jiang_id = ""
pan_jiang_place = ""

g_can_drop = false
g_give_hulu = false

g_pj_killed = 0
g_pj_cancel = 0

g_maoying_enter = 0

g_pfmwhat = g_pfm

g_unwield_all = "unwield sword;unwield dagger;unwield axe"

g_target_eff = 0
g_target_hp = 0

g_mp_zheng = true

g_rose = 0

g_nandu = 0
end

function InitTrigger()
for i = 1, 10 do
DeleteTrigger("hbmatch"..i)
end

EnableTriggerGroup("ask_hb", false)
EnableTriggerGroup("ask_li", false)
EnableTriggerGroup("ask_mp", false)
EnableTriggerGroup("ask_pj", false)
EnableTriggerGroup("autokillnpc", false)
EnableTriggerGroup("autokillnpc2", false)
EnableTriggerGroup("autokillnpc3", false)

EnableTriggerGroup("bian", true)
EnableTriggerGroup("boss", true)

EnableTriggerGroup("CastEsc", false)

EnableTriggerGroup("changanw", false)

EnableTriggerGroup("check", false)
EnableTriggerGroup("checkset", true)
EnableTriggerGroup("connect", true)
EnableTriggerGroup("cure", false)
EnableTriggerGroup("checkbag", false)

EnableTriggerGroup("dz", false)
EnableTriggerGroup("didian", false)
EnableTriggerGroup("deposit", false)
EnableTriggerGroup("dud", false)

EnableTriggerGroup("eatshen", true)
EnableTriggerGroup("eatyao", true)

EnableTriggerGroup("find", false)
EnableTriggerGroup("findguai", true)
EnableTriggerGroup("fly", false)
EnableTriggerGroup("follow", false)

EnableTriggerGroup("guaiesc", false)

EnableTriggerGroup("hbkill", false)
EnableTriggerGroup("hbjl", false)
EnableTriggerGroup("hb", true)
EnableTriggerGroup("hblog", false)
EnableTriggerGroup("hongl", false)
EnableTriggerGroup("hp_shaqi", true)

EnableTriggerGroup("idle", true)
EnableTriggerGroup("itemdrop", true)
EnableTriggerGroup("itemget", false)

EnableTriggerGroup("jldl", true)

EnableTriggerGroup("kgd", false)

EnableTriggerGroup("OnLiCanceled", true)

EnableTriggerGroup("linda", false)
EnableTriggerGroup("login", false)

EnableTriggerGroup("nt_bian_id", false)
EnableTriggerGroup("nt_find", false)
EnableTriggerGroup("nt_give", false)
EnableTriggerGroup("nt_fight", false)
EnableTriggerGroup("nt_ask", false)

EnableTriggerGroup("nt_canceled", true)
EnableTriggerGroup("nt_quan", true)
EnableTriggerGroup("nt_fail", true)

EnableTriggerGroup("nt_qin", false)
EnableTriggerGroup("nt_wakeup", false)
EnableTriggerGroup("ntcha", false)

EnableTriggerGroup("panjiang_end", true)
EnableTriggerGroup("pfm", false)
EnableTriggerGroup("pengl", false)
EnableTriggerGroup("penglai", true)
EnableTriggerGroup("pj_get", true)
EnableTriggerGroup("proc_item", false)

EnableTriggerGroup("quit", true)
EnableTriggerGroup("query", true)

EnableTriggerGroup("renwu_end", false)
EnableTriggerGroup("score", false)
EnableTriggerGroup("set", true)

EnableTriggerGroup("Normal", true)

EnableTriggerGroup("xinmo", true)

EnableTriggerGroup("yueg", false)
EnableTriggerGroup("yinw", false)
EnableTriggerGroup("wakeup", true)
DeleteTrigger("xinmo_die")

EnableTriggerGroup("maoying_hole", false)

EnableTriggerGroup("yinwu_go", false)
end

function InitTimer()
EnableTimer("pfm", false)
EnableTimer("hbpfm", false)
EnableTimer("cure", false)
EnableTimer("nt_pfm", false)
ResetTimer("reconnect")
EnableTimer("reconnect", true)
DeleteTimer("xm_pfm")
EnableTimer("xukong", false)
end

function init()
Note("init(xxx)...")
math.randomseed( os.time() )

InitVar()
InitTrigger()
InitTimer()
cmdSender:Add("@10;#t+ score;score")
cmdSender:Add("#t+ special;special;@10;#t- special")
cmdSender:Add("nt;pj;i;hp;l magic box")

UpdateStatus()
end

function OnScoreEnd()
cmdSender:Add("#t- score")
end

function OnFlySuccess()
EnableTriggerGroup("fly", false)
if g_AfterFly ~= "" then
cmdSender:Add(g_AfterFly)
end
end

function OnFlyFail()
cmdSender:Add("@30;ss;ec;ef;fly "..g_FlyTo)
end

function OnFlyFailNeedHeal()
cmdSender:Add("hp;@10;ec;ef;ss;fly "..g_FlyTo)
end

function OnFlyFailHongl()
cmdSender:Add("n;w;s")
OnFlyFail()
end

function OnFallinKuGuDong()
Note("糟糕啦!掉枯骨洞啦!")
InitTimer()
InitTrigger()
cmdSender:Clear()

g_random_move_flag = false
g_kgdmove_counts = 0
cmdSender:Add("unset brief")
g_kgd_skip = false
cmdSender:Add("#t- follow;#t- pfm;#t- find;#t+ kgd")
cmdSender:Add("zuan;l")
end

function OnFlyFailNoMana()
cmdSender:Insert("eat ling zhi")
OnFlyFail()
end

function OnCastEscSuccess()
g_cast_fail = "success"
--[[
EnableTriggerGroup("CastEsc", false)
if g_AfterCastEsc ~= "" then
cmdSender:Add(g_AfterCastEsc)
end
]]
end

-- set notop cast
function OnCastSuccess()
if g_cast_fail == "success" then
blocked = 0
EnableTriggerGroup("CastEsc", false)
if g_AfterCastEsc ~= "" then
cmdSender:Add(mp_after_cast)
cmdSender:Add(g_AfterCastEsc)
end
else
if "" == g_cast_fail then
blocked = 0
OnNoCast()
end
end
g_cast_fail = ""
end

function OnShuShanCastSuccess()
g_cast_fail = "success"
--[[
EnableTriggerGroup("CastEsc", false)
if g_AfterCastEsc ~= "" then
cmdSender:Add("s;ef")
cmdSender:Add(g_AfterCastEsc)
end
]]
end
function OnwudidongCastSuccess()
g_cast_fail = "success"
--[[
EnableTriggerGroup("CastEsc", false)
if g_AfterCastEsc ~= "" then
cmdSender:Add("ef;e;e;w;#5 s;up")
cmdSender:Add(g_AfterCastEsc)
end
]]
end
function OnCastEscFail()
if g_cast_fail == "" then
g_cast_fail = "fail"
end
EnableTriggerGroup("CastEsc", true)
cmdSender:Add("@50;"..g_CastEscAction)
end

function OnCastEscFailNoMana()
g_cast_fail = "nomana"
cmdSender:Insert("eat ling zhi")
OnCastEscFail()
end

function OnFlyFailNoCloud()
EnableTriggerGroup("CastEsc", true)
g_AfterCastEsc = "fly "..g_FlyTo

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

function OnCastEscFailNoCast()
EnableTriggerGroup("NoCast", true)
cmdSender:Add("l")
end

wormsking · 2011-09-12

2011-09-12	#6
wormsking 中级会员注册: 08年07月03日帖子: 139 声望力: 18 声望: 14 现金:104两梁山币资产:304两梁山币致谢数: 0 获感谢文章数：0 获会员感谢数：0	回复: MUSH417 xlqy各门派综合机器人 global.lua文件 require "wait" require "tprint" -- ================================================ -- 公共函数部分 ----------------------------------------------------------------------------------------------------------------- -- 创建一个临时的一次性定时器 function create_timer( t_name, t_time, t_com, t_function ) local hours, minutes, seconds = my_convert_seconds ( math.floor( t_time ) ) local flag = AddTimer ( t_name, hours, minutes, seconds, t_com, timer_flag.Enabled + timer_flag.OneShot --+ timer_flag.TimerSpeedWalk + timer_flag.Replace + timer_flag.Temporary, t_function ) if flag > 0 then Note("--[建立一次性定时器" .. t_name .. "失败 " .. "错误号：" .. flag) else Note("--[建立一次性定时器" .. t_name .. "成功") end end ----------------------------------------------------------------------------------------------------------------- -- 创建一个临时的续性定定时器 function create_timer_online( t_name, t_time, t_com, t_function ) local hours, minutes, seconds = my_convert_seconds ( math.floor( t_time ) ) local flag = AddTimer ( t_name, hours, minutes, seconds, t_com, timer_flag.Enabled --+ timer_flag.OneShot --+ timer_flag.TimerSpeedWalk + timer_flag.Replace + timer_flag.Temporary, t_function ) if flag > 0 then Note("--[建立持续性定时器" .. t_name .. "失败 " .. "错误号：" .. flag) else Note("--[建立持续性定时器" .. t_name .. "成功") end end -- ---------------------------------------------------------- -- convert x seconds to hours, minutes, seconds (for AddTimer) -- 将时间转换成AddTimer能用的格式 -- ---------------------------------------------------------- function my_convert_seconds (seconds) local hours = math.floor (seconds / 3600) seconds = seconds - (hours * 3600) local minutes = math.floor (seconds / 60) seconds = seconds - (minutes * 60) return hours, minutes, seconds end -- function convert_seconds ----------------------------------------------------------------------------------------------------------------- -- 创建一个临时的一次性触发器 function create_trigger( t_name, t_match, t_response, t_function ) local flag = AddTrigger( t_name, t_match, t_response, trigger_flag.Enabled + trigger_flag.RegularExpression + trigger_flag.Replace + trigger_flag.Temporary + trigger_flag.OneShot + trigger_flag.KeepEvaluating, -1, 0, "", t_function ) if flag > 0 then Note("--[建立一次性触发器" .. t_name .. "失败 " .. "错误号：" .. flag) else Note("--[建立一次性触发器" .. t_name .. "成功") end end ----------------------------------------------------------------------------------------------------------------- -- 创建一个临时的一次性触发器 function create_trigger_online( t_name, t_match, t_response, t_function ) --if t_name ~= "" then -- DeleteTrigger( t_name ) --end local flag = AddTrigger( t_name, t_match, t_response, trigger_flag.Enabled + trigger_flag.RegularExpression + trigger_flag.Replace + trigger_flag.Temporary + trigger_flag.KeepEvaluating, -1, 0, "", t_function ) if flag > 0 then Note("--[建立持续性触发器" .. t_name .. "失败 " .. "错误号：" .. flag) else Note("--[建立持续性触发器" .. t_name .. "成功") end end 分享分享这篇帖子 Digg Del.icio.us Technorati Twitter

2011-09-12	#7
wormsking 中级会员注册: 08年07月03日帖子: 139 声望力: 18 声望: 14 现金:104两梁山币资产:304两梁山币致谢数: 0 获感谢文章数：0 获会员感谢数：0	回复: MUSH417 xlqy各门派综合机器人关键的xlqy.lua文件配置所有任务的触发动作包括li mp hb pj nt tf 任务由于内容较多估计要分N分了 require "global" require "event_v2" -- path g_work_dir = "e:\\mushclient\\lua\\" require "xlqy_map" function on_linda_info(name, output, wildcards) local answer = "江流儿" cmdSender:Add("answer "..answer..";@10;i;kquest;@5;d;d;w;n;set no_teach dowhat") end function UpdateStatus() local ntdo = "" if g_renwu_nt then ntdo = "yes" else ntdo = "no" end local ntfail = g_nt_errkill + g_nt_bekilled + g_nt_cancel SetStatus(myid.." Hb:"..g_hb_success.."/"..g_hb_failure..",Li:"..g_li_success.."/"..g_li_failure..",Nt:"..g_nt_success.."/"..ntfail.."("..g_nt_cancel.."/"..g_nt_errkill.."/"..g_nt_bekilled..") NT:"..ntdo.." PJ:"..g_pj_killed.."/"..g_pj_cancel.." "..g_exp_gain.."/"..g_exp_permin..":"..g_exp.."/"..guai_place..":"..guai_name) end -- require "hb" -- hb filename = g_work_dir.."hb.txt" zonepattern = ".\/" gfile = assert(io.open(filename,"r")); function querydb(whowho) who = GetTriggerInfo(whowho,101) findpattern = GetTriggerInfo(whowho,102) local find = false Note(findpattern) newpattern = string.gsub(findpattern,"■",".?.?") Note(newpattern) len = newpattern:len() if len > 20 then tmp = newpattern:sub(1,20) newpattern = tmp --Note("!!!too long!!!") end if gfile ~= nil then Note("gfile\n") gfile:seek("set") repeat t = gfile:read("l") if t ~= nil then ft,ft2 = string.find(t,newpattern) if ft ~= nil then find = true ft,ft2 = string.find(t,zonepattern) if t:len() < 20 then cmdSender:Add("tell "..who.." match="..t) else cmdSender:Add("tell "..who.." match="..t:sub(ft2+13,ft2+24)) end if ft ~= nil then cmdSender:Add("tell "..who.." where="..t:sub(ft,ft2)) else cmdSender:Add("tell "..who.." where=unknow") end else --Note(t) end else end until t == nil or find == true end end -- look paper 看镖单的信息格式1 function OnHbInfo1(name, output, wildcards) if wildcards[1] ~= "" then HbProcess(wildcards[1]) end end function OnHbInfo11(name, output, wildcards) local findpattern = wildcards[1] if findpattern == "" then return end Note(findpattern) local find = false local newpattern = string.gsub(findpattern,"■",".?.?") local len = newpattern:len() local t if len > 20 then local tmp = newpattern:sub(1,20) newpattern = tmp end if gfile ~= nil then gfile:seek("set") repeat t = gfile:read("l") if t ~= nil then local ft,ft2 = string.find(t,newpattern) if ft ~= nil then find = true end else end until t == nil or find == true if find == true then cmdSender:Add("say hb "..t) else cmdSender:Add("@20;drop paper;set no_teach godz") end end end function OnHbInfo2(name, output, wildcards) if wildcards[1] ~= "" then HbProcess(wildcards[1]) end end -- look paper 看镖单的信息格式2 function OnHbInfo22(name, output, wildcards) local findpattern = wildcards[1] if findpattern == "" then return end Note(findpattern) local find = false local newpattern = string.gsub(findpattern,"■",".?.?") local len = newpattern:len() local t if len > 20 then local tmp = newpattern:sub(1,20) newpattern = tmp end if gfile ~= nil then gfile:seek("set") repeat t = gfile:read("l") if t ~= nil then local ft,ft2 = string.find(t,newpattern) if ft ~= nil then find = true end else end until t == nil or find == true if find == true then cmdSender:Add("say hb "..t) else cmdSender:Add("@20;drop paper;set no_teach godz") end end end function HbProcess(hbinfo) g_hbpaper = hbinfo local info1 = hbinfo local info2 = string.gsub(info1, "■■", "■") while info1 ~= info2 do info1 = info2 info2 = string.gsub(info1, "■■", "■") end info2 = string.gsub(info2, "■", ";") local hbinfolist = utils.split(info2, ";") local hbinfo_counts = table.getn(hbinfolist) local line local finded = false local tobreak = false local i = hbinfo_counts local patterns = hbinfo_counts for i =1, hbinfo_counts do Note(hbinfolist[i]) end for i = 1, hbinfo_counts do gfile:seek("set") finded = false repeat local fail = false line = gfile:read("l") if line then for j = 1, patterns do if string.find(line, hbinfolist[j]) then --Note("find"..hbinfolist[j]) else fail = true break end end if fail == false then finded = true end end until line == nil or finded if finded == true then break end patterns = patterns - 1 end if finded == true then g_hbline = line Note("start find biao...") Note(line) local t1, t2 = string.find(line, "\/") if t1 ~= nil then Note("->"..string.sub(line, 1, t1 - 1)) g_hbmatch_times = 0 for i = 1, 10 do DeleteTrigger("hbmatch"..i) end Note(line) if patterns >= 10 then patterns = 10 for i=1, patterns do AddTriggerEx( "hbmatch"..i, "."..string.sub(hbinfolist[i], 1, 2)..".", "", trigger_flag.Enabled + trigger_flag.RegularExpression + trigger_flag.Replace + trigger_flag.Temporary + trigger_flag.KeepEvaluating , 0, 0, "", "OnHbMatched", 0, 90) end else local n = 0 for i=1, patterns do n = n + 1 AddTriggerEx( "hbmatch"..n, "."..string.sub(hbinfolist[i], 1, 2)..".", "", trigger_flag.Enabled + trigger_flag.RegularExpression + trigger_flag.Replace + trigger_flag.Temporary + trigger_flag.KeepEvaluating , 0, 0, "", "OnHbMatched", 0, 90) end for i=1, patterns do if n >= 10 then break end if hbinfolist[i]:len() >= 4 then n = n + 1 AddTriggerEx( "hbmatch"..n, "."..string.sub(hbinfolist[i], 3, 4)..".", "", trigger_flag.Enabled + trigger_flag.RegularExpression + trigger_flag.Replace + trigger_flag.Temporary + trigger_flag.KeepEvaluating , 0, 0, "", "OnHbMatched", 0, 90) end end for i=1, patterns do if n >= 10 then break end if hbinfolist[i]:len() >= 6 then n = n + 1 AddTriggerEx( "hbmatch"..n, "."..string.sub(hbinfolist[i], 5, 6)..".", "", trigger_flag.Enabled + trigger_flag.RegularExpression + trigger_flag.Replace + trigger_flag.Temporary + trigger_flag.KeepEvaluating , 0, 0, "", "OnHbMatched", 0, 90) end end for i=1, patterns do if n >= 10 then break end if hbinfolist[i]:len() >= 8 then n = n + 1 AddTriggerEx( "hbmatch"..n, "."..string.sub(hbinfolist[i], 6, 7)..".", "", trigger_flag.Enabled + trigger_flag.RegularExpression + trigger_flag.Replace + trigger_flag.Temporary + trigger_flag.KeepEvaluating , 0, 0, "", "OnHbMatched", 0, 90) end end for i=1, patterns do if n >= 10 then break end if hbinfolist[i]:len() >= 10 then n = n + 1 AddTriggerEx( "hbmatch"..n, "."..string.sub(hbinfolist[i], 9, 10)..".", "", trigger_flag.Enabled + trigger_flag.RegularExpression + trigger_flag.Replace + trigger_flag.Temporary + trigger_flag.KeepEvaluating , 0, 0, "", "OnHbMatched", 0, 90) end end for i=1, patterns do if n >= 10 then break end if hbinfolist[i]:len() >= 12 then n = n + 1 AddTriggerEx( "hbmatch"..n, "."..string.sub(hbinfolist[i], 11, 12)..".", "", trigger_flag.Enabled + trigger_flag.RegularExpression + trigger_flag.Replace + trigger_flag.Temporary + trigger_flag.KeepEvaluating , 0, 0, "", "OnHbMatched", 0, 90) end end for i=1, patterns do if n >= 10 then break end if hbinfolist[i]:len() >= 14 then n = n + 1 AddTriggerEx( "hbmatch"..n, "."..string.sub(hbinfolist[i], 13, 14)..".", "", trigger_flag.Enabled + trigger_flag.RegularExpression + trigger_flag.Replace + trigger_flag.Temporary + trigger_flag.KeepEvaluating , 0, 0, "", "OnHbMatched", 0, 90) end end for i=1, patterns do if n >= 10 then break end if hbinfolist[i]:len() >= 16 then n = n + 1 AddTriggerEx( "hbmatch"..n, "."..string.sub(hbinfolist[i], 15, 16)..".*", "", trigger_flag.Enabled + trigger_flag.RegularExpression + trigger_flag.Replace + trigger_flag.Temporary + trigger_flag.KeepEvaluating , 0, 0, "", "OnHbMatched", 0, 90) end end patterns = n end renwu = "护镖" Note(g_hb_matchs) g_hb_matchs = patterns guai_place = string.sub(line, 1, t1 - 1) --set_hbmatch(wildcards[2]) place_id() go_place() else g_hb_matchs = 0 g_hbmatch_times = 0 Note(line) cmdSender:Add("@20;drop paper;set no_teach godz") end else g_hb_matchs = 0 Note(line) cmdSender:Add("@20;drop paper;set no_teach godz") end end 分享分享这篇帖子 Digg Del.icio.us Technorati Twitter

2011-09-12	#9
wormsking 中级会员注册: 08年07月03日帖子: 139 声望力: 18 声望: 14 现金:104两梁山币资产:304两梁山币致谢数: 0 获感谢文章数：0 获会员感谢数：0	回复: MUSH417 xlqy各门派综合机器人 -- 门派死亡激发 function mp_jifa() local mp = GetVariable("mymp") autorun=false EnableTimer("pfm", false) EnableTimer("hbpfm", false) EnableTimer("cure", false) EnableTimer("nt_pfm", false) ResetTimer("reconnect") EnableTimer("reconnect", true) DeleteTimer("xm_pfm") EnableTimer("xukong", false) if mp == "将军府" then cmdSender:Add("@50;jifa axe sanban-axe;jifa dodge yanxing-steps;jifa parry bawang-qiang;jifa spear bawang-qiang;jifa spells baguazhou;jifa force lengquan-force;jifa leadership strategy;jifa blade wuhu-blade;jifa unarmed changquan;jifa mace wusi-mace;quit") return end if mp == "陷空山无底洞" then cmdSender:Add("@50;jifa dodge kugu-blade;jifa force huntian-qigong;jifa spells dao;jifa blade kugu-blade;jifa parry kugu-blade;jifa unarmed yinfeng-zhua;jifa sword qixiu-jian;quit") return end if mp == "方寸山三星洞" then cmdSender:Add("@50;jifa spells dao;jifa dodge jindouyun;jifa unarmed puti-zhi;jifa force wuxiangforce;jifa stick qianjun-bang;jifa parry qianjun-bang;jifa sword liangyi-jian;quit") return end if mp == "蜀山剑派" then cmdSender:Add("@50;jifa sword canxin-jian;jifa unarmed hunyuan-zhang;jifa force zixia-shengong;jifa spells taoism;jifa parry mindsword;jifa dodge sevensteps;quit") return end if mp == "盘丝洞" then cmdSender:Add("@50;jifa force jiuyin-xinjing;jifa spells pansi-dafa;jifa dodge yueying-wubu;jifa parry qingxia-jian;jifa sword chixin-jian;jifa unarmed lanhua-shou;jifa music qin;jifa whip yinsuo-jinling;quit") return end end function OnLijingNotKilled() if renwu == "李靖" then EnableTriggerGroup("renwu_end", false) EnableTriggerGroup("pfm", false) EnableTimer("pfm", false) g_findagain = true GoDzRightnow() end end function InitVar() --大米id和名字 g_jianding = "" local superperform = GetVariable("superperform") local giveid = GetVariable("giveid") local giveidname = GetVariable("giveidname") local flower_id = GetVariable("flower_id") local yaodianname = GetVariable("yaodianname") local yaodianid = GetVariable("yaodianid") local racespe = GetVariable("racespe") g_race_spe = racespe g_give_dami_name = giveidname g_give_dami_id = giveid zhuanshiperform = superperform flower_boss = flower_id g_yaodian_name = yaodianname g_yaodian_id = yaodianid --是否要自己买药 g_buyyao_self = true yinwu_go = "ne" g_race = "人" --g_race_spe = "special faith" g_pj_all_ok = false g_tianzhu_ok = false g_findagain = false g_findtime = 0 idle = 0 g_qx_per = 100 g_xinshen_per = 100 g_needbian = false g_dzing = false g_in_renwu = false blocked = 0 autorun = true g_sealcounts = 0 g_sealboss = "wei" g_find = 0 target_id = "none" g_specounts = 0 g_spelist = {} g_sellcounts = 0 g_givecounts = 0 g_getcounts = 0 g_getlist = {} g_selllist = {} g_givelist = {} g_givelist2 = {} hbmatch = "asdfsadfdsfdsafdsafdsaf" givereceipt = false guai_id = "none" guai_name = "none" guai_place = "none" g_needput = true g_needmap = true g_needbag = false g_needyao = true g_needbsz = true g_sealboss ="wei" g_needsword = false g_needaxe = false g_needdz = true g_pfm = jjf_pfm -- mp g_renwu_mp = true -- li g_renwu_li = true -- hb local dohb = GetVariable("dohb") if dohb == "yes" then g_renwu_hb = true else g_renwu_hb = false end local dopj = GetVariable("dopj") if dopj == "yes" then g_renwu_pj = true else g_renwu_pj = false end local dont = GetVariable("dont") if dont == "yes" then g_renwu_nt = true else g_renwu_nt = false end g_renwu_kf = false g_renwu_tf = true g_renwu_yuan = false can_nt = true can_mp = true can_li = true can_hb = true can_pj = true can_kf = true can_tf = true can_yuan = true --枯骨洞 g_kgd_fx = "" g_kgd_ffx = "" g_kgdmove_counts = 0 g_random_move_flag = false g_random_move_steps = 0 yy_fire = false yy_water = false yy_earth = false yy_metal = false yy_wood = false kk_id = "" g_zhuanshiPfm = "" g_zhuanshiPfm_fight = "" g_hb_success = 0 g_hb_failure = 0 g_li_success = 0 g_li_failure = 0 g_nt_success = 0 g_nt_cancel = 0 g_nt_notfind = 0 g_nt_errkill = 0 g_nt_bekilled = 0 g_hb_matchs = 0 g_hbmatch_times = 0 g_hbpaper = "" g_hbline = "" g_hbing = true g_current_go = "" g_nt_bianid = "" g_nt_bianname = "" g_nt_ob = false g_nt_giveyao = false g_nt_fight_who = 0 g_nt_bian = false g_nt_qin = shushan_nt_qin g_nt_quan = shushan_nt_quan g_nt_fight = shushan_nt_fight g_nt_kill = shushan_nt_kill if g_renwu_nt then g_yao = 300 g_dan = 100 else g_yao = 30 g_dan = 30 end g_checkset = 0 g_gold = 0 g_silver = 0 g_coin = 0 g_map_penglai = 0 g_map_xueshan = 0 g_bishuizhou = 0 g_shaqi = 0 myid = "none" myname = "天晓得" nowname = "" mp = "" sex = "" g_set_no_teach = "" g_penglai_climb_faint = false g_bianid = "" g_exp_gain = 0 g_exp_permin = 0 g_exp = 0 g_item_list = {} g_item_counts = 0 g_item_current = 0 g_jldl = false g_zxzx = false g_hb_huifu_wrong = false g_linda_reward = false g_panjiang_name = "" g_panjiang_place = "" g_panjiang_killed = true g_panjiang_find = 0 g_maoynig_1 = false g_maoynig_2 = false g_maoynig_3 = false g_maoying_go = "end" g_maoying_hole = false g_maoying_in_hole = false g_thousand_cash = 0 g_tenthousand_cash = 0 g_cast_fail = "" -- 杀怪用剑气好吗? --shushan_busy_pfm = "perform jianqi;" shushan_busy_pfm = "" g_nt_type = "??" g_nt_level = "??" g_nt_mp = "未知" pan_jiang = "" pan_jiang_id = "" pan_jiang_place = "" g_can_drop = false g_give_hulu = false g_pj_killed = 0 g_pj_cancel = 0 g_maoying_enter = 0 g_pfmwhat = g_pfm g_unwield_all = "unwield sword;unwield dagger;unwield axe" g_target_eff = 0 g_target_hp = 0 g_mp_zheng = true g_rose = 0 g_nandu = 0 end function InitTrigger() for i = 1, 10 do DeleteTrigger("hbmatch"..i) end EnableTriggerGroup("ask_hb", false) EnableTriggerGroup("ask_li", false) EnableTriggerGroup("ask_mp", false) EnableTriggerGroup("ask_pj", false) EnableTriggerGroup("autokillnpc", false) EnableTriggerGroup("autokillnpc2", false) EnableTriggerGroup("autokillnpc3", false) EnableTriggerGroup("bian", true) EnableTriggerGroup("boss", true) EnableTriggerGroup("CastEsc", false) EnableTriggerGroup("changanw", false) EnableTriggerGroup("check", false) EnableTriggerGroup("checkset", true) EnableTriggerGroup("connect", true) EnableTriggerGroup("cure", false) EnableTriggerGroup("checkbag", false) EnableTriggerGroup("dz", false) EnableTriggerGroup("didian", false) EnableTriggerGroup("deposit", false) EnableTriggerGroup("dud", false) EnableTriggerGroup("eatshen", true) EnableTriggerGroup("eatyao", true) EnableTriggerGroup("find", false) EnableTriggerGroup("findguai", true) EnableTriggerGroup("fly", false) EnableTriggerGroup("follow", false) EnableTriggerGroup("guaiesc", false) EnableTriggerGroup("hbkill", false) EnableTriggerGroup("hbjl", false) EnableTriggerGroup("hb", true) EnableTriggerGroup("hblog", false) EnableTriggerGroup("hongl", false) EnableTriggerGroup("hp_shaqi", true) EnableTriggerGroup("idle", true) EnableTriggerGroup("itemdrop", true) EnableTriggerGroup("itemget", false) EnableTriggerGroup("jldl", true) EnableTriggerGroup("kgd", false) EnableTriggerGroup("OnLiCanceled", true) EnableTriggerGroup("linda", false) EnableTriggerGroup("login", false) EnableTriggerGroup("nt_bian_id", false) EnableTriggerGroup("nt_find", false) EnableTriggerGroup("nt_give", false) EnableTriggerGroup("nt_fight", false) EnableTriggerGroup("nt_ask", false) EnableTriggerGroup("nt_canceled", true) EnableTriggerGroup("nt_quan", true) EnableTriggerGroup("nt_fail", true) EnableTriggerGroup("nt_qin", false) EnableTriggerGroup("nt_wakeup", false) EnableTriggerGroup("ntcha", false) EnableTriggerGroup("panjiang_end", true) EnableTriggerGroup("pfm", false) EnableTriggerGroup("pengl", false) EnableTriggerGroup("penglai", true) EnableTriggerGroup("pj_get", true) EnableTriggerGroup("proc_item", false) EnableTriggerGroup("quit", true) EnableTriggerGroup("query", true) EnableTriggerGroup("renwu_end", false) EnableTriggerGroup("score", false) EnableTriggerGroup("set", true) EnableTriggerGroup("Normal", true) EnableTriggerGroup("xinmo", true) EnableTriggerGroup("yueg", false) EnableTriggerGroup("yinw", false) EnableTriggerGroup("wakeup", true) DeleteTrigger("xinmo_die") EnableTriggerGroup("maoying_hole", false) EnableTriggerGroup("yinwu_go", false) end function InitTimer() EnableTimer("pfm", false) EnableTimer("hbpfm", false) EnableTimer("cure", false) EnableTimer("nt_pfm", false) ResetTimer("reconnect") EnableTimer("reconnect", true) DeleteTimer("xm_pfm") EnableTimer("xukong", false) end function init() Note("init(xxx)...") math.randomseed( os.time() ) InitVar() InitTrigger() InitTimer() cmdSender:Add("@10;#t+ score;score") cmdSender:Add("#t+ special;special;@10;#t- special") cmdSender:Add("nt;pj;i;hp;l magic box") UpdateStatus() end function OnScoreEnd() cmdSender:Add("#t- score") end function OnFlySuccess() EnableTriggerGroup("fly", false) if g_AfterFly ~= "" then cmdSender:Add(g_AfterFly) end end function OnFlyFail() cmdSender:Add("@30;ss;ec;ef;fly "..g_FlyTo) end function OnFlyFailNeedHeal() cmdSender:Add("hp;@10;ec;ef;ss;fly "..g_FlyTo) end function OnFlyFailHongl() cmdSender:Add("n;w;s") OnFlyFail() end function OnFallinKuGuDong() Note("糟糕啦!掉枯骨洞啦!") InitTimer() InitTrigger() cmdSender:Clear() g_random_move_flag = false g_kgdmove_counts = 0 cmdSender:Add("unset brief") g_kgd_skip = false cmdSender:Add("#t- follow;#t- pfm;#t- find;#t+ kgd") cmdSender:Add("zuan;l") end function OnFlyFailNoMana() cmdSender:Insert("eat ling zhi") OnFlyFail() end function OnCastEscSuccess() g_cast_fail = "success" --[[ EnableTriggerGroup("CastEsc", false) if g_AfterCastEsc ~= "" then cmdSender:Add(g_AfterCastEsc) end ]] end -- set notop cast function OnCastSuccess() if g_cast_fail == "success" then blocked = 0 EnableTriggerGroup("CastEsc", false) if g_AfterCastEsc ~= "" then cmdSender:Add(mp_after_cast) cmdSender:Add(g_AfterCastEsc) end else if "" == g_cast_fail then blocked = 0 OnNoCast() end end g_cast_fail = "" end function OnShuShanCastSuccess() g_cast_fail = "success" --[[ EnableTriggerGroup("CastEsc", false) if g_AfterCastEsc ~= "" then cmdSender:Add("s;ef") cmdSender:Add(g_AfterCastEsc) end ]] end function OnwudidongCastSuccess() g_cast_fail = "success" --[[ EnableTriggerGroup("CastEsc", false) if g_AfterCastEsc ~= "" then cmdSender:Add("ef;e;e;w;#5 s;up") cmdSender:Add(g_AfterCastEsc) end ]] end function OnCastEscFail() if g_cast_fail == "" then g_cast_fail = "fail" end EnableTriggerGroup("CastEsc", true) cmdSender:Add("@50;"..g_CastEscAction) end function OnCastEscFailNoMana() g_cast_fail = "nomana" cmdSender:Insert("eat ling zhi") OnCastEscFail() end function OnFlyFailNoCloud() EnableTriggerGroup("CastEsc", true) g_AfterCastEsc = "fly "..g_FlyTo if mp == "五庄观" and (g_bianid ~= "" or nowname ~= myname) then cmdSender:Add("bian;@50") end cmdSender:Add(g_CastEscAction) end function OnCastEscFailNoCast() EnableTriggerGroup("NoCast", true) cmdSender:Add("l") end 分享分享这篇帖子 Digg Del.icio.us Technorati Twitter

2011-09-12	#10
wormsking 中级会员注册: 08年07月03日帖子: 139 声望力: 18 声望: 14 现金:104两梁山币资产:304两梁山币致谢数: 0 获感谢文章数：0 获会员感谢数：0	回复: MUSH417 xlqy各门派综合机器人 function OnNtFightWho() g_nt_fight_who = g_nt_fight_who + 1 if g_nt_fight_who > 5 then g_nt_fight_who = 0 EnableTriggerGroup("pfm", false) EnableTriggerGroup("nt_find", false) EnableTriggerGroup("nt_fight", false) EnableTriggerGroup("renwu_end", false) GoDzRightnow() else if g_nt_bian == false then cmdSender:Add("@5;fight "..guai_id) end end end function pfm() --if yy_fire == true then -- cmdSender:Add("zscast2") --end target_id = guai_id g_dzing = false --g_pfm() g_pfmwhat = g_pfm if cmdSender:Len() == 0 then cmdSender:Add("exert") end end function hbpfm() --if yy_fire == true then -- cmdSender:Add("zscast2") --end target_id = "robber" g_dzing = false g_pfmwhat = g_pfm if cmdSender:Len() == 0 then cmdSender:Add("exert") end end function OnExert() if g_pfmwhat ~= nil then g_pfmwhat() end end function nt_pfm() --if yy_fire == true then -- cmdSender:Add("zscast2") --end target_id = guai_id g_dzing = false --g_nt_pfm() g_pfmwhat = g_nt_pfm if cmdSender:Len() == 0 then cmdSender:Add("exert") end end function OnFollowGuai(name, output, wildcards) local tmp = wildcards[1] guaimiss = 0 g_findtime = 1 cmdSender:Add("#w- ") if tmp == guai_name and renwu ~= "护镖" then cmdSender:Add("hp") if renwu == "叛将" then cmdSender:Add("{;enforce max;enchant max;wear all;}") else cmdSender:Add("enforce max;enchant max;wear all") end EnableTriggerGroup("find",false) EnableTriggerGroup("follow",false) EnableTriggerGroup("pfm", true) EnableTriggerGroup("renwu_end",true) if renwu == "NT" then g_findtime = 0 --AppendToNotepad(myid.."_log", os.date("%X").."找到NT怪\r\n") EnableTriggerGroup("follow",false) EnableTriggerGroup("autokillnpc",true) cmdSender:Add("#t- follow;#t+ autokillnpc;look;kill yao guai") else pfm() EnableTimer("pfm", true) ResetTimer("pfm") end end end function GoDzRightnow() InitTimer() InitTrigger() EnableTriggerGroup("fly", true) g_FlyTo="stone" g_dzing=true g_in_renwu = false g_AfterFly="hp;i;score;@20;tuo armor;set no_teach dz"; if (mp == "将军府") then g_AfterFly = g_AfterFly..";l magic box" end g_AfterCastEsc="fly stone" EnableTriggerGroup("dz",true) EnableTriggerGroup("fly",true) cmdSender:Add("surrender;ec;ef;fly stone") end function GoDz() InitTimer() InitTrigger() EnableTriggerGroup("fly", true) g_FlyTo="stone" g_dzing=true g_in_renwu = false g_AfterFly="hp;i;score;@20;tuo armor;set no_teach dz"; if (mp == "将军府") then g_AfterFly = g_AfterFly..";l magic box" end g_AfterCastEsc="fly stone" EnableTriggerGroup("dz",true) EnableTriggerGroup("fly",true) cmdSender:Add("surrender;ec;ef;fly stone") end function OnHereNoGuaiId(name, output, wildcards) local tid = wildcards[1] if tid == guai_id then guaimiss = guaimiss + 1 if guaimiss > 3 then if renwu == "李靖" then cmdSender:Add("kquest") return end if renwu == "NT" then --renwu = "NT完成" OnRenwuEnd() return end if renwu == "门派" then renwu = "门派完成" OnRenwuEnd() return end if renwu == "逃犯" then renwu = "逃犯完成" OnRenwuEnd() end if renwu == "叛将" then InitTrigger() EnableTriggerGroup("renwu_end",false) EnableTriggerGroup("pfm", false) EnableTriggerGroup("nt_find", false) EnableTriggerGroup("nt_fight", false) EnableTimer("nt_pfm", false) EnableTimer("pfm", false) cmdSender:Clear() cmdSender:Add(g_unwield_all) g_FlyTo = "changan" g_AfterFly = "@20;set no_teach dowhat" EnableTriggerGroup("fly", true) cmdSender:Add("i;hp;score;surrender;ec;ef;fly changan") return end renwu = "任务完成" OnRenwuEnd() end end end function OnLijingKilled() if renwu == "李靖" then renwu = "李靖完成" g_li_success = g_li_success + 1 UpdateStatus() OnRenwuEnd() end end function OnMpKilled() if renwu == "门派" then renwu = "门派完成" OnRenwuEnd() end end --function OnCheckLijingKilled() -- renwu = "李靖完成" -- OnRenwuEnd() --EnableTriggerGroup("pfm",false) --EnableTimer("pfm", false) --cmdSender:Add("@10;kquest") --end function OnCheckArmor() if (g_checkset == 1 ) then armor = armor + 1 end end --四百八十三文钱 (coin) --六百三十四两银子 (silver) --一千一百三十八两黄金 (gold) --避水咒 (bishui zhou) --【大雪山地图】 (xueshan map) --〖东海仙山图〗 (eastsea map) digit_map = { ["一"] = 1, ["二"] = 2, ["三"] = 3, ["四"] = 4, ["五"] = 5, ["六"] = 6, ["七"] = 7, ["八"] = 8, ["九"] = 9, ["十"] = 10, ["零"] = 0, } -- 超过一万就返回10000 function chinese_to_number(chinese_str) local qian = 0 local bai = 0 local shi = 0 local ge = 0 --Note(chinese_str) if string.find(chinese_str, "万") then return 10000 else t1,t2 = string.find(chinese_str, "千") if t1 ~= nil and t2 ~= nil then if t1 == 1 then qian = 0 else qian = digit_map[string.sub(chinese_str, t1-2, t1 - 1)] end end t1,t2 = string.find(chinese_str, "百") if t1 ~= nil and t2 ~= nil then if t1 == 1 then bai = 0 else bai = digit_map[string.sub(chinese_str, t1 -2 , t1 - 1)] end end t1,t2 = string.find(chinese_str, "十") if t1 ~= nil and t2 ~= nil then if t1 == 1 then shi = 1 else shi = digit_map[string.sub(chinese_str, t1 -2 , t1 - 1)] end if t2 == chinese_str:len() then ge = 0 else ge = digit_map[string.sub(chinese_str, t2 + 1 , t2 + 2)] end else t1,t2 = string.find(chinese_str, "零") if t1 ~= nil and t2 ~= nil then ge = digit_map[string.sub(chinese_str, t2 + 1, t2 + 2)] else ge = digit_map[chinese_str] end end if qian == nil then qian = 0 end if bai == nil then bai = 0 end if shi == nil then shi = 0 end if ge == nil then ge = 0 end --Note(qian.."千") --Note(bai.."百") --Note(shi.."十") --Note(ge.."个") --Note(qian * 1000 + bai * 100 + shi * 10 + ge) return (qian * 1000 + bai * 100 + shi * 10 + ge) end end function OnCheckBagStart() EnableTriggerGroup("checkbag", true) g_needsword = true g_needaxe = true g_sealcounts = 0 end function OnCheckBagEnd() if g_needsword then Note("sword:no") else Note("sword:yes") end Note("seal:"..g_sealcounts) EnableTriggerGroup("checkbag", false) end function OnCheckBag(name, output, wildcards) if wildcards[2] == "Sword" or wildcards[2] == "sword" then g_needsword = false return end if wildcards[2] == "Lumber axe" or wildcards[2] == "lumber axe" then g_needaxe = false return end if wildcards[2] == "Paper seal" then g_sealcounts = chinese_to_number(string.gsub(wildcards[1], "张桃符纸", "")) return end end -- \s+(\S+) \((coin\|silver\|gold\|xueshan map\|eastsea map)\)$ function OnCheckOtherSets(name, output, wildcards) if g_checkset == 1 then if wildcards[2] == "bishui zhou" then g_bishuizhou = 1 return end if wildcards[2] == "xueshan map" then g_map_xueshan = 1 return end if wildcards[2] == "magic box" then g_needbag = false return end if wildcards[2] == "eastsea map" then g_map_penglai = 1 return end if wildcards[2] == "Lumber axe" then g_needaxe = false return end if wildcards[2] == "rose" then g_rose = chinese_to_number(string.gsub(wildcards[1], "朵野蔷薇", "")) return end if wildcards[2] == "gold" then g_gold = chinese_to_number(string.gsub(wildcards[1], "两黄金", "")) return end if wildcards[2] == "silver" then g_silver = chinese_to_number(string.gsub(wildcards[1], "两银子", "")) end if wildcards[2] == "coin" then g_coin = chinese_to_number(string.gsub(wildcards[1], "文钱", "")) return end if wildcards[2] == "tenthousand-cash" then g_tenthousand_cash = chinese_to_number(string.gsub(wildcards[1], "张一万两银票", "")) --Note(g_tenthousand_cash) return end if wildcards[2] == "thousand-cash" then g_thousand_cash = chinese_to_number(string.gsub(wildcards[1], "张一千两银票", "")) return end --六十八包金创药 (jinchuang yao) if wildcards[2] == "jinchuang yao" then g_yao_counts = chinese_to_number(string.gsub(wildcards[1], "包金创药", "")) return end --二十颗灵芝 (ling zhi) if wildcards[2] == "ling zhi" then g_zhi_counts = chinese_to_number(string.gsub(wildcards[1], "颗灵芝", "")) return end --一百颗混元丹 (hunyuan dan) if wildcards[2] == "hunyuan dan" then g_dan_counts = chinese_to_number(string.gsub(wildcards[1], "颗混元丹", "")) return end --十九支人参 (ren shen) if wildcards[2] == "ren shen" then g_shen_counts = chinese_to_number(string.gsub(wildcards[1], "支人参", "")) return end else end end function OnCheckWeapon(name, output, wildcards) if (g_checkset == 1 ) then if wildcards[2] == "axe" then weapon_axe = true return end if wildcards[2] == "sword" then weapon_sword = true return end if wildcards[2] == "dagger" then weapon_dagger = true return end if wildcards[2] == "fork" then weapon_fork = true return end if wildcards[2] == "spear" then weapon_spear = true return end if wildcards[2] == "stick" then weapon_stick = true return end if wildcards[2] == "blade" then weapon_blade = true return end if wildcards[2] == "xiao" then weapon_xiao = true return end if wildcards[2] == "hammer" then weapon_hammer = true return end if wildcards[2] == "ling" then weapon_ling = true return end if wildcards[2] == "rake" then weapon_rake = true return end if wildcards[2] == "muqin" then weapon_muqin = true return end if wildcards[2] == "staff" then weapon_staff = true return end if wildcards[2] == "whip" then weapon_whip = true return end end end function OnPanjiangAllOk() renwu = "叛将完成" pan_jiang = "" pan_jiang_id = "" pan_jiang_place = "" end function OnPanjiangKilled() g_pj_killed = g_pj_killed + 1 UpdateStatus() renwu = "叛将" OnRenwuEnd() end function OnPanjiangGet(name, output, wildcards) cmdSender:Add("@30") if wildcards[1] == "魔枪" then cmdSender:Add("drop mo qiang") else if wildcards[1] == "妖刀" then cmdSender:Add("drop yao dao") else if wildcards[1] == "仙剑" then cmdSender:Add("drop xian jian") else if wildcards[1] == "神锤" then cmdSender:Add("drop shen chui") else if wildcards[1] == "霹雳棍" then cmdSender:Add("drop pili gun") else if wildcards[1] == "除魔锏" then cmdSender:Add("drop chumo mace") else if wildcards[1] == "鬼斧" then cmdSender:Add("drop gui fu") else if wildcards[1] == "行军丹" then cmdSender:Add("eat dan") else if wildcards[1] == "天魔琴" then cmdSender:Add("drop tianmo qin") else if wildcards[1] == "情丝" then cmdSender:Add("drop qing si") else if wildcards[1] == "神叉" then cmdSender:Add("drop shen cha") else if wildcards[1] == "黄金战甲" then cmdSender:Add("drop gold armor") else if wildcards[1] == "佛杖" then cmdSender:Add("drop fo zhang") else --AppendToNotepad(myid.."_log", output.."\r\n") end end end end end end end end end end end end end end function OnRenwuEnd() InitTrigger() EnableTriggerGroup("renwu_end",false) EnableTriggerGroup("pfm", false) EnableTriggerGroup("nt_find", false) EnableTriggerGroup("nt_fight", false) EnableTimer("nt_pfm", false) EnableTimer("pfm", false) cmdSender:Clear() cmdSender:Add(g_unwield_all) if renwu == "李靖完成" then cmdSender:Add("kquest") end cmdSender:Add("@30;surrender") cmdSender:Add("#w- ") g_findagain = false if g_findtime > 1 then --AppendToNotepad(myid.."_log", "找到并完成了:"..guai_place.."/"..guai_name.."("..guai_id..")".."\r\n") end cmdSender:Add("set no_teach end") end function OnSetEnd() g_in_renwu = false if g_jianding ~= "" then cmdSender:Add(g_jianding) g_jianding = "" end if g_getcounts > 0 then EnableTriggerGroup("itemget", true) getj = 1 for geti = 1,g_getcounts do cmdSender:Add("get "..g_getlist[getj]) getj = getj + 1 end g_getcounts = 0 g_getlist = {} end if g_bianid ~= "" or g_needbian then cmdSender:Add("bian;@50") end if renwu == "叛将" then cmdSender:Add("xishi spirit;remove all;"..g_unwield_all..";#t+ ask_pj;ganying") else if renwu == "叛将完成" then cmdSender:Add("xishi spirit") else end if renwu == "逃犯完成" then if mp == "南海普陀山" or mp == "将军府" or mp == "神农谷" then cmdSender:Add("get silver from corpse;get sword from magic box;"..g_unwield_all..";wield sword;cut corpse;unwield sword;put sword in magic box") else cmdSender:Add("get silver from corpse;"..g_unwield_all..";unwield whip;unwield whip 2;wield sword;cut corpse;unwield sword") end g_FlyTo = "changan" g_AfterFly = "#4 n;give toulu to xue rengui" cmdSender:Add("#t+ fly;fly changan") else cmdSender:Add("set wimpy 30;set last_action quit n") cmdSender:Add("set no_teach godz") end end end function OnNTKilled() if renwu == "NT" then renwu = "NT完成" g_nt_success = g_nt_success + 1 --AppendToNotepad(myid.."_log", os.date("%X").."NT完成\r\n") UpdateStatus() if g_nt_type == "擒" then cmdSender:Add("out") end local msg = " 完成 "..g_nt_type.."/"..g_nt_level..guai_name.."/"..guai_place.."/"..g_nt_mp --AppendToNotepad(myid.."_log", os.date("%X")..msg.."\r\n") OnRenwuEnd() end end function OnNtDie(name, output, wildcards) if renwu == "NT" and guai_name == wildcards[1] then cmdSender:Add("get baoshi from corpse") if g_nt_type ~= "杀" then g_nt_errkill = g_nt_errkill + 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") renwu = "NT完成" OnRenwuEnd() UpdateStatus() end else if renwu == "逃犯" and guai_name == wildcards[1] then renwu = "逃犯完成" OnRenwuEnd() UpdateStatus() end end end function hb_matched() if renwu == "护镖" then g_find = 1 end end function OnHbFail() EnableTriggerGroup("find", false) --AppendToNotepad(myid.."_log", "护镖找错:"..guai_place.."/"..g_hbline.."\r\n") cmdSender:Add("drop paper") g_findagain = false for i = 1, 10 do DeleteTrigger("hbmatch"..i) end g_hbmatch_times = 0 g_hb_matchs = 0 GoDzRightnow() end function OnHbCancel() g_hb_failure = g_hb_failure + 1 UpdateStatus() end --[[function OnSayHbInfo(name, output, wildcards) Note("start find biao...") renwu = "护镖" guai_place = wildcards[1] set_hbmatch(wildcards[2]) place_id() go_place() end ]] --方寸perform function jjf_pfm() if renwu == "叛将" then if string.find(guai_name, "方寸判将") then cmdSender:Add("hp;follow "..target_id..";remove shield;remove shield 2;wield axe;wield axe 2;wield all;wear all;jiali max;surrender;ec;ef;kill "..target_id..";"..zhuanshiperform..";perform sanban;unwield axe;unwield axe 2;remove shield;remove shield 2;wield spear;wield spear 2;wield all;wear all;perform tiancheng;unwield spear;unwield spear 2;unwield dagger;unwield dagger 2") else cmdSender:Add("hp;follow "..target_id..";remove shield;remove shield 2;wield axe;wield axe 2;wield all;wear all;jiali max;surrender;ec;ef;kill "..target_id..";"..g_race_spe..";"..zhuanshiperform..";perform sanban;unwield axe;unwield axe 2;remove shield;remove shield 2;wield spear;wield spear 2;wield all;perform qiangjian;wear all;perform tiancheng;perform meihua;unwield spear;unwield spear 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 all;wear all;jiali max;surrender;ec;ef;kill "..target_id..";"..g_race_spe..";"..zhuanshiperform..";perform sanban;unwield axe;unwield axe 2;remove shield;remove shield 2;wield spear;wield spear 2;wield all;perform qiangjian;wear all;perform tiancheng;perform meihua;unwield spear;unwield spear 2;unwield dagger;unwield dagger 2") cmdSender:Add("hp;follow "..target_id..";jiali max;remove shield;remove shield 2;wield axe;wield axe 2;wield all;surrender;ec;ef;{;kill "..target_id..";"..g_race_spe..";"..zhuanshiperform..";perform sanban;unwield axe;unwield axe 2;wield spear;wield spear 2;perform qiangjian;wear all;perform tiancheng;perform meihua;};unwield spear;unwield spear 2;unwield dagger;unwield dagger 2") end end --普陀perform function putuo_pfm() if renwu == "叛将" then if string.find(guai_name, "方寸判将") then cmdSender:Add("hp;follow "..target_id..";remove shield;jiali max;wield staff;wield dagger;wear all;jiali max;surrender;ec;ef;kill "..target_id..";"..shushan_busy_pfm..";"..zhuanshiperform..";perform pudu;unwield staff;unwield dagger") else cmdSender:Add("hp;follow "..target_id..";remove shield;jiali max;wield staff;wield dagger;wear all;jiali max;surrender;ec;ef;kill "..target_id..";"..shushan_busy_pfm..";"..zhuanshiperform..";perform pudu;unwield staff;unwield dagger") end else cmdSender:Add("hp;follow "..target_id..";remove shield;jiali max;wield staff;wield dagger;wear all;jiali max;surrender;ec;ef;kill "..target_id..";"..shushan_busy_pfm..";"..zhuanshiperform..";perform pudu;unwield staff;unwield dagger") end end 分享分享这篇帖子 Digg Del.icio.us Technorati Twitter

2011-09-12	#1
wormsking 中级会员注册: 08年07月03日帖子: 139 声望力: 18 声望: 14 现金:104两梁山币资产:304两梁山币致谢数: 0 获感谢文章数：0 获会员感谢数：0	MUSH417 xlqy各门派综合机器人奇怪为什么不能上传文件压缩rar也不行压缩zip也不行。。我干脆。。把文件内容复制上来吧 MUSH本来就要自己修改的大家参考一下吧呵呵先来一个 .mcl文件内容为mush的WORLD文件 <?xml version="1.0" encoding="iso-8859-1"?> <!DOCTYPE muclient> <!-- Saved on 2010年七月 07日星期三, 下午 2:47 --> <!-- MuClient version 4.40 --> <!-- Written by Nick Gammon --> <!-- Home Page: http://www.mushclient.com/ --> <muclient> <world muclient_version="4.40" world_file_version="15" date_saved="2010-07-07 14:47:54" auto_say_override_prefix="-" auto_say_string="say " chat_name="Name-not-set" command_stack_character=";" id="f7ea3825fb923acf90da390f" input_font_name="FixedSys" mapping_failure="Alas, you cannot go that way." name="llla" new_activity_sound="(No sound)" output_font_name="新宋体" script_editor="notepad" script_filename="E:\MUSHclient\lua\xlqy.lua" script_language="Lua" site="202.91.225.232" spam_message="look" speed_walk_prefix="#" terminal_identification="mushclient" arrows_change_history="y" arrow_recalls_partial="y" auto_pause="y" auto_repeat="y" auto_resize_minimum_lines="1" auto_resize_maximum_lines="20" chat_foreground_colour="red" chat_background_colour="black" chat_port="4050" confirm_on_paste="y" confirm_on_send="y" detect_pueblo="y" echo_colour="10" echo_hyperlink_in_output_window="y" edit_script_with_notepad="y" enable_aliases="y" enable_beeps="y" enable_command_stack="y" enable_scripts="y" enable_speed_walk="y" enable_timers="y" enable_triggers="y" enable_trigger_sounds="y" history_lines="1000" hyperlink_adds_to_command_history="y" hyperlink_colour="#0080FF" indent_paras="y" input_background_colour="white" input_font_height="9" input_font_weight="400" input_text_colour="black" keypad_enable="y" line_information="y" max_output_lines="5000" mud_can_change_link_colour="y" mud_can_change_options="y" note_text_colour="#040000" output_font_height="9" output_font_weight="400" output_font_charset="134" paste_delay_per_lines="1" pixel_offset="1" port="6666" proxy_port="1080" send_file_delay_per_lines="1" send_mxp_afk_response="y" spam_line_count="20" tab_completion_lines="200" underline_hyperlinks="y" unpause_on_send="y" use_custom_link_colour="y" use_default_input_font="y" warn_if_scripting_inactive="y" wrap_column="167" write_world_name_to_log="y" > <!-- end of general world attributes --> <connect_text>g n llla muduser y ec ef </connect_text> </world> <!-- triggers --> <triggers muclient_version="4.40" world_file_version="15" date_saved="2010-07-07 14:47:54" > <trigger group="kgd" lines_to_match="2" match=".炉青烟袅绕。旁边是张八仙桌，桌子左右各放了张太师椅。平常萧总镖头\n就在这里接待客人，商谈生意。客厅左边通向一条长廊，右边应该是通向后院。" multi_line="y" regexp="y" script="OnKgdSkipNorth" sequence="100" > </trigger> <trigger group="renwu_end" match="\>\s(\S+\s\S+)死了。$" regexp="y" script="OnNtDie" sequence="100" > </trigger> <trigger group="nt_fight" lines_to_match="3" keep_evaluating="y" match="\>\s你对着(.)说道：.，领教.的高招！\n\n看起来(.)并不想跟你较量。" multi_line="y" regexp="y" script="OnNtTrueWontFight" sequence="100" > </trigger> <trigger group="yinwu" lines_to_match="2" match="\>\s你收拳发力，招化长拳之秘奥义\[窒气诀\]向山妖攻去！\n山妖被一阵拳风扫中，身形不由慢了下来。" multi_line="y" regexp="y" script="OnYinwuShanyaoBusyed" sequence="100" > </trigger> <trigger enabled="y" group="checkset" keep_evaluating="y" match="\s+(\S+) \((coin\|silver\|gold\|xueshan map\|eastsea map\|bishui zhou\|tenthousand\-cash\|thousand\-cash\|ren shen\|ling zhi\|jinchuang yao\|hunyuan dan\|bag\|magic box\|rose)\)$" regexp="y" script="OnCheckOtherSets" sequence="100" other_text_colour="lightseagreen" other_back_colour="white" > </trigger> <trigger enabled="y" group="score" match="^ 为求取真经你已经历了(.)的岁月 $" name="score_end" regexp="y" script="OnScoreEnd" sequence="100" > </trigger> <trigger enabled="y" group="score" match="^ 元婴经验值：.元婴道行：.元婴等级：(\S)$" name="yylevel" regexp="y" script="OnYyLevel" sequence="100" > </trigger> <trigger enabled="y" group="score" match="^ 元婴五行： (\S)$" name="yyinfo" regexp="y" script="OnYyWuxing" sequence="100" > </trigger> <trigger enabled="y" group="score" match="^ 转世轮回：你还未窥天道，尚无转世轮回$" regexp="y" script="OnNoZhuanshiInfo" sequence="100" > </trigger> <trigger enabled="y" group="score" match="^ 转世轮回：你已转世(.)道轮回$" name="zhuanshi" regexp="y" script="OnZhuanshiInfo" sequence="100" > </trigger> <trigger enabled="y" group="checkset" keep_evaluating="y" match="^( \|◇ )(\S+) \((\S+)\)\s" regexp="y" script="OnItemSellOrGive" sequence="100" > </trigger> <trigger enabled="y" group="checkset" match="^( \|◇ )(\S+) \(\S+ (\S+)\)\s" regexp="y" script="OnItemSellOrGive" sequence="100" > </trigger> <trigger custom_colour="17" enabled="y" group="checkset" keep_evaluating="y" match="^( \|√)★.* \(.(axe\|dagger\|sword\|stick\|spear\|mace\|xiao\|blade\|staff\|fork\|muqin\|rake\|ling\|hammer\|whip)\)" regexp="y" script="OnCheckWeapon" sequence="100" other_text_colour="red" other_back_colour="blue" > </trigger> <trigger custom_colour="17" enabled="y" group="checkset" match="^( \|◇)★\S \(.(armor\|waist\|necklace\|boots\|ring\|head\|hands\|amulet\|shield\|shoulder\|wrists\|cloth\|surcoat)\)" regexp="y" script="OnCheckArmor" sequence="100" other_text_colour="red" other_back_colour="blue" > </trigger> <trigger group="autokillnpc" lines_to_match="2" match="^((.)怪死了。$\|(.)豹死了。$\|(.)虎死了。$\|(.)狮死了。$)" multi_line="y" regexp="y" send_to="12" sequence="100" > <send>cmdSender:Add("@10;kill yao guai")</send> </trigger> <trigger group="autokillnpc3" lines_to_match="2" match="^(.)精死了。$" multi_line="y" regexp="y" send_to="12" sequence="100" > <send>cmdSender:Add("@10;kill yao jing")</send> </trigger> <trigger group="autokillnpc2" lines_to_match="2" match="^(.)妖死了。$" multi_line="y" regexp="y" send_to="12" sequence="100" > <send>cmdSender:Add("@10;kill xiao yao")</send> </trigger> <trigger custom_colour="2" enabled="y" group="Normal" match="^(灵蕴天成\|乘风踏云\|天神降世\|聚魄还虚\|气壮山河\|狂暴铁拳\|铜皮铁骨\|战气冲霄\|铜皮铁骨\|护体神功\|镇蕴七星\|乘风踏云) \((\S) \)\((普通\|专家\|大师\|宗师\|大宗师)\)$" name="special" regexp="y" script="OnSpecialSkills" sequence="100" > </trigger> <trigger enabled="y" group="dudi" keep_evaluating="y" match="^.精死了。$" regexp="y" script="OnDudijingDie" sequence="100" > </trigger> <trigger custom_colour="15" group="checkbag" keep_evaluating="y" match="^\>" regexp="y" script="OnCheckBagEnd" sequence="100" > </trigger> <trigger group="linda" lines_to_match="16" match="^\>(.)\n(.)\n(.)\n(.)\n(.)\n(.)\n(.)\n(.)\n(.)\n(.)\n(.)\n(.)\n(.)\n\n\n千堆雪说道：参见help rewardli，请说出问题的答案\(answer \<答案\>\)！" multi_line="y" regexp="y" script="on_linda_info" sequence="100" > </trigger> <trigger group="killxinmo" match="^\>(\S+)\s+\= (\S+)\_npc$" regexp="y" script="OnXinmoId" sequence="100" > </trigger> <trigger group="nt_find" match="^\>\s(.+)手捻口诀，念动真言，摇身一变，变得和(.+)一模一样！" regexp="y" script="OnNtBian" sequence="100" > </trigger> <trigger group="nt_find" keep_evaluating="y" match="^\>\s(.+)往(\S+)离开。" regexp="y" script="OnNtLeave" sequence="100" > </trigger> <trigger group="find" keep_evaluating="y" match="^\>\s(.+)往(\S+)离开。$" regexp="y" script="OnGuaiLeave" sequence="100" > </trigger> <trigger group="find" match="^\>\s(.+)走了过来。$" regexp="y" script="OnGuaiCome" sequence="100" > </trigger> <trigger custom_colour="10" enabled="y" group="xinmo" match="^\>\s(\S)的心魔一把抓住了你！$" name="xinmoblock" regexp="y" script="OnBlockedByXinmo" sequence="100" > </trigger> <trigger group="nt_qin" match="^\>\s(\S)脚下一个不稳，跌在地上一动也不动了" regexp="y" script="OnNtFaint" sequence="100" > </trigger> <trigger custom_colour="3" group="nt_fight" match="^\>\s(\S)说道：哈哈，你输了，快滚吧\!" regexp="y" script="OnNtFightLose" sequence="100" > </trigger> <trigger custom_colour="3" group="nt_fight" match="^\>\s(\S)说道：我好了，来来来，咱们再大战三百回合。" regexp="y" script="OnNtWoundedOk" sequence="100" > </trigger> <trigger custom_colour="3" group="nt_fight" match="^\>\s(\S)说道：我还没准备好，你就开打了，不算数。" regexp="y" script="OnNtFightWin" sequence="100" > </trigger> <trigger group="nt_fight" match="^\>\s(\S)说道：我受伤了，这样打不公平吧。" regexp="y" script="OnNtWounded" sequence="100" > </trigger> <trigger custom_colour="3" group="nt_fight" match="^\>\s(\S)说道：我一时大意，也没尽全力，我不服，再比一次。" regexp="y" script="OnNtFightWin" sequence="100" > </trigger> <trigger custom_colour="2" group="nt_bian_id" keep_evaluating="y" match="^\>\s(\S+) (\S+)\s\=\s(\S+.)$" regexp="y" script="OnNtBianId2" sequence="100" > </trigger> <trigger enabled="y" group="Normal" match="^\>\s(\S+)\((assist\|dayday\|snowman)\)告诉你：how$" regexp="y" script="OnQuery" sequence="100" > </trigger> <trigger group="nt_bian_id" keep_evaluating="y" match="^\>\s(\S+)\s\=\s(\S+.)$" regexp="y" script="OnNtBianId" sequence="100" > </trigger> <trigger group="CastEsc" match="^\>\s(\S+)趁着火影逃跑了。$" regexp="y" script="OnJjfCastSuccess" sequence="100" > </trigger> <trigger group="nt_wakeup" match="^\>\s(\S+)慢慢睁开眼睛，清醒了过来。$" regexp="y" script="OnNtWakeup" sequence="100" > </trigger> <trigger enabled="y" group="Normal" match="^\>\s(\S+)说\:现在想跑\? 来不急了\!" regexp="y" script="OnNtBlock" sequence="100" > </trigger> <trigger group="nt_fight" match="^\>\s(\S+)说道：废话少说，尽管放马过来，看谁怕谁" regexp="y" script="OnNtAcceptFight" sequence="100" > </trigger> <trigger enabled="y" group="Normal" match="^\>\s(\S+)说道：我可是出自名门：(\S+)$" regexp="y" script="OnNtMp" sequence="100" > </trigger> <trigger group="nt_fight" keep_evaluating="y" match="^\>\s(\S+)往(\S)离开。" regexp="y" script="OnNtLeave" sequence="100" > </trigger> <trigger group="guaiesc" keep_evaluating="y" match="^\>\s(\W)往(.)落荒而逃了。$" name="guai_esc" regexp="y" script="OnGuaiEscape" sequence="100" > </trigger> <trigger enabled="y" group="Normal" match="^\>\s(\W+)对你痛快地说道：“好吧！”$" regexp="y" script="OnGetYaoOk" sequence="100" > </trigger> <trigger enabled="y" group="Normal" match="^\>\s(\W+)说道：见鬼啦" regexp="y" script="OnYaoFail" sequence="100" > </trigger> <trigger group="didian" match="^\>\s(百花仙子\|春十三娘\|古波儿西\|西波儿古\|天波儿笑\|笑波儿天\|金毛狮子\|大使\|吴刚\|白猿\|赤身鬼使\|直健\|郭申\|守寺僧\|护宫卫士\|香香\|马面鬼\|牛头鬼\|边关守将\|金毛狮子\|罗春\|翼人守卫\|卫士\|夏鹏展)死了。$" regexp="y" script="OnKKnpcDie" sequence="100" > </trigger> <trigger group="CastEsc" match="^\>\s(不许在这里拿人东西！\|不得无礼。)$" regexp="y" send_to="12" sequence="100" > <send>cmdSender:Add("set no_teach cast")</send> </trigger> <trigger group="hongl" match="^\>\s(荡悠悠三更梦\|〖荡悠悠三更梦〗)" regexp="y" script="OnHonglouStart" sequence="100" > </trigger> <trigger group="kgd" match="^\>\s(店小二满脸堆笑地挡住了你\|那里只有巫师才能进去。\|游戏并未开放。\|黑熊怪伸手拦住你：\|掌厨僧伸手拦住你：\|亲兵喝道：闲杂人等不得乱闯！\|守卫拦住你说道：进阵以后就不能走出来了，还是不要进去为好。\|秦安喝道：将军府岂是你乱闯之地！有何贵干\|薛仁贵铁枪一横，喝道：此乃皇宫，禁行！\|禹王卒一把拦住了你。)" regexp="y" script="OnCantGo" sequence="100" > </trigger> <trigger group="aaaaa" match="^\>\s(还是老老实实打麻将吧？！\|请不要在拱猪房里施用法术，谢谢。\|你张开嘴，结结吧吧地念了几声咒语。\|你看样子输红了眼，想念咒语。\|青鬏龟童对你说道：大人，莫念莫念，切莫伤您龟寿。\|这里不准念咒文。\|你对着.结结巴巴的想念咒语，却怎么也张不开嘴。\|老害虫对你直摇头：这大喜的日子，你念哪门子咒啊！\|按时地方把你温柔的塞进下水道里，叮嘱道，一路多多保重！\|这里不能乱施展内功。)$" regexp="y" script="OnNoCast" sequence="100" > </trigger> <trigger group="ask_mp" match="^\>\s(惠岸行者\|云阳真人\|剑圣\|雷欧纳德\|秦琼\|镇元大仙\|雾渊道长\|西王母\|青霞仙子\|玉鼠精)说道：不是让你去杀了(\S)的(.)\((\S)'s (.)\)么？" name="ask_mp1" regexp="y" script="OnMpAnswer1" sequence="100" > </trigger> <trigger group="ask_mp" match="^\>\s(惠岸行者\|云阳真人\|剑圣\|雷欧纳德\|秦琼\|镇元大仙\|雾渊道长\|西王母\|青霞仙子\|玉鼠精)说道：你真是没用，我再给你一次机会！" regexp="y" script="OnMpMoreChance" sequence="100" > </trigger> <trigger group="ask_mp" match="^\>\s(惠岸行者\|云阳真人\|剑圣\|雷欧纳德\|秦琼\|镇元大仙\|雾渊道长\|西王母\|青霞仙子\|玉鼠精)说道：现有(.)\((\S)'s (.)\)在(\S)(为非作歹\|替\|一带)" name="ask_mp3" regexp="y" script="OnMpAnswer3" sequence="100" > </trigger> <trigger group="ask_mp" match="^\>\s(惠岸行者\|云阳真人\|剑圣\|雷欧纳德\|秦琼\|镇元大仙\|雾渊道长\|西王母\|青霞仙子\|玉鼠精)说道：现在(.)\((\S)'s (.)\)出现在(\S)(为非作歹\|替\|一带)" name="ask_mp2" regexp="y" script="OnMpAnswer2" sequence="100" > </trigger> <trigger custom_colour="2" enabled="y" group="wakeup" match="^\>\s(慢慢地你终于又有了知觉．．．\|突然你百会之中冒出一道寒气，水银泄地瞬间游遍你全身！)$" regexp="y" script="OnWakeup" sequence="100" > </trigger> <trigger enabled="y" group="fly" match="^\>\s(你被定住了，哪里飞得起来！\|你正忙着呢，没工夫腾云驾雾。\|你正在战斗，飞不开。)$" regexp="y" script="OnFlyFail" sequence="100" > </trigger> <trigger enabled="y" group="eatyao" match="^\>\s(你吃下一颗混元丹，脸色看起来好多了．\|你吃下一只人参。\|你吃下一颗灵芝。\|你吃下一包金创药，气色看起来好多了。)$" regexp="y" script="OnEatYao" sequence="100" > </trigger> <trigger group="CastEsc" lines_to_match="2" match="^\>\s(你的法力不足。\|你的法力不够了！\|你的法力不够！\|你的法力不能控制逃命符。)$" regexp="y" send_to="12" sequence="100" > <send>cmdSender:Insert("eat ling zhi")</send> </trigger> <trigger group="CastEsc" match="^\>\s(你的身影随着一股清风突然出现。\|你的身形化为无形，随着烟雾瞬间已是万里开外。\|你散出满天的花瓣,等到花瓣落尽,身影已然消失在花影中！\|只见你一个跟头跳起，一去二三里，离地四五丈，踏云而去也！\|只见白光一闪，你整个人已经被收到宝盒去了\|你向空中抛了一把土，念句咒，钻入土中不见了。\|你的身影突然出现在一阵尘土中。\|一时间，祥云霭霭，佛光普照，你乘祥云飘然而去...)" regexp="y" script="OnMightCastSuccess" sequence="100" > </trigger> <trigger enabled="y" match="^\>\s(你精神太差，难以集中精力念咒。\|你的精神无法集中！)$" regexp="y" send_to="12" sequence="100" > <send>cmdSender:Add("ec;ef")</send> </trigger> <trigger enabled="y" group="bian" match="^\>\s(你口念咒语，身形一晃，现了真身。\|你想变成谁？\|只见你面色苍白，一个恍惚之间，已经现了原形。)$" regexp="y" script="OnBian" sequence="100" > </trigger> <trigger group="pfm" match="^\>\s*(你略一运功，眼前立刻出现了那条熟悉的身影，剪不断，理还乱，搅得你心烦气燥。\|你要用内功做什么？)$" regexp="y" script="OnExert" sequence="100" > 分享分享这篇帖子 Digg Del.icio.us Technorati Twitter

2011-09-12	#4
wormsking 中级会员注册: 08年07月03日帖子: 139 声望力: 18 声望: 14 现金:104两梁山币资产:304两梁山币致谢数: 0 获感谢文章数：0 获会员感谢数：0	回复: MUSH417 xlqy各门派综合机器人由于每帖限制字数上面就是MCL 涉及基本变量触发等基本配置的.mcl文件。后面还有 3个.lua文件的内容慢慢贴。。。。诡异的地方分享分享这篇帖子 Digg Del.icio.us Technorati Twitter

2011-09-12	#5
wormsking 中级会员注册: 08年07月03日帖子: 139 声望力: 18 声望: 14 现金:104两梁山币资产:304两梁山币致谢数: 0 获感谢文章数：0 获会员感谢数：0	回复: MUSH417 xlqy各门派综合机器人 event_v2.lua文件 -- handle "event1" --Listener.new():Register(Event.new("event1"), EventHandler1.new()) --EventHander1 = class(Callback) --function EventHander1:Do(event, ) -- do something -- cmdSender:Add("cmd1;#3 cmd2;@2;cmd3") -- #3 means repeat 3 times, @2 means delay 2 seconds --end -- handle "event2" five times --Listener.new():Register(Event.new("event2, 0, 5"), EventHandler2.new()) --EventHander2 = class(Callback) --function EventHander2:Do(event, ) -- -- do something -- cmdSender:Add({"cmd4", "@3", "#2 cmd5"}) -- accept commands in a table --end -- handle "event3" twice within 10 seconds. if it is not triggered twice within 10 seconds, a timeout event is sent. --Listener.new():Register(Event.new("event3, 10, 2"), EventHandler3.new()) --EventHander3 = class(Callback) --function EventHander3:Do(event, ) -- -- do something -- if (event.isTimeout) then -- cmdSender:Add("cmd6") -- else -- cmdSender:Add({"cmd7", "cmd8"}) -- end --end --------------------------------------------------------- -- OO, implement class module --------------------------------------------------------- pre_kk = false local _class = {} function class(super) local class_type = {} class_type.ctor = false class_type.super = super class_type.new = function(...) local obj = {} do local create create = function(c, ...) if c.super then create(c.super, ...) end if c.ctor then c.ctor(obj, ...) end end create(class_type, ...) end setmetatable(obj, { __index = _class[class_type] }) return obj end local vtbl = {} _class[class_type] = vtbl setmetatable(class_type, { __newindex = function(t, k, v) vtbl[k] = v end }) if super then setmetatable(vtbl, { __index = function(t,k) local ret = _class[super][k] vtbl[k] = ret return ret end }) end return class_type end --------------------------------------------------------- -- event --- type: type of an event --- timeout: in a particular time(in seconds) didn't receive the event will fire a timeout event --- times: the event will be triggered how many times, then will be self removed --------------------------------------------------------- Event = class() function Event:ctor(type, timeout, times) self.type = type if (timeout == nil and times == nil) then -- if both timeout and times are not set, then can be triggered any times (set times to zero) self.timeout = 0 self.times = 0 elseif (timeout ~= nil and times == nil) then -- if timeout is set, times is not set, then can be trigger only once self.timeout = timeout self.times = 1 else -- if both timeout and times are set, then can be trigger any times within timeout self.timeout = timeout self.times = times end self.isTimeout = false self.triggered = 0 end function Event:Reset() self.isTimeout = false self.triggered = 0 end --------------------------------------------------------- -- callback: callback function when receved an event --------------------------------------------------------- Callback = class() function Callback:ctor(insideFunc) self.func = insideFunc end function Callback:Invoke(event, ...) -- logging helper:Print("Event:", event.type, " Timeout:", event.isTimeout, " Triggered:", event.triggered) -- call handler self:Do(event, ...) end function Callback:Do(event, ...) helper:Print("Do Noting") end --------------------------------------------------------- -- listener --------------------------------------------------------- Listener = class() function Listener:ctor() self.id = CreateGUID() end function Listener:Register(event, callback) assert(event.type ~= nil, "event type is nil") self.event = event self.callback = callback -- create timer if has timeout if (event.timeout ~= 0) then -- create timer using type as timer name helper:AddTimer(self.event.type, self.event.timeout) end -- add self in listener list dispatcher:AddListener(self) end function Listener:Remove() assert(self.event ~= nil, "have to register event then remove it") -- if has timer and the timer is not timeout, delete it if (self.event.timeout ~= 0 and not self.event.isTimeout) then helper:RemoveTimer(self.event.type) end -- remove self in listener list dispatcher:RemoveListener(self) end function Listener:OnEvent(...) -- add triggered times self.event.triggered = self.event.triggered + 1 -- check if reach triggered times if (self.event.times ~= 0 and self.event.triggered == self.event.times) then self:Remove() end -- call back self.callback:Invoke(self.event, ...) end function Listener:OnTimeout() -- set isTimeout and call back self.event.isTimeout = true -- delete listener self:Remove() -- call back self.callback:Invoke(self.event) end --------------------------------------------------------- -- event dispatcher --------------------------------------------------------- EventDispatcher = class() function EventDispatcher:ctor() self.listeners = {} end function EventDispatcher:AddListener(listener) self.listeners[listener.id] = listener end function EventDispatcher:RemoveListener(listener) self.listeners[listener.id] = nil end function EventDispatcher:IsListening(listener) return (self.listeners[listener.id] ~= nil) end function EventDispatcher:Match(eventType) local matchs = {} for k, v in pairs (self.listeners) do if (v.event.type == eventType) then table.insert(matchs, v) end end return matchs end function EventDispatcher:SendEvent(eventType, ...) local matchs = self:Match(eventType) if (#matchs ~= 0) then for k, v in pairs (matchs) do v:OnEvent(...) end end end function EventDispatcher:SendTimeout(timerName) local matchs = self:Match(timerName) if (#matchs ~= 0) then for k, v in pairs (matchs) do v:OnTimeout() end end end -- only one instance dispatcher = EventDispatcher.new() --------------------------------------------------------- -- Helper --------------------------------------------------------- Helper = class() function Helper:ctor() self.isPrint = false self.cmds = {} end function Helper:Print(...) if self.isPrint then Note(...) end end function Helper:AddTimer(name, interval) local hours = math.floor(interval / 3600) interval = interval - (hours * 3600) local minutes = math.floor(interval / 60) local seconds = interval - (minutes * 60) local status = AddTimer (name, hours, minutes, seconds, "dispatcher:SendTimeout(\"" .. name .. "\")", timer_flag.OneShot + timer_flag.Temporary + timer_flag.Replace, "") assert(status == error_code.eOK, "fail to create timer:" .. name) SetTimerOption(name, "send_to", 12) EnableTimer(name, true) ResetTimer(name) end function Helper:ResetTimer(name, interval) assert(IsTimer(name), "timer doesn't exist") EnableTimer(name, false) local hours = math.floor(interval / 3600) interval = interval - (hours * 3600) local minutes = math.floor(interval / 60) local seconds = interval - (minutes * 60) SetTimerOption(name, "hour", hours) SetTimerOption(name, "minute", minutes) SetTimerOption(name, "second", seconds) EnableTimer(name, true) ResetTimer(name) end function Helper:RemoveTimer(name) EnableTimer(name, false) DeleteTimer(name) end -- only one instance helper = Helper.new() --------------------------------------------------------- -- Command --- Repeat: #4 xx (repeat 4 times for command xx) --- Delay: @3 (delay 3 seconds) --------------------------------------------------------- Command = class() function Command:ctor() self.cmds = {} self.isRunning = false self.thread = nil self.count = 0 self.nowait = false self.time = os.time() end function Command:ToTable(cmds) assert(type(cmds) == "string", "commands must be string type") local retVal = {} for k, v in pairs(utils.split(cmds, ";")) do if (string.sub(v, 1, 1) == "#") then -- convert repeat command local sb, se = string.find(v, "%s+") assert(sb ~= nil and se ~= nil, "wrong repeat command format") local scc = string.sub(v, 2, sb -1) if scc == "t+" or scc == "T+" or scc == "T-" or scc == "t-" or scc == "w+" or scc == "w-" then retVal[#retVal + 1] = v else local times = tonumber(string.sub(v, 2, sb - 1)) local cmd = string.sub(v, se + 1) for i = 1, times, 1 do retVal[#retVal + 1] = cmd end end else retVal[#retVal + 1] = v end end return retVal end function Command:Add(cmds) if (type(cmds) == "string") then cmds = self:ToTable(cmds) end assert(type(cmds) == "table", "commands must be string or table type") -- add cmds for k, v in pairs (cmds) do self.cmds[#self.cmds + 1] = v end -- wakeup to process self:Wakeup() end function Command:Insert(cmds) if (type(cmds) == "string") then cmds = self:ToTable(cmds) end assert(type(cmds) == "table", "commands must be string or table type") -- insert cmds for k, v in pairs (cmds) do --self.cmds[#self.cmds + 1] = v table.insert(self.cmds, 1, v) end -- wakeup to process self:Wakeup() end function Command:Clear() self.cmds = {} self.nowait = false Note("cmdSender clear...") end function Command:Wakeup() if (self.thread == nil) then cmdSender.thread = coroutine.create(cmdSender.Do) end if (not self.isRunning) then local dcounts = (os.time() - self.time) * 25 self.count = self.count - dcounts if self.count < 0 then self.count = 0 end coroutine.resume(self.thread) end end function Command:Len() return #self.cmds end function Command:Do() while true do local cmd = nil if cmdSender.nowait == false and cmdSender.count > 10 then Note("wait 0.3 second...") cmdSender.count = 0 DoAfterSpecial(0.3, "coroutine.resume(cmdSender.thread)", 12) coroutine.yield() else if (#cmdSender.cmds ~= 0) then cmd = cmdSender.cmds[1] -- pick cmd in queue table.remove (cmdSender.cmds, 1) -- remove cmd in queue end if (cmd ~= nil) then cmdSender.isRunning = true if (string.sub(cmd, 1, 1) == "@") then local interval = tonumber(string.sub(cmd, 2)) if (interval > 0) then cmdSender.count = cmdSender.count - interval if cmdSender.count < 0 then cmdSender.count = 0 end interval=interval/10 helper:Print("delay:", interval) Note("等待"..interval.."秒...") DoAfterSpecial(interval, "coroutine.resume(cmdSender.thread)", 12) pre_kk = false coroutine.yield() end else if (string.sub(cmd, 1, 1) == "#") then -- convert repeat command if string.sub(cmd, 2, 2) == "w" then if string.sub(cmd, 3, 3) == "+" then cmdSender.nowait = true else if string.sub(cmd, 3, 3) == "-" then cmdSender.nowait = false else cmdSender:Send(cmd) end end else local sb, se = string.find(cmd, "%s+") assert(sb ~= nil and se ~= nil, "wrong repeat command format") local scc = string.sub(cmd, 2, sb -1) if scc == "t+" or scc == "T+" then local group = string.sub(cmd, se + 1) Note("Enable trigger Group "..group); EnableTriggerGroup(group, true) else if scc == "t-" or scc == "T-" then local group = string.sub(cmd, se + 1) EnableTriggerGroup(group, false) Note("Disable trigger Group "..group); else cmdSender:Send(cmd) end end end else if (string.sub(cmd, 1, 1) == '{') then Note("no waiting...") cmdSender.nowait = true else if (string.sub(cmd, 1, 1) == '}') then cmdSender.nowait = false Note("stop no waiting...") else cmdSender:Send(cmd) end end end end else cmdSender.isRunning = false --if cmdSender.count > 0 then -- cmdSender.count = cmdSender.count - 1 --end cmdSender.time = os.time() coroutine.yield() end end end end function Command:Send(cmd) helper:Print("cmd:", cmd) SendImmediate(cmd) self.count = self.count + 1 end cmdSender = Command.new() 分享分享这篇帖子 Digg Del.icio.us Technorati Twitter