#include "pong.qh"

Include dependency graph for pong.qc:

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

Functions
vector	box_nearest (vector box_min, vector box_max, vector p)
void	pong_add_score (entity minigame, int team_thrower, int team_receiver, int delta)
entity	pong_ai_spawn (entity minigame, entity paddle)
void	pong_ai_think (entity this)
void	pong_ball_reset (entity ball)
void	pong_ball_think (entity this)
void	pong_ball_throw (entity ball)
void	pong_ball_throwthink (entity this)
bool	pong_goal (entity minigame, entity ball, int pteam)
void	pong_paddle_bounce (entity ball, int pteam)
bool	pong_paddle_hit (entity minigame, entity ball, int pteam)
entity	pong_paddle_spawn (entity minigame, int pl_team, entity real_player)
void	pong_paddle_think (entity this)
int	pong_server_event (entity minigame, string event,...)
vector	pong_team_to_box_halfsize (int nteam, float length, float width)
vector	pong_team_to_paddlepos (int nteam)
	REGISTER_MINIGAME (pong, _("Pong"))

Variables
float	autocvar_sv_minigames_pong_ai_thinkspeed
float	autocvar_sv_minigames_pong_ai_tolerance
float	autocvar_sv_minigames_pong_ball_number
float	autocvar_sv_minigames_pong_ball_radius
float	autocvar_sv_minigames_pong_ball_speed
float	autocvar_sv_minigames_pong_ball_wait
float	autocvar_sv_minigames_pong_paddle_size
float	autocvar_sv_minigames_pong_paddle_speed
entity	pong_ai_paddle
const int	PONG_KEY_BOTH = 0x03
const int	PONG_KEY_DECREASE = 0x02
const int	PONG_KEY_INCREASE = 0x01
int	pong_keys
float	pong_length
const int	PONG_MAX_PLAYERS = 4
entity	pong_paddles [PONG_MAX_PLAYERS]
int	pong_score
const int	PONG_SF_BALLTEAM = MINIG_SF_CUSTOM
const int	PONG_SF_PLAYERSCORE = MINIG_SF_CUSTOM
const int	PONG_SPECTATOR_TEAM = 255
const int	PONG_STATUS_PLAY = 0x0020
const int	PONG_STATUS_WAIT = 0x0010

Function Documentation

◆ box_nearest()

vector box_nearest	(	vector	box_min,
		vector	box_max,
		vector	p )

Definition at line 97 of file pong.qc.

{
    return vec2( p.x > box_max.x  ? box_max.x  : ( p.x < box_min.x ? box_min.x : p.x ),
        p.y > box_max.y  ? box_max.y  : ( p.y < box_min.y ? box_min.y : p.y ) );
}

References vec2, and vector.

Referenced by pong_paddle_hit().

◆ pong_add_score()

void pong_add_score	(	entity	minigame,
		int	team_thrower,
		int	team_receiver,
		int	delta )

Definition at line 77 of file pong.qc.

{
    if ( !minigame )
        return;
 
    if ( team_thrower == 0 )
        team_thrower = team_receiver;
 
    if ( team_thrower == team_receiver )
        delta *= -1;
 
    entity paddle_thrower = minigame.pong_paddles[team_thrower-1];
    if ( paddle_thrower.realowner.minigame_players )
    {
        paddle_thrower.realowner.minigame_players.pong_score += delta;
        paddle_thrower.realowner.minigame_players.SendFlags |= PONG_SF_PLAYERSCORE;
    }
}

References entity(), and PONG_SF_PLAYERSCORE.

Referenced by pong_goal().

◆ pong_ai_spawn()

entity pong_ai_spawn	(	entity	minigame,
		entity	paddle )

Definition at line 262 of file pong.qc.

{
    entity ai = msle_spawn(minigame,new(pong_ai));
    ai.minigame_players = ai;
    ai.team = paddle.team;
    setthink(ai, pong_ai_think);
    ai.nextthink = time;
    ai.pong_ai_paddle = paddle;
 
    paddle.realowner = ai;
 
    return ai;
}

References entity(), msle_spawn(), pong_ai_think(), setthink, and time.

Referenced by pong_paddle_spawn(), and pong_server_event().

◆ pong_ai_think()

void pong_ai_think ( entity this )

Definition at line 212 of file pong.qc.

