[sgk-go] / interface / play_ascii.c

/* * * * * * * * * * * * * * * * * * * * * * * * * * * * * * * * * * *\
 * This is GNU Go, a Go program. Contact gnugo@gnu.org, or see       *
 * http://www.gnu.org/software/gnugo/ for more information.          *
 *                                                                   *
 * Copyright 1999, 2000, 2001, 2002, 2003, 2004, 2005, 2006, 2007,   *
 * 2008 and 2009 by the Free Software Foundation.                    *
 *                                                                   *
 * This program is free software; you can redistribute it and/or     *
 * modify it under the terms of the GNU General Public License as    *
 * published by the Free Software Foundation - version 3 or          *
 * (at your option) any later version.                               *
 *                                                                   *
 * This program is distributed in the hope that it will be useful,   *
 * but WITHOUT ANY WARRANTY; without even the implied warranty of    *
 * MERCHANTABILITY or FITNESS FOR A PARTICULAR PURPOSE.  See the     *
 * GNU General Public License in file COPYING for more details.      *
 *                                                                   *
 * You should have received a copy of the GNU General Public         *
 * License along with this program; if not, write to the Free        *
 * Software Foundation, Inc., 51 Franklin Street, Fifth Floor,       *
 * Boston, MA 02111, USA.                                            *
\* * * * * * * * * * * * * * * * * * * * * * * * * * * * * * * * * * */

#include "gnugo.h"

#include <ctype.h>
#include <stdio.h>
#include <stdlib.h>
#include <string.h>

#if READLINE
#include <readline/history.h>
#include <readline/readline.h>
#endif

#include "gg_utils.h"
#include "interface.h"
#include "liberty.h"
#include "sgftree.h"

#define DEBUG_COMMANDS "\
capture <pos>    try to capture indicated group\n\
dead             Toggle display of dead stones\n\
defend <pos>     try to defend indicated group\n\
listdragons      print dragon info \n\
showarea         display area\n\
showdragons      display dragons\n\
showmoyo         display moyo\n\
showterri        display territory\n\
"

/* some options for the ascii interface */
static int opt_showboard = 1;
static int showdead = 0;
static SGFTree sgftree;
static int resignation_allowed;

static int clock_on = 0;

/* Unreasonable score used to detect missing information. */
#define NO_SCORE 4711
/* Keep track of the score estimated before the last computer move. */
static int current_score_estimate = NO_SCORE;

static void do_play_ascii(Gameinfo* gameinfo);
static int ascii_endgame(Gameinfo* gameinfo, int reason);
static void ascii_count(Gameinfo* gameinfo);
static void showcapture(char* line);
static void showdefense(char* line);
static void ascii_goto(Gameinfo* gameinfo, char* line);
static void ascii_free_handicap(Gameinfo* gameinfo, char* handicap_string);

/* If sgf game info is written can't reset parameters like handicap, etc. */
static int sgf_initialized;

/*
 * Create letterbar for the top and bottom of the ASCII board.
 */

static void
make_letterbar(int boardsize, char* letterbar)
{
    int i, letteroffset;
    char spaces[64];
    char letter[64];

    if (boardsize <= 25)
        strcpy(spaces, " ");
    strcpy(letterbar, "   ");

    for (i = 0; i < boardsize; i++) {
        letteroffset = 'A';
        if (i + letteroffset >= 'I')
            letteroffset++;
        strcat(letterbar, spaces);
        sprintf(letter, "%c", i + letteroffset);
        strcat(letterbar, letter);
    }
}

/* This array contains +'s and -'s for the empty board positions.
 * hspot_size contains the board size that the grid has been
 * initialized to.
 */

static int hspot_size;
static char hspots[MAX_BOARD][MAX_BOARD];

/*
 * Mark the handicap spots on the board.
 */

static void
set_handicap_spots(int boardsize)
{
    if (hspot_size == boardsize)
        return;

    hspot_size = boardsize;

    memset(hspots, '.', sizeof(hspots));

    if (boardsize == 5) {
        /* place the outer 4 */
        hspots[1][1] = '+';
        hspots[boardsize - 2][1] = '+';
        hspots[1][boardsize - 2] = '+';
        hspots[boardsize - 2][boardsize - 2] = '+';
        /* and the middle one */
        hspots[boardsize / 2][boardsize / 2] = '+';
        return;
    }

    if (!(boardsize % 2)) {
        /* If the board size is even, no center handicap spots. */
        if (boardsize > 2 && boardsize < 12) {
            /* Place the outer 4 only. */
            hspots[2][2] = '+';
            hspots[boardsize - 3][2] = '+';
            hspots[2][boardsize - 3] = '+';
            hspots[boardsize - 3][boardsize - 3] = '+';
        } else {
            /* Place the outer 4 only. */
            hspots[3][3] = '+';
            hspots[boardsize - 4][3] = '+';
            hspots[3][boardsize - 4] = '+';
            hspots[boardsize - 4][boardsize - 4] = '+';
        }
    } else {
        /* Uneven board size */
        if (boardsize > 2 && boardsize < 12) {
            /* Place the outer 4... */
            hspots[2][2] = '+';
            hspots[boardsize - 3][2] = '+';
            hspots[2][boardsize - 3] = '+';
            hspots[boardsize - 3][boardsize - 3] = '+';

            /* ...and the middle one. */
            hspots[boardsize / 2][boardsize / 2] = '+';
        } else if (boardsize > 12) {
            /* Place the outer 4... */
            hspots[3][3] = '+';
            hspots[boardsize - 4][3] = '+';
            hspots[3][boardsize - 4] = '+';
            hspots[boardsize - 4][boardsize - 4] = '+';

            /* ...and the inner 4... */
            hspots[3][boardsize / 2] = '+';
            hspots[boardsize / 2][3] = '+';
            hspots[boardsize / 2][boardsize - 4] = '+';
            hspots[boardsize - 4][boardsize / 2] = '+';

            /* ...and the middle one. */
            hspots[boardsize / 2][boardsize / 2] = '+';
        }
    }

    return;
}

