Initial revision

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

1 files changed, 456 insertions, 0 deletions

diff --git a/mbbsd/dark.c b/mbbsd/dark.c
new file mode 100644
index 00000000..52741617
--- /dev/null
+++ b/mbbsd/dark.c
@@ -0,0 +1,456 @@
+/* $Id: dark.c,v 1.1 2002/03/07 15:13:48 in2 Exp $ */
+#include <stdio.h>
+#include <stdlib.h>
+#include <string.h>
+#include <unistd.h>
+#include <time.h>
+#include <sys/types.h>
+#include <sys/socket.h>
+#include "config.h"
+#include "pttstruct.h"
+#include "common.h"
+#include "proto.h"
+
+#define RED   1
+#define BLACK 0
+typedef short int sint;
+
+typedef struct item {
+    short int color,value,die,out;
+} item;
+
+typedef struct cur{
+    short int y,x,end;
+} cur;
+
+static item brd[4][8];                 
+static cur  curr;                            /*   6 個 bytes */
+extern userinfo_t *currutmp; 
+
+static char *rname[]={"兵","炮","傌","車","相","仕","帥"};
+static char *bname[]={"卒","包","馬","車","象","士","將"};
+
+static sint cury[]={3,5,7,9}, curx[]={5,9,13,17,21,25,29,33};
+static sint rcount,bcount,cont,fix;              /* cont:是否可連吃 */
+static sint my=0,mx=0,mly=-1,mlx=-1;             /* 移動的座標 跟 選子的座標 */
+
+static sint cur_eaty,cur_eatx;			 /* 吃掉對方其子的秀出座標 */
+static void brdswap(sint y,sint x,sint ly,sint lx) {
+    memcpy(&brd[y][x],&brd[ly][lx],sizeof(item));
+    brd[ly][lx].die=1;
+    brd[ly][lx].color=-1;                  /* 沒這個color */
+    brd[ly][lx].value=-1;
+}
+
+static void pprints(sint y,sint x,char* s) {
+    move(y,x);
+    clrtoeol();
+    prints("%s",s);
+}
+
+static sint Is_win(item att, item det, sint y, sint x, sint ly, sint lx) {
+    sint i,c=0,min,max;
+    if(att.value == 1)   /* 砲 */
+    {
+	if(y!=ly && x!=lx) return 0;
+	if((abs(ly-y)==1 && brd[y][x].die==0)||
+	   (abs(lx-x)==1 && brd[y][x].die==0))
+	    return 0;
+	if(y==ly){
+	    if(x>lx) {max=x;min=lx;}
+	    else {max=lx;min=x;}
+	    for(i=min+1;i<max;i++)
+		if(brd[y][i].die==0) c++;
+	}else if(x==lx){
+	    if(y>ly) {max=y;min=ly;}
+	    else {max=ly;min=y;}
+	    for(i=min+1;i<max;i++)
+		if(brd[i][x].die==0) c++;
+	}
+	if(c != 1) return 0;
+	if(det.die == 1) return 0;
+	return 1;
+    }
+    /* 非砲 */
+    if( ((abs(ly-y)==1&&x==lx) || (abs(lx-x)==1&&ly==y)) && brd[y][x].out==1 )
+    {
+	if(att.value == 0 && det.value == 6) return 1;
+	else if(att.value == 6 && det.value == 0) return 0;
+	else if(att.value >= det.value) return 1;
+	else return 0;
+    }
+    return 0;
+}
+
+static sint Is_move(sint y,sint x, sint ly, sint lx) {
+    if(brd[y][x].die==1 && ((abs(ly-y)==1&&x==lx) || (abs(lx-x)==1&&ly==y)))
+	return 1;
+    return 0;
+}
+
+static void brd_rand() {
+    sint y,x,index;
+    sint tem[32];
+    sint value[32]={0,0,0,0,0,1,1,2,2,3,3,4,4,5,5,6,
+		    0,0,0,0,0,1,1,2,2,3,3,4,4,5,5,6};
+
+    bzero(brd, sizeof(brd));
+    bzero(tem, sizeof(tem));
+    bzero(&curr, sizeof(curr));
+    srand(getpid()%2731+time(NULL)%3219);
+    for(y=0;y<4;y++)
+	for(x=0;x<8;x++)
+	    while(1) {
+		index=rand()%32;
+		if(tem[index]) continue;
+		brd[y][x].color=(index>15)?0:1;
+		brd[y][x].value=value[index];
+		tem[index]=1;
+		break;
+	    }
+}
+
+static void brd_prints() {
+    clear();
+    move(1,0);
+    outs("
+   ╭─┬─┬─┬─┬─┬─┬─┬─╮
+   │●│●│●│●│●│●│●│●│
+   ├─┼─┼─┼─┼─┼─┼─┼─┤
+   │●│●│●│●│●│●│●│●│
+   ├─┼─┼─┼─┼─┼─┼─┼─┤
+   │●│●│●│●│●│●│●│●│
+   ├─┼─┼─┼─┼─┼─┼─┼─┤
+   │●│●│●│●│●│●│●│●│
+   ╰─┴─┴─┴─┴─┴─┴─┴─╯
+   ");
+}
+
+static void draw_line(sint y, sint f) {
+    sint i;
+    char  buf[1024],tmp[256];
+
+    *buf = 0;
+    *tmp = 0;
+    strcpy(buf,"\033[43;30m");
+    for(i=0; i<8; i++)
+    {
+	if(brd[y][i].die==1)
+	    sprintf(tmp,"│  ");
+	else if(brd[y][i].out==0)
+	    sprintf(tmp,"│●");
+	else {
+	    sprintf(tmp, "│\033[%s1;%dm%s\033[m\033[43;30m",
+		    (f==i)?"1;47;":"",(brd[y][i].color)?31:34,
+		    (brd[y][i].color)?rname[brd[y][i].value]:
+		    bname[brd[y][i].value]);
+	}
+	strcat(buf,tmp);
+    }
+    strcat(buf,"│\033[m");
+
+    move(cury[y],3);
+    clrtoeol();
+    prints("%s",buf);
+}
+
+static void redraw() {
+    sint i=0;
+    for(;i<4;i++)
+	draw_line(i,-1);
+}
+
+static sint playing(sint fd, sint color,sint ch,sint *b, userinfo_t *uin) {
+    curr.end = 0;
+    move(cury[my],curx[mx]);
+
+    if(fix) {
+	if(ch=='s') {
+	    fix=0; *b=0; return 0;
+	} else {
+	    draw_line(mly,-1);
+	}
+    }
+
+    switch(ch) {
+    case KEY_LEFT:
+	if(mx == 0) mx=7;
+	else mx--;
+	move(cury[my],curx[mx]);
+	*b=-1;
+	break;
+    case KEY_RIGHT:
+	if(mx==7) mx=0;
+	else mx++;
+	move(cury[my],curx[mx]);
+	*b=-1;
+	break;
+    case KEY_UP:
+	if(my==0) my=3;
+	else my--;
+	move(cury[my],curx[mx]);
+	*b=-1;
+	break;
+    case KEY_DOWN:
+	if(my==3) my=0;
+	else my++;
+	move(cury[my],curx[mx]);
+	*b=-1;
+	break;
+    case 'q':case 'Q':
+	if(!color) bcount=0;
+	else rcount=0;
+	*b=0;
+	return -2;
+    case 'p':case 'P':
+	return -3;
+    case 'c':
+	return -4;
+    case 'g':
+	return -5;
+    case 's':                     /* 翻開棋子 或是選擇棋子 */
+	/* 選擇棋子 */
+	if(brd[my][mx].out==1)
+	{
+	    if(brd[my][mx].color != color)
+	    {
+		*b=-1;
+		break;
+	    }
+	    if(mly<0)  /*可以選擇*/
+	    {
+		mly=my;mlx=mx;
+		draw_line(my,mx);
+		*b=-1;
+		break;
+	    }
+	    else if(mly == my && mlx == mx) /*不選了*/
+	    {
+		mly=-1;mlx=-1;
+		draw_line(my,-1);
+	    }else
+	    {
+		draw_line(mly,-1);
+		mly=my;mlx=mx;
+		if(brd[mly][mlx].value == 1) fix=1;
+		draw_line(my,mx);
+	    }
+	    *b=-1;
+	    break;
+	}
+	/* 翻開棋子 */
+	if(mly >=0 ){ *b=-1; break;}   /*本來就是翻開的*/
+	/* 決定一開始的顏色 */
+	if(currutmp->color=='.'){
+	    if(uin->color!='1' && uin->color!='0')
+		currutmp->color=(brd[my][mx].color)?'1':'0';
+	    else
+		currutmp->color=(uin->color=='0')?'1':'0';}
+	brd[my][mx].out=1;
+	draw_line(my,-1);
+	move(cury[my],curx[mx]);
+	*b=0;
+	break;
+    case 'u':
+	move(0,0);clrtoeol();
+	prints("%s色%s cont=%d",(brd[my][mx].color == RED)?"紅":"黑",rname[brd[my][mx].value],cont);
+	*b=-1;
+	break;
+    case '\r':                       /* 吃 or 移動  ly跟lx必須大於0*/
+    case '\n':
+	if(
+	    mly >= 0                               /* 要先選子 */
+	    &&
+	    brd[mly][mlx].color != brd[my][mx].color  /* 同色不能移動也不能吃 */
+	    &&
+	    (Is_move(my,mx,mly,mlx) || Is_win(brd[mly][mlx],brd[my][mx],my,mx,mly,mlx))
+	    )
+	{
+	    if(fix && brd[my][mx].value<0)
+	    {
+		*b=-1;return 0;
+	    }
+	    if(brd[my][mx].value>=0&&brd[my][mx].die==0)
+	    {
+		if(!color) bcount--;
+		else rcount--;
+		move(cur_eaty,cur_eatx);
+		prints("%s",(color)?bname[brd[my][mx].value]:rname[brd[my][mx].value]);
+		if(cur_eatx>=26)
+		{ cur_eatx=5;cur_eaty++; }
+		else
+		    cur_eatx+=3;
+	    }
+	    brdswap(my,mx,mly,mlx);
+	    draw_line(mly,-1);
+	    draw_line( my,-1);
+	    if(fix==1) *b=-1;
+	    else { mly=-1;mlx=-1;*b=0; }
+	}
+	else *b=-1;
+	break;
+    default:
+	*b=-1;
+    }
+  
+    if(!rcount)
+	return -1;
+    else if(!bcount)
+	return -1;
+    if(*b == -1) return 0;
+    curr.y = my;curr.x = mx; curr.end=(!*b)?1:0;
+    send(fd,&curr,sizeof(curr),0);
+    send(fd,&brd,sizeof(brd),0);
+    return 0;
+}
+
+int main_dark(int fd,userinfo_t *uin) {
+    sint end=0,ch=1,go_on,i=0,cont=0;
+    char buf[16];
+    *buf=0;fix=0;
+    currutmp->color='.';   // '.' 表示還沒決定顏色
+    rcount=16;bcount=16;   // initialize
+    cur_eaty=18,cur_eatx=5;
+    brd_prints();
+    if(currutmp->turn)
+    {
+	brd_rand();
+	send(fd,&brd,sizeof(brd),0);
+	pprints(21,0,"   ◆你是先手");
+	pprints(22,0,"   ◆輪到你下了");
+    }else
+    {
+	recv(fd,&brd,sizeof(brd),0);
+	pprints(21,0,"   ◆你是後手");
+    }
+    move(12,3);
+    prints("%s[0勝0敗]ｖｓ.%s[0勝0敗]",currutmp->userid,currutmp->mateid);
+    outs("
+                                                ╳╱功\能表╲╳╲╱╳╲
+                                                ╱ ↑←↓→: 移動
+                                                ╳ ｓ:       選子,翻子
+                                                ╱ enter:    吃棋,放棋
+　已經解決的:　　                               ╳ ｐ:       合棋
+                                       　　     ╱ ｑ:       認輸
+                                                ╳ ｃ:       換邊");
+
+    if(currutmp->turn) move(cury[0],curx[0]);
+
+    add_io(fd, 0);
+    while(end<=0)
+    {
+	if(uin->turn=='w' || currutmp->turn=='w') { end=-1; break; }
+
+	ch = igetkey();
+	if(ch == I_OTHERDATA)
+	{
+	    ch=recv(fd,&curr,sizeof(curr),0);
+	    if(ch!=sizeof(curr))
+	    {
+		if(uin->turn=='e') { end=-3;break; }
+		else if(uin->turn!='w') { end=-1; currutmp->turn='w'; break; }
+		end=-1; break;
+	    }
+
+	    if(curr.end==-3)      pprints(23,30,"\033[33m要求合棋\033[m");
+	    else if(curr.end==-4) pprints(23,30,"\033[33m要求換邊\033[m");
+	    else if(curr.end==-5) pprints(23,30,"\033[33m要求連吃\033[m");
+	    else pprints(23,30,"");
+
+	    recv(fd,&brd,sizeof(brd),0);
+	    my=curr.y;mx=curr.x;
+	    redraw();
+	    if(curr.end)
+		pprints(22,0,"   ◆輪到你下了");
+	    move(cury[my],curx[mx]);
+	}else
+	{
+	    if(currutmp->turn=='p')
+	    {
+		if(ch=='y') { end=-3; currutmp->turn='e'; break; }
+		else { pprints(23,30,""); *buf=0; currutmp->turn=(uin->turn)?0:1; }
+	    }else if(currutmp->turn=='c')
+	    {
+		if(ch=='y') { currutmp->color=(currutmp->color=='1')?'0':'1';
+		uin->color=(uin->color=='1')?'0':'1';
+		pprints(21,0,(currutmp->color=='1')?"   \033[1;33m◆你持紅色棋\033[m":"   \033[1;33m◆你持黑色棋\033[m");
+		}
+		else { pprints(23,30,""); currutmp->turn=(uin->turn)?0:1; }
+	    }else if(currutmp->turn=='g')
+	    {
+		if(ch=='y') {
+		    cont=1;
+		    pprints(21,0,"   \033[1;33m◆你持紅色棋\033[m 可連吃");
+		}
+		else { pprints(23,30,""); currutmp->turn=(uin->turn)?0:1; }
+	    }
+
+	    if(currutmp->turn==1)
+	    {
+		if(uin->turn=='g') { cont=1;uin->turn=(currutmp->turn)?0:1; pprints(21,10,"可連吃"); }
+		end=playing(fd,currutmp->color-'0',ch,&go_on,uin);
+
+		if(end == -1) { currutmp->turn='w';break; }
+		else if(end == -2) { uin->turn='w';break; }
+		else if(end == -3) {
+		    uin->turn='p';curr.end=-3;
+		    send(fd,&curr,sizeof(curr),0);
+		    send(fd,&brd,sizeof(buf),0);
+		    continue;
+		}
+		else if(end == -4) {
+		    if(currutmp->color!='1'&&currutmp->color!='0')
+			continue;
+		    uin->turn='c';i=0;curr.end=-4;
+		    send(fd,&curr,sizeof(curr),0);
+		    send(fd,&brd,sizeof(buf),0);
+		    continue;
+		}
+		else if(end == -5) {
+		    uin->turn='g';curr.end=-5;
+		    send(fd,&curr,sizeof(curr),0);
+		    send(fd,&brd,sizeof(buf),0);
+		    continue;
+		}
+		if(!i && currutmp->color=='1')
+		{ pprints(21,0,"   \033[1;33m◆你持紅色棋\033[m");i++;move(cury[my],curx[mx]); }
+		if(!i && currutmp->color=='0')
+		{ pprints(21,0,"   \033[1;33m◆你持黑色棋\033[m");i++;move(cury[my],curx[mx]); }
+
+		if(uin->turn == 'e') { end=-3; break; }
+		if(go_on < 0) continue;
+
+		move(22,0);clrtoeol();
+		prints("   ◆輪到%s下 別怕別怕 他算啥米",currutmp->mateid);
+		currutmp->turn = 0;
+		uin->turn = 1;
+	    }else
+	    {
+		if(ch == 'q'){uin->turn='w';break;}
+		move(22,0);clrtoeol();
+		prints("   ◆輪到%s下 別怕別怕 他算啥米",currutmp->mateid);
+	    }
+	}
+    }
+
+    switch(end)
+    {
+    case -1:
+    case -2:
+        if(currutmp->turn=='w'){ move(22,0);clrtoeol();prints("你贏了.. 真是恭喜~~");}
+        else {move(22,0);clrtoeol();prints("輸掉了啦.....下次讓他好看!!");}
+        break;
+    case -3:
+        pprints(22,0,"合棋唷!! 下次在分高下吧 ^_^");
+        break;
+    default:
+        add_io(0,0);
+        close(fd);
+        pressanykey();
+        return 0;
+    }
+    add_io(0,0);
+    close(fd);
+    pressanykey();
+    return 0;
+}