nmm.qc

Go to the documentation of this file.

#include "nmm.qh"
 
REGISTER_MINIGAME(nmm, _("Nine Men's Morris"));
 
const int NMM_TURN_PLACE = 0x0100; // player has to place a piece on the board
const int NMM_TURN_MOVE  = 0x0200; // player has to move a piece by one tile
const int NMM_TURN_FLY   = 0x0400; // player has to move a piece anywhere
const int NMM_TURN_TAKE  = 0x0800; // player has to take a non-mill piece
const int NMM_TURN_TAKEANY=0x1000; // combine with NMM_TURN_TAKE, can take mill pieces
const int NMM_TURN_WIN   = 0x2000; // player has won
const int NMM_TURN_TYPE  = 0xff00;
const int NMM_TURN_TEAM1 = 0x0001;
const int NMM_TURN_TEAM2 = 0x0002;
const int NMM_TURN_TEAM  = 0x00ff;
 
const int NMM_PIECE_DEAD  = 0x0; // captured by the enemy
const int NMM_PIECE_HOME  = 0x1; // not yet placed
const int NMM_PIECE_BOARD = 0x2; // placed on the board
 
const int NMM_SPECTATOR_TEAM = 255; // must be above max teams and equal to or below 255
 
.int  nmm_tile_distance;
.entity nmm_tile_piece;
.string nmm_tile_hmill;
.string nmm_tile_vmill;
 
// build a string containing the indices of the tile to check for a horizontal mill
string nmm_tile_build_hmill(entity tile)
{
    int number = minigame_tile_number(tile.netname);
    int letter = minigame_tile_letter(tile.netname);
    if ( number == letter || number+letter == 6 )
    {
        int add = letter < 3 ? 1 : -1;
        return strcat(tile.netname," ",
            minigame_tile_buildname(letter+add*tile.nmm_tile_distance,number)," ",
            minigame_tile_buildname(letter+add*2*tile.nmm_tile_distance,number) );
    }
    else if ( letter == 3 )
        return strcat(minigame_tile_buildname(letter-tile.nmm_tile_distance,number)," ",
            tile.netname," ",
            minigame_tile_buildname(letter+tile.nmm_tile_distance,number) );
    else if ( letter < 3 )
        return strcat(minigame_tile_buildname(0,number)," ",
            minigame_tile_buildname(1,number)," ",
            minigame_tile_buildname(2,number) );
    else
        return strcat(minigame_tile_buildname(4,number)," ",
            minigame_tile_buildname(5,number)," ",
            minigame_tile_buildname(6,number) );
}
 
// build a string containing the indices of the tile to check for a vertical mill
string nmm_tile_build_vmill(entity tile)
{
    int letter = minigame_tile_letter(tile.netname);
    int number = minigame_tile_number(tile.netname);
    if ( letter == number || letter+number == 6 )
    {
        int add = number < 3 ? 1 : -1;
        return strcat(tile.netname," ",
            minigame_tile_buildname(letter,number+add*tile.nmm_tile_distance)," ",
            minigame_tile_buildname(letter,number+add*2*tile.nmm_tile_distance) );
    }
    else if ( number == 3 )
        return strcat(minigame_tile_buildname(letter,number-tile.nmm_tile_distance)," ",
            tile.netname," ",
            minigame_tile_buildname(letter,number+tile.nmm_tile_distance) );
    else if ( number < 3 )
        return strcat(minigame_tile_buildname(letter,0)," ",
            minigame_tile_buildname(letter,1)," ",
            minigame_tile_buildname(letter,2) );
    else
        return strcat(minigame_tile_buildname(letter,4)," ",
            minigame_tile_buildname(letter,5)," ",
            minigame_tile_buildname(letter,6) );
}
 
// Create an new tile
// \param id       Tile index (eg: a1)
// \param minig    Owner minigame instance
// \param distance Distance from adjacent tiles
void nmm_spawn_tile(string id, entity minig, int distance)
{
    // TODO global variable + list_next for simpler tile loops
    entity e = new(minigame_nmm_tile);
    e.origin = minigame_tile_pos(id,7,7);
    e.netname = id;
    e.owner = minig;
    e.team = 0;
    e.nmm_tile_distance = distance;
    e.nmm_tile_hmill = strzone(nmm_tile_build_hmill(e));
    e.nmm_tile_vmill = strzone(nmm_tile_build_vmill(e));
}
 