#define WHITECOLOR "\x1B[41m"
#define BLACKCOLOR "\x1B[44m"
#define RESETCOLOR "\x1B[0m"

#define BACK1COLOR "\x1B[43m"
#define BACK2COLOR "\x1B[47m"

/*
 * Display the board position when playing in ASCII.
 */

static void
ascii_showboard(void)
{
    int i, j;
    char letterbar[64];
    int last_pos_was_move;
    int pos_is_move;
    int dead;
    int last_move = get_last_move();

    make_letterbar(board_size, letterbar);
    set_handicap_spots(board_size);

    printf("\n");
    printf("    White (" WHITECOLOR " " RESETCOLOR ") has captured %d pieces\n", black_captured);
    printf("    Black (" BLACKCOLOR " " RESETCOLOR ") has captured %d pieces\n", white_captured);
    if (showscore) {
        if (current_score_estimate == NO_SCORE)
            printf("    No score estimate is available yet.\n");
        else if (current_score_estimate < 0)
            printf("    Estimated score: Black is ahead by %d\n",
                -current_score_estimate);
        else if (current_score_estimate > 0)
            printf("    Estimated score: White is ahead by %d\n",
                current_score_estimate);
        else
            printf("    Estimated score: Even!\n");
    }

    printf("\n");

    fflush(stdout);
    printf("%s", letterbar);

    if (get_last_player() != EMPTY) {
        gfprintf(stdout, "        Last move: %s %1m",
            get_last_player() == WHITE ? "White" : "Black",
            last_move);
    }

    printf("\n");
    fflush(stdout);

    for (i = 0; i < board_size; i++) {
        printf(" %2d", board_size - i);
        last_pos_was_move = 0;
        for (j = 0; j < board_size; j++) {
            if (POS(i, j) == last_move)
                pos_is_move = 128;
            else
                pos_is_move = 0;
            dead = (dragon_status(POS(i, j)) == DEAD) && showdead;
            switch (BOARD(i, j) + pos_is_move + last_pos_was_move) {
            case EMPTY + 128:
            case EMPTY:
                if (i % 2 == 0) {
                    if (j % 2 == 0) {
                        printf(BACK1COLOR "  " RESETCOLOR);
                    } else {
                        printf(BACK2COLOR "  " RESETCOLOR);
                    }
                } else {
                    if (j % 2 == 0) {
                        printf(BACK2COLOR "  " RESETCOLOR);
                    } else {
                        printf(BACK1COLOR "  " RESETCOLOR);
                    }
                }
                last_pos_was_move = 0;
                break;
            case BLACK:
                printf(BLACKCOLOR "  " RESETCOLOR);
                last_pos_was_move = 0;
                break;
            case WHITE:
                printf(WHITECOLOR "  " RESETCOLOR);
                last_pos_was_move = 0;
                break;
            case BLACK + 128:
                printf(BLACKCOLOR "()" RESETCOLOR);
                last_pos_was_move = 0;
                break;
            case WHITE + 128:
                printf(WHITECOLOR "()" RESETCOLOR);
                last_pos_was_move = 0;
                break;
            case EMPTY + 256:
                if (i % 2 == 0) {
                    if (j % 2 == 0) {
                        printf(BACK1COLOR "  " RESETCOLOR);
                    } else {
                        printf(BACK2COLOR "  " RESETCOLOR);
                    }
                } else {
                    if (j % 2 == 0) {
                        printf(BACK2COLOR "  " RESETCOLOR);
                    } else {
                        printf(BACK1COLOR "  " RESETCOLOR);
                    }
                }
                last_pos_was_move = 0;
                break;
            case BLACK + 256:
                printf(BLACKCOLOR "  " RESETCOLOR);
                last_pos_was_move = 0;
                break;
            case WHITE + 256:
                printf(WHITECOLOR "  " RESETCOLOR);
                last_pos_was_move = 0;
                break;
            default:
                fprintf(stderr, "Illegal board value %d\n", (int)BOARD(i, j));
                exit(EXIT_FAILURE);
                break;
            }
        }

        if (last_pos_was_move == 0) {
            if (board_size > 10)
                printf(" %2d", board_size - i);
            else
                printf(" %1d", board_size - i);
        } else {
            if (board_size > 10)
                printf("%2d", board_size - i);
            else
                printf("%1d", board_size - i);
        }
        printf("\n");
    }

    fflush(stdout);
    printf("%s\n\n", letterbar);
    fflush(stdout);

    if (clock_on) {
        clock_print(WHITE);
        clock_print(BLACK);
    }

} /* end ascii_showboard */

