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

[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