// Create a tile square and recursively create inner squares
// \param minig    Owner minigame instance
// \param offset   Index offset (eg: 1 to start the square at b2, 0 at a1 etc.)
// \param skip     Number of indices to skip between tiles (eg 1: a1, a3)
void nmm_spawn_tile_square( entity minig, int offset, int skip )
{
    int letter = offset;
    int number = offset;
    for ( int i = 0; i < 3; ++i )
    {
        number = offset;
        for ( int j = 0; j < 3; ++j )
        {
            if ( i != 1 || j != 1 )
                nmm_spawn_tile(strzone(minigame_tile_buildname(letter,number)),minig, skip+1);
            number += skip+1;
        }
        letter += skip+1;
    }
 
    if ( skip > 0 )
        nmm_spawn_tile_square(minig,offset+1,skip-1);
}
 
// Remove tiles of a NMM minigame
void nmm_kill_tiles(entity minig)
{
    entity e = NULL;
    while ( ( e = findentity(e,owner,minig) ) )
        if ( e.classname == "minigame_nmm_tile" )
        {
            strfree(e.netname);
            strfree(e.nmm_tile_hmill);
            strfree(e.nmm_tile_vmill);
            delete(e);
        }
}
 
// Create the tiles of a NMM minigame
void nmm_init_tiles(entity minig)
{
    nmm_spawn_tile_square(minig,0,2);
}
 
// Find a tile by its id
entity nmm_find_tile(entity minig, string id)
{
    entity e = NULL;
    while ( ( e = findentity(e,owner,minig) ) )
        if ( e.classname == "minigame_nmm_tile" && e.netname == id )
            return e;
    return NULL;
}
 
// Check whether two tiles are adjacent
bool nmm_tile_adjacent(entity tile1, entity tile2)
{
 
    int dnumber = fabs ( minigame_tile_number(tile1.netname) - minigame_tile_number(tile2.netname) );
    int dletter = fabs ( minigame_tile_letter(tile1.netname) - minigame_tile_letter(tile2.netname) );
 
    return ( dnumber == 0 && ( dletter == 1 || dletter == tile1.nmm_tile_distance ) ) ||
        ( dletter == 0 && ( dnumber == 1 || dnumber == tile1.nmm_tile_distance ) );
}
 
// Returns 1 if there is at least 1 free adjacent tile
bool nmm_tile_canmove(entity tile)
{
    entity e = NULL;
    while ( ( e = findentity(e,owner,tile.owner) ) )
        if ( e.classname == "minigame_nmm_tile" && !e.nmm_tile_piece
                && nmm_tile_adjacent(e,tile) )
        {
            return true;
        }
    return false;
}
 
// Check if the given tile id appears in the string
bool nmm_in_mill_string(entity tile, string s)
{
    int argc = tokenize(s);
    for ( int i = 0; i < argc; ++i )
    {
        entity e = nmm_find_tile(tile.owner,argv(i));
        if ( !e || !e.nmm_tile_piece || e.nmm_tile_piece.team != tile.nmm_tile_piece.team )
            return false;
    }
    return true;
}
 
// Check if a tile is in a mill
bool nmm_in_mill(entity tile)
{
    return tile.nmm_tile_piece &&  (
        nmm_in_mill_string(tile,tile.nmm_tile_hmill) ||
        nmm_in_mill_string(tile,tile.nmm_tile_vmill) );
}
 
 
#ifdef SVQC
// Find a NMM piece matching some of the given flags and team number
entity nmm_find_piece(entity start, entity minigame, int teamn, int pieceflags)
{
    entity e = start;
    while ( ( e = findentity(e,owner,minigame) ) )
        if ( e.classname == "minigame_board_piece" &&
                (e.minigame_flags & pieceflags) && e.team == teamn )
            return e;
    return NULL;
}
 
// Count NMM pieces matching flags and team number
int nmm_count_pieces(entity minigame, int teamn, int pieceflags)
{
    int n = 0;
    entity e = NULL;
    while (( e = nmm_find_piece(e,minigame, teamn, pieceflags) ))
        n++;
    return n;
}
 