/*
 * command help
 */

static void
show_commands(void)
{
    printf("\nCommands:\n");
    printf(" back                Take back your last move\n");
    printf(" boardsize           Set boardsize (on move 1 only)\n");
    printf(" comment             Write a comment to outputfile\n");
    printf(" depth <num>         Set depth for reading\n");
    printf(" display             Display game board\n");
    printf(" exit                Exit GNU Go\n");
    printf(" force <move>        Force a move for current color\n");
    printf(" forward             Go to next node in game tree\n");
    printf(" goto <movenum>      Go to movenum in game tree\n");
    printf(" level <amount>      Playing level (default = 10)\n");
    printf(" handicap <num>      Set fixed handicap (on move 1 only)\n");
    printf(" freehandicap <num>  Place free handicap (on move 1 only)\n");
    printf("                     Omit <num> to place handicap yourself\n");
    printf(" help                Display this help menu\n");
    printf(" helpdebug           Display debug help menu\n");
    printf(" info                Display program settings\n");
    printf(" komi                Set komi (on move 1 only)\n");
    printf(" last                Goto last node in game tree\n");
    printf(" pass                Pass on your move\n");
    printf(" play <num>          Play <num> moves\n");
    printf(" playblack           Play as Black (switch if White)\n");
    printf(" playwhite           Play as White (switch if Black)\n");
    printf(" quit                Exit GNU Go\n");
    printf(" resign              Resign the current game\n");
    printf(" save <file>         Save the current game\n");
    printf(" load <file>         Load a game from file\n");
    printf(" score               Toggle display of score On/Off\n");
    printf(" showboard           Toggle display of board On/Off\n");
    printf(" switch              Switch the color you are playing\n");
    printf(" undo                Take the last move back (same as back)\n");
    printf(" <move>              A move of the format <letter><number>");
    printf("\n");
}

enum commands { INVALID = -1,
    END,
    EXIT,
    QUIT,
    RESIGN,
    PASS,
    MOVE,
    FORCE,
    SWITCH,
    PLAY,
    PLAYBLACK,
    PLAYWHITE,
    SETHANDICAP,
    FREEHANDICAP,
    SETBOARDSIZE,
    SETKOMI,
    SETDEPTH,
    INFO,
    DISPLAY,
    SHOWBOARD,
    HELP,
    UNDO,
    COMMENT,
    SCORE,
    CMD_DEAD,
    CMD_BACK,
    CMD_FORWARD,
    CMD_LAST,
    CMD_CAPTURE,
    CMD_DEFEND,
    CMD_HELPDEBUG,
    CMD_SHOWAREA,
    CMD_SHOWMOYO,
    CMD_SHOWTERRI,
    CMD_GOTO,
    CMD_SAVE,
    CMD_LOAD,
    CMD_SHOWDRAGONS,
    CMD_LISTDRAGONS,
    SETLEVEL,
    NEW,
    COUNT,
    CONTINUE
};

/*
 * Check if we have a valid command.
 */

static int
get_command(char* command)
{
    char c;
    int d;

    /* Check to see if a move was input. */
    if (!((sscanf(command, "%c%d", &c, &d) != 2)
            || ((c = toupper((int)c)) < 'A')
            || ((c = toupper((int)c)) > 'Z')
            || (c == 'I')))
        return MOVE;

    /* help shortcut */
    if (command[0] == '?')
        return HELP;

    /* Kill leading spaces. */
    while (command[0] == ' ')
        command++;

    if (!strncmp(command, "playblack", 9))
        return PLAYBLACK;
    if (!strncmp(command, "playwhite", 9))
        return PLAYWHITE;
    if (!strncmp(command, "showboard", 9))
        return SHOWBOARD;
    if (!strncmp(command, "showdragons", 9))
        return CMD_SHOWDRAGONS;
    if (!strncmp(command, "listdragons", 9))
        return CMD_LISTDRAGONS;
    if (!strncmp(command, "boardsize", 9))
        return SETBOARDSIZE;
    if (!strncmp(command, "freehandicap", 9))
        return FREEHANDICAP;
    if (!strncmp(command, "handicap", 5))
        return SETHANDICAP;
    if (!strncmp(command, "display", 7))
        return DISPLAY;
    if (!strncmp(command, "helpdebug", 7))
        return CMD_HELPDEBUG;
    if (!strncmp(command, "resign", 6))
        return RESIGN;
    if (!strncmp(command, "showmoyo", 6))
        return CMD_SHOWMOYO;
    if (!strncmp(command, "showterri", 6))
        return CMD_SHOWTERRI;
    if (!strncmp(command, "showarea", 6))
        return CMD_SHOWAREA;
    if (!strncmp(command, "depth", 5))
        return SETDEPTH;
    if (!strncmp(command, "switch", 5))
        return SWITCH;
    if (!strncmp(command, "komi", 4))
        return SETKOMI;
    if (!strncmp(command, "play", 4))
        return PLAY;
    if (!strncmp(command, "info", 4))
        return INFO;
    if (!strncmp(command, "force", 4))
        return FORCE;
    if (!strncmp(command, "level", 5))
        return SETLEVEL;
    if (!strncmp(command, "pass", 4))
        return PASS;
    if (!strncmp(command, "save", 3))
        return CMD_SAVE;
    if (!strncmp(command, "load", 3))
        return CMD_LOAD;
    if (!strncmp(command, "end", 3))
        return END;
    if (!strncmp(command, "move", 3))
        return MOVE;
    if (!strncmp(command, "undo", 3))
        return UNDO;
    if (!strncmp(command, "comment", 3))
        return COMMENT;
    if (!strncmp(command, "score", 3))
        return SCORE;
    if (!strncmp(command, "dead", 3))
        return CMD_DEAD;
    if (!strncmp(command, "capture", 3))
        return CMD_CAPTURE;
    if (!strncmp(command, "defend", 3))
        return CMD_DEFEND;
    if (!strncmp(command, "exit", 4))
        return EXIT;
    if (!strncmp(command, "quit", 4))
        return QUIT;
    if (!strncmp(command, "help", 1))
        return HELP;
    if (!strncmp(command, "back", 2))
        return CMD_BACK;
    if (!strncmp(command, "forward", 2))
        return CMD_FORWARD;
    if (!strncmp(command, "last", 2))
        return CMD_LAST;
    if (!strncmp(command, "goto", 2))
        return CMD_GOTO;
    if (!strncmp(command, "game", 2))
        return NEW;
    if (!strncmp(command, "count", 3))
        return COUNT;
    if (!strncmp(command, "continue", 4))
        return CONTINUE;

    /* No valid command was found. */
    return INVALID;
}

