Initial revision

git-svn-id: http://opensvn.csie.org/pttbbs/pttbbs/trunk/pttbbs@1 63ad8ddf-47c3-0310-b6dd-a9e9d9715204

1 files changed, 625 insertions, 0 deletions

diff --git a/mbbsd/card.c b/mbbsd/card.c
new file mode 100644
index 00000000..cfa10b0c
--- /dev/null
+++ b/mbbsd/card.c
@@ -0,0 +1,625 @@
+/* $Id: card.c,v 1.1 2002/03/07 15:13:48 in2 Exp $ */
+#include <stdio.h>
+#include <stdlib.h>
+#include <sys/types.h>
+#include "config.h"
+#include "pttstruct.h"
+#include "common.h"
+#include "modes.h"
+#include "proto.h"
+extern int usernum;
+
+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*/
+
+extern userec_t cuser;
+
+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];
+
+    sprintf(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, 2, LCECHO);
+    if(buf2[0] == 'y' || buf2[0] == 'Y')
+        return 1;
+    return 0;
+}
+
+static int card_ask() {
+    char buf[100], buf2[3];
+
+    sprintf(buf, "[ %s ]您現在共有 %d P幣,  還要加牌嗎? [y/N]",
+            cuser.userid, cuser.money);
+    getdata(20, 0 , buf, buf2, 2,  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;
+}
+
+extern int b_lines;
+
+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;
+}