// required function, handle server side events
int nmm_server_event(entity minigame, string event, ...)
{
    if ( event == "start" )
    {
        minigame.minigame_flags = NMM_TURN_PLACE|NMM_TURN_TEAM1;
        nmm_init_tiles(minigame);
        entity e;
        for ( int i = 0; i < 7; ++i )
        {
            e = msle_spawn(minigame,new(minigame_board_piece));
            e.team = 1;
            e.minigame_flags = NMM_PIECE_HOME;
            e = msle_spawn(minigame,new(minigame_board_piece));
            e.team = 2;
            e.minigame_flags = NMM_PIECE_HOME;
        }
 
        return 1;
    }
    else if ( event == "end" )
    {
        nmm_kill_tiles(minigame);
    }
    else if ( event == "join" )
    {
        int n = 0;
        entity e;
        for ( e = minigame.minigame_players; e; e = e.list_next )
            n++;
        if ( n >= 2 )
            return NMM_SPECTATOR_TEAM;
        if ( minigame.minigame_players && minigame.minigame_players.team == 1 )
            return 2;
        return 1;
    }
    else if ( event == "cmd" )
    {
        entity e = ...(0,entity);
        int argc = ...(1,int);
        entity tile = NULL;
        entity piece = NULL;
        bool move_ok = false;
 
        if ( e && argc >= 2 && argv(0) == "move" &&
            ( minigame.minigame_flags & NMM_TURN_TEAM ) == e.team )
        {
            tile = nmm_find_tile(minigame,argv(1));
            if ( !tile )
            {
                move_ok = false;
            }
            else if ( minigame.minigame_flags & NMM_TURN_PLACE )
            {
                piece = nmm_find_piece(NULL,minigame,e.team,NMM_PIECE_HOME);
                if ( !tile.nmm_tile_piece && piece )
                {
                    tile.nmm_tile_piece = piece;
                    piece.minigame_flags = NMM_PIECE_BOARD;
                    piece.origin = tile.origin;
                    piece.SendFlags |= MINIG_SF_UPDATE;
                    move_ok = true;
                }
            }
            else if ( minigame.minigame_flags & NMM_TURN_MOVE )
            {
                if ( tile.nmm_tile_piece && tile.nmm_tile_piece.team == e.team )
                {
                    piece = tile.nmm_tile_piece;
                    entity tile2 = nmm_find_tile(minigame,argv(2));
                    if ( tile2 && nmm_tile_adjacent(tile,tile2) && !tile2.nmm_tile_piece )
                    {
                        tile.nmm_tile_piece = NULL;
                        tile2.nmm_tile_piece = piece;
                        piece.origin = tile2.origin;
                        piece.SendFlags |= MINIG_SF_UPDATE;
                        tile = tile2;
                        move_ok = true;
                    }
                }
 
            }
            else if ( minigame.minigame_flags & NMM_TURN_FLY )
            {
                if ( tile.nmm_tile_piece && tile.nmm_tile_piece.team == e.team )
                {
                    piece = tile.nmm_tile_piece;
                    entity tile2 = nmm_find_tile(minigame,argv(2));
                    if ( tile2 && !tile2.nmm_tile_piece )
                    {
                        tile.nmm_tile_piece = NULL;
                        tile2.nmm_tile_piece = piece;
                        piece.origin = tile2.origin;
                        piece.SendFlags |= MINIG_SF_UPDATE;
                        tile = tile2;
                        move_ok = true;
                    }
                }
 
            }
            else if ( minigame.minigame_flags & NMM_TURN_TAKE )
            {
                piece = tile.nmm_tile_piece;
                if ( piece && piece.nmm_tile_piece.team != e.team )
                {
                    tile.nmm_tile_piece = NULL;
                    piece.minigame_flags = NMM_PIECE_DEAD;
                    piece.SendFlags |= MINIG_SF_UPDATE;
                    move_ok = true;
                }
            }
 
            int nextteam = e.team % 2 + 1;
            int npieces = nmm_count_pieces(minigame,nextteam,NMM_PIECE_HOME|NMM_PIECE_BOARD);
 
            if ( npieces < 3 )
            {
                minigame.minigame_flags = NMM_TURN_WIN | e.team;
                minigame.SendFlags |= MINIG_SF_UPDATE;
            }
            else if ( move_ok)
            {
                if ( !(minigame.minigame_flags & NMM_TURN_TAKE) && nmm_in_mill(tile) )
                {
                    minigame.minigame_flags = NMM_TURN_TAKE|e.team;
                    int takemill = NMM_TURN_TAKEANY;
                    entity f = NULL;
                    while ( ( f = findentity(f,owner,minigame) ) )
                        if ( f.classname == "minigame_nmm_tile" && f.nmm_tile_piece  &&
                                f.nmm_tile_piece.team == nextteam && !nmm_in_mill(f) )
                        {
                            takemill = 0;
                            break;
                        }
                    minigame.minigame_flags |= takemill;
                }
                else
                {
                    if ( nmm_find_piece(NULL,minigame,nextteam,NMM_PIECE_HOME) )
                        minigame.minigame_flags = NMM_TURN_PLACE|nextteam;
                    else if ( npieces == 3 )
                        minigame.minigame_flags = NMM_TURN_FLY|nextteam;
                    else
                    {
                        minigame.minigame_flags = NMM_TURN_WIN|e.team;
                        entity f = NULL;
                        while ( ( f = findentity(f,owner,minigame) ) )
                            if ( f.classname == "minigame_nmm_tile" && f.nmm_tile_piece  &&
                                f.nmm_tile_piece.team == nextteam && nmm_tile_canmove(f) )
                            {
                                minigame.minigame_flags = NMM_TURN_MOVE|nextteam;
                                break;
                            }
                    }
                }
                minigame.SendFlags |= MINIG_SF_UPDATE;
            }
            else
                LOG_TRACE("Invalid move: ", ...(2, string));
            return 1;
        }
    }
    return 0;
}
 