/*
 * Write sgf root node. 
 */

static void
init_sgf(Gameinfo* ginfo)
{
    if (sgf_initialized)
        return;
    sgf_initialized = 1;

    sgf_write_header(sgftree.root, 1, get_random_seed(), komi,
        ginfo->handicap, get_level(), chinese_rules);
    if (ginfo->handicap > 0)
        sgffile_recordboard(sgftree.root);
}

/*
 * Generate the computer move. 
 */

static int
computer_move(Gameinfo* gameinfo, int* passes)
{
    int move;
    float move_value;
    int resign;
    int resignation_declined = 0;
    float upper_bound, lower_bound;

    init_sgf(gameinfo);

    /* Generate computer move. */
    if (autolevel_on)
        adjust_level_offset(gameinfo->to_move);
    move = genmove(gameinfo->to_move, &move_value, &resign);
    if (resignation_allowed && resign) {
        int state = ascii_endgame(gameinfo, 2);
        if (state != -1)
            return state;

        /* The opponent declined resignation. Remember not to resign again. */
        resignation_allowed = 0;
        resignation_declined = 1;
    }

    if (showscore) {
        gnugo_estimate_score(&upper_bound, &lower_bound);
        current_score_estimate = (int)((lower_bound + upper_bound) / 2.0);
    }

    mprintf("%s(%d): %1m\n", color_to_string(gameinfo->to_move),
        movenum + 1, move);
    if (is_pass(move))
        (*passes)++;
    else
        *passes = 0;

    gnugo_play_move(move, gameinfo->to_move);
    sgffile_add_debuginfo(sgftree.lastnode, move_value);
    sgftreeAddPlay(&sgftree, gameinfo->to_move, I(move), J(move));
    if (resignation_declined)
        sgftreeAddComment(&sgftree, "GNU Go resignation was declined");
    sgffile_output(&sgftree);

    gameinfo->to_move = OTHER_COLOR(gameinfo->to_move);
    return 0;
}

/*
 * Make a move.
 */

static int
do_move(Gameinfo* gameinfo, char* command, int* passes, int force)
{
    int move = string_to_location(board_size, command);

    if (move == NO_MOVE) {
        printf("\nInvalid move: %s\n", command);
        return 0;
    }

    if (!is_allowed_move(move, gameinfo->to_move)) {
        printf("\nIllegal move: %s", command);
        return 0;
    }

    *passes = 0;
    TRACE("\nyour move: %1m\n\n", move);
    init_sgf(gameinfo);
    gnugo_play_move(move, gameinfo->to_move);
    sgffile_add_debuginfo(sgftree.lastnode, 0.0);
    sgftreeAddPlay(&sgftree, gameinfo->to_move, I(move), J(move));
    sgffile_output(&sgftree);

    if (opt_showboard) {
        ascii_showboard();
        printf("GNU Go is thinking...\n");
    }

    if (force) {
        gameinfo->computer_player = OTHER_COLOR(gameinfo->computer_player);
        gameinfo->to_move = OTHER_COLOR(gameinfo->to_move);
        sgftreeAddComment(&sgftree, "forced");
        return 0;
    }

    gameinfo->to_move = OTHER_COLOR(gameinfo->to_move);
    return computer_move(gameinfo, passes);
}

/*
 * Make a pass.
 */

static int
do_pass(Gameinfo* gameinfo, int* passes, int force)
{
    (*passes)++;
    init_sgf(gameinfo);
    gnugo_play_move(PASS_MOVE, gameinfo->to_move);
    sgffile_add_debuginfo(sgftree.lastnode, 0.0);
    sgftreeAddPlay(&sgftree, gameinfo->to_move, -1, -1);
    sgffile_output(&sgftree);

    gameinfo->to_move = OTHER_COLOR(gameinfo->to_move);
    if (force) {
        gameinfo->computer_player = OTHER_COLOR(gameinfo->computer_player);
        sgftreeAddComment(&sgftree, "forced");
        return 0;
    }

    return computer_move(gameinfo, passes);
}

