【马帮】 机器对诗谈（两个trigger来对诗）

[argus]

多数玩家天生白痴，悟性奇低。好在literate不用4倍切磋，可以对诗来升级。
跟探春对诗的机器比较好做，但是跟她对诗比较麻烦一点，要经常花钱买枕头去睡觉。跟茶博士对诗的机器就比较难做点，但不需要睡觉。咱们就来谈谈茶博士对诗机器的制作，其实，非常简单，一共就需要唐诗三百首一本和两个trigger。

唐诗三百首放在zmud目录下，在zmud中输入#file 1 poem.txt，准备工作就完成了。

第一个trigger是：

^{> 茶|茶}博士提笔在墙上写道：(%x)$
poem=%1;
length=%len(@poem);
#var word1 %copy(@poem,1,2);
#var word2 %copy(@poem,3,2);
#var word3 %copy(@poem,5,2);
#var word4 %copy(@poem,7,2);
#var word5 %copy(@poem,9,2);
#var word6 %copy(@poem,11,2);
#var word7 %copy(@poem,13,2);
#var word8 %copy(@poem,15,2);
#var word9 %copy(@poem,17,2);
#var word10 %copy(@poem,19,2);
#var word11 %copy(@poem,21,2);
#var word12 %copy(@poem,23,2);
#var word13 %copy(@poem,25,2);
#var word14 %copy(@poem,27,2);
#var list %grep(1,"@word1");
#T+ chaboshi;
#forall @list {#sh 茶博士 %i 茶博士}

解释一下，poem为出的题目，length为题目里的长度(一个字的长度为2）。word1～word14为题目里的每个字。list为唐诗三百首里所有包含第一个字（word1）的诗句的集合。有时候这个集合比较大，也可以检查word1是否为比较平常的字，如：一，天，海等等，如果为这些字，就用word2。
具体命令：#if (%ismember(@word1,"一|天|海|...")) {#var list %grep(1,"@word2")} {#var list %grep(1,"@word1")};
后面#T+ chaboshi 打开class chaboshi。#forall @list {#sh 茶博士 %i 茶博士}：在屏幕显示list里所有的诗句。

下面是第二个trigger：请设定这个trigger的class为chaboshi

茶博士%s(%x)%s(%x)%s茶博士
poem1=%1;poem2=%2;#var temp @poem1@poem2;
#if (@length=10 and %ismember(0,"%pos(@word1,"@poem1")|%pos(@word2,"@poem1")|%pos(@word3,"@poem1")|%pos(@word4,"@poem1")|%pos(@word5,"@poem1")")=0) {#T- chaboshi;answer @poem1};
#if (@length=10 and %ismember(0,"%pos(@word1,"@poem2")|%pos(@word2,"@poem2")|%pos(@word3,"@poem2")|%pos(@word4,"@poem2")|%pos(@word5,"@poem2")")=0) {#T- chaboshi;answer @poem2};
#if (@length=14 and %ismember(0,"%pos(@word1,"@poem1")|%pos(@word2,"@poem1")|%pos(@word3,"@poem1")|%pos(@word4,"@poem1")|%pos(@word5,"@poem1")|%pos(@word6,"@poem1")|%pos(@word7,"@poem1")")=0) {#T- chaboshi;answer @poem1};
#if (@length=14 and %ismember(0,"%pos(@word1,"@poem2")|%pos(@word2,"@poem2")|%pos(@word3,"@poem2")|%pos(@word4,"@poem2")|%pos(@word5,"@poem2")|%pos(@word6,"@poem2")|%pos(@word7,"@poem2")")=0) {#T- chaboshi;answer @poem2};
#if (@length=20 and %ismember(0,"%pos(@word1,"@temp")|%pos(@word2,"@temp")|%pos(@word3,"@temp")|%pos(@word4,"@temp")|%pos(@word5,"@temp")|%pos(@word6,"@temp")|%pos(@word7,"@temp")|%pos(@word8,"@temp")|%pos(@word9,"@temp")|%pos(@word10,"@temp")")=0) {#T- chaboshi;answer @temp};
#if (@length=28 and %ismember(0,"%pos(@word1,"@temp")|%pos(@word2,"@temp")|%pos(@word3,"@temp")|%pos(@word4,"@temp")|%pos(@word5,"@temp")|%pos(@word6,"@temp")|%pos(@word7,"@temp")|%pos(@word8,"@temp")|%pos(@word9,"@temp")|%pos(@word10,"@temp")|%pos(@word11,"@temp")|%pos(@word12,"@temp")|%pos(@word13,"@temp")|%pos(@word14,"@temp")")=0) {#T- chaboshi;answer @temp}

解释一下，茶博士出的诗句一般为7个字、10个字或者14个字。少数情况为5个字，更少数情况为其它字数（这个本机器无法对出，其实一般不会碰到这种情况）。
我们先检查字数对不对，字数对了，再看是不是题目里的每个字都在诗句里，如果都在，那就是这句诗了，answer吧。