path: root/mbbsd/dark.c

/* $Id$ */
#include "bbs.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 */

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          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 + now % 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(gettext[950]);
}

static void
draw_line(sint y, sint f)
{
    sint            i;
    char            buf[1024], tmp[256];

    *buf = 0;
    *tmp = 0;
    strlcpy(buf, "\033[43;30m", sizeof(buf));
    for (i = 0; i < 8; i++) {
    if (brd[y][i].die == 1)
        snprintf(tmp, sizeof(tmp), gettext[951]);
    else if (brd[y][i].out == 0)
        snprintf(tmp, sizeof(tmp), gettext[952]);
    else {
        snprintf(tmp, sizeof(tmp), gettext[953],
             (f == i) ? "1;47;" : "", (brd[y][i].color) ? 31 : 34,
             (brd[y][i].color) ? gettext[936 + brd[y][i].value] :
             gettext[943 + brd[y][i].value]);
    }
    strcat(buf, tmp);
    }
    strcat(buf, gettext[954]);

    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(gettext[955], (brd[my][mx].color == RED) ? gettext[956] : gettext[957], gettext[936 + 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) ? gettext[943 + brd[my][mx].value] : gettext[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);
    mouts(21, 0, gettext[958]);
    mouts(22, 0, gettext[959]);
    } else {
    recv(fd, &brd, sizeof(brd), 0);
    mouts(21, 0, gettext[960]);
    }
    move(12, 3);
    prints(gettext[961], currutmp->userid, currutmp->mateid);
    outs(gettext[962]);

    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 = igetch();
    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)
        mouts(23, 30, gettext[963]);
        else if (curr.end == -4)
        mouts(23, 30, gettext[964]);
        else if (curr.end == -5)
        mouts(23, 30, gettext[965]);
        else
        mouts(23, 30, "");

        recv(fd, &brd, sizeof(brd), 0);
        my = curr.y;
        mx = curr.x;
        redraw();
        if (curr.end)
        mouts(22, 0, gettext[966]);
        move(cury[my], curx[mx]);
    } else {
        if (currutmp->turn == 'p') {
        if (ch == 'y') {
            end = -3;
            currutmp->turn = 'e';
            break;
        } else {
            mouts(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';
            mouts(21, 0, (currutmp->color == '1') ? gettext[967] : gettext[968]);
        } else {
            mouts(23, 30, "");
            currutmp->turn = (uin->turn) ? 0 : 1;
        }
        } else if (currutmp->turn == 'g') {
        if (ch == 'y') {
            cont = 1;
            mouts(21, 0, gettext[969]);
        } else {
            mouts(23, 30, "");
            currutmp->turn = (uin->turn) ? 0 : 1;
        }
        }
        if (currutmp->turn == 1) {
        if (uin->turn == 'g') {
            cont = 1;
            uin->turn = (currutmp->turn) ? 0 : 1;
            mouts(21, 10, gettext[970]);
        }
        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') {
            mouts(21, 0, gettext[971]);
            i++;
            move(cury[my], curx[mx]);
        }
        if (!i && currutmp->color == '0') {
            mouts(21, 0, gettext[972]);
            i++;
            move(cury[my], curx[mx]);
        }
        if (uin->turn == 'e') {
            end = -3;
            break;
        }
        if (go_on < 0)
            continue;

        move(22, 0);
        clrtoeol();
        prints(gettext[973], currutmp->mateid);
        currutmp->turn = 0;
        uin->turn = 1;
        } else {
        if (ch == 'q') {
            uin->turn = 'w';
            break;
        }
        move(22, 0);
        clrtoeol();
        prints(gettext[974], currutmp->mateid);
        }
    }
    }

    switch (end) {
    case -1:
    case -2:
    if (currutmp->turn == 'w') {
        move(22, 0);
        clrtoeol();
        prints(gettext[975]);
    } else {
        move(22, 0);
        clrtoeol();
        prints(gettext[976]);
    }
    break;
    case -3:
    mouts(22, 0, gettext[977]);
    break;
    default:
    add_io(0, 0);
    close(fd);
    pressanykey();
    return 0;
    }
    add_io(0, 0);
    close(fd);
    pressanykey();
    return 0;
}