荔园在线
荔园之美，在春之萌芽，在夏之绽放，在秋之收获，在冬之沉淀
[回到开始]
[上一篇][下一篇]
发信人: zzZzz (zzZzz), 信区: InstallBBS
标 题: 改良的robot.c(转寄)
发信站: 荔园晨风BBS站 (Thu Apr 25 14:00:05 2002), 转信
【 以下文字转载自 zzZzz 的信箱 】
【 原文由 jjksam@bbs.edu.cn 所发表 】
发信人: turbozv (_(^oo^)_), 信区: BBSMan_Dev
标 题: 改良的robot.c
发信站: BBS 水木清华站 (Sun Apr 21 22:55:36 2002)
/*
* 原始版本来至南大zhch
*
* 增加功能：从Robot版取文章作为语言规则.:)
* by ZV 2002.4.21
*
* TODO: 正加正则表达式。 现已找到 rx-1.5.tar.gz,正在调试中....
**/
#include "/root/bbssrc/include/bbs.h" // bbs.h目录
#include "netinet/in.h"
#include <netdb.h>
#include <netinet/in.h>
#include <sys/types.h>
#define DEBUG
#define MAXWORDS 1000
#define MAXWORDLEN 100
#define MAXREPLY 100
#define BBSROBOTBOARD "bbsRobot" // 机器人语言规则版
#define TOBBSHOST "202.115.16.2" // bbs ip
#define ROBOTNAME "ROBOT" // 机器人帐号
#define ROBOTPWD "faint123" // 机器人密码
char status[100]="login";
char words[MAXWORDS][2][MAXWORDLEN];
int words_num = 0;
char *noansi(char *s) {
static char buf[10000];
unsigned char c;
int len=0, ansiflag=0;
bzero(buf, 10000);
while(c=s[0]) {
s++;
if(ansiflag==0) {
if(c==27) {
ansiflag=1;
continue;
}
buf[len]=toupper(c);
len++;
} else
if(strchr("[0123456789;", c)==0) {
if(c=='H') {
buf[len]='\n';
len++;
}
ansiflag=0;
}
}
return buf;
}
int main() {
char buf[10000], *s;
int fd, num, i;
struct sockaddr_in blah;
FILE *fp;
bzero((char *)&blah, sizeof(blah));
blah.sin_family=AF_INET;
blah.sin_addr.s_addr=inet_addr(TOBBSHOST);
blah.sin_port=htons(23);
fd=socket(AF_INET, SOCK_STREAM, 0);
if(connect(fd, (struct sockaddr *)&blah, 16)<0) return -1;
close(0);
dup2(fd, 0);
while(1) {
bzero(buf, 10000);
if(read(0, buf, 9000)<=0) break;
s=strtok(buf, "\r\n");
while(s!=0) {
deal(noansi(s));
s=strtok(NULL, "\r\n");
}
}
}
int robot_read_reply_msg()
{
struct fileheader x;
FILE *fp;
bzero(&x, sizeof(x));
if ((fp = fopen(BBSHOME"/boards/"BBSROBOTBOARD"/.DIR", "r")) == NULL) {
printf(BBSHOME"/boards/"BBSROBOTBOARD"/.DIR 不存在!");
exit(-1);
}
words_num = 0;
while (fread(&x, sizeof(x), 1, fp) >0) {
int i;
if (!strstr(x.title, "|") || !(x.accessed[0] & FILE_MARKED)) continue;
for (i=0; x.title[i]!='|'; i++)
words[words_num][0][i] = toupper(x.title[i]);
words[words_num][0][i] = 0;
if ((i == 0) || (x.title[i+1] == 0)) continue;
strcpy(words[words_num][1], &x.title[i+1]);
#ifdef DEBUG
printf("[%2d] accessed[%d][%s] [%s]\n",words_num, x.accessed[0] & FILE_MAR
KED, words[words_num][0], words[words_num][1]);
#endif
words_num++;
}
fclose(fp);
}
int deal(char *buf) {
char iacreply[]={255,255,0};
usleep(20000);
// printf("%s\r\n", buf);
fflush(stdout);
if(strchr(buf, 255))
return write(0, iacreply, 2);
if(strstr(buf, " (^Z回)")) return domsg(buf);
if(!strcmp(status, "login"))
return dologin(buf);
if(!strcmp(status, "mainmenu"))
return domenu(buf);
if(strstr(buf, "请输入聊天代号：")) {
write(0, "\n", 1);
sleep(1);
return 1;
}
}
int domsg(char *frombuf) {
int rnd;
int i, reply_num;
char buf[100];
char reply[MAXREPLY][MAXWORDLEN];
for(i=0; (i<strlen(frombuf))&&(frombuf[i]!=':'); i++);
for(i++; (i<strlen(frombuf))&&(frombuf[i]!=':'); i++);
strcpy(&buf[0], &frombuf[i+1]);
i = strlen(buf)-6;
buf[i] = 0;
i--;
while ((i>=0) && (buf[i] == ' '))
buf[i--] = 0;
#ifdef DEBUG
printf("domsg[%s]\n", buf);
#endif
robot_read_reply_msg();
reply_num = 0;
for (i = 0; i<words_num; i++) {
if (strstr(buf, words[i][0])) {
strcpy(reply[reply_num], words[i][1]);
reply_num++;
if (reply_num > MAXREPLY)
break;
}
#ifdef DEBUG
if (strstr(buf, words[i][0])) {
printf("REPLY: [%d][%s][%s]\n", reply_num, buf, reply[reply_num-1]);
}
#endif
}
if (reply_num > 0) {
return rmsg(reply[rand() % reply_num]);
} else {
return rmsg(":)");
}
}
int dologin(char *buf) {
if(strstr(buf, "试用请输入")) return r(ROBOTNAME);
if(strstr(buf, "请输入密码")) return r(ROBOTPWD);
if(strstr(buf, "按任何键继续")) return r2("q");
if(strstr(buf, "[好朋友列表]")) return r2("q");
if(strstr(buf, "☆ 上次连线时间为")) return r2("q");
if(strstr(buf, "★ 主选单 ★")) return r("T");
if(strstr(buf, " (2)CHAT 小百合茶馆")) return r("2");
if(strstr(buf, "请输入聊天代号")) return r("");
if(strstr(buf, "您想删除重复的 LOGIN 吗")) return r("");
if(strstr(buf, "这个代号已经有人用了")) {
char buf2[80];
sprintf(buf2, "chzh%d", rand()%10);
return r(buf2);
}
}
int domenu(char *buf) {
return r("T");
strcpy(status, "ok");
}
int rmsg(char *s) {
char buf[256];
sleep(1);
sprintf(buf, "%c%s\n", 26, s);
write(0, buf, strlen(buf));
}
int r(char *s) {
char buf[256];
sleep(1);
sprintf(buf, "%s\n", s);
write(0, buf, strlen(buf));
}
int r2(char *buf) {
sleep(1);
write(0, buf, strlen(buf));
}
--
※ 修改:·turbozv 於 Apr 21 22:56:17 修改本文·[FROM: 202.115.22.145]
※ 来源:·BBS 水木清华站 smth.org·[FROM: 202.115.22.145]
--
※ 转载:·荔园晨风BBS站 bbs.szu.edu.cn·[FROM: 192.168.0.146]
[回到开始]
[上一篇][下一篇]
荔园在线首页 友情链接：深圳大学 深大招生 荔园晨风BBS S-Term软件 网络书店