#elif defined(CSQC)
 
entity nmm_currtile;
entity nmm_fromtile;
 
vector nmm_boardpos;
vector nmm_boardsize;
 
// whether the given tile is a valid selection
bool nmm_valid_selection(entity tile)
{
    if ( ( tile.owner.minigame_flags & NMM_TURN_TEAM ) != minigame_self.team )
        return false; // not our turn
    if ( tile.owner.minigame_flags & NMM_TURN_PLACE )
        return !tile.nmm_tile_piece; // need to put a piece on an empty spot
    if ( tile.owner.minigame_flags & NMM_TURN_MOVE )
    {
        if ( tile.nmm_tile_piece && tile.nmm_tile_piece.team == minigame_self.team &&
                nmm_tile_canmove(tile) )
            return true; //  movable tile
        if ( nmm_fromtile ) // valid destination
            return !tile.nmm_tile_piece && nmm_tile_adjacent(nmm_fromtile,tile);
        return false;
    }
    if ( tile.owner.minigame_flags & NMM_TURN_FLY )
    {
        if ( nmm_fromtile )
            return !tile.nmm_tile_piece;
        else
            return tile.nmm_tile_piece && tile.nmm_tile_piece.team == minigame_self.team;
    }
    if ( tile.owner.minigame_flags & NMM_TURN_TAKE )
        return tile.nmm_tile_piece && tile.nmm_tile_piece.team != minigame_self.team &&
            ( (tile.owner.minigame_flags & NMM_TURN_TAKEANY) || !nmm_in_mill(tile) );
    return false;
}
 
// whether it should highlight valid tile selections
bool nmm_draw_avaliable(entity tile)
{
    if ( ( tile.owner.minigame_flags & NMM_TURN_TEAM ) != minigame_self.team )
        return false;
    if ( (tile.owner.minigame_flags & NMM_TURN_TAKE) )
        return true;
    if ( (tile.owner.minigame_flags & (NMM_TURN_FLY|NMM_TURN_MOVE)) && nmm_fromtile )
        return !tile.nmm_tile_piece;
    return false;
}
 
