Initial revision

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

1 files changed, 447 insertions, 0 deletions

diff --git a/mbbsd/dice.c b/mbbsd/dice.c
new file mode 100644
index 00000000..d64ce63c
--- /dev/null
+++ b/mbbsd/dice.c
@@ -0,0 +1,447 @@
+/* $Id: dice.c,v 1.1 2002/03/07 15:13:48 in2 Exp $ */
+#include <stdio.h>
+#include <stdlib.h>
+#include <string.h>
+#include <sys/types.h>
+#include "config.h"
+#include "pttstruct.h"
+#include "common.h"
+#include "modes.h"
+#include "proto.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
+
+extern int usernum;
+static int flag[100], value[100];
+
+typedef struct dicedata_t {
+    int mybet;
+    int mymoney;
+} dicedata_t;
+
+static void set_bingo(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 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;
+}
+
+int IsSNum(char *a) {
+    int i;
+    
+    for(i = 0; a[i]; i++)
+	if(a[i] > '9' || a[i] < '0')
+	    return 0;
+    return 1;
+}
+
+static void show_data(void) {
+    move(0, 0);
+    prints("\033[31m       ┌───────────────────────"
+	   "──────────┐\033[m\n");
+    prints("\033[45;37m倍率一\033[m\033[31m │ \033[33m[1]押一點 [2]押二點 "
+	   "[3]押三點 [4]押四點 [5]押五點 [6]押六點    \033[31m  │\033[m\n");
+    prints("\033[31m       │ \033[33m[7]押小   [8]押大                    "
+	   "                          \033[31m  │\033[m\n");
+    prints("\033[31m       │                                              "
+	   "                    │\033[m\n");
+    prints("\033[45;37m賠率三\033[m\033[31m │ \033[33m[11]押中(總點數等於11"
+	   "或10)                                     \033[31m  │\033[m\n");
+    prints("\033[31m       │                                              "
+	   "                    │\033[m\n");
+    prints("\033[45;37m賠率五\033[m\033[31m │ \033[33m[74]押小且四點 [83]押"
+	   "大且三點 [66]押連號                       \033[31m  │\033[m\n");
+    prints("\033[31m       │                                              "
+	   "                    │\033[m\n");
+    prints("\033[31m       │ \033[33m[12]押一二點 [13]押一三點 [14]押一四點"
+	   " [15]押一五點 [16]押一六點\033[31m │\033[m\n");
+    prints("\033[31m       │ \033[33m[23]押二三點 [24]押二四點 [25]押二五點"
+	   " [26]押二六點 [34]押三四點\033[31m │\033[m\n");
+    prints("\033[31m       │ \033[33m[35]押三五點 [36]押三六點 [45]押四五點"
+	   " [46]押四六點 [56]押五六點\033[31m │\033[m\n");
+    prints("\033[31m       └────────────────────────"
+	   "─────────┘\033[m\n");
+}
+
+static void show_count(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;
+}
+
+extern userec_t cuser;
+
+static int del(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();
+		    prints("不夠扣啦");
+		    i--;
+		    continue;
+		}
+		demoney(money);
+		move(19,0);
+		clrtoeol();
+		prints("你現在有 %u Ptt$歐", cuser.money);
+		table[i].mymoney -= money;
+		show_count(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怪怪的 */
+    for(i = 13; i <= 18; i++) {
+	move(i,0);
+	prints("                               ");
+    }
+    move(12,0);
+    prints("\033[1;31m        ┌──────────────────────"
+	   "─┐\033[m\n\n\n\n\n\n");
+    prints("\033[1;31m        └──────────────────────"
+	   "─┘\033[m");
+    for(i = 0; i < 3; i++, j += 25) {
+	switch(bet[i]) {
+	case 1:
+	    move(13, j);prints("\033[37m╭────╮\033[m");
+	    move(14, j);prints("\033[37m│        │\033[m");
+	    move(15, j);prints("\033[37m│   ●   │\033[m");
+	    move(16, j);prints("\033[37m│        │\033[m");
+	    move(17, j);prints("\033[37m╰────╯\033[m");
+	    break;
+	case 2:
+	    move(13, j);prints("\033[37m╭────╮\033[m");
+	    move(14, j);prints("\033[37m│      ●│\033[m");
+	    move(15, j);prints("\033[37m│        │\033[m");
+	    move(16, j);prints("\033[37m│●      │\033[m");
+	    move(17, j);prints("\033[37m╰────╯\033[m");
+	    break;
+	case 3:
+	    move(13, j);prints("\033[37m╭────╮\033[m");
+	    move(14, j);prints("\033[37m│      ●│\033[m");
+	    move(15, j);prints("\033[37m│   ●   │\033[m");
+	    move(16, j);prints("\033[37m│●      │\033[m");
+	    move(17, j);prints("\033[37m╰────╯\033[m");
+	    break;
+	case 4:
+	    move(13, j);prints("\033[37m╭────╮\033[m");
+	    move(14, j);prints("\033[37m│●    ●│\033[m");
+	    move(15, j);prints("\033[37m│        │\033[m");
+	    move(16, j);prints("\033[37m│●    ●│\033[m");
+	    move(17, j);prints("\033[37m╰────╯\033[m");
+	    break;
+	case 5:
+	    move(13, j);prints("\033[37m╭────╮\033[m");
+	    move(14, j);prints("\033[37m│●    ●│\033[m");
+	    move(15, j);prints("\033[37m│   ●   │\033[m");
+	    move(16, j);prints("\033[37m│●    ●│\033[m");
+	    move(17, j);prints("\033[37m╰────╯\033[m");
+	    break;
+	case 6:
+	    move(13, j);prints("\033[37m╭────╮\033[m");
+	    move(14, j);prints("\033[37m│●    ●│\033[m");
+	    move(15, j);prints("\033[37m│●    ●│\033[m");
+	    move(16, j);prints("\033[37m│●    ●│\033[m");
+	    move(17, j);prints("\033[37m╰────╯\033[m");
+	    break;
+	}
+    }
+}
+
+#define lockreturn0(unmode, state) if(lockutmpmode(unmode, state)) return 0
+
+int dice_main(void) {
+    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/* , *lostfp */;
+    
+    more(DICE_TXT, NA);
+    reload_money();
+    if(cuser.money < 10){
+	move(19,0);
+	prints("\033[1;37m超過十元再來玩吧~~\033[m");
+	pressanykey();
+	return 0;
+    }
+    
+    lockreturn0(DICE, LOCK_MULTI);
+    winfp = fopen(DICE_WIN,"a");
+    /*lostfp = fopen(DICE_LOST,"a");*/
+    if(!winfp /*|| !lostfp*/)
+	return 0;
+
+    do {
+	total = 0; i = 0;
+	ch = 'y';
+	clear();
+	show_data();
+	for(j = 0; j < 3; j++)
+	    bet[j] = rand() % 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();
+		prints("\033[1;37m超過十元才能賭~\033[m");
+		continue;
+	    }
+	    if(input[0] == 'd' || input[0] == 'D') {
+		del(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, 9, 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(index, money);
+	}
+	
+	if(i == 0) {
+	    fclose(winfp);
+	    /*fclose(lostfp);*/
+	    unlockutmpmode();
+	    return 0;
+	}
+	
+	show_output(bet);
+	set_bingo(bet);
+
+	for(j = 0; j < i; j++) {
+	    if(table[j].mymoney <= 0)
+		continue;
+	    ya = bingo(table[j].mybet);
+	    if(ya == 0) {
+		/*sprintf(data, "%-15s 輸了 %-8d $", cuser.userid,
+			table[j].mymoney);
+		fprintf(lostfp, "%s\n", data);*/
+		continue;
+	    }
+	    demoney(table[j].mymoney * ya + table[j].mymoney);
+	    total += table[j].mymoney * ya;
+		if (table[j].mymoney * ya > 500){   /* 超過500塊錢才做log 減少io */
+	    	sprintf(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();
+	    prints("\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);
+    /*fclose(lostfp);*/
+    unlockutmpmode();
+    return 0;
+}