/*
 * Play a game against an ascii client.
 */

void play_ascii(SGFTree* tree, Gameinfo* gameinfo, char* filename, char* until)
{
    int sz;

    setvbuf(stdout, (char*)NULL, _IONBF, 0); /* No buffering. */

    sgftree = *tree;

    if (filename) {
        /* No need to check for failure here since that was already done
     * when it was loaded in main().
     *
     * FIXME: Why do we load the game again?
     */
        gameinfo_play_sgftree(gameinfo, &sgftree, until);
        sgf_initialized = 1;
    } else {
        if (sgfGetIntProperty(sgftree.root, "SZ", &sz))
            gnugo_clear_board(sz);
        if (gameinfo->handicap == 0)
            gameinfo->to_move = BLACK;
        else {
            gameinfo->handicap = place_fixed_handicap(gameinfo->handicap);
            gameinfo->to_move = WHITE;
        }
        sgf_initialized = 0;
    }

    do_play_ascii(gameinfo);
    printf("\nThanks! for playing GNU Go.\n\n");

    /* main() frees the tree and we might have changed it. */
    *tree = sgftree;
}

void do_play_ascii(Gameinfo* gameinfo)
{
    int m, num;
    float fnum;
    int passes = 0; /* two passes and its over */
    int tmp;
    char line[80];
    char* line_ptr = line;
    char* command;
    char* tmpstring;
    int state = 1;

    if (have_time_settings())
        clock_on = 1;

    while (state == 1) {
        state = 0;

        /* No score is estimated yet. */
        current_score_estimate = NO_SCORE;

        /* Allow resignation at interface level (the engine may still be not
     * allowed to resign.
     */
        resignation_allowed = 1;

        printf("\nBeginning ASCII mode game.\n\n");
        gameinfo_print(gameinfo);

        /* Does the computer play first?  If so, make a move. */
        if (gameinfo->computer_player == gameinfo->to_move)
            state = computer_move(gameinfo, &passes);

        /* main ASCII Play loop */
        while (state == 0) {
            /* Display game board. */
            if (opt_showboard)
                ascii_showboard();

#if !READLINE
            /* Print the prompt */
            mprintf("%s(%d): ", color_to_string(gameinfo->to_move), movenum + 1);

            /* Read a line of input. */
            line_ptr = line;
            if (!fgets(line, 80, stdin))
                return;
#else
            snprintf(line, 79, "%s(%d): ",
                color_to_string(gameinfo->to_move), movenum + 1);
            if (!(line_ptr = readline(line)))
                return;

            add_history(line_ptr);
#endif

            while (state == 0
                && (command = strtok(line_ptr, ";"), line_ptr = 0, command)) {
                /* Get the command or move. */
                switch (get_command(command)) {
                case RESIGN:
                    state = ascii_endgame(gameinfo, 1);
                    break;

                case END:
                case EXIT:
                case QUIT:
                    return;

                case HELP:
                    show_commands();
                    break;

                case CMD_HELPDEBUG:
                    printf(DEBUG_COMMANDS);
                    break;

                case SHOWBOARD:
                    opt_showboard = !opt_showboard;
                    break;

                case INFO:
                    printf("\n");
                    gameinfo_print(gameinfo);
                    break;

                case SETBOARDSIZE:
                    if (sgf_initialized) {
                        printf("Boardsize cannot be changed after record is started!\n");
                        break;
                    }
                    command += 10;
                    if (sscanf(command, "%d", &num) != 1) {
                        printf("\nInvalid command syntax!\n");
                        break;
                    }
                    if (!check_boardsize(num, stdout))
                        break;
                    /* Init board. */
                    board_size = num;
                    clear_board();
                    /* In case max handicap changes on smaller board. */
                    gameinfo->handicap = place_fixed_handicap(gameinfo->handicap);
                    sgfOverwritePropertyInt(sgftree.root, "SZ", board_size);
                    sgfOverwritePropertyInt(sgftree.root, "HA", gameinfo->handicap);
                    break;

                case SETHANDICAP:
                    if (sgf_initialized) {
                        printf("Handicap cannot be changed after game is started!\n");
                        break;
                    }
                    command += 9;
                    if (sscanf(command, "%d", &num) != 1) {
                        printf("\nInvalid command syntax!\n");
                        break;
                    }
                    if (num < 0 || num > MAX_HANDICAP) {
                        printf("\nInvalid handicap: %d\n", num);
                        break;
                    }
                    /* Init board. */
                    clear_board();
                    /* Place stones on board but don't record sgf 
	   * in case we change more info. */
                    gameinfo->handicap = place_fixed_handicap(num);
                    printf("\nSet handicap to %d\n", gameinfo->handicap);
                    gameinfo->to_move = (gameinfo->handicap ? WHITE : BLACK);
                    break;

                case FREEHANDICAP:
                    if (sgf_initialized) {
                        printf("Handicap cannot be changed after game is started!\n");
                        break;
                    }
                    while (*command && *command != ' ')
                        command++;
                    ascii_free_handicap(gameinfo, command);
                    break;

                case SETKOMI:
                    if (sgf_initialized) {
                        printf("Komi cannot be modified after game record is started!\n");
                        break;
                    }
                    command += 5;
                    if (sscanf(command, "%f", &fnum) != 1) {
                        printf("\nInvalid command syntax!\n");
                        break;
                    }
                    komi = fnum;
                    printf("\nSet Komi to %.1f\n", komi);
                    break;

                case SETDEPTH:
                    command += 6;
                    if (sscanf(command, "%d", &num) != 1) {
                        printf("\nInvalid command syntax!\n");
                        break;
                    }
                    mandated_depth = num;
                    printf("\nSet depth to %d\n", mandated_depth);
                    break;

                case SETLEVEL:
                    command += 6;
                    if (sscanf(command, "%d", &num) != 1) {
                        printf("\nInvalid command syntax!\n");
                        break;
                    }
                    set_level(num);
                    printf("\nSet level to %d\n", num);
                    break;

                case DISPLAY:
                    if (!opt_showboard)
                        ascii_showboard();
                    break;

                case FORCE:
                    command += 6; /* skip the force part... */
                    switch (get_command(command)) {
                    case MOVE:
                        state = do_move(gameinfo, command, &passes, 1);
                        break;
                    case PASS:
                        state = do_pass(gameinfo, &passes, 1);
                        break;
                    default:
                        printf("Illegal forced move: %s %d\n", command,
                            get_command(command));
                        break;
                    }
                    break;

                case MOVE:
                    state = do_move(gameinfo, command, &passes, 0);
                    break;

                case PASS:
                    state = do_pass(gameinfo, &passes, 0);
                    break;

                case PLAY:
                    command += 5;
                    if (sscanf(command, "%d", &num) != 1) {
                        printf("\nInvalid command syntax!\n");
                        break;
                    }
                    if (num >= 0)
                        for (m = 0; m < num; m++) {
                            gameinfo->computer_player
                                = OTHER_COLOR(gameinfo->computer_player);
                            state = computer_move(gameinfo, &passes);
                            if (state)
                                break;
                            if (passes >= 2)
                                break;
                        }
                    else {
                        printf("\nInvalid number of moves specified: %d\n", num);
                        break;
                    }
                    break;

                case PLAYBLACK:
                    if (gameinfo->computer_player == WHITE)
                        gameinfo->computer_player = BLACK;
                    if (gameinfo->computer_player == gameinfo->to_move)
                        state = computer_move(gameinfo, &passes);
                    break;

                case PLAYWHITE:
                    if (gameinfo->computer_player == BLACK)
                        gameinfo->computer_player = WHITE;
                    if (gameinfo->computer_player == gameinfo->to_move)
                        state = computer_move(gameinfo, &passes);
                    break;

                case SWITCH:
                    gameinfo->computer_player = OTHER_COLOR(gameinfo->computer_player);
                    state = computer_move(gameinfo, &passes);
                    break;

                case UNDO:
                case CMD_BACK:
                    if (undo_move(1)) {
                        sgftreeAddComment(&sgftree, "undone");
                        sgftreeBack(&sgftree);
                        gameinfo->to_move = OTHER_COLOR(gameinfo->to_move);
                    } else
                        printf("\nCan't undo.\n");
                    break;

                case CMD_FORWARD:
                    if (sgftreeForward(&sgftree))
                        gameinfo->to_move = gnugo_play_sgfnode(sgftree.lastnode,
                            gameinfo->to_move);
                    else
                        printf("\nEnd of game tree.\n");
                    break;

                case CMD_LAST:
                    while (sgftreeForward(&sgftree))
                        gameinfo->to_move = gnugo_play_sgfnode(sgftree.lastnode,
                            gameinfo->to_move);
                    break;

                case COMMENT:
                    printf("\nEnter comment. Press ENTER when ready.\n");
                    fgets(line, 80, stdin);
                    sgftreeAddComment(&sgftree, line);
                    break;

                case SCORE:
                    showscore = !showscore;
                    if (!showscore)
                        current_score_estimate = NO_SCORE;
                    break;

                case CMD_DEAD:
                    silent_examine_position(FULL_EXAMINE_DRAGONS);
                    showdead = !showdead;
                    break;

                case CMD_CAPTURE:
                    strtok(command, " ");
                    showcapture(strtok(NULL, " "));
                    break;

                case CMD_DEFEND:
                    strtok(command, " ");
                    showdefense(strtok(NULL, " "));
                    break;

                case CMD_SHOWMOYO:
                    tmp = printmoyo;
                    printmoyo = PRINTMOYO_MOYO;
                    silent_examine_position(EXAMINE_DRAGONS);
                    printmoyo = tmp;
                    break;

                case CMD_SHOWTERRI:
                    tmp = printmoyo;
                    printmoyo = PRINTMOYO_TERRITORY;
                    silent_examine_position(EXAMINE_DRAGONS);
                    printmoyo = tmp;
                    break;

                case CMD_SHOWAREA:
                    tmp = printmoyo;
                    printmoyo = PRINTMOYO_AREA;
                    silent_examine_position(EXAMINE_DRAGONS);
                    printmoyo = tmp;
                    break;

                case CMD_SHOWDRAGONS:
                    silent_examine_position(EXAMINE_DRAGONS);
                    showboard(1);
                    break;

                case CMD_GOTO:
                    strtok(command, " ");
                    ascii_goto(gameinfo, strtok(NULL, " "));
                    break;

                case CMD_SAVE:
                    strtok(command, " ");
                    tmpstring = strtok(NULL, " ");
                    if (tmpstring) {
                        /* discard newline */
                        tmpstring[strlen(tmpstring) - 1] = 0;
                        /* make sure we are saving proper handicap */
                        init_sgf(gameinfo);
                        writesgf(sgftree.root, tmpstring);
                        printf("You may resume the game");
                        printf(" with -l %s --mode ascii\n", tmpstring);
                        printf("or load %s\n", tmpstring);
                    } else
                        printf("Please specify filename\n");
                    break;

                case CMD_LOAD:
                    strtok(command, " ");
                    tmpstring = strtok(NULL, " ");
                    if (tmpstring) {
                        /* discard newline */
                        tmpstring[strlen(tmpstring) - 1] = 0;
                        if (!sgftree_readfile(&sgftree, tmpstring)) {
                            fprintf(stderr, "Cannot open or parse '%s'\n", tmpstring);
                            break;
                        }
                        /* to avoid changing handicap etc. */
                        if (gameinfo_play_sgftree(gameinfo, &sgftree, NULL) == EMPTY)
                            fprintf(stderr, "Cannot load '%s'\n", tmpstring);
                        else {
                            sgf_initialized = 1;
                            sgfOverwritePropertyInt(sgftree.root, "HA", gameinfo->handicap);
                        }
                    } else
                        printf("Please specify a filename\n");
                    break;

                case CMD_LISTDRAGONS:
                    silent_examine_position(EXAMINE_DRAGONS);
                    show_dragons();
                    break;

                default:
                    printf("\nInvalid command: %s", command);
                    break;
                }

                if (passes >= 2)
                    state = ascii_endgame(gameinfo, 0);
            }
#if READLINE
            free(line_ptr);
#endif
        }

        sgffile_output(&sgftree);
        passes = 0;

        /* Play a different game next time. */
        update_random_seed();

        /* Free the sgf tree and prepare for a new game. */
        sgfFreeNode(sgftree.root);
        sgftree_clear(&sgftree);
        sgftreeCreateHeaderNode(&sgftree, board_size, komi, gameinfo->handicap);
        sgf_initialized = 0;

        gameinfo_clear(gameinfo);
    }
}

