nmm.qc File Reference

#include "nmm.qh"

Include dependency graph for nmm.qc:

This graph shows which files directly or indirectly include this file:

Go to the source code of this file.

Functions
int	nmm_count_pieces (entity minigame, int teamn, int pieceflags)
entity	nmm_find_piece (entity start, entity minigame, int teamn, int pieceflags)
entity	nmm_find_tile (entity minig, string id)
bool	nmm_in_mill (entity minigame, entity tile)
bool	nmm_in_mill_string (entity minigame, entity tile, string s)
void	nmm_init_tiles (entity minig)
void	nmm_kill_tiles (entity minig)
int	nmm_server_event (entity minigame, string event,...)
void	nmm_spawn_tile (string id, entity minig, int distance)
void	nmm_spawn_tile_square (entity minig, int offset, int skip)
bool	nmm_tile_adjacent (entity tile1, entity tile2)
string	nmm_tile_build_hmill (entity tile)
string	nmm_tile_build_vmill (entity tile)
bool	nmm_tile_canmove (entity tile)
	REGISTER_MINIGAME (nmm, _("Nine Men's Morris"))

Variables
const int	NMM_PIECE_BOARD = 0x2
const int	NMM_PIECE_DEAD = 0x0
const int	NMM_PIECE_HOME = 0x1
const int	NMM_SPECTATOR_TEAM = 255
int	nmm_tile_distance
string	nmm_tile_hmill
entity	nmm_tile_piece
string	nmm_tile_vmill
const int	NMM_TURN_FLY = 0x0400
const int	NMM_TURN_MOVE = 0x0200
const int	NMM_TURN_PLACE = 0x0100
const int	NMM_TURN_TAKE = 0x0800
const int	NMM_TURN_TAKEANY =0x1000
const int	NMM_TURN_TEAM = 0x00ff
const int	NMM_TURN_TEAM1 = 0x0001
const int	NMM_TURN_TEAM2 = 0x0002
const int	NMM_TURN_TYPE = 0xff00
const int	NMM_TURN_WIN = 0x2000

Function Documentation

nmm_count_pieces()

int nmm_count_pieces	(	entity	minigame,
		int	teamn,
		int	pieceflags )

Definition at line 211 of file nmm.qc.

{
    int n = 0;
    entity e = NULL;
    while (( e = nmm_find_piece(e,minigame, teamn, pieceflags) ))
        ++n;
    return n;
}

References entity(), nmm_find_piece(), and NULL.

Referenced by nmm_server_event().

nmm_find_piece()

entity nmm_find_piece	(	entity	start,
		entity	minigame,
		int	teamn,
		int	pieceflags )

Definition at line 200 of file nmm.qc.

{
    entity e = start;
    while ( ( e = findfloat(e,minigame_id,minigame.minigame_id) ) )
        if ( e.classname == "minigame_board_piece" &&
                (e.minigame_flags & pieceflags) && e.team == teamn )
            return e;
    return NULL;
}

References entity(), findfloat(), minigame_id, and NULL.

Referenced by nmm_count_pieces(), and nmm_server_event().

nmm_find_tile()

entity nmm_find_tile	(	entity	minig,
		string	id )

Definition at line 143 of file nmm.qc.

{
    entity e = NULL;
    while ( ( e = findfloat(e,minigame_id,minig.minigame_id) ) )
        if ( e.classname == "minigame_nmm_tile" && e.netname == id )
            return e;
    return NULL;
}

References entity(), findfloat(), minigame_id, and NULL.

Referenced by nmm_in_mill_string(), and nmm_server_event().

nmm_in_mill()

bool nmm_in_mill	(	entity	minigame,
		entity	tile )

Definition at line 190 of file nmm.qc.

{
    return tile.nmm_tile_piece &&  (
        nmm_in_mill_string(minigame,tile,tile.nmm_tile_hmill) ||
        nmm_in_mill_string(minigame,tile,tile.nmm_tile_vmill) );
}

References entity(), and nmm_in_mill_string().

Referenced by nmm_server_event().

nmm_in_mill_string()

