查看单个帖子
旧 2003-07-09   #1
medu
高级会员
级别:8 | 在线时长:180小时 | 升级还需:45小时级别:8 | 在线时长:180小时 | 升级还需:45小时
 
medu 的头像
 
注册: 03年06月08日
帖子: 138
声望力: 24
声望: 30 medu 初领妙道
精华:1
现金:93两梁山币
资产:16715两梁山币
致谢数: 0
获感谢文章数:0
获会员感谢数:0
最简单的对诗机器人

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
medu 当前离线  
回复时引用此帖