/* Communicates with user after a game has ended. */
static int
ascii_endgame(Gameinfo* gameinfo, int reason)
{
    char line[80];
    char* line_ptr;
    char* command;
    char* tmpstring;
    int state = 0;

    if (reason == 0) { /* Two passes, game is over. */
        who_wins(gameinfo->computer_player, stdout);
        printf("\nIf you disagree, we may count the game together.\n");

        sgftreeWriteResult(&sgftree, (white_score + black_score) / 2.0, 1);
    } else {
        int color = OTHER_COLOR(gameinfo->to_move);

        if (reason == 1) /* Our opponent has resigned. */
            printf("GNU Go wins by resignation.\n");
        else /* We have resigned. */
            printf("You win by resignation.\n");

        printf("Result: %c+Resign\n\n", color == WHITE ? 'W' : 'B');
        sgftreeWriteResult(&sgftree, color == WHITE ? 1000.0 : -1000.0, 1);
    }

    while (state == 0) {
        printf("You may optionally save the game as an SGF file.\n\n");
        printf("Type \"save <filename>\" to save,\n");
        if (reason == 0)
            printf("     \"count\" to recount,\n");
        else if (reason == 2)
            printf("     \"continue\" to decline resignation and continue the game,\n");
        printf("     \"quit\" to quit\n");
        printf(" or  \"game\" to play again\n");

        line_ptr = line;
        if (!fgets(line, 80, stdin))
            break;

        command = strtok(line_ptr, "");
        switch (get_command(command)) {
        case CMD_SAVE:
            strtok(command, " ");
            tmpstring = strtok(NULL, " ");
            if (tmpstring) {
                /* discard newline */
                tmpstring[strlen(tmpstring) - 1] = 0;
                init_sgf(gameinfo);
                writesgf(sgftree.root, tmpstring);
            } else
                printf("Please specify filename\n");
            break;

        case COUNT:
            if (reason == 0)
                ascii_count(gameinfo);
            break;

        case CONTINUE:
            state = -1;
            break;

        case NEW:
            state = 1;
            break;

        case QUIT:
            state = 2;
            break;

        default:
            state = 0;
        }
    }

    return state;
}

