本帖最后由 bbye 于 2018-2-22 04:19 AM 编辑
作用:自动分辨gsz武功类型,并给出可能门派。
感谢oolong,原贴:http://www.pkuxkx.com/forum/viewthread.php?tid=42485&
最后更新:少了几个武功,加进去了。2018.2.22
==========================================================
实测有些问题,我换个思路重写了一下。2018年2月12日
- #TRIGGER {^???这似乎是某种武功造成的伤痕。你脑海中} {#var gszline "";#var gszrawline "";#t+ 公孙止武功} {公孙止查看};
- #TRIGGER {你灵机一动,或许可以到拥有这个武功的门派去看看。} {#t- 公孙止武功;gszcheck} {公孙止查看};
- #TRIGGER {^(%*)$} {#if (%len(%1)>15 & (%pos(这似乎是某种武功,%trigger)=0) & (%pos(你灵机一动,%trigger)=0)) {#var gszline @{gszline}%trigger;#var gszrawline {@{gszrawline}%1};}} {公孙止武功}
- #ALIAS gszcheck {#var gszrawlinebak @gszrawline;#var gszrawline %replace(@gszrawline,%copy(@gszrawline,1,1),e);#var colora %copy(@gszrawline,7,2);#var temp3 %copy(@gszrawline,%eval(%pos(m,@gszrawline)-2),2);#var temp2 %copy(@gszrawline,1,12);#var temp %copy(@temp2,4,1);#var gszrawline %replace(@gszrawline,e[0m,);#var gszrawline %replace(@gszrawline,@temp2,a);#var gszrawline %replace(@gszrawline,%concat(e[1,@temp,@colora,m),a);#var gszrawline %replace(@gszrawline,%concat(e[0,@temp,@colora,m),a);#var gszrawline %replace(@gszrawline,e[1m,c);#if %pos(m,@gszrawline)>2 {#var colorb %if(%pos(@temp3,%copy(@gszrawline,%eval(%pos(m,@gszrawline)-2),2))=1,%copy(@gszrawline,%eval(%pos(m,@gszrawline)-5),2),%copy(@gszrawline,%eval(%pos(m,@gszrawline)-2),2));#var gszrawline %replace(@gszrawline,%concat(e[1,@temp,@colorb,m),b);#var gszrawline %replace(@gszrawline,%concat(e[0,@temp,@colorb,m),b);#var gszrawline %replace(@gszrawline,%replace(@temp2,@colora,@colorb),b);#var gszrawline %replace(@gszrawline,%concat(%copy(@temp2,1,6),@colorb,%copy(@colorall,9,4)),b)} {#var colorb 0};#sh %len(@gszrawline);#unvar colora;#unvar colorb;#var gszwugong "";#if %numwords(@gszrawline,a)>%numwords(@gszrawline,b) {#loop %numwords(@gszrawline,b)-1 {#var temp %word(%word(@{gszrawline}a,%i+1,b),1,a);#var temp2 %eval(%len(%word(@gszrawline,1,b@temp))/2);#var temp %eval(%len(b@temp)/2);#var gszwugong %additem(%copy(@gszline,@temp2+1,@temp),@gszwugong);};#unvar temp;#unvar temp2;} {#loop %numwords(@gszrawline,a)-1 {#var temp %word(%word(@{gszrawline}b,%i+1,a),1,b);#var temp2 %eval(%len(%word(@gszrawline,1,a@temp))/2);#var temp %eval(%len(a@temp)/2);#var gszwugong %additem(%copy(@gszline,@temp2+1,@temp),@gszwugong);};#unvar temp;#unvar temp2;};#unvar gszrawline;#unvar gszline;#var gszwugong %replace(@gszwugong,|,);#sh @gszwugong;gszcheck2}
- #ALIAS gszcheck2 {#var gszwg "";#loop %eval(%len(@gszwugong)/2) {#var gszwg %if(%len(@gszwg)=0,%copy(@gszwugong,%eval(%i*2-1),2),@gszwg|%copy(@gszwugong,%eval(%i*2-1),2))};#var gsz_sk_temp @gsz_allsk;#loop %numwords(@gszwg,"|") {gszwgi=%i;#var gsz_sk_temp2 "";#loop %numwords(@gsz_sk_temp,"|") {#if (%pos(%word(@gszwg,@gszwgi,"|"),%word(@gsz_sk_temp,%i,"|"))>0) {#var gsz_sk_temp2 %if(%len(@gsz_sk_temp2)>0,@gsz_sk_temp2|%word(@gsz_sk_temp,%i,"|"),%word(@gsz_sk_temp,%i,"|"))}};#var gsz_sk_temp @gsz_sk_temp2;#sh @gszwgi:@gsz_sk_temp};#say 公孙止刺客的武功是:【@gsz_sk_temp】。;gszcheck3}
- #ALIAS gszcheck3 {#var gsz_ck "";#var gsz_mp_temp @gsz_mp_ce;#var gsz_mp_temp2 "";#loop %numwords(@gsz_mp_temp,"|") {#if (%pos(%word(@gsz_sk_temp,1,"|"),%word(@gsz_skills,%i,"|"))>0) {#var gsz_mp_temp2 %if(%len(@gsz_mp_temp2)>0,@gsz_mp_temp2|%word(@gsz_mp_temp,%i,"|"),%word(@gsz_mp_temp,%i,"|"))}};#say 公孙止刺客的门派是:【@gsz_mp_temp2】。}
- #FUNC gsz_mp_ce {明教|日月神教|武当|少林|华山|天龙寺|丐帮|峨嵋|姑苏慕容|白驼山|星宿|古墓|灵鹫宫|全真|桃花岛|神龙教|朝廷|大轮寺|雪山}
- #FUNC gsz_skills {大腾挪步法/光明圣火功/寒冰绵掌/九阳神功/烈焰刀/乾坤大挪移/七伤拳/圣火令法/太极剑法/太极拳/太极神功/梯云纵/飞花摘叶手法/鹰爪功|日月神功/葵花神功/吸星大法/日月剑法/日月刀法/辟邪剑法/日月闪电锤/判官笔法/鹰爪功/开山掌/飞天身法/马屁神功/大光明心法|太极神功/梯云纵/太极拳/太极爪/太极剑法/玄虚刀法|达摩剑/混元一气功/金刚不坏功/大金刚拳/拈花指/少林身法/修罗刀/易筋神功/大韦陀杵/燃木刀法/日月鞭法/一指禅/慈悲刀/龙爪功/如来千叶手/伏魔剑/罗汉拳/韦陀棍/修罗刀/般若掌/无常杖/鹰爪功/风云手/少林醉棍/普渡杖/散花掌/无影剑法|紫霞功/华山内功/混元功/华山剑法/狂风快剑/玉女十九剑/独孤九剑/反两仪刀/养吾剑法/希夷剑法/混元掌/劈石破玉拳/华山身法|枯荣禅功/北冥神功/凌波微步/一阳指/六脉神剑/飞花逐月/段家剑法/段氏身法/天南步法|混天气功/逍遥游/蛇形刁手/降龙十八掌/六合刀/打狗棒法|临济十二庄/雁行刀/诸天化身法/霹雳弹/天罡指/金顶绵掌/回风拂柳剑/截手九式/大乘涅槃功|神元功/斗转星移/燕灵身法/柳絮剑法/百家刀法/参合指/弹腿/慕容氏家传|蛤蟆功/灵蛇杖法/蛇形刁手/神驼雪山掌/蟾蜍步法|化功大法/摘星手/星宿毒掌/摘星功/天山杖法/冥天九式/小无相功|九阴神功/玉女心法/黯然销魂掌/美女拳/九阴白骨爪/全真剑法/玉女剑法/玄铁剑法/长恨鞭法/千灭银针手/纤云步法|八荒六合唯我独尊功/北冥神功/天羽奇剑/长恨剑法/天山六阳掌/天山折梅手/月影舞步/小无相功|先天功/金雁功/全真剑法/同归剑法/养心拳/空明拳/一阳指/三花聚顶掌/天罡北斗阵|碧海神功/落英身法/玉箫剑法/落英神剑掌/弹指神通/兰花拂穴手/旋风扫叶腿/九阴白骨爪/摧心掌|神龙心法/神龙鞭法/毒龙匕法/化骨绵掌/意形步法|碧血心法/龙凤双翔/太祖长拳/岳家散手/破军刀法/虎钤剑法/格虎戟/杨家梨花枪/太祖盘龙棍/三十六路猛虎鞭法|龙象般若功/御雪遁形/血刀经/火焰刀/降伏轮/无上大力杵/大手印/天王爪|雪山内功/雪山剑法/金乌刀法/凌霄拳法/飘雪掌法/雁翼身法}
- #FUNC gsz_allsk {大腾挪步法|光明圣火功|寒冰绵掌|九阳神功|烈焰刀|乾坤大挪移|七伤拳|圣火令法|太极剑法|太极拳|太极神功|梯云纵|飞花摘叶手法|鹰爪功|日月神功|葵花神功|吸星大法|日月剑法|日月刀法|辟邪剑法|日月闪电锤|判官笔法|鹰爪功|开山掌|飞天身法|马屁神功|大光明心法|太极神功|梯云纵|太极拳|太极爪|太极剑|玄虚刀法|达摩剑|混元一气功|金刚不坏功|大金刚拳|拈花指|少林身法|修罗刀|易筋神功|大韦陀杵|燃木刀法|日月鞭法|一指禅|慈悲刀|龙爪功|如来千叶手|伏魔剑|罗汉拳|韦陀棍|修罗刀|般若掌|无常杖|鹰爪功|风云手|少林醉棍|普渡杖|散花掌|无影剑法|紫霞功|华山内功|混元功|华山剑法|狂风快剑|玉女十九剑|独孤九剑|反两仪刀|养吾剑法|希夷剑法|混元掌|劈石破玉拳|华山身法|枯荣禅功|北冥神功|凌波微步|一阳指|六脉神剑|飞花逐月|段家剑法|段氏身法|天南步法|混天气功|逍遥游|蛇形刁手|降龙十八掌|六合刀|打狗棒法|临济十二庄|雁行刀|诸天化身法|霹雳弹|天罡指|金顶绵掌|回风拂柳剑|截手九式|大乘涅槃功|神元功|斗转星移|燕灵身法|柳絮剑法|百家刀法|参合指|弹腿|慕容氏家传|蛤蟆功|灵蛇杖法|蛇形刁手|神驼雪山掌|蟾蜍步法|化功大法|摘星手|星宿毒掌|摘星功|天山杖法|冥天九式|小无相功|九阴神功|玉女心法|黯然销魂掌|美女拳|九阴白骨爪|全真剑法|玉女剑法|玄铁剑法|长恨鞭法|千灭银针手|纤云步法|八荒六合唯我独尊功|北冥神功|天羽奇剑|长恨剑法|天山六阳掌|天山折梅手|月影舞步|小无相功|先天功|金雁功|全真剑法|同归剑法|养心拳|空明拳|一阳指|三花聚顶掌|天罡北斗阵|碧海神功|落英身法|玉箫剑法|落英神剑掌|弹指神通|兰花拂穴手|旋风扫叶腿|九阴白骨爪|摧心掌|神龙心法|神龙鞭法|毒龙匕法|化骨绵掌|意形步法|碧血心法|龙凤双翔|太祖长拳|岳家散手|破军刀法|虎钤剑法|格虎戟|杨家梨花枪|太祖盘龙棍|三十六路猛虎鞭法|龙象般若功|御雪遁形|血刀经|火焰刀|降伏轮|无上大力杵|大手印|天王爪|雪山内功|雪山剑法|金乌刀法|凌霄拳法|飘雪掌法|雁翼身法}
复制代码
导入后将公孙止武功触发改为颜色触发。
北大侠客行MUD,中国最好的MUD |