summaryrefslogtreecommitdiffstats
path: root/pttbbs/mbbsd/card.c
diff options
context:
space:
mode:
Diffstat (limited to 'pttbbs/mbbsd/card.c')
-rw-r--r--pttbbs/mbbsd/card.c660
1 files changed, 660 insertions, 0 deletions
diff --git a/pttbbs/mbbsd/card.c b/pttbbs/mbbsd/card.c
new file mode 100644
index 00000000..2ed12260
--- /dev/null
+++ b/pttbbs/mbbsd/card.c
@@ -0,0 +1,660 @@
+/* $Id$ */
+#include "bbs.h"
+
+static int
+card_remain(int cards[])
+{
+ int i, temp = 0;
+
+ for (i = 0; i < 52; i++)
+ temp += cards[i];
+ if (temp == 52)
+ return 1;
+ return 0;
+}
+
+/* 0 Spare , 1 heart , ...3 dimon */
+static int
+card_flower(int card)
+{
+ return (card / 13);
+}
+
+/* 1...13 */
+static int
+card_number(int card)
+{
+ return (card % 13 + 1);
+}
+
+static int
+card_select(int *now)
+{
+ char *cc[2] = {"\033[44m \033[m",
+ "\033[1;33;41m △ \033[m"};
+
+ while (1) {
+ move(20, 0);
+ clrtoeol();
+ prints("%s%s%s%s%s", (*now == 0) ? cc[1] : cc[0],
+ (*now == 1) ? cc[1] : cc[0],
+ (*now == 2) ? cc[1] : cc[0],
+ (*now == 3) ? cc[1] : cc[0],
+ (*now == 4) ? cc[1] : cc[0]);
+ switch (egetch()) {
+ case 'Q':
+ case 'q':
+ return 0;
+ case '+':
+ case ',':
+ return 1;
+ case '\r':
+ return -1;
+ case KEY_LEFT:
+ *now = (*now + 4) % 5;
+ break;
+ case KEY_RIGHT:
+ *now = (*now + 1) % 5;
+ break;
+ case '1':
+ *now = 0;
+ break;
+ case '2':
+ *now = 1;
+ break;
+ case '3':
+ *now = 2;
+ break;
+ case '4':
+ *now = 3;
+ break;
+ case '5':
+ *now = 4;
+ break;
+ }
+ }
+}
+
+static void
+card_display(int cline, int number, int flower, int show)
+{
+ int color = 31;
+ char *cn[13] = {"Ａ", "２", "３", "４", "５", "６",
+ "７", "８", "９", "10", "Ｊ", "Ｑ", "Ｋ"};
+ if (flower == 0 || flower == 3)
+ color = 36;
+ if ((show < 0) && (cline > 1 && cline < 8))
+ prints("│\033[1;33;42m※※※※\033[m│");
+ else
+ switch (cline) {
+ case 1:
+ prints("╭────╮");
+ break;
+ case 2:
+ prints("│\033[1;%dm%s\033[m │", color, cn[number - 1]);
+ break;
+ case 3:
+ if (flower == 1)
+ prints("│\033[1;%dm◢◣◢◣\033[m│", color);
+ else
+ prints("│\033[1;%dm ◢◣ \033[m│", color);
+ break;
+ case 4:
+ if (flower == 1)
+ prints("│\033[1;%dm████\033[m│", color);
+ else if (flower == 3)
+ prints("│\033[1;%dm◣██◢\033[m│", color);
+ else
+ prints("│\033[1;%dm◢██◣\033[m│", color);
+ break;
+ case 5:
+ if (flower == 0)
+ prints("│\033[1;%dm████\033[m│", color);
+ else if (flower == 3)
+ prints("│\033[1;%dm█◥◤█\033[m│", color);
+ else
+ prints("│\033[1;%dm◥██◤\033[m│", color);
+ break;
+ case 6:
+ if (flower == 0)
+ prints("│\033[1;%dm ◢◣ \033[m│", color);
+ else if (flower == 3)
+ prints("│\033[1;%dm◥◢◣◤\033[m│", color);
+ else
+ prints("│\033[1;%dm ◥◤ \033[m│", color);
+ break;
+ case 7:
+ prints("│ \033[1;%dm%s\033[m│", color, cn[number - 1]);
+ break;
+ case 8:
+ prints("╰────╯");
+ break;
+ }
+}
+
+static void
+card_show(int cpu[], int c[], int me[], int m[])
+{
+ int i, j;
+
+ for (j = 0; j < 8; j++) {
+ move(2 + j, 0);
+ clrtoeol();
+ for (i = 0; i < 5 && cpu[i] >= 0; i++)
+ card_display(j + 1, card_number(cpu[i]),
+ card_flower(cpu[i]), c[i]);
+ }
+
+ for (j = 0; j < 8; j++) {
+ move(11 + j, 0);
+ clrtoeol();
+ for (i = 0; i < 5 && me[i] >= 0; i++)
+ card_display(j + 1, card_number(me[i]), card_flower(me[i]), m[i]);
+ }
+}
+static void
+card_new(int cards[])
+{
+ memset(cards, 0, sizeof(int) * 52);
+}
+
+static int
+card_give(int cards[])
+{
+ int i, error;
+ for (error = 0, i = rand() % 52; cards[i] == 1 && error < 52; error++, i = rand() % 52);
+ if (error == 52)
+ card_new(cards);
+ /* Ptt: 這邊有 dead lock 的問題 */
+ cards[i] = 1;
+ return i;
+}
+
+static void
+card_start(char name[])
+{
+ clear();
+ stand_title(name);
+ move(1, 0);
+ prints(" \033[1;33;41m 電 腦 \033[m");
+ move(10, 0);
+ prints("\033[1;34;44m◆∼◆∼◆∼◆∼◆∼◆∼◆∼◆∼◆∼◆∼◆∼◆∼"
+ "◆∼◆∼◆∼◆∼◆∼◆∼◆∼◆\033[m");
+ move(19, 0);
+ prints(" \033[1;37;42m 自 己 \033[m");
+}
+
+static int
+card_99_add(int i, int aom, int count)
+{
+ if (i == 4 || i == 5 || i == 11)
+ return count;
+ else if (i == 12)
+ return count + 20 * aom;
+ else if (i == 10)
+ return count + 10 * aom;
+ else if (i == 13)
+ return 99;
+ else
+ return count + i;
+}
+
+static int
+card_99_cpu(int cpu[], int *count)
+{
+ int stop = -1;
+ int twenty = -1;
+ int ten = -1;
+ int kill = -1;
+ int temp, num[10];
+ int other = -1;
+ int think = 99 - (*count);
+ int i, j;
+
+ for (i = 0; i < 10; i++)
+ num[i] = -1;
+ for (i = 0; i < 5; i++) {
+ temp = card_number(cpu[i]);
+ if (temp == 4 || temp == 5 || temp == 11)
+ stop = i;
+ else if (temp == 12)
+ twenty = i;
+ else if (temp == 10)
+ ten = i;
+ else if (temp == 13)
+ kill = i;
+ else {
+ other = i;
+ num[temp] = i;
+ }
+ }
+ for (j = 9; j > 0; j--)
+ if (num[j] >= 0 && j != 4 && j != 5 && think >= j) {
+ (*count) += j;
+ return num[j];
+ }
+ if ((think >= 20) && (twenty >= 0)) {
+ (*count) += 20;
+ return twenty;
+ } else if ((think >= 10) && (ten >= 0)) {
+ (*count) += 10;
+ return ten;
+ } else if (stop >= 0)
+ return stop;
+ else if (kill >= 0) {
+ (*count) = 99;
+ return kill;
+ } else if (ten >= 0) {
+ (*count) -= 10;
+ return ten;
+ } else if (twenty >= 0) {
+ (*count) -= 20;
+ return twenty;
+ } else {
+ (*count) += card_number(cpu[0]);
+ return 0;
+ }
+}
+
+int
+card_99()
+{
+ int i, j, turn;
+ int cpu[5], c[5], me[5], m[5];
+ int cards[52];
+ int count = 0;
+ char *ff[4] = {"\033[1;36m黑桃", "\033[1;31m紅心",
+ "\033[1;31m方塊", "\033[1;36m黑花"};
+ char *cn[13] = {"Ａ", "２", "３", "４", "５", "６",
+ "７", "８", "９", "10", "Ｊ", "Ｑ", "Ｋ"};
+ for (i = 0; i < 5; i++)
+ cpu[i] = c[i] = me[i] = m[i] = -1;
+ setutmpmode(CARD_99);
+ card_start("天長地久");
+ card_new(cards);
+ for (i = 0; i < 5; i++) {
+ cpu[i] = card_give(cards);
+ me[i] = card_give(cards);
+ m[i] = 1;
+ }
+ card_show(cpu, c, me, m);
+ j = 0;
+ turn = 1;
+ move(21, 0);
+ clrtoeol();
+ prints("[0]目前 %d , 殘 %d 點\n", count, 99 - count);
+ prints("左右鍵移動游標, [Enter]確定, [ + ]表加二十(加十), [Q/q]放棄遊戲");
+ while (1) {
+ i = card_select(&j);
+ if (i == 0) /* 放棄遊戲 */
+ return 0;
+ count = card_99_add(card_number(me[j]), i, count);
+ move(21 + (turn / 2) % 2, 0);
+ clrtoeol();
+ prints("[%d]您出 %s%s\033[m 目前 \033[1;31m%d/\033[34m%d\033[m 點",
+ turn, ff[card_flower(me[j])],
+ cn[card_number(me[j]) - 1], count, 99 - count);
+ me[j] = card_give(cards);
+ turn++;
+ if (count < 0)
+ count = 0;
+ card_show(cpu, c, me, m);
+ pressanykey();
+ if (count > 99) {
+ move(22, 0);
+ clrtoeol();
+ prints("[%d]結果..YOU LOSS..目前 \033[1;31m%d/\033[34m%d\033[m 點",
+ turn, count, 99 - count);
+ pressanykey();
+ return 0;
+ }
+ i = card_99_cpu(cpu, &count);
+ move(21 + (turn / 2 + 1) % 2, 40);
+ prints("[%d]電腦出 %s%s\033[m 目前 \033[1;31m%d/\033[34m%d\033[m 點",
+ turn, ff[card_flower(cpu[i])],
+ cn[card_number(cpu[i]) - 1], count, 99 - count);
+ cpu[i] = card_give(cards);
+ turn++;
+ if (count < 0)
+ count = 0;
+ if (count > 99) {
+ move(22, 0);
+ clrtoeol();
+ prints("[%d]結果..YOU WIN!..目前 \033[1;31m%d/\033[34m%d\033[m 點",
+ turn, count, 99 - count);
+ pressanykey();
+ return 0;
+ }
+ if (!card_remain(cards)) {
+ card_new(cards);
+ for (i = 0; i < 5; i++) {
+ cards[me[i]] = 1;
+ cards[cpu[i]] = 1;
+ }
+ }
+ }
+}
+
+#define PMONEY (10)
+#define TEN_HALF (5) /* 十點半的Ticket */
+#define JACK (10) /* 黑傑克的Ticket */
+#define NINE99 (99) /* 99 的Ticket */
+
+static int
+game_log(int type, int money)
+{
+ FILE *fp;
+
+ if (money > 0)
+ demoney(money);
+
+ switch (type) {
+ case JACK:
+ fp = fopen(BBSHOME "/etc/card/jack.log", "a");
+ if (!fp)
+ return 0;
+ fprintf(fp, "%s win:%d\n", cuser.userid, money);
+ fclose(fp);
+ break;
+ case TEN_HALF:
+ fp = fopen(BBSHOME "/etc/card/tenhalf.log", "a");
+ if (!fp)
+ return 0;
+ fprintf(fp, "%s win:%d\n", cuser.userid, money);
+ fclose(fp);
+ break;
+ }
+ return 0;
+}
+
+static int
+card_double_ask()
+{
+ char buf[100], buf2[3];
+
+ snprintf(buf, sizeof(buf),
+ "[ %s ]您現在共有 %d P幣, 現在要分組(加收 %d 元)嗎? [y/N]",
+ cuser.userid, cuser.money, JACK);
+ reload_money();
+ if (cuser.money < JACK)
+ return 0;
+ getdata(20, 0, buf, buf2, sizeof(buf2), LCECHO);
+ if (buf2[0] == 'y' || buf2[0] == 'Y')
+ return 1;
+ return 0;
+}
+
+static int
+card_ask()
+{
+ char buf[100], buf2[3];
+
+ snprintf(buf, sizeof(buf), "[ %s ]您現在共有 %d P幣, 還要加牌嗎? [y/N]",
+ cuser.userid, cuser.money);
+ getdata(20, 0, buf, buf2, sizeof(buf2), LCECHO);
+ if (buf2[0] == 'y' || buf2[0] == 'Y')
+ return 1;
+ return 0;
+}
+
+static int
+card_alls_lower(int all[])
+{
+ int i, count = 0;
+ for (i = 0; i < 5 && all[i] >= 0; i++)
+ if (card_number(all[i]) <= 10)
+ count += card_number(all[i]);
+ else
+ count += 10;
+ return count;
+}
+
+static int
+card_alls_upper(int all[])
+{
+ int i, count;
+
+ count = card_alls_lower(all);
+ for (i = 0; i < 5 && all[i] >= 0 && count <= 11; i++)
+ if (card_number(all[i]) == 1)
+ count += 10;
+ return count;
+}
+
+static int
+card_jack(int *db)
+{
+ int i, j;
+ int cpu[5], c[5], me[5], m[5];
+ int cards[52];
+
+ for (i = 0; i < 5; i++)
+ cpu[i] = c[i] = me[i] = m[i] = -1;
+
+ if ((*db) < 0) {
+ card_new(cards);
+ card_start("黑傑克");
+ for (i = 0; i < 2; i++) {
+ cpu[i] = card_give(cards);
+ me[i] = card_give(cards);
+ }
+ } else {
+ card_start("黑傑克DOUBLE追加局");
+ cpu[0] = card_give(cards);
+ cpu[1] = card_give(cards);
+ me[0] = *db;
+ me[1] = card_give(cards);
+ }
+ c[1] = m[0] = m[1] = 1;
+ card_show(cpu, c, me, m);
+ if ((card_number(me[0]) == 0 && card_number(me[1]) == 12) ||
+ (card_number(me[1]) == 0 && card_number(me[0]) == 12)) {
+ if (card_flower(me[0]) == 0 && card_flower(me[1]) == 0) {
+ move(b_lines - 1, 0);
+ prints("非常不錯唷! (超級黑傑克!! 加 %d 元)", JACK * 10);
+ game_log(JACK, JACK * 10);
+ pressanykey();
+ return 0;
+ } else {
+ move(b_lines - 1, 0);
+ prints("很不錯唷! (黑傑克!! 加 %d 元)", JACK * 5);
+ game_log(JACK, JACK * 5);
+ pressanykey();
+ return 0;
+ }
+ }
+ if ((card_number(cpu[0]) == 0 && card_number(cpu[1]) == 12) ||
+ (card_number(cpu[1]) == 0 && card_number(cpu[0]) == 12)) {
+ c[0] = 1;
+ card_show(cpu, c, me, m);
+ move(b_lines - 1, 0);
+ prints("嘿嘿...不好意思....黑傑克!!");
+ game_log(JACK, 0);
+ pressanykey();
+ return 0;
+ }
+ if ((*db < 0) && (card_number(me[0]) == card_number(me[1])) &&
+ (card_double_ask())) {
+ *db = me[1];
+ me[1] = card_give(cards);
+ card_show(cpu, c, me, m);
+ }
+ i = 2;
+ while (i < 5 && card_ask()) {
+ me[i] = card_give(cards);
+ m[i] = 1;
+ card_show(cpu, c, me, m);
+ if (card_alls_lower(me) > 21) {
+ move(b_lines - 1, 0);
+ prints("嗚嗚...爆掉了!");
+ game_log(JACK, 0);
+ pressanykey();
+ return 0;
+ }
+ i++;
+ if ((i == 3) && (card_number(me[0]) == 7) &&
+ (card_number(me[1]) == 7) && (card_number(me[2]) == 7)) {
+ move(b_lines - 1, 0);
+ prints("很不錯唷! (幸運七號!! 加 %d 元)", JACK * 7);
+ game_log(JACK, JACK * 7);
+ pressanykey();
+ return 0;
+ }
+ }
+ if (i == 5) { /* 過五關 */
+ move(b_lines - 1, 0);
+ prints("好厲害唷! 過五關嘍! 加P幣 %d 元!", 5 * JACK);
+ game_log(JACK, JACK * 5);
+ pressanykey();
+ return 0;
+ }
+ j = 2;
+ c[0] = 1;
+ while ((card_alls_upper(cpu) < card_alls_upper(me)) ||
+ ((card_alls_upper(cpu) == card_alls_upper(me) && j < i) && j < 5)) {
+ cpu[j] = card_give(cards);
+ c[j] = 1;
+ if (card_alls_lower(cpu) > 21) {
+ card_show(cpu, c, me, m);
+ move(b_lines - 1, 0);
+ prints("呵呵...電腦爆掉了! 你贏了! 可得P幣 %d 元", JACK * 2);
+ game_log(JACK, JACK * 2);
+ pressanykey();
+ return 0;
+ }
+ j++;
+ }
+ card_show(cpu, c, me, m);
+ move(b_lines - 1, 0);
+ prints("哇哇...電腦贏了!");
+ game_log(JACK, 0);
+ pressanykey();
+ return 0;
+}
+
+int
+g_card_jack()
+{
+ int db;
+ char buf[3];
+
+ setutmpmode(JACK_CARD);
+ while (1) {
+ reload_money();
+ if (cuser.money < JACK) {
+ outs("您的錢不夠唷!去多發表些有意義的文章再來~~~");
+ return 0;
+ }
+ getdata(b_lines - 1, 0, "確定要玩黑傑克嗎 一次十元唷?(Y/N)?[N]",
+ buf, 3, LCECHO);
+ if ((*buf != 'y') && (*buf != 'Y'))
+ break;
+ else {
+ db = -1;
+ vice(PMONEY, "黑傑克");
+ card_jack(&db);
+ if (db >= 0)
+ card_jack(&db);
+ }
+ }
+ return 0;
+}
+
+static int
+card_all(int all[])
+{
+ int i, count = 0;
+
+ for (i = 0; i < 5 && all[i] >= 0; i++)
+ if (card_number(all[i]) <= 10)
+ count += 2 * card_number(all[i]);
+ else
+ count += 1;
+ return count;
+}
+
+static int
+ten_helf()
+{
+ int i, j;
+ int cpu[5], c[5], me[5], m[5];
+ int cards[52];
+
+ card_start("十點半");
+ card_new(cards);
+ for (i = 0; i < 5; i++)
+ cpu[i] = c[i] = me[i] = m[i] = -1;
+
+ cpu[0] = card_give(cards);
+ me[0] = card_give(cards);
+ m[0] = 1;
+ card_show(cpu, c, me, m);
+ i = 1;
+ while (i < 5 && card_ask()) {
+ me[i] = card_give(cards);
+ m[i] = 1;
+ card_show(cpu, c, me, m);
+ if (card_all(me) > 21) {
+ move(b_lines - 1, 0);
+ prints("嗚嗚...爆掉了!");
+ game_log(TEN_HALF, 0);
+ pressanykey();
+ return 0;
+ }
+ i++;
+ }
+ if (i == 5) { /* 過五關 */
+ move(b_lines - 1, 0);
+ prints("好厲害唷! 過五關嘍! 加P幣 %d 元!", 5 * PMONEY);
+ game_log(TEN_HALF, PMONEY * 5);
+ pressanykey();
+ return 0;
+ }
+ j = 1;
+ c[0] = 1;
+ while (j < 5 && ((card_all(cpu) < card_all(me)) ||
+ (card_all(cpu) == card_all(me) && j < i))) {
+ cpu[j] = card_give(cards);
+ c[j] = 1;
+ if (card_all(cpu) > 21) {
+ card_show(cpu, c, me, m);
+ move(b_lines - 1, 0);
+ prints("呵呵...電腦爆掉了! 你贏了! 可得P幣 %d 元", PMONEY * 2);
+ game_log(TEN_HALF, PMONEY * 2);
+ pressanykey();
+ return 0;
+ }
+ j++;
+ }
+ card_show(cpu, c, me, m);
+ move(b_lines - 1, 0);
+ prints("哇哇...電腦贏了!");
+ game_log(TEN_HALF, 0);
+ pressanykey();
+ return 0;
+}
+
+int
+g_ten_helf()
+{
+ char buf[3];
+
+ setutmpmode(TENHALF);
+ while (1) {
+ reload_money();
+ if (cuser.money < TEN_HALF) {
+ outs("您的錢不夠唷!去多發表些有意義的文章再來~~~");
+ return 0;
+ }
+ getdata(b_lines - 1, 0,
+ "\033[1;37m確定要玩十點半嗎 一次十元唷?(Y/N)?[N]\033[m",
+ buf, 3, LCECHO);
+ if (buf[0] != 'y' && buf[0] != 'Y')
+ return 0;
+ else {
+ vice(PMONEY, "十點半");
+ ten_helf();
+ }
+ }
+ return 0;
+}
generated by cgit v1.2.3 (git 2.25.1) at 2024-06-29 00:35:10 +0800