/* ascii_count() scores the game.
 */
static void
ascii_count(Gameinfo* gameinfo)
{
    char line[12];
    int done = 0;
    int i;
    int xyzzy = 1;

    printf("\nGame over. Let's count!.\n");
    showdead = 1;
    ascii_showboard();
    while (!done) {
        printf("Dead stones are marked with small letters (x,o).\n");
        printf("\nIf you don't agree, enter the location of a group\n");
        printf("to toggle its state or \"done\".\n");

        if (!fgets(line, 12, stdin))
            return; /* EOF or some error */

        for (i = 0; i < 12; i++)
            line[i] = tolower((int)line[i]);
        if (!strncmp(line, "done", 4))
            done = 1;
        else if (!strncmp(line, "quit", 4))
            return;
        else if (!strncmp(line, "xyzzy", 5)) {
            if (xyzzy) {
                printf("\nYou are in a debris room filled with stuff washed in from the\n");
                printf("surface.  A low wide passage with cobbles becomes plugged\n");
                printf("with mud and debris here, but an awkward canyon leads\n");
                printf("upward and west.  A note on the wall says:\n");
                printf("   Magic Word \"XYZZY\"\n\n");
                xyzzy = 0;
            } else {
                printf("You are inside a building, a well house for a large spring.\n\n");
                xyzzy = 1;
            }
        } else if (!strncmp(line, "help", 4)) {
            printf("\nIf there are dead stones on the board I will remove them.\n");
            printf("You must tell me where they are. Type the coordinates of a\n");
            printf("dead group, or type \"done\"\n");
        } else if (!strncmp(line, "undo", 4)) {
            printf("UNDO not allowed anymore. The status of the stones now\n");
            printf("toggles after entering the location of it.\n");
            ascii_showboard();
        } else {
            int pos = string_to_location(board_size, line);
            if (pos == NO_MOVE || board[pos] == EMPTY)
                printf("\ninvalid!\n");
            else {
                enum dragon_status status = dragon_status(pos);
                status = (status == DEAD) ? ALIVE : DEAD;
                change_dragon_status(pos, status);
                ascii_showboard();
            }
        }
    }
    who_wins(gameinfo->computer_player, stdout);
}

