path: root/mbbsd/dice.c

/* $Id$ */
#include "bbs.h"

#define DICE_TXT   BBSHOME "/etc/dice.txt"
#define DICE_DATA  BBSHOME "/etc/dice.data"
#define DICE_WIN   BBSHOME "/etc/windice.log"
#define DICE_LOST  BBSHOME "/etc/lostdice.log"

#define B_MAX    500
#define B_MIN    10
#define B_COMMON 1
#define B_TIMES  5
#define B_THIRD  3


typedef struct dicedata_t {
    int             mybet;
    int             mymoney;
}               dicedata_t;

static void
set_bingo(int flag[100],int bet[])
{
    int             i, j = 0, k = 0, m = 0;

    for (i = 0; i < 3; i++)
    for (j = 2; j > i; j--)
        if (bet[j] < bet[j - 1]) {
        m = bet[j];
        bet[j] = bet[j - 1];
        bet[j - 1] = m;
        }
    for (i = 0; i < 100; i++)
    flag[i] = 0;

    for (i = 0; i < 3; i++)
    flag[bet[i]]++;
    j = bet[0] + bet[1] + bet[2];

    if ((abs(bet[1] - bet[0]) == 1 && abs(bet[2] - bet[0]) == 2) ||
    (abs(bet[2] - bet[0]) == 1 && abs(bet[1] - bet[0]) == 2))
    flag[66] = B_TIMES;

    if (j < 10) {
    flag[7] = B_COMMON;
    for (i = 0; i < 3; i++)
        if (bet[i] == 4)
        flag[74] = B_TIMES;
    } else if (j > 11) {
    flag[8] = B_COMMON;
    for (i = 0; i < 3; i++)
        if (bet[i] == 3)
        flag[83] = B_TIMES;
    } else
    flag[11] = B_THIRD;

    for (i = 0; i < 3; i++)
    for (j = i; j < 3; j++) {
        m = bet[i];
        k = bet[j];
        if (m != k)
        flag[m * 10 + k] = B_TIMES;
    }
}

static int
bingo(int flag[100],int mybet)
{
    return flag[mybet];
}

int
IsNum(char *a, int n)
{
    int             i;

    for (i = 0; i < n; i++)
    if (a[i] > '9' || a[i] < '0')
        return 0;
    return 1;
}

#if 0
static int
IsSNum(char *a)
{
    int             i;

    for (i = 0; a[i]; i++)
    if (a[i] > '9' || a[i] < '0')
        return 0;
    return 1;
}
#endif

static void
show_data(void)
{
    move(0, 0);
    outs("\033[31m       ┌───────────────────────"
       "──────────┐\033[m\n");
    outs("\033[45;37m倍率一\033[m\033[31m │ \033[33m[1]押一點 [2]押二點 "
     "[3]押三點 [4]押四點 [5]押五點 [6]押六點    \033[31m  │\033[m\n");
    outs("\033[31m       │ \033[33m[7]押小   [8]押大                    "
       "                          \033[31m  │\033[m\n");
    outs("\033[31m       │                                              "
       "                    │\033[m\n");
    outs("\033[45;37m賠率三\033[m\033[31m │ \033[33m[11]押中(總點數等於11"
       "或10)                                     \033[31m  │\033[m\n");
    outs("\033[31m       │                                              "
       "                    │\033[m\n");
    outs("\033[45;37m賠率五\033[m\033[31m │ \033[33m[74]押小且四點 [83]押"
       "大且三點 [66]押連號                       \033[31m  │\033[m\n");
    outs("\033[31m       │                                              "
       "                    │\033[m\n");
    outs("\033[31m       │ \033[33m[12]押一二點 [13]押一三點 [14]押一四點"
       " [15]押一五點 [16]押一六點\033[31m │\033[m\n");
    outs("\033[31m       │ \033[33m[23]押二三點 [24]押二四點 [25]押二五點"
       " [26]押二六點 [34]押三四點\033[31m │\033[m\n");
    outs("\033[31m       │ \033[33m[35]押三五點 [36]押三六點 [45]押四五點"
       " [46]押四六點 [56]押五六點\033[31m │\033[m\n");
    outs("\033[31m       └────────────────────────"
       "─────────┘\033[m\n");
}

static void
show_count(int value[100],int index, int money)
{
    int             i = 0, count = 2, j, k;

    value[index] += money;
    move(14, 0);
    clrtoline(18);
    for (i = 1, j = 13; i <= 8; i++, count += 12) {
    if (i == 6) {
        j = 14;
        count = 2;
    }
    move(j, count);
    prints("[%2d]:%d ", i, value[i]);
    }

    count = 2;
    i = 15;
    for (j = 1; j <= 5; j++)
    for (k = j + 1; k <= 6; k++, count += 12) {
        if (j == 2 && k == 4) {
        i = 16;
        count = 2;
        } else if (j == 4 && k == 5) {
        i = 17;
        count = 2;
        }
        move(i, count);
        prints("[%d%d]:%d ", j, k, value[j * 10 + k]);
    }

    move(18, 2);
    prints("[11]:%d", value[11]);
    move(18, 14);
    prints("[66]:%d", value[66]);
    move(18, 26);
    prints("[74]:%d", value[74]);
    move(18, 38);
    prints("[83]:%d", value[83]);
}

