最简单的对诗机器人

[medu]

pattern:茶博士提笔在墙上写道：(%x)
command:
#file 1 poem.txt;
exert recover;
exert refresh;
#for %grep(1,%left(%1,2)) {#if (%pos(%copy(%1,3,2),%i)) {#if (%pos(%copy(%1,5,2),%i)) {#if (%len(%1)>14) {answer %i} {answer %left(%i,%len(%1));
answer %right(%i,%len(%1));
}}}};
exert recover;
exert refresh;
hp;
#close 1

把poem.txt放到zmud的运行目录下，就可以到博士那里对诗了。
没有变量，没有ALIAS，是不是很简单？在ZMUD4.62 E文版下测试通过。*cool