bool nmm_in_mill_string	(	entity	minigame,
		entity	tile,
		string	s )

Definition at line 177 of file nmm.qc.

{
    int argc = tokenize(s);
    for ( int i = 0; i < argc; ++i )
    {
        entity e = nmm_find_tile(minigame,argv(i));
        if ( !e || !e.nmm_tile_piece || e.nmm_tile_piece.team != tile.nmm_tile_piece.team )
            return false;
    }
    return true;
}

References argv(), entity(), nmm_find_tile(), and tokenize().

Referenced by nmm_in_mill().

nmm_init_tiles()

void nmm_init_tiles

(

entity

minig

)

Definition at line 137 of file nmm.qc.

{
    nmm_spawn_tile_square(minig,0,2);
}

References entity(), and nmm_spawn_tile_square().

Referenced by nmm_server_event().

nmm_kill_tiles()

void nmm_kill_tiles

(

entity

minig

)

Definition at line 123 of file nmm.qc.

{
    entity e = NULL;
    while ( ( e = findfloat(e,minigame_id,minig.minigame_id) ) )
        if ( e.classname == "minigame_nmm_tile" )
        {
            strfree(e.netname);
            strfree(e.nmm_tile_hmill);
            strfree(e.nmm_tile_vmill);
            delete(e);
        }
}

References entity(), findfloat(), minigame_id, NULL, and strfree.

Referenced by nmm_server_event().

nmm_server_event()

int nmm_server_event	(	entity	minigame,
		string	event,
			... )

Definition at line 221 of file nmm.qc.

{
    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(minigame, tile) )
                {
                    minigame.minigame_flags = NMM_TURN_TAKE|e.team;
                    int takemill = NMM_TURN_TAKEANY;
                    entity f = NULL;
                    while ( ( f = findfloat(f,minigame_id,minigame.minigame_id) ) )
                        if ( f.classname == "minigame_nmm_tile" && f.nmm_tile_piece  &&
                                f.nmm_tile_piece.team == nextteam && !nmm_in_mill(minigame, 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 = findfloat(f,minigame_id,minigame.minigame_id) ) )
                            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;
}

References argv(), entity(), findfloat(), int, LOG_TRACE, MINIG_SF_UPDATE, minigame_id, msle_spawn(), nmm_count_pieces(), nmm_find_piece(), nmm_find_tile(), nmm_in_mill(), nmm_init_tiles(), nmm_kill_tiles(), NMM_PIECE_BOARD, NMM_PIECE_DEAD, NMM_PIECE_HOME, NMM_SPECTATOR_TEAM, nmm_tile_adjacent(), nmm_tile_canmove(), NMM_TURN_FLY, NMM_TURN_MOVE, NMM_TURN_PLACE, NMM_TURN_TAKE, NMM_TURN_TAKEANY, NMM_TURN_TEAM, NMM_TURN_TEAM1, NMM_TURN_WIN, and NULL.

nmm_spawn_tile()

void nmm_spawn_tile	(	string	id,
		entity	minig,
		int	distance )

Definition at line 83 of file nmm.qc.

{
    // 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.minigame_id = minig.minigame_id;
    e.descriptor = minig.descriptor;
    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));
}

References entity(), minigame_tile_pos(), nmm_tile_build_hmill(), nmm_tile_build_vmill(), and strzone().

Referenced by nmm_spawn_tile_square().

nmm_spawn_tile_square()

void nmm_spawn_tile_square	(	entity	minig,
		int	offset,
		int	skip )

Definition at line 102 of file nmm.qc.

{
    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);
}

References entity(), minigame_tile_buildname(), nmm_spawn_tile(), nmm_spawn_tile_square(), number, and strzone().

Referenced by nmm_init_tiles(), and nmm_spawn_tile_square().

nmm_tile_adjacent()

bool nmm_tile_adjacent	(	entity	tile1,
		entity	tile2 )

Definition at line 153 of file nmm.qc.

{
 
    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 ) );
}

References entity(), fabs(), minigame_tile_letter(), and minigame_tile_number().

Referenced by nmm_server_event(), and nmm_tile_canmove().