// Required function, draw the game board
void nmm_hud_board(vector pos, vector mySize)
{
    minigame_hud_fitsqare(pos, mySize);
    nmm_boardpos = pos;
    nmm_boardsize = mySize;
    minigame_hud_simpleboard(pos,mySize,minigame_texture("nmm/board"));
 
    vector tile_size = minigame_hud_denormalize_size('1 1 0'/7,pos,mySize);
    vector tile_pos;
    entity e;
    FOREACH_MINIGAME_ENTITY(e)
    {
        if ( e.classname == "minigame_nmm_tile" )
        {
            tile_pos = minigame_hud_denormalize(e.origin,pos,mySize);
 
            if ( e == nmm_fromtile )
            {
                minigame_drawpic_centered( tile_pos, minigame_texture("nmm/tile_active"),
                    tile_size, '1 1 1', panel_fg_alpha, DRAWFLAG_NORMAL );
            }
            else if ( nmm_draw_avaliable(e) && nmm_valid_selection(e) )
            {
                minigame_drawpic_centered( tile_pos, minigame_texture("nmm/tile_available"),
                    tile_size, '1 1 1', panel_fg_alpha, DRAWFLAG_NORMAL );
            }
 
            if ( e == nmm_currtile )
            {
                minigame_drawpic_centered( tile_pos, minigame_texture("nmm/tile_selected"),
                    tile_size, '1 1 1', panel_fg_alpha, DRAWFLAG_ADDITIVE );
            }
 
            if ( e.nmm_tile_piece )
            {
                minigame_drawpic_centered( tile_pos,
                    minigame_texture(strcat("nmm/piece",ftos(e.nmm_tile_piece.team))),
                    tile_size*0.8, '1 1 1', panel_fg_alpha, DRAWFLAG_NORMAL );
            }
 
            //drawstring(tile_pos, e.netname, hud_fontsize, '1 0 0', 1, DRAWFLAG_NORMAL);
        }
    }
 
    if ( active_minigame.minigame_flags & NMM_TURN_WIN )
    {
        vector winfs = hud_fontsize*2;
        string pname = "";
        FOREACH_MINIGAME_ENTITY(e)
            if ( e.classname == "minigame_player" &&
                    e.team == (active_minigame.minigame_flags & NMM_TURN_TEAM) )
                pname = entcs_GetName(e.minigame_playerslot-1);
 
        vector win_pos = pos+eY*(mySize_y-winfs_y)/2;
        vector win_sz;
        win_sz = minigame_drawcolorcodedstring_wrapped(mySize_x,win_pos,
            sprintf(_("%s^7 won the game!"), pname),
            winfs, 0, DRAWFLAG_NORMAL, 0.5);
 
        drawfill(win_pos-eY*hud_fontsize_y,win_sz+2*eY*hud_fontsize_y,'1 1 1',0.5*panel_fg_alpha,DRAWFLAG_ADDITIVE);
 
        minigame_drawcolorcodedstring_wrapped(mySize_x,win_pos,
            sprintf(_("%s^7 won the game!"), pname),
            winfs, panel_fg_alpha, DRAWFLAG_NORMAL, 0.5);
    }
 
    minigame_show_allspecs(nmm_boardpos, nmm_boardsize);
}
 
// Required function, draw the game status panel
void nmm_hud_status(vector pos, vector mySize)
{
    HUD_Panel_DrawBg();
    vector ts;
    ts = minigame_drawstring_wrapped(mySize_x,pos,active_minigame.descriptor.message,
        hud_fontsize * 2, '0.25 0.47 0.72', panel_fg_alpha, DRAWFLAG_NORMAL,0.5);
    pos_y += ts_y;
    mySize_y -= ts_y;
 
    vector player_fontsize = hud_fontsize * 1.75;
    ts_y = ( mySize_y - 2*player_fontsize_y ) / 2;
    ts_x = mySize_x;
 
    float player1x = 0;
    float player2x = 0;
    vector piece_sz = '48 48 0';
    float piece_space = piece_sz_x + ( ts_x - 7 * piece_sz_x ) / 6;
    vector mypos;
    float piece_light = 1;
    entity e = NULL;
 
    if(minigame_self.team != NMM_SPECTATOR_TEAM)
    {
        mypos = pos;
        if ( (active_minigame.minigame_flags&NMM_TURN_TEAM) == 2 )
            mypos_y  += player_fontsize_y + ts_y;
        drawfill(mypos,eX*mySize_x+eY*player_fontsize_y,'1 1 1',0.5*panel_fg_alpha,DRAWFLAG_ADDITIVE);
        mypos_y += player_fontsize_y;
        drawfill(mypos,eX*mySize_x+eY*piece_sz_y,'1 1 1',0.25*panel_fg_alpha,DRAWFLAG_ADDITIVE);
    }
 
    FOREACH_MINIGAME_ENTITY(e)
    {
        if ( e.classname == "minigame_player" && e.team != NMM_SPECTATOR_TEAM )
        {
            mypos = pos;
            if ( e.team == 2 )
                mypos_y  += player_fontsize_y + ts_y;
            minigame_drawcolorcodedstring_trunc(mySize_x,mypos,
                entcs_GetName(e.minigame_playerslot-1),
                player_fontsize, panel_fg_alpha, DRAWFLAG_NORMAL);
        }
        else if ( e.classname == "minigame_board_piece" )
        {
            mypos = pos;
            mypos_y += player_fontsize_y;
            if ( e.team == 2 )
            {
                mypos_x += player2x;
                player2x += piece_space;
                mypos_y  += player_fontsize_y + ts_y;
            }
            else
            {
                mypos_x += player1x;
                player1x += piece_space;
            }
            if ( e.minigame_flags == NMM_PIECE_HOME )
                piece_light = 0.5;
            else if ( e.minigame_flags == NMM_PIECE_BOARD )
                piece_light = 1;
            else
                piece_light = 0.15;
 
            drawpic(mypos, minigame_texture(strcat("nmm/piece",ftos(e.team))), piece_sz,
                '1 1 1'*piece_light, panel_fg_alpha, DRAWFLAG_NORMAL );
        }
    }
}
 
