参考，屏蔽骂人机器人脚本

[jesh]

我教会老婆玩mud，老婆也比较喜欢(主要是省钱)，乐在其中，我也有时间做点别的。
可最近总站刷屏骂人的厉害，怕老婆受到影响,乘其睡觉，熬夜写了屏蔽脚本
本来没打算贴出来，但总站人还比较好，很晚了还很热情的招呼
遂决定給大分享，算是抛砖引玉了，共同努力净化环境。
高手们looklook就是了，新手们可以用用，有兴趣也可以学习一下
xixi
主要用到正则表达式的内容，不啰嗦了，说正题：
以屏蔽闲聊做例子，其他的参照改改就是了，你要说不会该，我倒！我也没办法了。
触发语句： ^[>]?[ ]*【闲聊】(.*)
脚本：
#IF ((%regex( "%1", ".*你.{0,8}(姐|妈|妹|女|婆|娘|妞|妯|姨|m|M|媳|奶|姑|婶|妻|G|爸|爷|爹|P){1}.*")!=0) or (%regex( "%1", ".*(w.{0,2}i.{0,2}z|ｔ.{0,2}ｘ.{0,2}ｈ|天.{0,2}下.{0,2}会|y.{0,1}k.{0,1}t|ｗ.{0,2}ｉ.{0,2}ｚ){1}.*")!=0) or (%regex( "%1", ".*(傻|煞|傻|巫|肉|阴|小|嫩|乳|阴|性|清|口|大){1}.{0,6}(B|b|笔|逼|师|棒|毛|户|部|交|穴|华|肉|奶|唇|道){1}.*")!=0) or (%regex( "%1", ".*xyj\.thu\.cn.*")!=0)) {#gag} {#cap %{char}chat}
银触发语句采用了正则表达式需勾选触发器界面Perl regular expression
忘了说我家用的是zmud7.21了，不知道低版本的能不能用。
觉得有用就复制下来改改就可以用了,
也欢迎高手指正，本人已经N年没写机器人了，被逼无赖（幸福）。
呵呵
请大家多帮帮我家Roloo
Roloo's H

[bbs108]

高手啊，目前这些还看不懂，学习中

另，啥叫正则表达式啊，如果有地方可以自学，也请提供，谢谢。

[jesh]

作者: bbs108

高手啊，目前这些还看不懂，学习中

另，啥叫正则表达式啊，如果有地方可以自学，也请提供，谢谢。

正则表达式30分钟入门教程

http://www.unibetter.com/deerchao/zh...aocheng-se.htm


高手算不上了，能对大家有帮助就行了

[jesh]

另外这个“^[>]?[ ]*”对大家很有帮助的
在触发中多用吧，绝对杜绝误触发和命令提示符影响。

[bbs108]

爽，我就喜欢这个

谢谢

*bow

[950611]

学习一下。。。谢谢

[950611]

在来逛逛。。。。呵呵

[bbs108]

%regex( "%1", ".*你.{0,8}(姐|妈|妹|女|婆|娘|妞|妯|姨|m|M|媳|奶|姑|婶|妻|G|爸|爷|爹|P){1}.*")!=0

解释为 判断在取得的字符串%1内是否有 “你”后面一个字是 {姐|妈|妹|女|婆|娘|妞|妯|姨|m|M|媳|奶|姑|婶|妻|G|爸|爷|爹|P}这些东西中的一个
有返回1 即非零

是这个意思吧

[jesh]

作者: bbs108

%regex( "%1", ".*你.{0,8}(姐|妈|妹|女|婆|娘|妞|妯|姨|m|M|媳|奶|姑|婶|妻|G|爸|爷|爹|P){1}.*")!=0

解释为 判断在取得的字符串%1内是否有 “你”后面一个字是 {姐|妈|妹|女|婆|娘|妞|妯|姨|m|M|媳|奶|姑|婶|妻|G|爸|爷|爹...

是的，之间可以有0~8个任意字符，也就是写
你 妈 你%妈 你………妈 都会被屏蔽

[bbs108]

估计这个算法很费时间

每次一旦我说话了，就gag不掉 紧接着我说话那人