static int
check_index(int index)
{
    int             i, tp[] = {1, 2, 3, 4, 5, 6, 7, 8, 11, 12, 13, 14, 15, 16, 23, 24, 25,
    26, 34, 35, 36, 45, 46, 56, 66, 74, 83};
    if (index < 0 || index > 100)
    return 0;
    for (i = 0; i < 27; i++)
    if (index == tp[i])
        return 1;
    return 0;
}

static int
del(int value[100],int total, dicedata_t * table)
{
    int             index, money;
    char            data[10];
    int             i;

    while (1) {
    do {
        move(22, 0);
        clrtoeol();
        getdata(21, 0, "輸入退選的數字(打q離開): ", data, 3, LCECHO);
        if (data[0] == 'q' || data[0] == 'Q')
        return 0;
    } while (!IsNum(data, strlen(data)));

    index = atoi(data);
    for (i = 0; i < total; i++) {
        if (table[i].mybet == index) {
        do {
            getdata(21, 0, "多少錢: ", data, 10, LCECHO);
        } while (!IsNum(data, strlen(data)));
        money = atoi(data);
        if (money > table[i].mymoney) {
            move(22, 0);
            clrtoeol();
            outs("不夠扣啦");
            i--;
            continue;
        }
        demoney(money);
        move(19, 0);
        clrtoeol();
        prints("你現在有 %u Ptt$歐", cuser.money);
        table[i].mymoney -= money;
        show_count(value, index, -money);
        break;
        }
    }
    }
    return 0;
}

static int
IsLegal(char *data)
{
    int             money = atoi(data);
    if (IsNum(data, strlen(data)) && money <= B_MAX && money >= B_MIN)
    return money;
    return 0;
}

static void
show_output(int bet[])
{
    int             i, j = 10;

    move(12, 0);
    clrtoline(17);
    /* 暫時降啦 因為那各clrtoline怪怪的 */ // XXX 哪裡怪?
    for (i = 13; i <= 18; i++) {
    move(i, 0);
    outs("                               ");
    }
    move(12, 0);
    outs("\033[1;31m        ┌──────────────────────"
       "─┐\033[m\n\n\n\n\n\n");
    outs("\033[1;31m        └──────────────────────"
       "─┘\033[m");
    for (i = 0; i < 3; i++, j += 25) {
    switch (bet[i]) {
    case 1:
        move(13, j);
        outs("\033[37m╭────╮\033[m");
        move(14, j);
        outs("\033[37m│        │\033[m");
        move(15, j);
        outs("\033[37m│   ●   │\033[m");
        move(16, j);
        outs("\033[37m│        │\033[m");
        move(17, j);
        outs("\033[37m╰────╯\033[m");
        break;
    case 2:
        move(13, j);
        outs("\033[37m╭────╮\033[m");
        move(14, j);
        outs("\033[37m│      ●│\033[m");
        move(15, j);
        outs("\033[37m│        │\033[m");
        move(16, j);
        outs("\033[37m│●      │\033[m");
        move(17, j);
        outs("\033[37m╰────╯\033[m");
        break;
    case 3:
        move(13, j);
        outs("\033[37m╭────╮\033[m");
        move(14, j);
        outs("\033[37m│      ●│\033[m");
        move(15, j);
        outs("\033[37m│   ●   │\033[m");
        move(16, j);
        outs("\033[37m│●      │\033[m");
        move(17, j);
        outs("\033[37m╰────╯\033[m");
        break;
    case 4:
        move(13, j);
        outs("\033[37m╭────╮\033[m");
        move(14, j);
        outs("\033[37m│●    ●│\033[m");
        move(15, j);
        outs("\033[37m│        │\033[m");
        move(16, j);
        outs("\033[37m│●    ●│\033[m");
        move(17, j);
        outs("\033[37m╰────╯\033[m");
        break;
    case 5:
        move(13, j);
        outs("\033[37m╭────╮\033[m");
        move(14, j);
        outs("\033[37m│●    ●│\033[m");
        move(15, j);
        outs("\033[37m│   ●   │\033[m");
        move(16, j);
        outs("\033[37m│●    ●│\033[m");
        move(17, j);
        outs("\033[37m╰────╯\033[m");
        break;
    case 6:
        move(13, j);
        outs("\033[37m╭────╮\033[m");
        move(14, j);
        outs("\033[37m│●    ●│\033[m");
        move(15, j);
        outs("\033[37m│●    ●│\033[m");
        move(16, j);
        outs("\033[37m│●    ●│\033[m");
        move(17, j);
        outs("\033[37m╰────╯\033[m");
        break;
    }
    }
}