// Make the correct move
void nmm_make_move(entity minigame)
{
    if ( nmm_currtile )
    {
        if ( minigame.minigame_flags & (NMM_TURN_PLACE|NMM_TURN_TAKE) )
        {
            minigame_cmd("move ",nmm_currtile.netname);
            nmm_fromtile = NULL;
        }
        else if ( (minigame.minigame_flags & (NMM_TURN_MOVE|NMM_TURN_FLY)) )
        {
            if ( nmm_fromtile == nmm_currtile )
            {
                nmm_fromtile = NULL;
            }
            else if ( nmm_currtile.nmm_tile_piece && nmm_currtile.nmm_tile_piece.team == minigame_self.team )
            {
                nmm_fromtile = nmm_currtile;
            }
            else if ( nmm_fromtile )
            {
                minigame_cmd("move ",nmm_fromtile.netname," ",nmm_currtile.netname);
                nmm_fromtile = NULL;
            }
        }
    }
    else
        nmm_fromtile = NULL;
}
 
string nmm_turn_to_string(int turnflags)
{
    if( minigame_self.team == NMM_SPECTATOR_TEAM )
        return _("You are spectating");
 
    if ( turnflags & NMM_TURN_WIN )
    {
        if ( (turnflags&NMM_TURN_TEAM) != minigame_self.team )
            return _("You lost the game!");
        return _("You win!");
    }
 
    if ( (turnflags&NMM_TURN_TEAM) != minigame_self.team )
        return _("Wait for your opponent to make their move");
    if ( turnflags & NMM_TURN_PLACE )
        return _("Click on the game board to place your piece");
    if ( turnflags & NMM_TURN_MOVE )
        return _("You can select one of your pieces to move it to one of the surrounding places");
    if ( turnflags & NMM_TURN_FLY )
        return _("You can select one of your pieces to move it anywhere on the board");
    if ( turnflags & NMM_TURN_TAKE )
        return _("You can take one of the opponent's pieces");
 
    return "";
}
 
