summaryrefslogtreecommitdiffstats
diff options
context:
space:
mode:
authorscw <scw@63ad8ddf-47c3-0310-b6dd-a9e9d9715204>2004-05-27 11:38:59 +0800
committerscw <scw@63ad8ddf-47c3-0310-b6dd-a9e9d9715204>2004-05-27 11:38:59 +0800
commitde1d2ccca9838a2deaa4c134d427d96b93aed515 (patch)
tree46d30a2bdec43ee4fd3344820dd2287d493824a2
parentc9140226c7f58854908da9e1bdf0a776b76784c2 (diff)
downloadpttbbs-de1d2ccca9838a2deaa4c134d427d96b93aed515.tar
pttbbs-de1d2ccca9838a2deaa4c134d427d96b93aed515.tar.gz
pttbbs-de1d2ccca9838a2deaa4c134d427d96b93aed515.tar.bz2
pttbbs-de1d2ccca9838a2deaa4c134d427d96b93aed515.tar.lz
pttbbs-de1d2ccca9838a2deaa4c134d427d96b93aed515.tar.xz
pttbbs-de1d2ccca9838a2deaa4c134d427d96b93aed515.tar.zst
pttbbs-de1d2ccca9838a2deaa4c134d427d96b93aed515.zip
Anonymous money giving.
git-svn-id: http://opensvn.csie.org/pttbbs/trunk/pttbbs@2024 63ad8ddf-47c3-0310-b6dd-a9e9d9715204
-rw-r--r--mbbsd/cal.c12
1 files changed, 11 insertions, 1 deletions
diff --git a/mbbsd/cal.c b/mbbsd/cal.c
index a59eb9f9..5fda1597 100644
--- a/mbbsd/cal.c
+++ b/mbbsd/cal.c
@@ -376,7 +376,17 @@ p_give()
demoney(-money);
log_file(FN_MONEY, LOG_CREAT | LOG_VF, "%s\t給%s\t%d\t%s",
cuser.userid, id, money - tax, ctime(&now));
- mail_redenvelop(cuser.userid, id, money - tax, getans("要自行書寫紅包袋嗎?[y/N]"));
+#ifdef PLAY_ANGEL
+ getuser(id);
+ if (!strcmp(xuser.myangel, cuser.userid)){
+ mail_redenvelop(
+ getkey("他是你的小主人,是否匿名?[Y/n]") == 'n' ?
+ cuser.userid : "小天使", id, money - tax,
+ getans("要自行書寫紅包袋嗎?[y/N]"));
+ } else
+#endif
+ mail_redenvelop(cuser.userid, id, money - tax,
+ getans("要自行書寫紅包袋嗎?[y/N]"));
}
return 0;
}