#define lockreturn0(unmode, state) if(lockutmpmode(unmode, state)) return 0

int
dice_main(void)
{
    int             flag[100], value[100];
    char            input[10], data[256], ch;
    dicedata_t      table[256];
    int             bet[3], index, money = 0, i, ya = 0, j, total, sig = 0;
    FILE           *winfp;

    more(DICE_TXT, NA);
    reload_money();
    if (cuser.money < 10) {
    move(19, 0);
    outs("\033[1;37m超過十元再來玩吧~~\033[m");
    pressanykey();
    return 0;
    }
    lockreturn0(DICE, LOCK_MULTI);
    winfp = fopen(DICE_WIN, "a");
    if (!winfp)
    return 0;

    do {
    total = 0;
    i = 0;
    ch = 'y';
    clear();
    show_data();
    for (j = 0; j < 3; j++)
        bet[j] = random() % 6 + 1;

    for (j = 0; j < 100; j++)
        value[j] = 0;

    while (1) {
        move(19, 0);
        prints("\033[1;32m你現在有\033[1;31m %u \033[1;32mPtt$歐\033[m",
           cuser.money);
        getdata(20, 0, "\033[1;37m數字:加選 d:退選 s:開始或離開\033[m: ",
            input, 5, LCECHO);
        reload_money();
        if (input[0] != 's' && input[0] != 'd' && cuser.money < 10) {
        move(21, 0);
        clrtoeol();
        outs("\033[1;37m超過十元才能賭~\033[m");
        continue;
        }
        if (input[0] == 'd' || input[0] == 'D') {
        del(value, i, table);
        continue;
        }
        if (input[0] == 's' || input[0] == 'S')
        break;

        if (!IsNum(input, strlen(input)))
        continue;

        index = atoi(input);
        if (check_index(index) == 0)
        continue;
        /* 輸入錢的loop */
        while (1) {
        if (cuser.money < 10)
            break;
        getdata(21, 0, "\033[1;32m賭多少錢呢\033[1;37m(大於10 小於500)"
            "\033[m: ", input, sizeof(input), LCECHO);
        if (!(money = IsLegal(input)) || input[0] == '0')
            continue;
        reload_money();
        if (money > cuser.money)
            continue;
        for (j = 0, sig = 0; j < i; j++)
            if (table[j].mybet == index) {
            if (table[j].mymoney == B_MAX)
                sig = 2;
            else if (table[j].mymoney + money > B_MAX) {
                sig = 1;
                break;
            } else {
                vice(money, "骰子");
                table[j].mymoney += money;
                j = -1;
                break;
            }
            }
        if (sig == 2)
            break;
        if (sig == 1)
            continue;
        if (j != -1) {
            bzero((char *)&table[i], sizeof(dicedata_t));
            table[i].mybet = index;
            table[i++].mymoney = money;
            vice(money, "骰子");
        }
        break;
        }
        reload_money();
        move(19, 0);
        prints("\033[1;32m你現在有 \033[1;31m%u\033[1;32m Ptt$歐",
           cuser.money);
        if (sig != 2)
        show_count(value,index, money);
    }

    if (i == 0) {
        fclose(winfp);
        unlockutmpmode();
        return 0;
    }
    show_output(bet);
    set_bingo(flag, bet);

    for (j = 0; j < i; j++) {
        if (table[j].mymoney <= 0)
        continue;
        ya = bingo(flag, table[j].mybet);
        if (ya == 0) {
        continue;
        }
        demoney(table[j].mymoney * ya + table[j].mymoney);
        total += table[j].mymoney * ya;
        if (table[j].mymoney * ya > 500) {  /* 超過500塊錢才做log 減少io */
        snprintf(data, sizeof(data),
             "%-15s 押%-2d選項%-8d塊錢 中了%d倍 淨賺:%-8d\n",
             cuser.userid, table[j].mybet,
             table[j].mymoney, ya, table[j].mymoney * ya);
        fputs(data, winfp);
        }
        ya = 0;
    }

    if (total > 0) {
        move(21, 0);
        prints("\033[1;32m你贏了 \033[1;31m%d\033[1;32m Ptt$ 唷~~"
           "                    \033[m", total);
    } else {
        move(21, 0);
        clrtoeol();
        outs("\033[1;32m真可惜 下次再來碰碰運氣吧\033[m");
    }

    move(19, 0);
    clrtoeol();
    prints("\033[1;32m你現在有 \033[1;31m%u\033[1;32m Ptt$歐\033[m",
           cuser.money);

    getdata(23, 0, "\033[1;32m繼續奮鬥[\033[1;37my/n\033[1;32m]\033[m: ",
        input, 2, LCECHO);
    } while (input[0] != 'n' && input[0] != 'N');
    fclose(winfp);
    unlockutmpmode();
    return 0;
}