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

[rikku]

一个trigger哦：
#file 1 poem.txt
(poem.txt就是唐诗)

{茶博士提笔在墙上写道：(*)}
quest=%1
buffer=%grep( 1, %left( @quest, 2))
buffer=%replace( @buffer, " ", "")
#FORALL @buffer {buf=%i
qst=@quest
patt=""
#while (%len( @buf)>0) {patt=@patt|%left( @buf, 2)
buf=%delete( @buf, 1, 2)}
match=1
#while (%len( @qst)>0) {#if (%ismember( %left( @qst, 2), @patt)==0) {match=0
qst=""}
qst=%delete( @qst, 1, 2)}
#if (@match==1) {buffer=%i
answer @buffer
buf=%left( @buffer, %len( @quest))
answer @buf
buffer=%delete( @buffer, 1, %len( @buf))
answer @buffer}}