/* $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(const 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(ANSI_COLOR(31) "       ┌───────────────────────"
	   "──────────┐" ANSI_RESET "\n");
    outs(ANSI_COLOR(45;37) "倍率一" ANSI_RESET ANSI_COLOR(31) " │ " ANSI_COLOR(33) "[1]押一點 [2]押二點 "
	 "[3]押三點 [4]押四點 [5]押五點 [6]押六點    " ANSI_COLOR(31) "  │" ANSI_RESET "\n");
    outs(ANSI_COLOR(31) "       │ " ANSI_COLOR(33) "[7]押小   [8]押大                    "
	   "                          " ANSI_COLOR(31) "  │" ANSI_RESET "\n");
    outs(ANSI_COLOR(31) "       │                                              "
	   "                    │" ANSI_RESET "\n");
    outs(ANSI_COLOR(45;37) "賠率三" ANSI_RESET ANSI_COLOR(31) " │ " ANSI_COLOR(33) "[11]押中(總點數等於11"
	   "或10)                                     " ANSI_COLOR(31) "  │" ANSI_RESET "\n");
    outs(ANSI_COLOR(31) "       │                                              "
	   "                    │" ANSI_RESET "\n");
    outs(ANSI_COLOR(45;37) "賠率五" ANSI_RESET ANSI_COLOR(31) " │ " ANSI_COLOR(33) "[74]押小且四點 [83]押"
	   "大且三點 [66]押連號                       " ANSI_COLOR(31) "  │" ANSI_RESET "\n");
    outs(ANSI_COLOR(31) "       │                                              "
	   "                    │" ANSI_RESET "\n");
    outs(ANSI_COLOR(31) "       │ " ANSI_COLOR(33) "[12]押一二點 [13]押一三點 [14]押一四點"
	   " [15]押一五點 [16]押一六點" ANSI_COLOR(31) " │" ANSI_RESET "\n");
    outs(ANSI_COLOR(31) "       │ " ANSI_COLOR(33) "[23]押二三點 [24]押二四點 [25]押二五點"
	   " [26]押二六點 [34]押三四點" ANSI_COLOR(31) " │" ANSI_RESET "\n");
    outs(ANSI_COLOR(31) "       │ " ANSI_COLOR(33) "[35]押三五點 [36]押三六點 [45]押四五點"
	   " [46]押四六點 [56]押五六點" ANSI_COLOR(31) " │" ANSI_RESET "\n");
    outs(ANSI_COLOR(31) "       └────────────────────────"
	   "─────────┘" ANSI_RESET "\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(const 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(ANSI_COLOR(1;31) "        ┌──────────────────────"
	   "─┐" ANSI_RESET "\n\n\n\n\n\n");
    outs(ANSI_COLOR(1;31) "        └──────────────────────"
	   "─┘" ANSI_RESET);
    for (i = 0; i < 3; i++, j += 25) {
	switch (bet[i]) {
	case 1:
	    move(13, j);
	    outs(ANSI_COLOR(37) "╭────╮" ANSI_RESET);
	    move(14, j);
	    outs(ANSI_COLOR(37) "│        │" ANSI_RESET);
	    move(15, j);
	    outs(ANSI_COLOR(37) "│   ●   │" ANSI_RESET);
	    move(16, j);
	    outs(ANSI_COLOR(37) "│        │" ANSI_RESET);
	    move(17, j);
	    outs(ANSI_COLOR(37) "╰────╯" ANSI_RESET);
	    break;
	case 2:
	    move(13, j);
	    outs(ANSI_COLOR(37) "╭────╮" ANSI_RESET);
	    move(14, j);
	    outs(ANSI_COLOR(37) "│      ●│" ANSI_RESET);
	    move(15, j);
	    outs(ANSI_COLOR(37) "│        │" ANSI_RESET);
	    move(16, j);
	    outs(ANSI_COLOR(37) "│●      │" ANSI_RESET);
	    move(17, j);
	    outs(ANSI_COLOR(37) "╰────╯" ANSI_RESET);
	    break;
	case 3:
	    move(13, j);
	    outs(ANSI_COLOR(37) "╭────╮" ANSI_RESET);
	    move(14, j);
	    outs(ANSI_COLOR(37) "│      ●│" ANSI_RESET);
	    move(15, j);
	    outs(ANSI_COLOR(37) "│   ●   │" ANSI_RESET);
	    move(16, j);
	    outs(ANSI_COLOR(37) "│●      │" ANSI_RESET);
	    move(17, j);
	    outs(ANSI_COLOR(37) "╰────╯" ANSI_RESET);
	    break;
	case 4:
	    move(13, j);
	    outs(ANSI_COLOR(37) "╭────╮" ANSI_RESET);
	    move(14, j);
	    outs(ANSI_COLOR(37) "│●    ●│" ANSI_RESET);
	    move(15, j);
	    outs(ANSI_COLOR(37) "│        │" ANSI_RESET);
	    move(16, j);
	    outs(ANSI_COLOR(37) "│●    ●│" ANSI_RESET);
	    move(17, j);
	    outs(ANSI_COLOR(37) "╰────╯" ANSI_RESET);
	    break;
	case 5:
	    move(13, j);
	    outs(ANSI_COLOR(37) "╭────╮" ANSI_RESET);
	    move(14, j);
	    outs(ANSI_COLOR(37) "│●    ●│" ANSI_RESET);
	    move(15, j);
	    outs(ANSI_COLOR(37) "│   ●   │" ANSI_RESET);
	    move(16, j);
	    outs(ANSI_COLOR(37) "│●    ●│" ANSI_RESET);
	    move(17, j);
	    outs(ANSI_COLOR(37) "╰────╯" ANSI_RESET);
	    break;
	case 6:
	    move(13, j);
	    outs(ANSI_COLOR(37) "╭────╮" ANSI_RESET);
	    move(14, j);
	    outs(ANSI_COLOR(37) "│●    ●│" ANSI_RESET);
	    move(15, j);
	    outs(ANSI_COLOR(37) "│●    ●│" ANSI_RESET);
	    move(16, j);
	    outs(ANSI_COLOR(37) "│●    ●│" ANSI_RESET);
	    move(17, j);
	    outs(ANSI_COLOR(37) "╰────╯" ANSI_RESET);
	    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(ANSI_COLOR(1;37) "超過十元再來玩吧~~" ANSI_RESET);
	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(ANSI_COLOR(1;32) "你現在有" ANSI_COLOR(1;31) " %u " ANSI_COLOR(1;32) "Ptt$歐" ANSI_RESET,
		   cuser.money);
	    getdata(20, 0, ANSI_COLOR(1;37) "數字:加選 d:退選 s:開始或離開" ANSI_RESET ": ",
		    input, 5, LCECHO);
	    reload_money();
	    if (input[0] != 's' && input[0] != 'd' && cuser.money < 10) {
		move(21, 0);
		clrtoeol();
		outs(ANSI_COLOR(1;37) "超過十元才能賭~" ANSI_RESET);
		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, ANSI_COLOR(1;32) "賭多少錢呢" ANSI_COLOR(1;37) "(大於10 小於500)"
			ANSI_RESET ": ", 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(ANSI_COLOR(1;32) "你現在有 " ANSI_COLOR(1;31) "%u" ANSI_COLOR(1;32) " 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(ANSI_COLOR(1;32) "你贏了 " ANSI_COLOR(1;31) "%d" ANSI_COLOR(1;32) " Ptt$ 唷~~"
		   "                    " ANSI_RESET, total);
	} else {
	    move(21, 0);
	    clrtoeol();
	    outs(ANSI_COLOR(1;32) "真可惜 下次再來碰碰運氣吧" ANSI_RESET);
	}

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

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