{
    float think_speed = autocvar_sv_minigames_pong_ai_thinkspeed;
    this.nextthink = time + think_speed;
 
    float distance;
    float next_distance;
    float min_distance = 1;
    entity ball = NULL;
    entity mayball = NULL;
    while ( ( mayball = findfloat(mayball,minigame_id,this.minigame_id) ) )
        if ( mayball.classname == "pong_ball" )
        {
            distance = vlen(mayball.origin-this.pong_ai_paddle.origin);
            next_distance = vlen(mayball.origin+mayball.velocity-this.pong_ai_paddle.origin);
            if (  distance < min_distance && ( distance < 0.5 || next_distance < distance ) )
            {
                min_distance = distance;
                ball = mayball;
            }
        }
 
    float target = 0.5;
    float my_pos;
 
 
    if ( this.team <= 2 )
    {
        if ( ball )
            target = ball.origin_y + ball.velocity_y*think_speed;
        my_pos = this.pong_ai_paddle.origin_y;
    }
    else
    {
        if ( ball )
            target = ball.origin_x + ball.velocity_x*think_speed;
        my_pos = this.pong_ai_paddle.origin_x;
    }
 
    distance = this.pong_length/2 * autocvar_sv_minigames_pong_ai_tolerance
        + autocvar_sv_minigames_pong_paddle_speed * think_speed;
 
    if (target < my_pos - distance)
        this.pong_keys = PONG_KEY_DECREASE;
    else if (target > my_pos + distance)
        this.pong_keys = PONG_KEY_INCREASE;
    else
        this.pong_keys = 0;
}

References autocvar_sv_minigames_pong_ai_thinkspeed, autocvar_sv_minigames_pong_ai_tolerance, autocvar_sv_minigames_pong_paddle_speed, entity(), findfloat(), minigame_id, nextthink, NULL, pong_ai_paddle, PONG_KEY_DECREASE, PONG_KEY_INCREASE, pong_keys, pong_length, target, team, time, and vlen().

Referenced by pong_ai_spawn().

◆ pong_ball_reset()

void pong_ball_reset ( entity ball )

Definition at line 65 of file pong.qc.

{
    ball.velocity = '0 0 0';
    ball.origin = '0.5 0.5 0';
    setthink(ball, SUB_NullThink);
    ball.team = 0;
    ball.SendFlags |= MINIG_SF_UPDATE|PONG_SF_BALLTEAM;
    setthink(ball, pong_ball_throwthink);
    ball.nextthink = time + autocvar_sv_minigames_pong_ball_wait;
}

References autocvar_sv_minigames_pong_ball_wait, entity(), MINIG_SF_UPDATE, pong_ball_throwthink(), PONG_SF_BALLTEAM, setthink, SUB_NullThink(), and time.

Referenced by pong_goal(), and pong_server_event().

◆ pong_ball_think()

void pong_ball_think ( entity this )

Definition at line 155 of file pong.qc.

{
    entity minigame = this.owner;
    float think_speed = autocvar_sys_ticrate;
    this.nextthink = time + think_speed;
 
    this.origin_x += this.velocity_x * think_speed;
    this.origin_y += this.velocity_y * think_speed;
    this.SendFlags |= MINIG_SF_UPDATE;
 
    int i;
    for ( i = 1; i <= PONG_MAX_PLAYERS; ++i )
        if ( pong_paddle_hit(minigame, this, i) )
        {
            pong_paddle_bounce(this,i);
            this.team = i;
            this.SendFlags |= PONG_SF_BALLTEAM;
            return;
        }
 
    if ( this.origin_y <= this.pong_length )
    {
        if ( !pong_goal(minigame,this,3) )
        {
            this.origin_y = this.pong_length;
            this.velocity_y *= -1;
        }
    }
    else if ( this.origin_y >= 1-this.pong_length )
    {
        if ( !pong_goal(minigame,this,4) )
        {
            this.origin_y = 1-this.pong_length;
            this.velocity_y *= -1;
        }
    }
 
    if ( this.origin_x <= this.pong_length )
    {
        if ( !pong_goal(minigame,this,2) )
        {
             this.origin_x = this.pong_length;
             this.velocity_x *= -1;
        }
    }
    else if ( this.origin_x >= 1-this.pong_length )
    {
        if ( !pong_goal(minigame,this,1) )
        {
             this.origin_x = 1-this.pong_length;
             this.velocity_x *= -1;
        }
    }
 
}

