查看单个帖子
旧 2007-02-20   #1
f_lilin
中级会员
级别:3 | 在线时长:30小时 | 升级还需:20小时级别:3 | 在线时长:30小时 | 升级还需:20小时级别:3 | 在线时长:30小时 | 升级还需:20小时
 
f_lilin 的头像
 
注册: 04年10月16日
来自: 中国
帖子: 60
声望力: 22
声望: 26 f_lilin 初领妙道
现金:522两梁山币
资产:2220两梁山币
致谢数: 0
获感谢文章数:0
获会员感谢数:0
模仿乌鸦说话的triggers

#CLASS {chatrobot}
#TRIGGER {【%x】(%x)~(*~):(*)} {#t- chatrobot;target=%1;msg=%2;tempchat=%eval( %pos( "琳儿", @target));#if (@tempchat=0) {panduan1};#t+ chatrobot}
#TRIGGER {【%x】(%x):(*)} {#t- chatrobot;target=%1;msg=%2;tempchat=%eval( %pos( "琳儿", @target));#if (@tempchat=0) {panduan};#t+ chatrobot}
#CLASS 0
#ALIAS sa1 {#case (%random( 1, 14)) {#sh 1;chatmsg=%concat( "chat ", @target, "为什么说", @msg, "?")} {#sh 2;chatmsg=%concat( "chat ", @target, "说的", @msg, " 是什么意思?")} {#sh 3;chatmsg=%concat( "chat ", @msg, "?")} {#sh 4;chatmsg="chat* hehe"} {#sh 5;chatmsg="chat* sister"} {#sh 6;chatmsg="chat* ?"} {#sh 7;chatmsg="chat ......."} {#sh 8;chatmsg="chat* hmm"} {#sh 9;chatmsg=%concat( "chat ", @target, "你怎么知道", @msg, "?")} {#sh 10;chatmsg=%concat( "chat 刚刚", @target, "不是说了,", @msg)} {#sh 11;chatmsg=%concat( "chat 我当然知道", @msg)} {#sh 12;chatmsg="chat 然后呢?"} {#sh 13;chatmsg="chat 真的吗?"} {#sh 14;chatmsg="chat 我不这么认为。"}}
#ALIAS sa2 {#wa %random( 100, 1000);#case (%random( 1, 7)) {#sh 1;chatmsg=%concat( "chat ", @target, ",", "你是在问我吗?")} {#sh 2;chatmsg=%concat( "chat 关于", @msg, "....")} {#sh 3;chatmsg="chat 呃……"} {#sh 4;chatmsg="chat 这个问题嘛……"} {#sh 5;chatmsg=%concat( "chat ", @target, ",知道这个问题的答案对你那么重要吗?")} {#sh 6;chatmsg=%concat( "chat ", @target, ",你能不能说清楚一点?")} {#sh 7;chatmsg=%concat( "chat ", @target, ",我不懂你问的问题。")}}
#ALIAS sa3 {#wa %random( 100, 1000);msg=%replace( @msg, "你", "我");#case (%random( 1, 10)) {chatmsg=%concat( "chat ", @target, ",", "你是说", @msg, "吗?")} {chatmsg=%concat( "chat 你确定", @msg, "?")} {chatmsg=%concat( "chat ", @msg, "跟你有什么关系")} {chatmsg=%concat( "chat 嗯……", @target, "说得好!")} {chatmsg=%concat( "chat ", @target, "你为什么对", @msg, "这么有兴趣?")} {chatmsg=%concat( "chat 为什么你认为", @msg, "?")} {chatmsg="chat 换个话题吧。"} {chatmsg="chat 才怪!"} {chatmsg="chat 不一定吧"} {chatmsg="chat 有这个可能。。。"}}
#ALIAS sa4 {#wa %random( 100, 1000);msg=%replace( @msg, "我", "你");#case (%random( 1, 8)) {chatmsg=%concat( "chat ", @target, "你是说", @msg, "吗?")} {chatmsg=%concat( "chat 真的?", @msg, "?")} {chatmsg=%concat( "chat 如果", @msg, ",我能帮你什么忙吗?")} {chatmsg="chat* hmm"} {chatmsg=%concat( "chat 你认为", @msg, "?")} {chatmsg="chat 我有同感。"} {chatmsg=%concat( "chat 你说的 ", @msg, " ,我不能苟同!")} {chatmsg=%concat( "chat 有关 ", @msg, " 的话题到此为止好吗?")}}
#ALIAS sa5 {#case (%random( 1, 8)) {chatmsg="chat 不许拍!再拍你爷爷我把你的爪子剁下来"} {chatmsg="chat 狗腿又发痒了..."} {chatmsg="chat 你们都要好好练功!不要辜负了我的一片苦心"} {chatmsg="chat 「嘎~~嘎~~」"} {chatmsg="chat 我真是神勇无比,天下无敌"} {chatmsg="chat 杀入大雷音寺,抢了他的莲花宝座!"} {chatmsg="chat 大家好!"} {chatmsg="chat 我杀人都杀的手软了。"}}
#ALIAS tsay {@chatmsg}
#ALIAS panduan1 {msg=%replace( @msg, "~", "");chatpd=%eval( %pos( "为什么", @msg)+%pos( "你", @msg)+%pos( "我", @msg));#if (@chatpd=0) {sa1;#sh say1};chatpd=%pos( "为什么", @msg);#if (@chatpd>0) {sa2;#sh say2};chatpd=%begins( @msg, "你");#if (@chatpd>0) {sa3;#sh say3};chatpd=%begins( @msg, "我");#if (@chatpd>0) {sa4;#sh say4};#wa %random( 1000, 3000);tsay}
#ALIAS panduan {chatpd=%eval( %pos( "为什么", @msg)+%pos( "你", @msg)+%pos( "我", @msg));#if (@chatpd=0) {sa1;#sh say1};chatpd=%pos( "为什么", @msg);#if (@chatpd>0) {sa2;#sh say2};chatpd=%begins( @msg, "你");#if (@chatpd>0) {sa3;#sh say3};chatpd=%begins( @msg, "我");#if (@chatpd>0) {sa4;#sh say4};#wa %random( 1000, 3000);tsay}
#VAR chatpd {0}
#VAR msg {听说龙少的镇元神功又有所进境了!?}
#VAR target {琳儿(Lilin)}
#VAR chatmsg {chat 听说龙少的镇元神功又有所进境了!?}
#VAR tempchat {1}



说明,把要屏蔽的id名字和自己的名字写在tempchat=%eval( %pos( "琳儿", @target))里,这里是琳儿说话不触发,否则自己说话也会触发。在7.21下通过,4.62下随机函数有问题,%random(1,14)时,好象只能给出1-5,不知道怎么回事
帅哥 f_lilin 当前离线  
+20 两梁山币
回复时引用此帖