作者ronnywang (★闪亮小铭加油★)
标题转帐时会告诉你税有多少..
时间Mon Feb 10 12:01:45 2003
/*
这样子修改就可以让使用者知道你转帐的税和本金是多少
顺便多加个让你选yes 或 no 确认是否要转帐 */
/* $Id: cal.c,v 1.20 2002/08/23 11:33:01 in2 Exp $ */
/* 修改 p_give 使得转帐多增加一个Yes or No确认确实转帐金额以及扣的税金
增加部分 //ADD 到 //ADD END 之间
删去部分 //DEL 到 //DEL END 之间
*/
#include "bbs.h"
/* 防堵 Multi play */
static int
count_multiplay(int unmode)
{
register int i, j;
register userinfo_t *uentp;
for (i = j = 0; i < USHM_SIZE; i++) {
uentp = &(SHM->uinfo[i]);
if (uentp->uid == usernum)
if (uentp->lockmode == unmode)
j++;
}
return j;
}
int
lockutmpmode(int unmode, int state)
{
int errorno = 0;
if (currutmp->lockmode)
errorno = 1;
else if (count_multiplay(unmode))
errorno = 2;
if (errorno && !(state == LOCK_THIS && errorno == LOCK_MULTI)) {
clear();
move(10, 20);
if (errorno == 1)
prints("请先离开 %s 才能再 %s ",
ModeTypeTable[currutmp->lockmode],
ModeTypeTable[unmode]);
else
prints("抱歉! 您已有其他线相同的ID正在%s",
ModeTypeTable[unmode]);
pressanykey();
return errorno;
}
setutmpmode(unmode);
currutmp->lockmode = unmode;
return 0;
}
int
unlockutmpmode()
{
currutmp->lockmode = 0;
return 0;
}
/* 使用钱的函数 */
#define VICE_NEW "vice.new"
/* Heat:发票 */
int
vice(int money, char *item)
{
char buf[128];
unsigned int viceserial = (currutmp->lastact % 1000000) * 100 + rand() % 100;
FILE *fp;
demoney(-money);
snprintf(buf, sizeof(buf), BBSHOME "/home/%c/%s/%s",
cuser.userid[0], cuser.userid, VICE_NEW);
fp = fopen(buf, "a");
if (!fp) {
return 0;
}
fprintf(fp, "%08d\n", viceserial);
fclose(fp);
snprintf(buf, sizeof(buf),
"%s 花了%d$ 编号[%08d]", item, money, viceserial);
mail_id(cuser.userid, buf, "etc/vice.txt", "Ptt经济部");
return 0;
}
#define lockreturn(unmode, state) if(lockutmpmode(unmode, state)) return
#define lockreturn0(unmode, state) if(lockutmpmode(unmode, state)) return 0
#define lockbreak(unmode, state) if(lockutmpmode(unmode, state)) break
#define SONGBOOK "etc/SONGBOOK"
#define OSONGPATH "etc/SONGO"
static int
osong(char *defaultid)
{
char destid[IDLEN + 1], buf[200], genbuf[200], filename[256],
say[51];
char receiver[45], ano[2];
FILE *fp, *fp1;
//*fp2;
fileheader_t mail;
int nsongs;
strlcpy(buf, Cdatedate(&now), sizeof(buf));
lockreturn0(OSONG, LOCK_MULTI);
/* Jaky 一人一天点一首 */
if (!strcmp(buf, Cdatedate(&cuser.lastsong)) && !HAS_PERM(PERM_SYSOP)) {
move(22, 0);
outs("你今天已经点过罗，明天再点吧....");
refresh();
pressanykey();
unlockutmpmode();
return 0;
}
if (cuser.money < 200) {
move(22, 0);
outs("点歌要200银唷!....");
refresh();
pressanykey();
unlockutmpmode();
return 0;
}
move(12, 0);
clrtobot();
snprintf(buf, sizeof(buf),
"亲爱的 %s 欢迎来到欧桑自动点歌系统\n", cuser.userid);
outs(buf);
trans_buffer[0] = 0;
if (!defaultid) {
getdata(13, 0, "要点给谁呢:[可直接按 Enter 先选歌]",
destid, sizeof(destid), DOECHO);
while (!destid[0]) {
a_menu("点歌歌本", SONGBOOK, 0);
clear();
getdata(13, 0, "要点给谁呢:[可按 Enter 重新选歌]",
destid, sizeof(destid), DOECHO);
}
} else
strlcpy(destid, defaultid, sizeof(destid));
/* Heat:点歌者匿名功能 */
getdata(14, 0, "要匿名吗?[y/n]:", ano, sizeof(ano), DOECHO);
if (!destid[0]) {
unlockutmpmode();
return 0;
}
getdata_str(14, 0, "想要要对他(她)说..:", say,
sizeof(say), DOECHO, "我爱你..");
snprintf(save_title, sizeof(save_title),
"%s:%s", (ano[0] == 'y') ? "匿名者" : cuser.userid, say);
getdata_str(16, 0, "寄到谁的信箱(可用E-mail)?",
receiver, sizeof(receiver), LCECHO, destid);
if (!trans_buffer[0]) {
outs("\n接着要选歌罗..进入歌本好好的选一首歌吧..^o^");
pressanykey();
a_menu("点歌歌本", SONGBOOK, 0);
}
if (!trans_buffer[0] || strstr(trans_buffer, "home") ||
strstr(trans_buffer, "boards") || !(fp = fopen(trans_buffer, "r"))) {
unlockutmpmode();
return 0;
}
strlcpy(filename, OSONGPATH, sizeof(filename));
stampfile(filename, &mail);
unlink(filename);
if (!(fp1 = fopen(filename, "w"))) {
fclose(fp);
unlockutmpmode();
return 0;
}
strlcpy(mail.owner, "点歌机", sizeof(mail.owner));
snprintf(mail.title, sizeof(mail.title),
"◇ %s 点给 %s ",
(ano[0] == 'y') ? "匿名者" : cuser.userid, destid);
while (fgets(buf, 200, fp)) {
char *po;
if (!strncmp(buf, "标题: ", 6)) {
clear();
move(10, 10);
prints("%s", buf);
pressanykey();
fclose(fp);
unlockutmpmode();
return 0;
}
while ((po = strstr(buf, "<~Src~>"))) {
po[0] = 0;
snprintf(genbuf, sizeof(genbuf),
"%s%s%s", buf,
(ano[0] == 'y') ? "匿名者" : cuser.userid, po + 7);
strlcpy(buf, genbuf, sizeof(buf));
}
while ((po = strstr(buf, "<~Des~>"))) {
po[0] = 0;
snprintf(genbuf, sizeof(genbuf), "%s%s%s", buf, destid, po + 7);
strlcpy(buf, genbuf, sizeof(buf));
}
while ((po = strstr(buf, "<~Say~>"))) {
po[0] = 0;
snprintf(genbuf, sizeof(genbuf), "%s%s%s", buf, say, po + 7);
strlcpy(buf, genbuf, sizeof(buf));
}
fputs(buf, fp1);
}
fclose(fp1);
fclose(fp);
//do_append(OSONGMAIL "/.DIR", &mail2, sizeof(mail2));
if (do_append(OSONGPATH "/.DIR", &mail, sizeof(mail)) != -1) {
cuser.lastsong = now;
/* Jaky 超过 500 首歌就开始砍 */
nsongs = get_num_records(OSONGPATH "/.DIR", sizeof(mail));
if (nsongs > 500) {
delete_range(OSONGPATH "/.DIR", 1, nsongs - 500);
}
/* 把第一首拿掉 */
vice(200, "点歌");
}
snprintf(save_title, sizeof(save_title),
"%s:%s", (ano[0] == 'y') ? "匿名者" : cuser.userid, say);
hold_mail(filename, destid);
if (receiver[0]) {
#ifndef USE_BSMTP
bbs_sendmail(filename, save_title, receiver);
#else
bsmtp(filename, save_title, receiver, 0);
#endif
}
clear();
outs(
"\n\n 恭喜您点歌完成罗..\n"
" 一小时内动态看板会自动重新更新\n"
" 大家就可以看到您点的歌罗\n\n"
" 点歌有任何问题可以到Note板的找答案\n"
" 也可在Note板看到自己的点歌记录\n"
" 有任何保贵的意见也欢迎到Note板留话\n"
" 让亲切的板主为您服务\n");
pressanykey();
sortsong();
topsong();
unlockutmpmode();
return 1;
}
int
ordersong()
{
osong(NULL);
return 0;
}
static int
inmailbox(int m)
{
passwd_query(usernum, &xuser);
cuser.exmailbox = xuser.exmailbox + m;
passwd_update(usernum, &cuser);
return cuser.exmailbox;
}
#if !HAVE_FREECLOAK
/* 花钱选单 */
int
p_cloak()
{
char buf[4];
getdata(b_lines - 1, 0,
currutmp->invisible ? "确定要现身?[y/N]" : "确定要隐身?[y/N]",
buf, sizeof(buf), LCECHO);
if (buf[0] != 'y')
return 0;
if (cuser.money >= 19) {
vice(19, "cloak");
currutmp->invisible %= 2;
outs((currutmp->invisible ^= 1) ? MSG_CLOAKED : MSG_UNCLOAK);
refresh();
safe_sleep(1);
}
return 0;
}
#endif
int
p_from()
{
char ans[4];
getdata(b_lines - 2, 0, "确定要改故乡?[y/N]", ans, sizeof(ans), LCECHO);
if (ans[0] != 'y')
return 0;
reload_money();
if (cuser.money < 49)
return 0;
if (getdata_buf(b_lines - 1, 0, "请输入新故乡:",
currutmp->from, sizeof(currutmp->from), DOECHO)) {
vice(49, "home");
currutmp->from_alias = 0;
}
return 0;
}
int
p_exmail()
{
char ans[4], buf[200];
int n;
if (cuser.exmailbox >= MAX_EXKEEPMAIL) {
snprintf(buf, sizeof(buf),
"容量最多增加 %d 封，不能再买了。", MAX_EXKEEPMAIL);
outs(buf);
refresh();
return 0;
}
snprintf(buf, sizeof(buf),
"您曾增购 %d 封容量，还要再买多少?", cuser.exmailbox);
getdata_str(b_lines - 2, 0, buf, ans, sizeof(ans), LCECHO, "10");
n = atoi(ans);
if (!ans[0] || !n)
return 0;
if (n + cuser.exmailbox > MAX_EXKEEPMAIL)
n = MAX_EXKEEPMAIL - cuser.exmailbox;
reload_money();
if (cuser.money < n * 1000)
return 0;
vice(n * 1000, "mail");
inmailbox(n);
return 0;
}
void
mail_redenvelop(char *from, char *to, int money, char mode)
{
char genbuf[200];
fileheader_t fhdr;
FILE *fp;
snprintf(genbuf, sizeof(genbuf), "home/%c/%s", to[0], to);
stampfile(genbuf, &fhdr);
if (!(fp = fopen(genbuf, "w")))
return;
fprintf(fp, "作者: %s\n"
"标题: 招财进宝\n"
"时间: %s\n"
"\033[1;33m亲爱的 %s ：\n\n\033[m"
"\033[1;31m 我包给你一个 %d 元的大红包喔 ^_^\n\n"
" 礼轻情意重，请笑纳...... ^_^\033[m\n"
,from, ctime(&now), to, money);
fclose(fp);
snprintf(fhdr.title, sizeof(fhdr.title), "招财进宝");
strlcpy(fhdr.owner, from, sizeof(fhdr.owner));
if (mode == 'y')
vedit(genbuf, NA, NULL);
snprintf(genbuf, sizeof(genbuf), "home/%c/%s/.DIR", to[0], to);
append_record(genbuf, &fhdr, sizeof(fhdr));
}
/* 计算赠与税 */
int
give_tax(int money)
{
int i, tax = 0;
static int tax_bound[] = {1000000, 100000, 10000, 1000, 0};
static double tax_rate[] = {0.4, 0.3, 0.2, 0.1, 0.08};
for (i = 0; i <= 4; i++)
if (money > tax_bound[i]) {
tax += (money - tax_bound[i]) * tax_rate[i];
money -= (money - tax_bound[i]);
}
return (tax <= 0) ? 1 : tax;
}
int
p_give()
{
int money, tax;
char id[IDLEN + 1], genbuf[90];
//ADD 增加一个字串阵列告知使用者转多少钱,税占多少
char askbuf[90];
//ADD END
move(1, 0);
usercomplete("这位幸运儿的id:", id);
if (!id[0] || !strcmp(cuser.userid, id) ||
!getdata(2, 0, "要给多少钱:", genbuf, 7, LCECHO))
return 0;
money = atoi(genbuf);
reload_money();
if (money > 0 && cuser.money >= money) {
tax = give_tax(money);
if (money - tax <= 0)
return 0; /* 缴完税就没钱给了 */
deumoney(searchuser(id), money - tax);
demoney(-money);
snprintf(genbuf, sizeof(genbuf), "%s\t给%s\t%d\t%s",
cuser.userid, id, money - tax, ctime(&now));
log_file(FN_MONEY, genbuf);
//ADD 加一行印出税和钱分别是多少, 顺便问问yes or no
snprintf(askbuf , sizeof(askbuf) , "你要转%d元(扣税%d元)吗(Y/N)", money,tax);
genbuf[0] = 'n';
getdata(3, 0, askbuf , genbuf , 2 , LCECHO);
if (genbuf[0] != 'Y' && genbuf[0] != 'y') return 0;
//ADD END
genbuf[0] = 'n';
//DEL
// getdata(3, 0, "要自行书写红包袋吗？[y/N]", genbuf, 2, LCECHO);
//DEL END
//ADD
getdata(4, 0, "要自行书写红包袋吗？[y/N]", genbuf, 2, LCECHO);
//ADD END
mail_redenvelop(cuser.userid, id, money - tax, genbuf[0]);
}
return 0;
}
int
p_sysinfo(void)
{
char buf[128], *cpuloadstr;
int load;
load = cpuload(buf);
cpuloadstr = (load < 5 ? "良好" : (load < 20 ? "尚可" : "过重"));
clear();
showtitle("系统资讯", BBSNAME);
move(2, 0);
prints("您现在位於 " TITLE_COLOR BBSNAME "\033[m (" MYIP ")\n"
"系统负载情况: %s\n"
"线上服务人数: %d/%d\n"
"编译时间: %s\n"
"起始时间: %s\n",
cpuloadstr, SHM->UTMPnumber,
#ifdef DYMAX_ACTIVE
GLOBALVAR[9] > 1000 ? GLOBALVAR[9] : MAX_ACTIVE,
#else
MAX_ACTIVE,
#endif
COMPILE_TIME, ctime(&start_time));
pressanykey();
return 0;
}
/* 小计算机 */
static void
ccount(float *a, float b, int cmode)
{
switch (cmode) {
case 0:
case 1:
case 2:
*a += b;
break;
case 3:
*a -= b;
break;
case 4:
*a *= b;
break;
case 5:
*a /= b;
break;
}
}
int
cal()
{
float a = 0;
char flo = 0, ch = 0;
char mode[6] = {' ', '=', '+', '-', '*', '/'}, cmode = 0;
char buf[100] = "[ 0] [ ] ", b[20] = "0";
move(b_lines - 1, 0);
clrtoeol();
outs(buf);
move(b_lines, 0);
clrtoeol();
outs("\033[44m 小计算机 \033[31;47m (0123456789+-*/=) "
"\033[30m输入 \033[31m "
"(Q)\033[30m 离开 \033[m");
while (1) {
ch = igetch();
switch (ch) {
case '\r':
ch = '=';
case '=':
case '+':
case '-':
case '*':
case '/':
ccount(&a, atof(b), cmode);
flo = 0;
b[0] = '0';
b[1] = 0;
move(b_lines - 1, 0);
snprintf(buf, sizeof(buf), "[%13.2f] [%c] ", a, ch);
outs(buf);
break;
case '.':
if (!flo)
flo = 1;
else
break;
case '1':
case '2':
case '3':
case '4':
case '5':
case '6':
case '7':
case '8':
case '9':
case '0':
if (strlen(b) > 13)
break;
if (flo || b[0] != '0')
snprintf(b, sizeof(b), "%s%c", b, ch);
else
b[0] = ch;
move(b_lines - 1, 0);
snprintf(buf, sizeof(buf), "[%13s] [%c]", b, mode[(int)cmode]);
outs(buf);
break;
case 'q':
return 0;
}
switch (ch) {
case '=':
a = 0;
cmode = 0;
break;
case '+':
cmode = 2;
break;
case '-':
cmode = 3;
break;
case '*':
cmode = 4;
break;
case '/':
cmode = 5;
break;
}
}
}
--
※ 发信站: 批踢踢实业坊(ptt.csie.ntu.edu.tw)
◆ From: 210.58.159.136
※ 编辑: ronnywang 来自: 210.58.159.136 (02/10 12:02)