References autocvar_sys_ticrate, entity(), MINIG_SF_UPDATE, nextthink, owner, pong_goal(), pong_length, PONG_MAX_PLAYERS, pong_paddle_bounce(), pong_paddle_hit(), PONG_SF_BALLTEAM, SendFlags, team, and time.

Referenced by pong_ball_throw().

◆ pong_ball_throw()

void pong_ball_throw ( entity ball )

Definition at line 44 of file pong.qc.

{
    float angle;
    do
        angle = random() * (2 * M_PI);
    while ( fabs(sin(angle)) < 0.17 || fabs(cos(angle)) < 0.17 );
    ball.velocity_x = cos(angle)*autocvar_sv_minigames_pong_ball_speed;
    ball.velocity_y = sin(angle)*autocvar_sv_minigames_pong_ball_speed;
    setthink(ball, pong_ball_think);
    ball.nextthink = time;
    ball.team = 0;
    ball.SendFlags |= MINIG_SF_UPDATE|PONG_SF_BALLTEAM;
}

References angle, autocvar_sv_minigames_pong_ball_speed, cos(), entity(), fabs(), M_PI, MINIG_SF_UPDATE, pong_ball_think(), PONG_SF_BALLTEAM, random(), setthink, sin(), and time.

Referenced by pong_ball_throwthink().

◆ pong_ball_throwthink()

void pong_ball_throwthink ( entity this )

Definition at line 59 of file pong.qc.

{
    pong_ball_throw(this);
}

References entity(), and pong_ball_throw().

Referenced by pong_ball_reset().

◆ pong_goal()

bool pong_goal	(	entity	minigame,
		entity	ball,
		int	pteam )

Definition at line 138 of file pong.qc.

{
    entity paddle = minigame.pong_paddles[pteam-1];
    if (!paddle)
        return false;
 
    if ( !pong_paddle_hit(minigame, ball, pteam) )
    {
        pong_add_score(minigame,ball.team, pteam, 1);
        pong_ball_reset(ball);
        return true;
    }
 
    return false;
}

References entity(), pong_add_score(), pong_ball_reset(), and pong_paddle_hit().

Referenced by pong_ball_think().

◆ pong_paddle_bounce()

void pong_paddle_bounce	(	entity	ball,
		int	pteam )

Definition at line 103 of file pong.qc.

{
    switch(pteam)
    {
        case 1: ball.velocity_x = -fabs(ball.velocity_x); break;
        case 2: ball.velocity_x = fabs(ball.velocity_x); break;
        case 3: ball.velocity_y = fabs(ball.velocity_y); break;
        case 4: ball.velocity_y = -fabs(ball.velocity_y); break;
    }
 
    float angle = atan2(ball.velocity_y, ball.velocity_x);
    angle += ( random() - 0.5 ) * 2 * M_PI/6;
    float speed = vlen(ball.velocity);
 
    ball.velocity_y = speed * sin(angle);
    ball.velocity_x = speed * cos(angle);
}

References angle, cos(), entity(), fabs(), M_PI, random(), sin(), speed, and vlen().

Referenced by pong_ball_think().

◆ pong_paddle_hit()

bool pong_paddle_hit	(	entity	minigame,
		entity	ball,
		int	pteam )

Definition at line 122 of file pong.qc.

{
    entity paddle = minigame.pong_paddles[pteam-1];
    if (!paddle)
        return false;
 
#if 1
    vector near_point = box_nearest(paddle.m_mins+paddle.origin,
                                    paddle.m_maxs+paddle.origin, ball.origin);
    return vdist(near_point - ball.origin, <=, ball.pong_length);
#else
    return boxesoverlap(paddle.m_mins + paddle.origin, paddle.m_maxs + paddle.origin, ball.m_mins + ball.origin, ball.m_maxs + ball.origin);
#endif
}

References box_nearest(), boxesoverlap(), entity(), vdist, and vector.

Referenced by pong_ball_think(), and pong_goal().

◆ pong_paddle_spawn()

entity pong_paddle_spawn	(	entity	minigame,
		int	pl_team,
		entity	real_player )