nmm_tile_build_hmill()

string nmm_tile_build_hmill

(

entity

tile

)

Definition at line 28 of file nmm.qc.

{
    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) );
}

References entity(), minigame_tile_buildname(), minigame_tile_letter(), minigame_tile_number(), number, and strcat().

Referenced by nmm_spawn_tile().

nmm_tile_build_vmill()

string nmm_tile_build_vmill

(

entity

tile

)

Definition at line 54 of file nmm.qc.

{
    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) );
}

References entity(), minigame_tile_buildname(), minigame_tile_letter(), minigame_tile_number(), number, and strcat().

Referenced by nmm_spawn_tile().

nmm_tile_canmove()

bool nmm_tile_canmove

(

entity

tile

)

Definition at line 164 of file nmm.qc.

{
    entity e = NULL;
    while ( ( e = findfloat(e,minigame_id,tile.minigame_id) ) )
        if ( e.classname == "minigame_nmm_tile" && !e.nmm_tile_piece
                && nmm_tile_adjacent(e,tile) )
        {
            return true;
        }
    return false;
}

References entity(), findfloat(), minigame_id, nmm_tile_adjacent(), and NULL.

Referenced by nmm_server_event().

REGISTER_MINIGAME()

REGISTER_MINIGAME	(	nmm	,
		_("Nine Men's Morris")	)

Variable Documentation

NMM_PIECE_BOARD

const int NMM_PIECE_BOARD = 0x2

Definition at line 18 of file nmm.qc.

Referenced by nmm_server_event().

NMM_PIECE_DEAD

const int NMM_PIECE_DEAD = 0x0

Definition at line 16 of file nmm.qc.

Referenced by nmm_server_event().

NMM_PIECE_HOME

const int NMM_PIECE_HOME = 0x1

Definition at line 17 of file nmm.qc.

Referenced by nmm_server_event().

NMM_SPECTATOR_TEAM

const int NMM_SPECTATOR_TEAM = 255

Definition at line 20 of file nmm.qc.

Referenced by nmm_server_event().

nmm_tile_distance

int nmm_tile_distance

Definition at line 22 of file nmm.qc.

nmm_tile_hmill

string nmm_tile_hmill

Definition at line 24 of file nmm.qc.

nmm_tile_piece

entity nmm_tile_piece

Definition at line 23 of file nmm.qc.

nmm_tile_vmill

string nmm_tile_vmill

Definition at line 25 of file nmm.qc.

NMM_TURN_FLY

const int NMM_TURN_FLY = 0x0400

Definition at line 7 of file nmm.qc.

Referenced by nmm_server_event().

NMM_TURN_MOVE

const int NMM_TURN_MOVE = 0x0200

Definition at line 6 of file nmm.qc.

Referenced by nmm_server_event().

NMM_TURN_PLACE

const int NMM_TURN_PLACE = 0x0100

Definition at line 5 of file nmm.qc.

Referenced by nmm_server_event().

NMM_TURN_TAKE

const int NMM_TURN_TAKE = 0x0800

Definition at line 8 of file nmm.qc.

Referenced by nmm_server_event().

NMM_TURN_TAKEANY

const int NMM_TURN_TAKEANY =0x1000

Definition at line 9 of file nmm.qc.

Referenced by nmm_server_event().

NMM_TURN_TEAM

const int NMM_TURN_TEAM = 0x00ff

Definition at line 14 of file nmm.qc.

Referenced by nmm_server_event().

NMM_TURN_TEAM1

const int NMM_TURN_TEAM1 = 0x0001

Definition at line 12 of file nmm.qc.

Referenced by nmm_server_event().

NMM_TURN_TEAM2

const int NMM_TURN_TEAM2 = 0x0002

Definition at line 13 of file nmm.qc.

NMM_TURN_TYPE

const int NMM_TURN_TYPE = 0xff00

Definition at line 11 of file nmm.qc.

NMM_TURN_WIN

const int NMM_TURN_WIN = 0x2000

Definition at line 10 of file nmm.qc.

Referenced by nmm_server_event().