static void
showcapture(char* line)
{
    int str;
    int move;

    gg_assert(line);
    str = string_to_location(board_size, line);
    if (str == NO_MOVE || board[str] == EMPTY) {
        printf("\ninvalid point!\n");
        return;
    }

    if (attack(str, &move))
        mprintf("\nSuccessful attack of %1m at %1m\n", str, move);
    else
        mprintf("\n%1m cannot be attacked\n", str);
}

static void
showdefense(char* line)
{
    int str;
    int move;

    gg_assert(line);
    str = string_to_location(board_size, line);
    if (str == NO_MOVE || board[str] == EMPTY) {
        printf("\ninvalid point!\n");
        return;
    }

    if (attack(str, NULL)) {
        if (find_defense(str, &move))
            mprintf("\nSuccessful defense of %1m at %1m\n", str, move);
        else
            mprintf("\n%1m cannot be defended\n", str);
    } else
        mprintf("\nThere is no need to defend %1m\n", str);
}

static void
ascii_goto(Gameinfo* gameinfo, char* line)
{
    const char* movenumber = line;

    if (!line)
        return;

    if (!strncmp(line, "last", 4))
        movenumber = "9999";
    else if (!strncmp(line, "first", 4))
        movenumber = "1";

    printf("goto %s\n", movenumber);
    gameinfo_play_sgftree(gameinfo, &sgftree, movenumber);
}

static void
ascii_free_handicap(Gameinfo* gameinfo, char* handicap_string)
{
    int handi;
    int i;
    char line[80];
    int stones[MAX_BOARD * MAX_BOARD];

    if (sscanf(handicap_string, "%d", &handi) == 1) {
        /* GNU Go is to place handicap */
        if (handi < 0 || handi == 1) {
            printf("\nInvalid command syntax!\n");
            return;
        }

        clear_board();
        handi = place_free_handicap(handi);
        printf("\nPlaced %d stones of free handicap.\n", handi);
    } else { /* User is to place handicap */
        clear_board();
        handi = 0;

        while (1) {
            ascii_showboard();
            printf("\nType in coordinates of next handicap stone, or one of the following commands:\n");
            printf("  undo        take back the last stone placed\n");
            printf("  clear       remove all the stones placed so far\n");
            printf("  done        finish placing handicap\n\n");
            printf("You have placed %d handicap stone(s) so far.\n\n", handi);

            if (!fgets(line, 80, stdin))
                return; /* EOF or some error */
            for (i = 0; i < 80; i++)
                line[i] = tolower((int)line[i]);

            if (!strncmp(line, "undo", 4)) {
                if (!handi)
                    printf("\nNothing to undo.\n");
                else {
                    remove_stone(stones[--handi]);
                    gprintf("\nRemoved the stone at %m.\n", I(stones[handi]),
                        J(stones[handi]));
                }
            } else if (!strncmp(line, "clear", 5)) {
                clear_board();
                handi = 0;
            } else if (!strncmp(line, "done", 4)) {
                if (handi == 1) /* Don't bother with checks later */
                    printf("\nHandicap cannot be one stone. Either add "
                           "some more, or delete the only stone.\n");
                else
                    break;
            } else {
                int pos = string_to_location(board_size, line);
                if (pos != NO_MOVE) {
                    if (board[pos] != EMPTY)
                        printf("\nThere's already a stone there.\n");
                    else {
                        add_stone(pos, BLACK);
                        stones[handi++] = pos;
                    }
                } else
                    printf("\nInvalid command: %s", line);
            }
        }
    }
    gameinfo->handicap = handi;
    gameinfo->to_move = (handi ? WHITE : BLACK);
}

/*
 * Local Variables:
 * tab-width: 4
 * c-basic-offset: 4
 * End:
 */