Definition at line 321 of file pong.qc.

{
    entity paddle = msle_spawn(minigame,new(pong_paddle));
    paddle.pong_length = autocvar_sv_minigames_pong_paddle_size;
    paddle.origin = pong_team_to_paddlepos(pl_team);
    setthink(paddle, pong_paddle_think);
    paddle.nextthink = time;
    paddle.team = pl_team;
    paddle.m_mins = pong_team_to_box_halfsize(pl_team,-paddle.pong_length,-1/16);
    paddle.m_maxs = pong_team_to_box_halfsize(pl_team,paddle.pong_length,1/16);
 
    if ( real_player == NULL )
        pong_ai_spawn(minigame, paddle);
    else
        paddle.realowner = real_player;
 
    minigame.pong_paddles[pl_team-1] = paddle;
 
    return paddle;
 
}

References autocvar_sv_minigames_pong_paddle_size, entity(), msle_spawn(), NULL, pong_ai_spawn(), pong_paddle_think(), pong_team_to_box_halfsize(), pong_team_to_paddlepos(), setthink, and time.

Referenced by pong_server_event().

◆ pong_paddle_think()

void pong_paddle_think ( entity this )

Definition at line 277 of file pong.qc.

{
    float think_speed = autocvar_sys_ticrate;
    this.nextthink = time + think_speed;
 
    if ( this.realowner.minigame_players.pong_keys == PONG_KEY_INCREASE ||
         this.realowner.minigame_players.pong_keys == PONG_KEY_DECREASE )
    {
        float pmovement = autocvar_sv_minigames_pong_paddle_speed * think_speed;
        float halflen = this.pong_length/2;
 
        if ( this.realowner.minigame_players.pong_keys == PONG_KEY_DECREASE )
            pmovement *= -1;
 
        if ( this.team > 2 )
            this.origin_x = bound(halflen, this.origin_x+pmovement, 1-halflen);
        else
            this.origin_y = bound(halflen, this.origin_y+pmovement, 1-halflen);
 
        this.SendFlags |= MINIG_SF_UPDATE;
    }
}

References autocvar_sv_minigames_pong_paddle_speed, autocvar_sys_ticrate, bound(), entity(), MINIG_SF_UPDATE, nextthink, PONG_KEY_DECREASE, PONG_KEY_INCREASE, pong_length, realowner, SendFlags, team, and time.

Referenced by pong_paddle_spawn().

◆ pong_server_event()

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

Definition at line 344 of file pong.qc.

