1
2
3
4
5
6
7
8
9
10
11
12
13
14
15
16
17
18
19
20
21
22
23
24
25
26
27
28
29
30
31
32
33
34
35
36
37
38
39
40
41
42
43
44
45
46
47
48
49
50
51
52
53
54
55
56
57
58
59
60
61
62
63
64
65
66
67
68
69
70
71
72
73
74
75
76
77
78
79
80
81
82
83
84
85
86
87
88
89
90
91
92
93
94
95
96
97
98
99
100
101
102
103
104
105
106
|
/* $Id: lovepaper.c,v 1.10 2002/07/22 19:02:00 in2 Exp $ */
#include "bbs.h"
#define DATA "etc/lovepaper.dat"
int
x_love()
{
char buf1[200], save_title[TTLEN + 1];
char receiver[61], path[STRLEN] = "home/";
int x, y = 0, tline = 0, poem = 0;
FILE *fp, *fpo;
struct tm *gtime;
fileheader_t mhdr;
setutmpmode(LOVE);
gtime = localtime(&now);
snprintf(buf1, sizeof(buf1), "%c/%s/love%d%d",
cuser.userid[0], cuser.userid, gtime->tm_sec, gtime->tm_min);
strcat(path, buf1);
move(1, 0);
clrtobot();
outs("\n歡迎使用情書產生器 v0.00 板 \n");
outs("有何難以啟齒的話,交由系統幫你說吧.\n爸爸說 : 濫情不犯法.\n");
if (!getdata(7, 0, "收信人：", receiver, sizeof(receiver), DOECHO))
return 0;
if (receiver[0] && !(searchuser(receiver) &&
getdata(8, 0, "主 題：", save_title,
sizeof(save_title), DOECHO))) {
move(10, 0);
outs("收信人或主題不正確, 情書無法傳遞. ");
pressanykey();
return 0;
}
fpo = fopen(path, "w");
fprintf(fpo, "\n");
if ((fp = fopen(DATA, "r"))) {
while (fgets(buf1, 100, fp)) {
switch (buf1[0]) {
case '#':
break;
case '@':
if (!strncmp(buf1, "@begin", 6) || !strncmp(buf1, "@end", 4))
tline = 3;
else if (!strncmp(buf1, "@poem", 5)) {
poem = 1;
tline = 1;
fprintf(fpo, "\n\n");
} else
tline = 2;
break;
case '1':
case '2':
case '3':
case '4':
case '5':
case '6':
case '7':
case '8':
case '9':
sscanf(buf1, "%d", &x);
y = (rand() % (x - 1)) * tline;
break;
default:
if (!poem) {
if (y > 0)
y = y - 1;
else {
if (tline > 0) {
fprintf(fpo, "%s", buf1);
tline--;
}
}
} else {
if (buf1[0] == '$')
y--;
else if (y == 0)
fprintf(fpo, "%s", buf1);
}
}
}
fclose(fp);
fclose(fpo);
if (vedit(path, YEA, NULL) == -1) {
unlink(path);
clear();
outs("\n\n 放棄寄情書\n");
pressanykey();
return -2;
}
sethomepath(buf1, receiver);
stampfile(buf1, &mhdr);
Rename(path, buf1);
strncpy(mhdr.title, save_title, TTLEN);
strlcpy(mhdr.owner, cuser.userid, sizeof(mhdr.owner));
sethomedir(path, receiver);
if (append_record(path, &mhdr, sizeof(mhdr)) == -1)
return -1;
hold_mail(buf1, receiver);
return 1;
}
return 0;
}
|