// Required function, handle client events
int nmm_client_event(entity minigame, string event, ...)
{
    if ( event == "activate" )
    {
        nmm_fromtile = NULL;
        nmm_init_tiles(minigame);
        strcpy(minigame.message, nmm_turn_to_string(minigame.minigame_flags));
    }
    else if ( event == "deactivate" )
    {
        nmm_fromtile = NULL;
        nmm_kill_tiles(minigame);
        strfree(minigame.message);
    }
    else if ( (event == "key_pressed" || event == "key_released") )
    {
        bool event_blocked = ((event == "key_released")
            || ((minigame.minigame_flags & NMM_TURN_TEAM) != minigame_self.team));
        if (!(minigame.minigame_flags & NMM_TURN_WIN))
        {
            switch ( ...(0,int) )
            {
                case K_RIGHTARROW:
                case K_KP_RIGHTARROW:
                    if (event_blocked)
                        return true;
                    if ( ! nmm_currtile )
                        nmm_currtile = nmm_find_tile(active_minigame,"a7");
                    else
                    {
                        string tileid = nmm_currtile.netname;
                        nmm_currtile = NULL;
                        while ( !nmm_currtile )
                        {
                            tileid = minigame_relative_tile(tileid,1,0,7,7);
                            nmm_currtile = nmm_find_tile(active_minigame,tileid);
                        }
                    }
                    return 1;
                case K_LEFTARROW:
                case K_KP_LEFTARROW:
                    if (event_blocked)
                        return true;
                    if ( ! nmm_currtile )
                        nmm_currtile = nmm_find_tile(active_minigame,"g7");
                    else
                    {
                        string tileid = nmm_currtile.netname;
                        nmm_currtile = NULL;
                        while ( !nmm_currtile )
                        {
                            tileid = minigame_relative_tile(tileid,-1,0,7,7);
                            nmm_currtile = nmm_find_tile(active_minigame,tileid);
                        }
                    }
                    return 1;
                case K_UPARROW:
                case K_KP_UPARROW:
                    if (event_blocked)
                        return true;
                    if ( ! nmm_currtile )
                        nmm_currtile = nmm_find_tile(active_minigame,"a1");
                    else
                    {
                        string tileid = nmm_currtile.netname;
                        nmm_currtile = NULL;
                        while ( !nmm_currtile )
                        {
                            tileid = minigame_relative_tile(tileid,0,1,7,7);
                            nmm_currtile = nmm_find_tile(active_minigame,tileid);
                        }
                    }
                    return 1;
                case K_DOWNARROW:
                case K_KP_DOWNARROW:
                    if (event_blocked)
                        return true;
                    if ( ! nmm_currtile )
                        nmm_currtile = nmm_find_tile(active_minigame,"a7");
                    else
                    {
                        string tileid = nmm_currtile.netname;
                        nmm_currtile = NULL;
                        while ( !nmm_currtile )
                        {
                            tileid = minigame_relative_tile(tileid,0,-1,7,7);
                            nmm_currtile = nmm_find_tile(active_minigame,tileid);
                        }
                    }
                    return 1;
                case K_ENTER:
                case K_KP_ENTER:
                case K_SPACE:
                    if (event_blocked)
                        return true;
                    nmm_make_move(minigame);
                    return 1;
            }
        }
        return 0;
    }
    else if ( event == "mouse_pressed" && ...(0,int) == K_MOUSE1 )
    {
        nmm_client_event(minigame, "mouse_moved");
        nmm_make_move(minigame);
        return 1;
    }
    else if ( event == "mouse_moved" )
    {
        nmm_currtile = NULL;
        vector tile_pos;
        vector tile_size = minigame_hud_denormalize_size('1 1 0'/7,nmm_boardpos,nmm_boardsize);
        entity e;
        FOREACH_MINIGAME_ENTITY(e)
        {
            if ( e.classname == "minigame_nmm_tile" )
            {
                tile_pos = minigame_hud_denormalize(e.origin,nmm_boardpos,nmm_boardsize)-tile_size/2;
                if ( minigame_hud_mouse_in(tile_pos, tile_size) && nmm_valid_selection(e) )
                {
                    nmm_currtile = e;
                    break;
                }
            }
        }
        return 1;
    }
    else if ( event == "network_receive" )
    {
        entity sent = ...(0,entity);
 
        if ( sent.classname == "minigame_board_piece" && ( ...(1,int) & MINIG_SF_UPDATE ) )
        {
            entity e;
            string tileid = "";
            if ( sent.minigame_flags & NMM_PIECE_BOARD )
                tileid = minigame_tile_name(sent.origin,7,7);
            FOREACH_MINIGAME_ENTITY(e)
            {
                if ( e.classname == "minigame_nmm_tile" )
                {
                    if ( e.nmm_tile_piece == sent )
                        e.nmm_tile_piece = NULL;
                    if ( e.netname == tileid )
                        e.nmm_tile_piece = sent;
                }
            }
        }
        else if ( sent.classname == "minigame" && ( ...(1,int) & MINIG_SF_UPDATE ) )
        {
            strcpy(sent.message, nmm_turn_to_string(sent.minigame_flags));
            if ( sent.minigame_flags & minigame_self.team )
                minigame_prompt();
        }
    }
 
    return 0;
}
 
#endif