{
    switch (event)
    {
        case "start":
        {
            minigame.minigame_flags |= PONG_STATUS_WAIT;
            return true;
        }
        case "join":
        {
            // Don't allow joining a match that is already running
            if ( minigame.minigame_flags & PONG_STATUS_PLAY )
                return PONG_SPECTATOR_TEAM;
 
            entity player = ...(0,entity);
            int i;
            for ( i = 0; i < PONG_MAX_PLAYERS; ++i )
            {
                if ( minigame.pong_paddles[i] == NULL )
                {
                    pong_paddle_spawn(minigame,i+1,player);
                    return i+1;
                }
            }
 
            return PONG_SPECTATOR_TEAM;
        }
        case "part":
        {
            entity player = ...(0,entity);
            entity paddle;
            entity ai;
            int i;
            for ( i = 0; i < PONG_MAX_PLAYERS; ++i )
            {
                paddle = minigame.pong_paddles[i];
                if ( paddle != NULL && paddle.realowner == player )
                {
                    ai = pong_ai_spawn(minigame, paddle);
                    ai.pong_score = player.minigame_players.pong_score;
                    break;
                }
 
            }
            return false;
        }
        case "cmd":
        {
            entity player = ...(0,entity);
            bool event_blocked = (player.team == PONG_SPECTATOR_TEAM);
            switch(argv(0))
            {
                case "throw":
                    if(event_blocked)
                        return true;
                    if ( minigame.minigame_flags & PONG_STATUS_WAIT )
                    {
                        minigame.minigame_flags = PONG_STATUS_PLAY |
                            (minigame.minigame_flags & ~PONG_STATUS_WAIT);
                        minigame.SendFlags |= MINIG_SF_UPDATE;
 
                        entity ball;
                        for ( int j = 0; j < autocvar_sv_minigames_pong_ball_number; ++j )
                        {
                            ball = msle_spawn(minigame,new(pong_ball));
                            ball.pong_length = autocvar_sv_minigames_pong_ball_radius;
                            ball.m_mins = vec2(-ball.pong_length, -ball.pong_length);
                            ball.m_maxs = vec2(ball.pong_length, ball.pong_length);
                            pong_ball_reset(ball);
                        }
                    }
                    return true;
                case "+movei":
                    if(event_blocked)
                        return true;
                    player.pong_keys |= PONG_KEY_INCREASE;
                    return true;
                case "+moved":
                    if(event_blocked)
                        return true;
                    player.pong_keys |= PONG_KEY_DECREASE;
                    return true;
                case "-movei":
                    if(event_blocked)
                        return true;
                    player.pong_keys &= ~PONG_KEY_INCREASE;
                    return true;
                case "-moved":
                    if(event_blocked)
                        return true;
                    player.pong_keys &= ~PONG_KEY_DECREASE;
                    return true;
                case "move":
                    if(event_blocked)
                        return true;
                    if(argv(1))
                        player.pong_keys = stoi(argv(1));
                    return true;
                case "pong_aimore":
                {
                    if(event_blocked)
                        return true;
                    // keep declaration here, moving it into for() reverses weapon order
                    // potentially compiler bug
                    int j;
                    if ( minigame.minigame_flags & PONG_STATUS_WAIT )
                        for ( j = 0; j < PONG_MAX_PLAYERS; ++j )
                        //for ( int j = 0; j < PONG_MAX_PLAYERS; ++j )
                        {
                            if ( minigame.pong_paddles[j] == NULL )
                            {
                                pong_paddle_spawn(minigame,j+1,NULL);
                                return true;
                            }
                        }
                    sprint(player.minigame_players,"Cannot spawn AI\n");
                    return true;
                }
                case "pong_ailess":
                {
                    if(event_blocked)
                        return true;
                    if ( minigame.minigame_flags & PONG_STATUS_WAIT )
                    {
                        entity paddle;
                        for ( int j = PONG_MAX_PLAYERS-1; j >= 0; --j )
                        {
                            paddle = minigame.pong_paddles[j];
                            if ( paddle != NULL &&
                                paddle.realowner.classname == "pong_ai" )
                            {
                                minigame.pong_paddles[j] = NULL;
                                delete(paddle.realowner);
                                delete(paddle);
                                return true;
                            }
                        }
                    }
                    sprint(player.minigame_players,"Cannot remove AI\n");
                    return true;
                }
 
            }
            return false;
        }
        case "network_send":
        {
            entity sent = ...(0,entity);
            int sf = ...(1,int);
            if ( sent.classname == "minigame_player" && (sf & PONG_SF_PLAYERSCORE ) )
            {
                WriteLong(MSG_ENTITY,sent.pong_score);
            }
            return false;
        }
    }
    return false;
}

References argv(), autocvar_sv_minigames_pong_ball_number, autocvar_sv_minigames_pong_ball_radius, entity(), int, MINIG_SF_UPDATE, MSG_ENTITY, msle_spawn(), NULL, pong_ai_spawn(), pong_ball_reset(), PONG_KEY_DECREASE, PONG_KEY_INCREASE, PONG_MAX_PLAYERS, pong_paddle_spawn(), PONG_SF_PLAYERSCORE, PONG_SPECTATOR_TEAM, PONG_STATUS_PLAY, PONG_STATUS_WAIT, sprint(), stoi, vec2, and WriteLong().

◆ pong_team_to_box_halfsize()

vector pong_team_to_box_halfsize	(	int	nteam,
		float	length,
		float	width )

Definition at line 300 of file pong.qc.

{
    if ( nteam > 2 )
        return vec2(length/2, width/2);
    return vec2(width/2, length/2);
}

References vec2, and vector.

Referenced by pong_paddle_spawn().

◆ pong_team_to_paddlepos()

vector pong_team_to_paddlepos ( int nteam )

Definition at line 307 of file pong.qc.

{
    switch(nteam)
    {
        case 1: return '0.99 0.5 0';
        case 2: return '0.01 0.5 0';
        case 3: return '0.5 0.01 0';
        case 4: return '0.5 0.99 0';
        default:return '0 0 0';
    }
}