diff --git a/src/r_skins.c b/src/r_skins.c
index 155a64700cc3d432c32e098647bf80f0a8b04042..88b4d93872c877dde6143dcaffc2a3760f9a9e4e 100644
--- a/src/r_skins.c
+++ b/src/r_skins.c
@@ -1,6 +1,5 @@
// SONIC ROBO BLAST 2
//-----------------------------------------------------------------------------
-// Copyright (C) 1993-1996 by id Software, Inc.
// Copyright (C) 1998-2000 by DooM Legacy Team.
// Copyright (C) 1999-2020 by Sonic Team Junior.
//
@@ -8,826 +7,5117 @@
// terms of the GNU General Public License, version 2.
// See the 'LICENSE' file for more details.
//-----------------------------------------------------------------------------
-/// \file r_skins.c
-/// \brief Loading skins
+/// \file d_clisrv.c
+/// \brief SRB2 Network game communication and protocol, all OS independent parts.
-#include "doomdef.h"
-#include "console.h"
+#include <time.h>
+#ifdef __GNUC__
+#include <unistd.h> //for unlink
+#endif
+
+#include "i_net.h"
+#include "i_system.h"
+#include "i_video.h"
+#include "d_net.h"
+#include "d_main.h"
#include "g_game.h"
-#include "r_local.h"
#include "st_stuff.h"
-#include "w_wad.h"
+#include "hu_stuff.h"
+#include "keys.h"
+#include "g_input.h" // JOY1
+#include "m_menu.h"
+#include "console.h"
+#include "d_netfil.h"
+#include "byteptr.h"
+#include "p_saveg.h"
#include "z_zone.h"
-#include "m_misc.h"
-#include "info.h" // spr2names
-#include "i_video.h" // rendermode
-#include "i_system.h"
-#include "r_things.h"
-#include "r_skins.h"
#include "p_local.h"
-#include "dehacked.h" // get_number (for thok)
-#include "m_cond.h"
-#ifdef HWRENDER
-#include "hardware/hw_md2.h"
-#endif
-
-INT32 numskins = 0;
-skin_t skins[MAXSKINS];
+#include "m_misc.h"
+#include "am_map.h"
+#include "m_random.h"
+#include "mserv.h"
+#include "y_inter.h"
+#include "r_local.h"
+#include "m_argv.h"
+#include "p_setup.h"
+#include "lzf.h"
+#include "lua_script.h"
+#include "lua_hook.h"
+#include "md5.h"
+#include "m_perfstats.h"
-// FIXTHIS: don't work because it must be inistilised before the config load
-//#define SKINVALUES
-#ifdef SKINVALUES
-CV_PossibleValue_t skin_cons_t[MAXSKINS+1];
+#ifndef NONET
+// cl loading screen
+#include "v_video.h"
+#include "f_finale.h"
#endif
//
-// P_GetSkinSprite2
-// For non-super players, tries each sprite2's immediate predecessor until it finds one with a number of frames or ends up at standing.
-// For super players, does the same as above - but tries the super equivalent for each sprite2 before the non-super version.
+// NETWORKING
//
+// gametic is the tic about to (or currently being) run
+// Server:
+// maketic is the tic that hasn't had control made for it yet
+// nettics is the tic for each node
+// firstticstosend is the lowest value of nettics
+// Client:
+// neededtic is the tic needed by the client to run the game
+// firstticstosend is used to optimize a condition
+// Normally maketic >= gametic > 0
-UINT8 P_GetSkinSprite2(skin_t *skin, UINT8 spr2, player_t *player)
-{
- UINT8 super = 0, i = 0;
+#define PREDICTIONQUEUE BACKUPTICS
+#define PREDICTIONMASK (PREDICTIONQUEUE-1)
+#define MAX_REASONLENGTH 30
- if (!skin)
- return 0;
+boolean server = true; // true or false but !server == client
+#define client (!server)
+boolean nodownload = false;
+boolean serverrunning = false;
+INT32 serverplayer = 0;
+char motd[254], server_context[8]; // Message of the Day, Unique Context (even without Mumble support)
- if ((playersprite_t)(spr2 & ~FF_SPR2SUPER) >= free_spr2)
- return 0;
+// Server specific vars
+UINT8 playernode[MAXPLAYERS];
+char playeraddress[MAXPLAYERS][64];
- while (!skin->sprites[spr2].numframes
- && spr2 != SPR2_STND
- && ++i < 32) // recursion limiter
- {
- if (spr2 & FF_SPR2SUPER)
- {
- super = FF_SPR2SUPER;
- spr2 &= ~FF_SPR2SUPER;
- continue;
- }
+// Minimum timeout for sending the savegame
+// The actual timeout will be longer depending on the savegame length
+tic_t jointimeout = (10*TICRATE);
+static boolean sendingsavegame[MAXNETNODES]; // Are we sending the savegame?
+static boolean resendingsavegame[MAXNETNODES]; // Are we resending the savegame?
+static tic_t savegameresendcooldown[MAXNETNODES]; // How long before we can resend again?
+static tic_t freezetimeout[MAXNETNODES]; // Until when can this node freeze the server before getting a timeout?
- switch(spr2)
- {
- // Normal special cases.
- case SPR2_JUMP:
- spr2 = ((player
- ? player->charflags
- : skin->flags)
- & SF_NOJUMPSPIN) ? SPR2_SPNG : SPR2_ROLL;
- break;
- case SPR2_TIRE:
- spr2 = ((player
- ? player->charability
- : skin->ability)
- == CA_SWIM) ? SPR2_SWIM : SPR2_FLY;
- break;
- // Use the handy list, that's what it's there for!
- default:
- spr2 = spr2defaults[spr2];
- break;
- }
+// Incremented by cv_joindelay when a client joins, decremented each tic.
+// If higher than cv_joindelay * 2 (3 joins in a short timespan), joins are temporarily disabled.
+static tic_t joindelay = 0;
- spr2 |= super;
- }
+UINT16 pingmeasurecount = 1;
+UINT32 realpingtable[MAXPLAYERS]; //the base table of ping where an average will be sent to everyone.
+UINT32 playerpingtable[MAXPLAYERS]; //table of player latency values.
+SINT8 nodetoplayer[MAXNETNODES];
+SINT8 nodetoplayer2[MAXNETNODES]; // say the numplayer for this node if any (splitscreen)
+UINT8 playerpernode[MAXNETNODES]; // used specialy for scplitscreen
+boolean nodeingame[MAXNETNODES]; // set false as nodes leave game
+tic_t servermaxping = 800; // server's max ping. Defaults to 800
+static tic_t nettics[MAXNETNODES]; // what tic the client have received
+static tic_t supposedtics[MAXNETNODES]; // nettics prevision for smaller packet
+static UINT8 nodewaiting[MAXNETNODES];
+static tic_t firstticstosend; // min of the nettics
+static tic_t tictoclear = 0; // optimize d_clearticcmd
+static tic_t maketic;
- if (i >= 32) // probably an infinite loop...
- return 0;
+static INT16 consistancy[BACKUPTICS];
- return spr2;
-}
+static UINT8 player_joining = false;
+UINT8 hu_redownloadinggamestate = 0;
-static void Sk_SetDefaultValue(skin_t *skin)
-{
- INT32 i;
- //
- // set default skin values
- //
- memset(skin, 0, sizeof (skin_t));
- snprintf(skin->name,
- sizeof skin->name, "skin %u", (UINT32)(skin-skins));
- skin->name[sizeof skin->name - 1] = '\0';
- skin->wadnum = INT16_MAX;
+UINT8 adminpassmd5[16];
+boolean adminpasswordset = false;
- skin->flags = 0;
+// Client specific
+static ticcmd_t localcmds;
+static ticcmd_t localcmds2;
+static boolean cl_packetmissed;
+// here it is for the secondary local player (splitscreen)
+static UINT8 mynode; // my address pointofview server
+static boolean cl_redownloadinggamestate = false;
- strcpy(skin->realname, "Someone");
- strcpy(skin->hudname, "???");
+static UINT8 localtextcmd[MAXTEXTCMD];
+static UINT8 localtextcmd2[MAXTEXTCMD]; // splitscreen
+static tic_t neededtic;
+SINT8 servernode = 0; // the number of the server node
+/// \brief do we accept new players?
+/// \todo WORK!
+boolean acceptnewnode = true;
- skin->starttranscolor = 96;
- skin->prefcolor = SKINCOLOR_GREEN;
- skin->supercolor = SKINCOLOR_SUPERGOLD1;
- skin->prefoppositecolor = 0; // use tables
+// engine
- skin->normalspeed = 36<<FRACBITS;
- skin->runspeed = 28<<FRACBITS;
- skin->thrustfactor = 5;
- skin->accelstart = 96;
- skin->acceleration = 40;
+// Must be a power of two
+#define TEXTCMD_HASH_SIZE 4
+
+typedef struct textcmdplayer_s
+{
+ INT32 playernum;
+ UINT8 cmd[MAXTEXTCMD];
+ struct textcmdplayer_s *next;
+} textcmdplayer_t;
- skin->ability = CA_NONE;
- skin->ability2 = CA2_SPINDASH;
- skin->jumpfactor = FRACUNIT;
- skin->actionspd = 30<<FRACBITS;
- skin->mindash = 15<<FRACBITS;
- skin->maxdash = 70<<FRACBITS;
+typedef struct textcmdtic_s
+{
+ tic_t tic;
+ textcmdplayer_t *playercmds[TEXTCMD_HASH_SIZE];
+ struct textcmdtic_s *next;
+} textcmdtic_t;
- skin->radius = mobjinfo[MT_PLAYER].radius;
- skin->height = mobjinfo[MT_PLAYER].height;
- skin->spinheight = FixedMul(skin->height, 2*FRACUNIT/3);
+ticcmd_t netcmds[BACKUPTICS][MAXPLAYERS];
+static textcmdtic_t *textcmds[TEXTCMD_HASH_SIZE] = {NULL};
- skin->shieldscale = FRACUNIT;
- skin->camerascale = FRACUNIT;
- skin->thokitem = -1;
- skin->spinitem = -1;
- skin->revitem = -1;
- skin->followitem = 0;
+consvar_t cv_showjoinaddress = CVAR_INIT ("showjoinaddress", "Off", CV_SAVE|CV_NETVAR, CV_OnOff, NULL);
- skin->highresscale = FRACUNIT;
- skin->contspeed = 17;
- skin->contangle = 0;
+static CV_PossibleValue_t playbackspeed_cons_t[] = {{1, "MIN"}, {10, "MAX"}, {0, NULL}};
+consvar_t cv_playbackspeed = CVAR_INIT ("playbackspeed", "1", 0, playbackspeed_cons_t, NULL);
- skin->availability = 0;
+static inline void *G_DcpyTiccmd(void* dest, const ticcmd_t* src, const size_t n)
+{
+ const size_t d = n / sizeof(ticcmd_t);
+ const size_t r = n % sizeof(ticcmd_t);
+ UINT8 *ret = dest;
- for (i = 0; i < sfx_skinsoundslot0; i++)
- if (S_sfx[i].skinsound != -1)
- skin->soundsid[S_sfx[i].skinsound] = i;
+ if (r)
+ M_Memcpy(dest, src, n);
+ else if (d)
+ G_MoveTiccmd(dest, src, d);
+ return ret+n;
}
-//
-// Initialize the basic skins
-//
-void R_InitSkins(void)
+static inline void *G_ScpyTiccmd(ticcmd_t* dest, void* src, const size_t n)
{
-#ifdef SKINVALUES
- INT32 i;
-
- for (i = 0; i <= MAXSKINS; i++)
- {
- skin_cons_t[i].value = 0;
- skin_cons_t[i].strvalue = NULL;
- }
-#endif
+ const size_t d = n / sizeof(ticcmd_t);
+ const size_t r = n % sizeof(ticcmd_t);
+ UINT8 *ret = src;
- // no default skin!
- numskins = 0;
+ if (r)
+ M_Memcpy(dest, src, n);
+ else if (d)
+ G_MoveTiccmd(dest, src, d);
+ return ret+n;
}
-UINT32 R_GetSkinAvailabilities(void)
+
+
+// Some software don't support largest packet
+// (original sersetup, not exactely, but the probability of sending a packet
+// of 512 bytes is like 0.1)
+UINT16 software_MAXPACKETLENGTH;
+
+/** Guesses the full value of a tic from its lowest byte, for a specific node
+ *
+ * \param low The lowest byte of the tic value
+ * \param node The node to deduce the tic for
+ * \return The full tic value
+ *
+ */
+tic_t ExpandTics(INT32 low, INT32 node)
{
- INT32 s;
- UINT32 response = 0;
+ INT32 delta;
- for (s = 0; s < MAXSKINS; s++)
- {
- if (skins[s].availability && unlockables[skins[s].availability - 1].unlocked)
- response |= (1 << s);
- }
- return response;
+ delta = low - (nettics[node] & UINT8_MAX);
+
+ if (delta >= -64 && delta <= 64)
+ return (nettics[node] & ~UINT8_MAX) + low;
+ else if (delta > 64)
+ return (nettics[node] & ~UINT8_MAX) - 256 + low;
+ else //if (delta < -64)
+ return (nettics[node] & ~UINT8_MAX) + 256 + low;
}
-// returns true if available in circumstances, otherwise nope
-// warning don't use with an invalid skinnum other than -1 which always returns true
-boolean R_SkinUsable(INT32 playernum, INT32 skinnum)
+// -----------------------------------------------------------------
+// Some extra data function for handle textcmd buffer
+// -----------------------------------------------------------------
+
+static void (*listnetxcmd[MAXNETXCMD])(UINT8 **p, INT32 playernum);
+
+void RegisterNetXCmd(netxcmd_t id, void (*cmd_f)(UINT8 **p, INT32 playernum))
{
- return ((skinnum == -1) // Simplifies things elsewhere, since there's already plenty of checks for less-than-0...
- || (!skins[skinnum].availability)
- || (((netgame || multiplayer) && playernum != -1) ? (players[playernum].availabilities & (1 << skinnum)) : (unlockables[skins[skinnum].availability - 1].unlocked))
- || (modeattacking) // If you have someone else's run you might as well take a look
- || (Playing() && (R_SkinAvailable(mapheaderinfo[gamemap-1]->forcecharacter) == skinnum)) // Force 1.
- || (netgame && (cv_forceskin.value == skinnum)) // Force 2.
- || (metalrecording && skinnum == 5) // Force 3.
- || players[playernum].bot //Force (player is a bot)
- );
+#ifdef PARANOIA
+ if (id >= MAXNETXCMD)
+ I_Error("Command id %d too big", id);
+ if (listnetxcmd[id] != 0)
+ I_Error("Command id %d already used", id);
+#endif
+ listnetxcmd[id] = cmd_f;
}
-// returns true if the skin name is found (loaded from pwad)
-// warning return -1 if not found
-INT32 R_SkinAvailable(const char *name)
+void SendNetXCmd(netxcmd_t id, const void *param, size_t nparam)
{
- INT32 i;
+ if (localtextcmd[0]+2+nparam > MAXTEXTCMD)
+ {
+ // for future reference: if (cv_debug) != debug disabled.
+ CONS_Alert(CONS_ERROR, M_GetText("NetXCmd buffer full, cannot add netcmd %d! (size: %d, needed: %s)\n"), id, localtextcmd[0], sizeu1(nparam));
+ return;
+ }
+ localtextcmd[0]++;
+ localtextcmd[localtextcmd[0]] = (UINT8)id;
+ if (param && nparam)
+ {
+ M_Memcpy(&localtextcmd[localtextcmd[0]+1], param, nparam);
+ localtextcmd[0] = (UINT8)(localtextcmd[0] + (UINT8)nparam);
+ }
+}
- for (i = 0; i < numskins; i++)
+// splitscreen player
+void SendNetXCmd2(netxcmd_t id, const void *param, size_t nparam)
+{
+ if (localtextcmd2[0]+2+nparam > MAXTEXTCMD)
{
- // search in the skin list
- if (stricmp(skins[i].name,name)==0)
- return i;
+ I_Error("No more place in the buffer for netcmd %d\n",id);
+ return;
+ }
+ localtextcmd2[0]++;
+ localtextcmd2[localtextcmd2[0]] = (UINT8)id;
+ if (param && nparam)
+ {
+ M_Memcpy(&localtextcmd2[localtextcmd2[0]+1], param, nparam);
+ localtextcmd2[0] = (UINT8)(localtextcmd2[0] + (UINT8)nparam);
}
- return -1;
}
-// network code calls this when a 'skin change' is received
-void SetPlayerSkin(INT32 playernum, const char *skinname)
+UINT8 GetFreeXCmdSize(void)
{
- INT32 i = R_SkinAvailable(skinname);
- player_t *player = &players[playernum];
+ // -1 for the size and another -1 for the ID.
+ return (UINT8)(localtextcmd[0] - 2);
+}
+
+// Frees all textcmd memory for the specified tic
+static void D_FreeTextcmd(tic_t tic)
+{
+ textcmdtic_t **tctprev = &textcmds[tic & (TEXTCMD_HASH_SIZE - 1)];
+ textcmdtic_t *textcmdtic = *tctprev;
- if ((i != -1) && R_SkinUsable(playernum, i))
+ while (textcmdtic && textcmdtic->tic != tic)
{
- SetPlayerSkinByNum(playernum, i);
- return;
+ tctprev = &textcmdtic->next;
+ textcmdtic = textcmdtic->next;
}
- if (P_IsLocalPlayer(player))
- CONS_Alert(CONS_WARNING, M_GetText("Skin '%s' not found.\n"), skinname);
- else if(server || IsPlayerAdmin(consoleplayer))
- CONS_Alert(CONS_WARNING, M_GetText("Player %d (%s) skin '%s' not found\n"), playernum, player_names[playernum], skinname);
+ if (textcmdtic)
+ {
+ INT32 i;
+
+ // Remove this tic from the list.
+ *tctprev = textcmdtic->next;
+
+ // Free all players.
+ for (i = 0; i < TEXTCMD_HASH_SIZE; i++)
+ {
+ textcmdplayer_t *textcmdplayer = textcmdtic->playercmds[i];
+
+ while (textcmdplayer)
+ {
+ textcmdplayer_t *tcpnext = textcmdplayer->next;
+ Z_Free(textcmdplayer);
+ textcmdplayer = tcpnext;
+ }
+ }
- SetPlayerSkinByNum(playernum, 0);
+ // Free this tic's own memory.
+ Z_Free(textcmdtic);
+ }
}
-// Same as SetPlayerSkin, but uses the skin #.
-// network code calls this when a 'skin change' is received
-void SetPlayerSkinByNum(INT32 playernum, INT32 skinnum)
+// Gets the buffer for the specified ticcmd, or NULL if there isn't one
+static UINT8* D_GetExistingTextcmd(tic_t tic, INT32 playernum)
{
- player_t *player = &players[playernum];
- skin_t *skin = &skins[skinnum];
- UINT16 newcolor = 0;
+ textcmdtic_t *textcmdtic = textcmds[tic & (TEXTCMD_HASH_SIZE - 1)];
+ while (textcmdtic && textcmdtic->tic != tic) textcmdtic = textcmdtic->next;
- if (skinnum >= 0 && skinnum < numskins && R_SkinUsable(playernum, skinnum)) // Make sure it exists!
+ // Do we have an entry for the tic? If so, look for player.
+ if (textcmdtic)
{
- player->skin = skinnum;
+ textcmdplayer_t *textcmdplayer = textcmdtic->playercmds[playernum & (TEXTCMD_HASH_SIZE - 1)];
+ while (textcmdplayer && textcmdplayer->playernum != playernum) textcmdplayer = textcmdplayer->next;
- player->camerascale = skin->camerascale;
- player->shieldscale = skin->shieldscale;
+ if (textcmdplayer) return textcmdplayer->cmd;
+ }
- player->charability = (UINT8)skin->ability;
- player->charability2 = (UINT8)skin->ability2;
+ return NULL;
+}
- player->charflags = (UINT32)skin->flags;
+// Gets the buffer for the specified ticcmd, creating one if necessary
+static UINT8* D_GetTextcmd(tic_t tic, INT32 playernum)
+{
+ textcmdtic_t *textcmdtic = textcmds[tic & (TEXTCMD_HASH_SIZE - 1)];
+ textcmdtic_t **tctprev = &textcmds[tic & (TEXTCMD_HASH_SIZE - 1)];
+ textcmdplayer_t *textcmdplayer, **tcpprev;
- player->thokitem = skin->thokitem < 0 ? (UINT32)mobjinfo[MT_PLAYER].painchance : (UINT32)skin->thokitem;
- player->spinitem = skin->spinitem < 0 ? (UINT32)mobjinfo[MT_PLAYER].damage : (UINT32)skin->spinitem;
- player->revitem = skin->revitem < 0 ? (mobjtype_t)mobjinfo[MT_PLAYER].raisestate : (UINT32)skin->revitem;
- player->followitem = skin->followitem;
+ // Look for the tic.
+ while (textcmdtic && textcmdtic->tic != tic)
+ {
+ tctprev = &textcmdtic->next;
+ textcmdtic = textcmdtic->next;
+ }
- if (((player->powers[pw_shield] & SH_NOSTACK) == SH_PINK) && (player->revitem == MT_LHRT || player->spinitem == MT_LHRT || player->thokitem == MT_LHRT)) // Healers can't keep their buff.
- player->powers[pw_shield] &= SH_STACK;
+ // If we don't have an entry for the tic, make it.
+ if (!textcmdtic)
+ {
+ textcmdtic = *tctprev = Z_Calloc(sizeof (textcmdtic_t), PU_STATIC, NULL);
+ textcmdtic->tic = tic;
+ }
- player->actionspd = skin->actionspd;
- player->mindash = skin->mindash;
- player->maxdash = skin->maxdash;
+ tcpprev = &textcmdtic->playercmds[playernum & (TEXTCMD_HASH_SIZE - 1)];
+ textcmdplayer = *tcpprev;
- player->normalspeed = skin->normalspeed;
- player->runspeed = skin->runspeed;
- player->thrustfactor = skin->thrustfactor;
- player->accelstart = skin->accelstart;
- player->acceleration = skin->acceleration;
+ // Look for the player.
+ while (textcmdplayer && textcmdplayer->playernum != playernum)
+ {
+ tcpprev = &textcmdplayer->next;
+ textcmdplayer = textcmdplayer->next;
+ }
- player->jumpfactor = skin->jumpfactor;
+ // If we don't have an entry for the player, make it.
+ if (!textcmdplayer)
+ {
+ textcmdplayer = *tcpprev = Z_Calloc(sizeof (textcmdplayer_t), PU_STATIC, NULL);
+ textcmdplayer->playernum = playernum;
+ }
- player->height = skin->height;
- player->spinheight = skin->spinheight;
+ return textcmdplayer->cmd;
+}
- if (!(cv_debug || devparm) && !(netgame || multiplayer || demoplayback))
- {
- if (playernum == consoleplayer)
- CV_StealthSetValue(&cv_playercolor, skin->prefcolor);
- else if (playernum == secondarydisplayplayer)
- CV_StealthSetValue(&cv_playercolor2, skin->prefcolor);
- player->skincolor = newcolor = skin->prefcolor;
- if (player->bot && botingame)
- {
- botskin = (UINT8)(skinnum + 1);
- botcolor = skin->prefcolor;
- }
- }
+static void ExtraDataTicker(void)
+{
+ INT32 i;
- if (player->followmobj)
+ for (i = 0; i < MAXPLAYERS; i++)
+ if (playeringame[i] || i == 0)
{
- P_RemoveMobj(player->followmobj);
- P_SetTarget(&player->followmobj, NULL);
- }
+ UINT8 *bufferstart = D_GetExistingTextcmd(gametic, i);
- if (player->mo)
- {
- fixed_t radius = FixedMul(skin->radius, player->mo->scale);
- if ((player->powers[pw_carry] == CR_NIGHTSMODE) && (skin->sprites[SPR2_NFLY].numframes == 0)) // If you don't have a sprite for flying horizontally, use the default NiGHTS skin.
+ if (bufferstart)
{
- skin = &skins[DEFAULTNIGHTSSKIN];
- player->followitem = skin->followitem;
- if (!(cv_debug || devparm) && !(netgame || multiplayer || demoplayback))
- newcolor = skin->prefcolor; // will be updated in thinker to flashing
- }
- player->mo->skin = skin;
- if (newcolor)
- player->mo->color = newcolor;
- P_SetScale(player->mo, player->mo->scale);
- player->mo->radius = radius;
+ UINT8 *curpos = bufferstart;
+ UINT8 *bufferend = &curpos[curpos[0]+1];
- P_SetPlayerMobjState(player->mo, player->mo->state-states); // Prevent visual errors when switching between skins with differing number of frames
+ curpos++;
+ while (curpos < bufferend)
+ {
+ if (*curpos < MAXNETXCMD && listnetxcmd[*curpos])
+ {
+ const UINT8 id = *curpos;
+ curpos++;
+ DEBFILE(va("executing x_cmd %s ply %u ", netxcmdnames[id - 1], i));
+ (listnetxcmd[id])(&curpos, i);
+ DEBFILE("done\n");
+ }
+ else
+ {
+ if (server)
+ {
+ SendKick(i, KICK_MSG_CON_FAIL | KICK_MSG_KEEP_BODY);
+ DEBFILE(va("player %d kicked [gametic=%u] reason as follows:\n", i, gametic));
+ }
+ CONS_Alert(CONS_WARNING, M_GetText("Got unknown net command [%s]=%d (max %d)\n"), sizeu1(curpos - bufferstart), *curpos, bufferstart[0]);
+ break;
+ }
+ }
+ }
}
- return;
- }
- if (P_IsLocalPlayer(player))
- CONS_Alert(CONS_WARNING, M_GetText("Requested skin %d not found\n"), skinnum);
- else if(server || IsPlayerAdmin(consoleplayer))
- CONS_Alert(CONS_WARNING, "Player %d (%s) skin %d not found\n", playernum, player_names[playernum], skinnum);
- SetPlayerSkinByNum(playernum, 0); // not found put the sonic skin
+ // If you are a client, you can safely forget the net commands for this tic
+ // If you are the server, you need to remember them until every client has been acknowledged,
+ // because if you need to resend a PT_SERVERTICS packet, you will need to put the commands in it
+ if (client)
+ D_FreeTextcmd(gametic);
}
-//
-// Add skins from a pwad, each skin preceded by 'S_SKIN' marker
-//
-
-// Does the same is in w_wad, but check only for
-// the first 6 characters (this is so we can have S_SKIN1, S_SKIN2..
-// for wad editors that don't like multiple resources of the same name)
-//
-static UINT16 W_CheckForSkinMarkerInPwad(UINT16 wadid, UINT16 startlump)
+static void D_Clearticcmd(tic_t tic)
{
- UINT16 i;
- const char *S_SKIN = "S_SKIN";
- lumpinfo_t *lump_p;
+ INT32 i;
- // scan forward, start at <startlump>
- if (startlump < wadfiles[wadid]->numlumps)
- {
- lump_p = wadfiles[wadid]->lumpinfo + startlump;
- for (i = startlump; i < wadfiles[wadid]->numlumps; i++, lump_p++)
- if (memcmp(lump_p->name,S_SKIN,6)==0)
- return i;
- }
- return INT16_MAX; // not found
+ D_FreeTextcmd(tic);
+
+ for (i = 0; i < MAXPLAYERS; i++)
+ netcmds[tic%BACKUPTICS][i].angleturn = 0;
+
+ DEBFILE(va("clear tic %5u (%2u)\n", tic, tic%BACKUPTICS));
}
-#define HUDNAMEWRITE(value) STRBUFCPY(skin->hudname, value)
+void D_ResetTiccmds(void)
+{
+ INT32 i;
-// turn _ into spaces and . into katana dot
-#define SYMBOLCONVERT(name) for (value = name; *value; value++)\
- {\
- if (*value == '_') *value = ' ';\
- else if (*value == '.') *value = '\x1E';\
- }
+ memset(&localcmds, 0, sizeof(ticcmd_t));
+ memset(&localcmds2, 0, sizeof(ticcmd_t));
-//
-// Patch skins from a pwad, each skin preceded by 'P_SKIN' marker
-//
+ // Reset the net command list
+ for (i = 0; i < TEXTCMD_HASH_SIZE; i++)
+ while (textcmds[i])
+ D_Clearticcmd(textcmds[i]->tic);
+}
-// Does the same is in w_wad, but check only for
-// the first 6 characters (this is so we can have P_SKIN1, P_SKIN2..
-// for wad editors that don't like multiple resources of the same name)
-//
-static UINT16 W_CheckForPatchSkinMarkerInPwad(UINT16 wadid, UINT16 startlump)
+void SendKick(UINT8 playernum, UINT8 msg)
{
- UINT16 i;
- const char *P_SKIN = "P_SKIN";
- lumpinfo_t *lump_p;
+ UINT8 buf[2];
- // scan forward, start at <startlump>
- if (startlump < wadfiles[wadid]->numlumps)
- {
- lump_p = wadfiles[wadid]->lumpinfo + startlump;
- for (i = startlump; i < wadfiles[wadid]->numlumps; i++, lump_p++)
- if (memcmp(lump_p->name,P_SKIN,6)==0)
- return i;
- }
- return INT16_MAX; // not found
+ if (!(server && cv_rejointimeout.value))
+ msg &= ~KICK_MSG_KEEP_BODY;
+
+ buf[0] = playernum;
+ buf[1] = msg;
+ SendNetXCmd(XD_KICK, &buf, 2);
}
-static void R_LoadSkinSprites(UINT16 wadnum, UINT16 *lump, UINT16 *lastlump, skin_t *skin)
+// -----------------------------------------------------------------
+// end of extra data function
+// -----------------------------------------------------------------
+
+// -----------------------------------------------------------------
+// extra data function for lmps
+// -----------------------------------------------------------------
+
+// if extradatabit is set, after the ziped tic you find this:
+//
+// type | description
+// ---------+--------------
+// byte | size of the extradata
+// byte | the extradata (xd) bits: see XD_...
+// with this byte you know what parameter folow
+// if (xd & XDNAMEANDCOLOR)
+// byte | color
+// char[MAXPLAYERNAME] | name of the player
+// endif
+// if (xd & XD_WEAPON_PREF)
+// byte | original weapon switch: boolean, true if use the old
+// | weapon switch methode
+// char[NUMWEAPONS] | the weapon switch priority
+// byte | autoaim: true if use the old autoaim system
+// endif
+/*boolean AddLmpExtradata(UINT8 **demo_point, INT32 playernum)
{
- UINT16 newlastlump;
- UINT8 sprite2;
+ UINT8 *textcmd = D_GetExistingTextcmd(gametic, playernum);
- *lump += 1; // start after S_SKIN
- *lastlump = W_CheckNumForNamePwad("S_END",wadnum,*lump); // stop at S_END
+ if (!textcmd)
+ return false;
- // old wadding practices die hard -- stop at S_SKIN (or P_SKIN) or S_START if they come before S_END.
- newlastlump = W_CheckForSkinMarkerInPwad(wadnum,*lump);
- if (newlastlump < *lastlump) *lastlump = newlastlump;
- newlastlump = W_CheckForPatchSkinMarkerInPwad(wadnum,*lump);
- if (newlastlump < *lastlump) *lastlump = newlastlump;
- newlastlump = W_CheckNumForNamePwad("S_START",wadnum,*lump);
- if (newlastlump < *lastlump) *lastlump = newlastlump;
-
- // ...and let's handle super, too
- newlastlump = W_CheckNumForNamePwad("S_SUPER",wadnum,*lump);
- if (newlastlump < *lastlump)
- {
- newlastlump++;
- // load all sprite sets we are aware of... for super!
- for (sprite2 = 0; sprite2 < free_spr2; sprite2++)
- R_AddSingleSpriteDef(spr2names[sprite2], &skin->sprites[FF_SPR2SUPER|sprite2], wadnum, newlastlump, *lastlump);
-
- newlastlump--;
- *lastlump = newlastlump; // okay, make the normal sprite set loading end there
- }
-
- // load all sprite sets we are aware of... for normal stuff.
- for (sprite2 = 0; sprite2 < free_spr2; sprite2++)
- R_AddSingleSpriteDef(spr2names[sprite2], &skin->sprites[sprite2], wadnum, *lump, *lastlump);
-
- if (skin->sprites[0].numframes == 0)
- I_Error("R_LoadSkinSprites: no frames found for sprite SPR2_%s\n", spr2names[0]);
-}
-
-// returns whether found appropriate property
-static boolean R_ProcessPatchableFields(skin_t *skin, char *stoken, char *value)
-{
- // custom translation table
- if (!stricmp(stoken, "startcolor"))
- skin->starttranscolor = atoi(value);
-
-#define FULLPROCESS(field) else if (!stricmp(stoken, #field)) skin->field = get_number(value);
- // character type identification
- FULLPROCESS(flags)
- FULLPROCESS(ability)
- FULLPROCESS(ability2)
-
- FULLPROCESS(thokitem)
- FULLPROCESS(spinitem)
- FULLPROCESS(revitem)
- FULLPROCESS(followitem)
-#undef FULLPROCESS
-
-#define GETFRACBITS(field) else if (!stricmp(stoken, #field)) skin->field = atoi(value)<<FRACBITS;
- GETFRACBITS(normalspeed)
- GETFRACBITS(runspeed)
-
- GETFRACBITS(mindash)
- GETFRACBITS(maxdash)
- GETFRACBITS(actionspd)
-
- GETFRACBITS(radius)
- GETFRACBITS(height)
- GETFRACBITS(spinheight)
-#undef GETFRACBITS
-
-#define GETINT(field) else if (!stricmp(stoken, #field)) skin->field = atoi(value);
- GETINT(thrustfactor)
- GETINT(accelstart)
- GETINT(acceleration)
- GETINT(contspeed)
- GETINT(contangle)
-#undef GETINT
-
-#define GETSKINCOLOR(field) else if (!stricmp(stoken, #field)) \
-{ \
- UINT16 color = R_GetColorByName(value); \
- skin->field = (color ? color : SKINCOLOR_GREEN); \
-}
- GETSKINCOLOR(prefcolor)
- GETSKINCOLOR(prefoppositecolor)
-#undef GETSKINCOLOR
- else if (!stricmp(stoken, "supercolor"))
- {
- UINT16 color = R_GetSuperColorByName(value);
- skin->supercolor = (color ? color : SKINCOLOR_SUPERGOLD1);
- }
-
-#define GETFLOAT(field) else if (!stricmp(stoken, #field)) skin->field = FLOAT_TO_FIXED(atof(value));
- GETFLOAT(jumpfactor)
- GETFLOAT(highresscale)
- GETFLOAT(shieldscale)
- GETFLOAT(camerascale)
-#undef GETFLOAT
-
-#define GETFLAG(field) else if (!stricmp(stoken, #field)) { \
- strupr(value); \
- if (atoi(value) || value[0] == 'T' || value[0] == 'Y') \
- skin->flags |= (SF_##field); \
- else \
- skin->flags &= ~(SF_##field); \
-}
- // parameters for individual character flags
- // these are uppercase so they can be concatenated with SF_
- // 1, true, yes are all valid values
- GETFLAG(SUPER)
- GETFLAG(NOSUPERSPIN)
- GETFLAG(NOSPINDASHDUST)
- GETFLAG(HIRES)
- GETFLAG(NOSKID)
- GETFLAG(NOSPEEDADJUST)
- GETFLAG(RUNONWATER)
- GETFLAG(NOJUMPSPIN)
- GETFLAG(NOJUMPDAMAGE)
- GETFLAG(STOMPDAMAGE)
- GETFLAG(MARIODAMAGE)
- GETFLAG(MACHINE)
- GETFLAG(DASHMODE)
- GETFLAG(FASTEDGE)
- GETFLAG(MULTIABILITY)
- GETFLAG(NONIGHTSROTATION)
- GETFLAG(NONIGHTSSUPER)
-#undef GETFLAG
-
- else // let's check if it's a sound, otherwise error out
- {
- boolean found = false;
- sfxenum_t i;
- size_t stokenadjust;
-
- // Remove the prefix. (We need to affect an adjusting variable so that we can print error messages if it's not actually a sound.)
- if ((stoken[0] == 'D' || stoken[0] == 'd') && (stoken[1] == 'S' || stoken[1] == 's')) // DS*
- stokenadjust = 2;
- else // sfx_*
- stokenadjust = 4;
-
- // Remove the prefix. (We can affect this directly since we're not going to use it again.)
- if ((value[0] == 'D' || value[0] == 'd') && (value[1] == 'S' || value[1] == 's')) // DS*
- value += 2;
- else // sfx_*
- value += 4;
-
- // copy name of sounds that are remapped
- // for this skin
- for (i = 0; i < sfx_skinsoundslot0; i++)
- {
- if (!S_sfx[i].name)
- continue;
- if (S_sfx[i].skinsound != -1
- && !stricmp(S_sfx[i].name,
- stoken + stokenadjust))
- {
- skin->soundsid[S_sfx[i].skinsound] =
- S_AddSoundFx(value, S_sfx[i].singularity, S_sfx[i].pitch, true);
- found = true;
- }
- }
- return found;
- }
+ M_Memcpy(*demo_point, textcmd, textcmd[0]+1);
+ *demo_point += textcmd[0]+1;
return true;
}
-//
-// Find skin sprites, sounds & optional status bar face, & add them
-//
-void R_AddSkins(UINT16 wadnum)
+void ReadLmpExtraData(UINT8 **demo_pointer, INT32 playernum)
{
- UINT16 lump, lastlump = 0;
- char *buf;
- char *buf2;
- char *stoken;
- char *value;
- size_t size;
- skin_t *skin;
- boolean hudname, realname;
+ UINT8 nextra;
+ UINT8 *textcmd;
- //
- // search for all skin markers in pwad
- //
+ if (!demo_pointer)
+ return;
- while ((lump = W_CheckForSkinMarkerInPwad(wadnum, lastlump)) != INT16_MAX)
- {
- // advance by default
- lastlump = lump + 1;
+ textcmd = D_GetTextcmd(gametic, playernum);
+ nextra = **demo_pointer;
+ M_Memcpy(textcmd, *demo_pointer, nextra + 1);
+ // increment demo pointer
+ *demo_pointer += nextra + 1;
+}*/
- if (numskins >= MAXSKINS)
- {
- CONS_Debug(DBG_RENDER, "ignored skin (%d skins maximum)\n", MAXSKINS);
- continue; // so we know how many skins couldn't be added
- }
- buf = W_CacheLumpNumPwad(wadnum, lump, PU_CACHE);
- size = W_LumpLengthPwad(wadnum, lump);
+// -----------------------------------------------------------------
+// end extra data function for lmps
+// -----------------------------------------------------------------
- // for strtok
- buf2 = malloc(size+1);
- if (!buf2)
- I_Error("R_AddSkins: No more free memory\n");
- M_Memcpy(buf2,buf,size);
- buf2[size] = '\0';
+static INT16 Consistancy(void);
- // set defaults
- skin = &skins[numskins];
- Sk_SetDefaultValue(skin);
- skin->wadnum = wadnum;
- hudname = realname = false;
- // parse
- stoken = strtok (buf2, "\r\n= ");
- while (stoken)
- {
- if ((stoken[0] == '/' && stoken[1] == '/')
- || (stoken[0] == '#'))// skip comments
- {
- stoken = strtok(NULL, "\r\n"); // skip end of line
- goto next_token; // find the real next token
- }
+typedef enum
+{
+ CL_SEARCHING,
+ CL_DOWNLOADFILES,
+ CL_ASKJOIN,
+ CL_WAITJOINRESPONSE,
+ CL_DOWNLOADSAVEGAME,
+ CL_CONNECTED,
+ CL_ABORTED
+} cl_mode_t;
- value = strtok(NULL, "\r\n= ");
+static void GetPackets(void);
- if (!value)
- I_Error("R_AddSkins: syntax error in S_SKIN lump# %d(%s) in WAD %s\n", lump, W_CheckNameForNumPwad(wadnum,lump), wadfiles[wadnum]->filename);
+static cl_mode_t cl_mode = CL_SEARCHING;
- // Some of these can't go in R_ProcessPatchableFields because they have side effects for future lines.
- // Others can't go in there because we don't want them to be patchable.
- if (!stricmp(stoken, "name"))
- {
- INT32 skinnum = R_SkinAvailable(value);
- strlwr(value);
- if (skinnum == -1)
- STRBUFCPY(skin->name, value);
- // the skin name must uniquely identify a single skin
- // if the name is already used I make the name 'namex'
- // using the default skin name's number set above
- else
- {
- const size_t stringspace =
- strlen(value) + sizeof (numskins) + 1;
- char *value2 = Z_Malloc(stringspace, PU_STATIC, NULL);
- snprintf(value2, stringspace,
- "%s%d", value, numskins);
- value2[stringspace - 1] = '\0';
- if (R_SkinAvailable(value2) == -1)
- // I'm lazy so if NEW name is already used I leave the 'skin x'
- // default skin name set in Sk_SetDefaultValue
- STRBUFCPY(skin->name, value2);
- Z_Free(value2);
- }
+#ifndef NONET
+#define SNAKE_SPEED 5
- // copy to hudname and fullname as a default.
- if (!realname)
- {
- STRBUFCPY(skin->realname, skin->name);
- for (value = skin->realname; *value; value++)
- {
- if (*value == '_') *value = ' '; // turn _ into spaces.
- else if (*value == '.') *value = '\x1E'; // turn . into katana dot.
- }
- }
- if (!hudname)
- {
- HUDNAMEWRITE(skin->name);
- strupr(skin->hudname);
- SYMBOLCONVERT(skin->hudname)
- }
- }
- else if (!stricmp(stoken, "realname"))
- { // Display name (eg. "Knuckles")
- realname = true;
- STRBUFCPY(skin->realname, value);
- SYMBOLCONVERT(skin->realname)
- if (!hudname)
- HUDNAMEWRITE(skin->realname);
- }
- else if (!stricmp(stoken, "hudname"))
- { // Life icon name (eg. "K.T.E")
- hudname = true;
- HUDNAMEWRITE(value);
- SYMBOLCONVERT(skin->hudname)
- if (!realname)
- STRBUFCPY(skin->realname, skin->hudname);
- }
- else if (!stricmp(stoken, "availability"))
- {
- skin->availability = atoi(value);
- if (skin->availability >= MAXUNLOCKABLES)
- skin->availability = 0;
- }
- else if (!R_ProcessPatchableFields(skin, stoken, value))
- CONS_Debug(DBG_SETUP, "R_AddSkins: Unknown keyword '%s' in S_SKIN lump #%d (WAD %s)\n", stoken, lump, wadfiles[wadnum]->filename);
+#define SNAKE_NUM_BLOCKS_X 20
+#define SNAKE_NUM_BLOCKS_Y 10
+#define SNAKE_BLOCK_SIZE 12
+#define SNAKE_BORDER_SIZE 12
-next_token:
- stoken = strtok(NULL, "\r\n= ");
- }
- free(buf2);
+#define SNAKE_MAP_WIDTH (SNAKE_NUM_BLOCKS_X * SNAKE_BLOCK_SIZE)
+#define SNAKE_MAP_HEIGHT (SNAKE_NUM_BLOCKS_Y * SNAKE_BLOCK_SIZE)
- // Add sprites
- R_LoadSkinSprites(wadnum, &lump, &lastlump, skin);
- //ST_LoadFaceGraphics(numskins); -- nah let's do this elsewhere
+#define SNAKE_LEFT_X ((BASEVIDWIDTH - SNAKE_MAP_WIDTH) / 2 - SNAKE_BORDER_SIZE)
+#define SNAKE_RIGHT_X (SNAKE_LEFT_X + SNAKE_MAP_WIDTH + SNAKE_BORDER_SIZE * 2 - 1)
+#define SNAKE_BOTTOM_Y (BASEVIDHEIGHT - 48)
+#define SNAKE_TOP_Y (SNAKE_BOTTOM_Y - SNAKE_MAP_HEIGHT - SNAKE_BORDER_SIZE * 2 + 1)
- R_FlushTranslationColormapCache();
+enum snake_bonustype_s {
+ SNAKE_BONUS_NONE = 0,
+ SNAKE_BONUS_SLOW,
+ SNAKE_BONUS_FAST,
+ SNAKE_BONUS_GHOST,
+ SNAKE_BONUS_NUKE,
+ SNAKE_BONUS_SCISSORS,
+ SNAKE_BONUS_REVERSE,
+ SNAKE_BONUS_EGGMAN,
+ SNAKE_NUM_BONUSES,
+};
- if (!skin->availability) // Safe to print...
- CONS_Printf(M_GetText("Added skin '%s'\n"), skin->name);
-#ifdef SKINVALUES
- skin_cons_t[numskins].value = numskins;
- skin_cons_t[numskins].strvalue = skin->name;
-#endif
+static const char *snake_bonuspatches[] = {
+ NULL,
+ "DL_SLOW",
+ "TVSSC0",
+ "TVIVC0",
+ "TVARC0",
+ "DL_SCISSORS",
+ "TVRCC0",
+ "TVEGC0",
+};
-#ifdef HWRENDER
- if (rendermode == render_opengl)
- HWR_AddPlayerModel(numskins);
-#endif
+static const char *snake_backgrounds[] = {
+ "RVPUMICF",
+ "FRSTRCKF",
+ "TAR",
+ "MMFLRB4",
+ "RVDARKF1",
+ "RVZWALF1",
+ "RVZWALF4",
+ "RVZWALF5",
+ "RVZGRS02",
+ "RVZGRS04",
+};
- numskins++;
- }
- return;
+typedef struct snake_s
+{
+ boolean paused;
+ boolean pausepressed;
+ tic_t time;
+ tic_t nextupdate;
+ boolean gameover;
+ UINT8 background;
+
+ UINT16 snakelength;
+ enum snake_bonustype_s snakebonus;
+ tic_t snakebonustime;
+ UINT8 snakex[SNAKE_NUM_BLOCKS_X * SNAKE_NUM_BLOCKS_Y];
+ UINT8 snakey[SNAKE_NUM_BLOCKS_X * SNAKE_NUM_BLOCKS_Y];
+ UINT8 snakedir[SNAKE_NUM_BLOCKS_X * SNAKE_NUM_BLOCKS_Y];
+
+ UINT8 applex;
+ UINT8 appley;
+
+ enum snake_bonustype_s bonustype;
+ UINT8 bonusx;
+ UINT8 bonusy;
+} snake_t;
+
+static snake_t *snake = NULL;
+
+static void Snake_Initialise(void)
+{
+ if (!snake)
+ snake = malloc(sizeof(snake_t));
+
+ snake->paused = false;
+ snake->pausepressed = false;
+ snake->time = 0;
+ snake->nextupdate = SNAKE_SPEED;
+ snake->gameover = false;
+ snake->background = M_RandomKey(sizeof(snake_backgrounds) / sizeof(*snake_backgrounds));
+
+ snake->snakelength = 1;
+ snake->snakebonus = SNAKE_BONUS_NONE;
+ snake->snakex[0] = M_RandomKey(SNAKE_NUM_BLOCKS_X);
+ snake->snakey[0] = M_RandomKey(SNAKE_NUM_BLOCKS_Y);
+ snake->snakedir[0] = 0;
+ snake->snakedir[1] = 0;
+
+ snake->applex = M_RandomKey(SNAKE_NUM_BLOCKS_X);
+ snake->appley = M_RandomKey(SNAKE_NUM_BLOCKS_Y);
+
+ snake->bonustype = SNAKE_BONUS_NONE;
}
-//
-// Patch skin sprites
-//
-void R_PatchSkins(UINT16 wadnum)
+static UINT8 Snake_GetOppositeDir(UINT8 dir)
{
- UINT16 lump, lastlump = 0;
- char *buf;
- char *buf2;
- char *stoken;
- char *value;
- size_t size;
- skin_t *skin;
- boolean noskincomplain, realname, hudname;
+ if (dir == 1 || dir == 3)
+ return dir + 1;
+ else if (dir == 2 || dir == 4)
+ return dir - 1;
+ else
+ return 12 + 5 - dir;
+}
- //
- // search for all skin patch markers in pwad
- //
+static void Snake_FindFreeSlot(UINT8 *freex, UINT8 *freey, UINT8 headx, UINT8 heady)
+{
+ UINT8 x, y;
+ UINT16 i;
- while ((lump = W_CheckForPatchSkinMarkerInPwad(wadnum, lastlump)) != INT16_MAX)
+ do
{
- INT32 skinnum = 0;
+ x = M_RandomKey(SNAKE_NUM_BLOCKS_X);
+ y = M_RandomKey(SNAKE_NUM_BLOCKS_Y);
- // advance by default
- lastlump = lump + 1;
+ for (i = 0; i < snake->snakelength; i++)
+ if (x == snake->snakex[i] && y == snake->snakey[i])
+ break;
+ } while (i < snake->snakelength || (x == headx && y == heady)
+ || (x == snake->applex && y == snake->appley)
+ || (snake->bonustype != SNAKE_BONUS_NONE && x == snake->bonusx && y == snake->bonusy));
- buf = W_CacheLumpNumPwad(wadnum, lump, PU_CACHE);
- size = W_LumpLengthPwad(wadnum, lump);
+ *freex = x;
+ *freey = y;
+}
- // for strtok
- buf2 = malloc(size+1);
- if (!buf2)
- I_Error("R_PatchSkins: No more free memory\n");
- M_Memcpy(buf2,buf,size);
- buf2[size] = '\0';
+static void Snake_Handle(void)
+{
+ UINT8 x, y;
+ UINT8 oldx, oldy;
+ UINT16 i;
- skin = NULL;
- noskincomplain = realname = hudname = false;
+ // Handle retry
+ if (snake->gameover && (PLAYER1INPUTDOWN(gc_jump) || gamekeydown[KEY_ENTER]))
+ {
+ Snake_Initialise();
+ snake->pausepressed = true; // Avoid accidental pause on respawn
+ }
- /*
- Parse. Has more phases than the parser in R_AddSkins because it needs to have the patching name first (no default skin name is acceptible for patching, unlike skin creation)
- */
+ // Handle pause
+ if (PLAYER1INPUTDOWN(gc_pause) || gamekeydown[KEY_ENTER])
+ {
+ if (!snake->pausepressed)
+ snake->paused = !snake->paused;
+ snake->pausepressed = true;
+ }
+ else
+ snake->pausepressed = false;
- stoken = strtok(buf2, "\r\n= ");
- while (stoken)
- {
- if ((stoken[0] == '/' && stoken[1] == '/')
- || (stoken[0] == '#'))// skip comments
- {
- stoken = strtok(NULL, "\r\n"); // skip end of line
- goto next_token; // find the real next token
- }
+ if (snake->paused)
+ return;
+
+ snake->time++;
+
+ x = snake->snakex[0];
+ y = snake->snakey[0];
+ oldx = snake->snakex[1];
+ oldy = snake->snakey[1];
+
+ // Update direction
+ if (gamekeydown[KEY_LEFTARROW])
+ {
+ if (snake->snakelength < 2 || x <= oldx)
+ snake->snakedir[0] = 1;
+ }
+ else if (gamekeydown[KEY_RIGHTARROW])
+ {
+ if (snake->snakelength < 2 || x >= oldx)
+ snake->snakedir[0] = 2;
+ }
+ else if (gamekeydown[KEY_UPARROW])
+ {
+ if (snake->snakelength < 2 || y <= oldy)
+ snake->snakedir[0] = 3;
+ }
+ else if (gamekeydown[KEY_DOWNARROW])
+ {
+ if (snake->snakelength < 2 || y >= oldy)
+ snake->snakedir[0] = 4;
+ }
+
+ if (snake->snakebonustime)
+ {
+ snake->snakebonustime--;
+ if (!snake->snakebonustime)
+ snake->snakebonus = SNAKE_BONUS_NONE;
+ }
- value = strtok(NULL, "\r\n= ");
+ snake->nextupdate--;
+ if (snake->nextupdate)
+ return;
+ if (snake->snakebonus == SNAKE_BONUS_SLOW)
+ snake->nextupdate = SNAKE_SPEED * 2;
+ else if (snake->snakebonus == SNAKE_BONUS_FAST)
+ snake->nextupdate = SNAKE_SPEED * 2 / 3;
+ else
+ snake->nextupdate = SNAKE_SPEED;
+
+ if (snake->gameover)
+ return;
- if (!value)
- I_Error("R_PatchSkins: syntax error in P_SKIN lump# %d(%s) in WAD %s\n", lump, W_CheckNameForNumPwad(wadnum,lump), wadfiles[wadnum]->filename);
+ // Find new position
+ switch (snake->snakedir[0])
+ {
+ case 1:
+ if (x > 0)
+ x--;
+ else
+ snake->gameover = true;
+ break;
+ case 2:
+ if (x < SNAKE_NUM_BLOCKS_X - 1)
+ x++;
+ else
+ snake->gameover = true;
+ break;
+ case 3:
+ if (y > 0)
+ y--;
+ else
+ snake->gameover = true;
+ break;
+ case 4:
+ if (y < SNAKE_NUM_BLOCKS_Y - 1)
+ y++;
+ else
+ snake->gameover = true;
+ break;
+ }
- if (!skin) // Get the name!
+ // Check collision with snake
+ if (snake->snakebonus != SNAKE_BONUS_GHOST)
+ for (i = 1; i < snake->snakelength - 1; i++)
+ if (x == snake->snakex[i] && y == snake->snakey[i])
{
- if (!stricmp(stoken, "name"))
+ if (snake->snakebonus == SNAKE_BONUS_SCISSORS)
{
- strlwr(value);
- skinnum = R_SkinAvailable(value);
- if (skinnum != -1)
- skin = &skins[skinnum];
- else
- {
- CONS_Debug(DBG_SETUP, "R_PatchSkins: unknown skin name in P_SKIN lump# %d(%s) in WAD %s\n", lump, W_CheckNameForNumPwad(wadnum,lump), wadfiles[wadnum]->filename);
- noskincomplain = true;
- }
- }
- }
- else // Get the properties!
- {
- // Some of these can't go in R_ProcessPatchableFields because they have side effects for future lines.
- if (!stricmp(stoken, "realname"))
- { // Display name (eg. "Knuckles")
- realname = true;
- STRBUFCPY(skin->realname, value);
- SYMBOLCONVERT(skin->realname)
- if (!hudname)
- HUDNAMEWRITE(skin->realname);
- }
- else if (!stricmp(stoken, "hudname"))
- { // Life icon name (eg. "K.T.E")
- hudname = true;
- HUDNAMEWRITE(value);
- SYMBOLCONVERT(skin->hudname)
- if (!realname)
- STRBUFCPY(skin->realname, skin->hudname);
+ snake->snakebonus = SNAKE_BONUS_NONE;
+ snake->snakelength = i;
+ S_StartSound(NULL, sfx_adderr);
}
- else if (!R_ProcessPatchableFields(skin, stoken, value))
- CONS_Debug(DBG_SETUP, "R_PatchSkins: Unknown keyword '%s' in P_SKIN lump #%d (WAD %s)\n", stoken, lump, wadfiles[wadnum]->filename);
+ else
+ snake->gameover = true;
}
- if (!skin)
- break;
+ if (snake->gameover)
+ {
+ S_StartSound(NULL, sfx_lose);
+ return;
+ }
-next_token:
- stoken = strtok(NULL, "\r\n= ");
+ // Check collision with apple
+ if (x == snake->applex && y == snake->appley)
+ {
+ if (snake->snakelength + 3 < SNAKE_NUM_BLOCKS_X * SNAKE_NUM_BLOCKS_Y)
+ {
+ snake->snakelength++;
+ snake->snakex [snake->snakelength - 1] = snake->snakex [snake->snakelength - 2];
+ snake->snakey [snake->snakelength - 1] = snake->snakey [snake->snakelength - 2];
+ snake->snakedir[snake->snakelength - 1] = snake->snakedir[snake->snakelength - 2];
}
- free(buf2);
- if (!skin) // Didn't include a name parameter? What a waste.
+ // Spawn new apple
+ Snake_FindFreeSlot(&snake->applex, &snake->appley, x, y);
+
+ // Spawn new bonus
+ if (!(snake->snakelength % 5))
{
- if (!noskincomplain)
- CONS_Debug(DBG_SETUP, "R_PatchSkins: no skin name given in P_SKIN lump #%d (WAD %s)\n", lump, wadfiles[wadnum]->filename);
- continue;
+ do
+ {
+ snake->bonustype = M_RandomKey(SNAKE_NUM_BONUSES - 1) + 1;
+ } while (snake->snakelength > SNAKE_NUM_BLOCKS_X * SNAKE_NUM_BLOCKS_Y * 3 / 4
+ && (snake->bonustype == SNAKE_BONUS_EGGMAN || snake->bonustype == SNAKE_BONUS_FAST || snake->bonustype == SNAKE_BONUS_REVERSE));
+
+ Snake_FindFreeSlot(&snake->bonusx, &snake->bonusy, x, y);
}
- // Patch sprites
- R_LoadSkinSprites(wadnum, &lump, &lastlump, skin);
- //ST_LoadFaceGraphics(skinnum); -- nah let's do this elsewhere
+ S_StartSound(NULL, sfx_s3k6b);
+ }
+
+ if (snake->snakelength > 1 && snake->snakedir[0])
+ {
+ UINT8 dir = snake->snakedir[0];
+
+ oldx = snake->snakex[1];
+ oldy = snake->snakey[1];
- R_FlushTranslationColormapCache();
+ // Move
+ for (i = snake->snakelength - 1; i > 0; i--)
+ {
+ snake->snakex[i] = snake->snakex[i - 1];
+ snake->snakey[i] = snake->snakey[i - 1];
+ snake->snakedir[i] = snake->snakedir[i - 1];
+ }
- if (!skin->availability) // Safe to print...
- CONS_Printf(M_GetText("Patched skin '%s'\n"), skin->name);
+ // Handle corners
+ if (x < oldx && dir == 3)
+ dir = 5;
+ else if (x > oldx && dir == 3)
+ dir = 6;
+ else if (x < oldx && dir == 4)
+ dir = 7;
+ else if (x > oldx && dir == 4)
+ dir = 8;
+ else if (y < oldy && dir == 1)
+ dir = 9;
+ else if (y < oldy && dir == 2)
+ dir = 10;
+ else if (y > oldy && dir == 1)
+ dir = 11;
+ else if (y > oldy && dir == 2)
+ dir = 12;
+ snake->snakedir[1] = dir;
}
- return;
-}
-#undef HUDNAMEWRITE
-#undef SYMBOLCONVERT
+ snake->snakex[0] = x;
+ snake->snakey[0] = y;
+
+ // Check collision with bonus
+ if (snake->bonustype != SNAKE_BONUS_NONE && x == snake->bonusx && y == snake->bonusy)
+ {
+ S_StartSound(NULL, sfx_ncchip);
+
+ switch (snake->bonustype)
+ {
+ case SNAKE_BONUS_SLOW:
+ snake->snakebonus = SNAKE_BONUS_SLOW;
+ snake->snakebonustime = 20 * TICRATE;
+ break;
+ case SNAKE_BONUS_FAST:
+ snake->snakebonus = SNAKE_BONUS_FAST;
+ snake->snakebonustime = 20 * TICRATE;
+ break;
+ case SNAKE_BONUS_GHOST:
+ snake->snakebonus = SNAKE_BONUS_GHOST;
+ snake->snakebonustime = 10 * TICRATE;
+ break;
+ case SNAKE_BONUS_NUKE:
+ for (i = 0; i < snake->snakelength; i++)
+ {
+ snake->snakex [i] = snake->snakex [0];
+ snake->snakey [i] = snake->snakey [0];
+ snake->snakedir[i] = snake->snakedir[0];
+ }
+
+ S_StartSound(NULL, sfx_bkpoof);
+ break;
+ case SNAKE_BONUS_SCISSORS:
+ snake->snakebonus = SNAKE_BONUS_SCISSORS;
+ snake->snakebonustime = 60 * TICRATE;
+ break;
+ case SNAKE_BONUS_REVERSE:
+ for (i = 0; i < (snake->snakelength + 1) / 2; i++)
+ {
+ UINT16 i2 = snake->snakelength - 1 - i;
+ UINT8 tmpx = snake->snakex [i];
+ UINT8 tmpy = snake->snakey [i];
+ UINT8 tmpdir = snake->snakedir[i];
+
+ // Swap first segment with last segment
+ snake->snakex [i] = snake->snakex [i2];
+ snake->snakey [i] = snake->snakey [i2];
+ snake->snakedir[i] = Snake_GetOppositeDir(snake->snakedir[i2]);
+ snake->snakex [i2] = tmpx;
+ snake->snakey [i2] = tmpy;
+ snake->snakedir[i2] = Snake_GetOppositeDir(tmpdir);
+ }
+
+ snake->snakedir[0] = 0;
+
+ S_StartSound(NULL, sfx_gravch);
+ break;
+ default:
+ if (snake->snakebonus != SNAKE_BONUS_GHOST)
+ {
+ snake->gameover = true;
+ S_StartSound(NULL, sfx_lose);
+ }
+ }
+
+ snake->bonustype = SNAKE_BONUS_NONE;
+ }
+}
+
+static void Snake_Draw(void)
+{
+ INT16 i;
+
+ // Background
+ V_DrawFlatFill(
+ SNAKE_LEFT_X + SNAKE_BORDER_SIZE,
+ SNAKE_TOP_Y + SNAKE_BORDER_SIZE,
+ SNAKE_MAP_WIDTH,
+ SNAKE_MAP_HEIGHT,
+ W_GetNumForName(snake_backgrounds[snake->background])
+ );
+
+ // Borders
+ V_DrawFill(SNAKE_LEFT_X, SNAKE_TOP_Y, SNAKE_BORDER_SIZE + SNAKE_MAP_WIDTH, SNAKE_BORDER_SIZE, 242); // Top
+ V_DrawFill(SNAKE_LEFT_X + SNAKE_BORDER_SIZE + SNAKE_MAP_WIDTH, SNAKE_TOP_Y, SNAKE_BORDER_SIZE, SNAKE_BORDER_SIZE + SNAKE_MAP_HEIGHT, 242); // Right
+ V_DrawFill(SNAKE_LEFT_X + SNAKE_BORDER_SIZE, SNAKE_TOP_Y + SNAKE_BORDER_SIZE + SNAKE_MAP_HEIGHT, SNAKE_BORDER_SIZE + SNAKE_MAP_WIDTH, SNAKE_BORDER_SIZE, 242); // Bottom
+ V_DrawFill(SNAKE_LEFT_X, SNAKE_TOP_Y + SNAKE_BORDER_SIZE, SNAKE_BORDER_SIZE, SNAKE_BORDER_SIZE + SNAKE_MAP_HEIGHT, 242); // Left
+
+ // Apple
+ V_DrawFixedPatch(
+ (SNAKE_LEFT_X + SNAKE_BORDER_SIZE + snake->applex * SNAKE_BLOCK_SIZE + SNAKE_BLOCK_SIZE / 2) * FRACUNIT,
+ (SNAKE_TOP_Y + SNAKE_BORDER_SIZE + snake->appley * SNAKE_BLOCK_SIZE + SNAKE_BLOCK_SIZE / 2) * FRACUNIT,
+ FRACUNIT / 4,
+ 0,
+ W_CachePatchLongName("DL_APPLE", PU_HUDGFX),
+ NULL
+ );
+
+ // Bonus
+ if (snake->bonustype != SNAKE_BONUS_NONE)
+ V_DrawFixedPatch(
+ (SNAKE_LEFT_X + SNAKE_BORDER_SIZE + snake->bonusx * SNAKE_BLOCK_SIZE + SNAKE_BLOCK_SIZE / 2 ) * FRACUNIT,
+ (SNAKE_TOP_Y + SNAKE_BORDER_SIZE + snake->bonusy * SNAKE_BLOCK_SIZE + SNAKE_BLOCK_SIZE / 2 + 4) * FRACUNIT,
+ FRACUNIT / 2,
+ 0,
+ W_CachePatchLongName(snake_bonuspatches[snake->bonustype], PU_HUDGFX),
+ NULL
+ );
+
+ // Snake
+ if (!snake->gameover || snake->time % 8 < 8 / 2) // Blink if game over
+ {
+ for (i = snake->snakelength - 1; i >= 0; i--)
+ {
+ const char *patchname;
+ UINT8 dir = snake->snakedir[i];
+
+ if (i == 0) // Head
+ {
+ switch (dir)
+ {
+ case 1: patchname = "DL_SNAKEHEAD_L"; break;
+ case 2: patchname = "DL_SNAKEHEAD_R"; break;
+ case 3: patchname = "DL_SNAKEHEAD_T"; break;
+ case 4: patchname = "DL_SNAKEHEAD_B"; break;
+ default: patchname = "DL_SNAKEHEAD_M";
+ }
+ }
+ else // Body
+ {
+ switch (dir)
+ {
+ case 1: patchname = "DL_SNAKEBODY_L"; break;
+ case 2: patchname = "DL_SNAKEBODY_R"; break;
+ case 3: patchname = "DL_SNAKEBODY_T"; break;
+ case 4: patchname = "DL_SNAKEBODY_B"; break;
+ case 5: patchname = "DL_SNAKEBODY_LT"; break;
+ case 6: patchname = "DL_SNAKEBODY_RT"; break;
+ case 7: patchname = "DL_SNAKEBODY_LB"; break;
+ case 8: patchname = "DL_SNAKEBODY_RB"; break;
+ case 9: patchname = "DL_SNAKEBODY_TL"; break;
+ case 10: patchname = "DL_SNAKEBODY_TR"; break;
+ case 11: patchname = "DL_SNAKEBODY_BL"; break;
+ case 12: patchname = "DL_SNAKEBODY_BR"; break;
+ default: patchname = "DL_SNAKEBODY_B";
+ }
+ }
+
+ V_DrawFixedPatch(
+ (SNAKE_LEFT_X + SNAKE_BORDER_SIZE + snake->snakex[i] * SNAKE_BLOCK_SIZE + SNAKE_BLOCK_SIZE / 2) * FRACUNIT,
+ (SNAKE_TOP_Y + SNAKE_BORDER_SIZE + snake->snakey[i] * SNAKE_BLOCK_SIZE + SNAKE_BLOCK_SIZE / 2) * FRACUNIT,
+ i == 0 && dir == 0 ? FRACUNIT / 5 : FRACUNIT / 2,
+ snake->snakebonus == SNAKE_BONUS_GHOST ? V_TRANSLUCENT : 0,
+ W_CachePatchLongName(patchname, PU_HUDGFX),
+ NULL
+ );
+ }
+ }
+
+ // Length
+ V_DrawString(SNAKE_RIGHT_X + 4, SNAKE_TOP_Y, V_MONOSPACE, va("%u", snake->snakelength));
+
+ // Bonus
+ if (snake->snakebonus != SNAKE_BONUS_NONE
+ && (snake->snakebonustime >= 3 * TICRATE || snake->time % 4 < 4 / 2))
+ V_DrawFixedPatch(
+ (SNAKE_RIGHT_X + 10) * FRACUNIT,
+ (SNAKE_TOP_Y + 24) * FRACUNIT,
+ FRACUNIT / 2,
+ 0,
+ W_CachePatchLongName(snake_bonuspatches[snake->snakebonus], PU_HUDGFX),
+ NULL
+ );
+}
+
+//
+// CL_DrawConnectionStatus
+//
+// Keep the local client informed of our status.
+//
+static inline void CL_DrawConnectionStatus(void)
+{
+ INT32 ccstime = I_GetTime();
+
+ // Draw background fade
+ if (!menuactive) // menu already draws its own fade
+ V_DrawFadeScreen(0xFF00, 16); // force default
+
+ // Draw the bottom box.
+ M_DrawTextBox(BASEVIDWIDTH/2-128-8, BASEVIDHEIGHT-16-8, 32, 1);
+ V_DrawCenteredString(BASEVIDWIDTH/2, BASEVIDHEIGHT-16-16, V_YELLOWMAP, "Press ESC to abort");
+
+ if (cl_mode != CL_DOWNLOADFILES)
+ {
+ INT32 i, animtime = ((ccstime / 4) & 15) + 16;
+ UINT8 palstart = (cl_mode == CL_SEARCHING) ? 32 : 96;
+ // 15 pal entries total.
+ const char *cltext;
+
+ if (!(cl_mode == CL_DOWNLOADSAVEGAME && lastfilenum != -1))
+ for (i = 0; i < 16; ++i)
+ V_DrawFill((BASEVIDWIDTH/2-128) + (i * 16), BASEVIDHEIGHT-16, 16, 8, palstart + ((animtime - i) & 15));
+
+ switch (cl_mode)
+ {
+ case CL_DOWNLOADSAVEGAME:
+ if (lastfilenum != -1)
+ {
+ UINT32 currentsize = fileneeded[lastfilenum].currentsize;
+ UINT32 totalsize = fileneeded[lastfilenum].totalsize;
+ INT32 dldlength;
+
+ cltext = M_GetText("Downloading game state...");
+ Net_GetNetStat();
+
+ dldlength = (INT32)((currentsize/(double)totalsize) * 256);
+ if (dldlength > 256)
+ dldlength = 256;
+ V_DrawFill(BASEVIDWIDTH/2-128, BASEVIDHEIGHT-16, 256, 8, 111);
+ V_DrawFill(BASEVIDWIDTH/2-128, BASEVIDHEIGHT-16, dldlength, 8, 96);
+
+ V_DrawString(BASEVIDWIDTH/2-128, BASEVIDHEIGHT-16, V_20TRANS|V_MONOSPACE,
+ va(" %4uK/%4uK",currentsize>>10,totalsize>>10));
+
+ V_DrawRightAlignedString(BASEVIDWIDTH/2+128, BASEVIDHEIGHT-16, V_20TRANS|V_MONOSPACE,
+ va("%3.1fK/s ", ((double)getbps)/1024));
+ }
+ else
+ cltext = M_GetText("Waiting to download game state...");
+ break;
+ case CL_ASKJOIN:
+ case CL_WAITJOINRESPONSE:
+ cltext = M_GetText("Requesting to join...");
+ break;
+ default:
+ cltext = M_GetText("Connecting to server...");
+ break;
+ }
+ V_DrawCenteredString(BASEVIDWIDTH/2, BASEVIDHEIGHT-16-24, V_YELLOWMAP, cltext);
+ }
+ else
+ {
+ if (lastfilenum != -1)
+ {
+ INT32 dldlength;
+ static char tempname[28];
+ fileneeded_t *file = &fileneeded[lastfilenum];
+ char *filename = file->filename;
+
+ Snake_Draw();
+
+ Net_GetNetStat();
+ dldlength = (INT32)((file->currentsize/(double)file->totalsize) * 256);
+ if (dldlength > 256)
+ dldlength = 256;
+ V_DrawFill(BASEVIDWIDTH/2-128, BASEVIDHEIGHT-16, 256, 8, 111);
+ V_DrawFill(BASEVIDWIDTH/2-128, BASEVIDHEIGHT-16, dldlength, 8, 96);
+
+ memset(tempname, 0, sizeof(tempname));
+ // offset filename to just the name only part
+ filename += strlen(filename) - nameonlylength(filename);
+
+ if (strlen(filename) > sizeof(tempname)-1) // too long to display fully
+ {
+ size_t endhalfpos = strlen(filename)-10;
+ // display as first 14 chars + ... + last 10 chars
+ // which should add up to 27 if our math(s) is correct
+ snprintf(tempname, sizeof(tempname), "%.14s...%.10s", filename, filename+endhalfpos);
+ }
+ else // we can copy the whole thing in safely
+ {
+ strncpy(tempname, filename, sizeof(tempname)-1);
+ }
+
+ V_DrawCenteredString(BASEVIDWIDTH/2, BASEVIDHEIGHT-16-24, V_YELLOWMAP,
+ va(M_GetText("Downloading \"%s\""), tempname));
+ V_DrawString(BASEVIDWIDTH/2-128, BASEVIDHEIGHT-16, V_20TRANS|V_MONOSPACE,
+ va(" %4uK/%4uK",fileneeded[lastfilenum].currentsize>>10,file->totalsize>>10));
+ V_DrawRightAlignedString(BASEVIDWIDTH/2+128, BASEVIDHEIGHT-16, V_20TRANS|V_MONOSPACE,
+ va("%3.1fK/s ", ((double)getbps)/1024));
+ }
+ else
+ V_DrawCenteredString(BASEVIDWIDTH/2, BASEVIDHEIGHT-16-24, V_YELLOWMAP,
+ M_GetText("Waiting to download files..."));
+ }
+}
+#endif
+
+/** Sends a special packet to declare how many players in local
+ * Used only in arbitratrenetstart()
+ * Sends a PT_CLIENTJOIN packet to the server
+ *
+ * \return True if the packet was successfully sent
+ * \todo Improve the description...
+ * Because to be honest, I have no idea what arbitratrenetstart is...
+ * Is it even used...?
+ *
+ */
+static boolean CL_SendJoin(void)
+{
+ UINT8 localplayers = 1;
+ if (netgame)
+ CONS_Printf(M_GetText("Sending join request...\n"));
+ netbuffer->packettype = PT_CLIENTJOIN;
+
+ if (splitscreen || botingame)
+ localplayers++;
+ netbuffer->u.clientcfg.localplayers = localplayers;
+ netbuffer->u.clientcfg._255 = 255;
+ netbuffer->u.clientcfg.packetversion = PACKETVERSION;
+ netbuffer->u.clientcfg.version = VERSION;
+ netbuffer->u.clientcfg.subversion = SUBVERSION;
+ strncpy(netbuffer->u.clientcfg.application, SRB2APPLICATION,
+ sizeof netbuffer->u.clientcfg.application);
+
+ CleanupPlayerName(consoleplayer, cv_playername.zstring);
+ if (splitscreen)
+ CleanupPlayerName(1, cv_playername2.zstring);/* 1 is a HACK? oh no */
+
+ strncpy(netbuffer->u.clientcfg.names[0], cv_playername.zstring, MAXPLAYERNAME);
+ strncpy(netbuffer->u.clientcfg.names[1], cv_playername2.zstring, MAXPLAYERNAME);
+
+ return HSendPacket(servernode, true, 0, sizeof (clientconfig_pak));
+}
+
+static INT32 FindRejoinerNum(SINT8 node)
+{
+ char strippednodeaddress[64];
+ const char *nodeaddress;
+ char *port;
+ INT32 i;
+
+ // Make sure there is no dead dress before proceeding to the stripping
+ if (!I_GetNodeAddress)
+ return -1;
+ nodeaddress = I_GetNodeAddress(node);
+ if (!nodeaddress)
+ return -1;
+
+ // Strip the address of its port
+ strcpy(strippednodeaddress, nodeaddress);
+ port = strchr(strippednodeaddress, ':');
+ if (port)
+ *port = '\0';
+
+ // Check if any player matches the stripped address
+ for (i = 0; i < MAXPLAYERS; i++)
+ {
+ if (playeringame[i] && playeraddress[i][0] && playernode[i] == UINT8_MAX
+ && !strcmp(playeraddress[i], strippednodeaddress))
+ return i;
+ }
+
+ return -1;
+}
+
+static void SV_SendServerInfo(INT32 node, tic_t servertime)
+{
+ UINT8 *p;
+
+ netbuffer->packettype = PT_SERVERINFO;
+ netbuffer->u.serverinfo._255 = 255;
+ netbuffer->u.serverinfo.packetversion = PACKETVERSION;
+ netbuffer->u.serverinfo.version = VERSION;
+ netbuffer->u.serverinfo.subversion = SUBVERSION;
+ strncpy(netbuffer->u.serverinfo.application, SRB2APPLICATION,
+ sizeof netbuffer->u.serverinfo.application);
+ // return back the time value so client can compute their ping
+ netbuffer->u.serverinfo.time = (tic_t)LONG(servertime);
+ netbuffer->u.serverinfo.leveltime = (tic_t)LONG(leveltime);
+
+ netbuffer->u.serverinfo.numberofplayer = (UINT8)D_NumPlayers();
+ netbuffer->u.serverinfo.maxplayer = (UINT8)cv_maxplayers.value;
+
+ if (!node || FindRejoinerNum(node) != -1)
+ netbuffer->u.serverinfo.refusereason = 0;
+ else if (!cv_allownewplayer.value)
+ netbuffer->u.serverinfo.refusereason = 1;
+ else if (D_NumPlayers() >= cv_maxplayers.value)
+ netbuffer->u.serverinfo.refusereason = 2;
+ else
+ netbuffer->u.serverinfo.refusereason = 0;
+
+ strncpy(netbuffer->u.serverinfo.gametypename, Gametype_Names[gametype],
+ sizeof netbuffer->u.serverinfo.gametypename);
+ netbuffer->u.serverinfo.modifiedgame = (UINT8)modifiedgame;
+ netbuffer->u.serverinfo.cheatsenabled = CV_CheatsEnabled();
+ netbuffer->u.serverinfo.isdedicated = (UINT8)dedicated;
+ strncpy(netbuffer->u.serverinfo.servername, cv_servername.string,
+ MAXSERVERNAME);
+ strncpy(netbuffer->u.serverinfo.mapname, G_BuildMapName(gamemap), 7);
+
+ M_Memcpy(netbuffer->u.serverinfo.mapmd5, mapmd5, 16);
+
+ memset(netbuffer->u.serverinfo.maptitle, 0, sizeof netbuffer->u.serverinfo.maptitle);
+
+ if (mapheaderinfo[gamemap-1] && *mapheaderinfo[gamemap-1]->lvlttl)
+ {
+ char *read = mapheaderinfo[gamemap-1]->lvlttl, *writ = netbuffer->u.serverinfo.maptitle;
+ while (writ < (netbuffer->u.serverinfo.maptitle+32) && *read != '\0')
+ {
+ if (!(*read & 0x80))
+ {
+ *writ = toupper(*read);
+ writ++;
+ }
+ read++;
+ }
+ *writ = '\0';
+ //strncpy(netbuffer->u.serverinfo.maptitle, (char *)mapheaderinfo[gamemap-1]->lvlttl, 33);
+ }
+ else
+ strncpy(netbuffer->u.serverinfo.maptitle, "UNKNOWN", 32);
+
+ if (mapheaderinfo[gamemap-1] && !(mapheaderinfo[gamemap-1]->levelflags & LF_NOZONE))
+ netbuffer->u.serverinfo.iszone = 1;
+ else
+ netbuffer->u.serverinfo.iszone = 0;
+
+ if (mapheaderinfo[gamemap-1])
+ netbuffer->u.serverinfo.actnum = mapheaderinfo[gamemap-1]->actnum;
+
+ p = PutFileNeeded();
+
+ HSendPacket(node, false, 0, p - ((UINT8 *)&netbuffer->u));
+}
+
+static void SV_SendPlayerInfo(INT32 node)
+{
+ UINT8 i;
+ netbuffer->packettype = PT_PLAYERINFO;
+
+ for (i = 0; i < MAXPLAYERS; i++)
+ {
+ if (!playeringame[i])
+ {
+ netbuffer->u.playerinfo[i].num = 255; // This slot is empty.
+ continue;
+ }
+
+ netbuffer->u.playerinfo[i].num = i;
+ strncpy(netbuffer->u.playerinfo[i].name, (const char *)&player_names[i], MAXPLAYERNAME+1);
+ netbuffer->u.playerinfo[i].name[MAXPLAYERNAME] = '\0';
+
+ //fetch IP address
+ //No, don't do that, you fuckface.
+ memset(netbuffer->u.playerinfo[i].address, 0, 4);
+
+ if (G_GametypeHasTeams())
+ {
+ if (!players[i].ctfteam)
+ netbuffer->u.playerinfo[i].team = 255;
+ else
+ netbuffer->u.playerinfo[i].team = (UINT8)players[i].ctfteam;
+ }
+ else
+ {
+ if (players[i].spectator)
+ netbuffer->u.playerinfo[i].team = 255;
+ else
+ netbuffer->u.playerinfo[i].team = 0;
+ }
+
+ netbuffer->u.playerinfo[i].score = LONG(players[i].score);
+ netbuffer->u.playerinfo[i].timeinserver = SHORT((UINT16)(players[i].jointime / TICRATE));
+ netbuffer->u.playerinfo[i].skin = (UINT8)(players[i].skin
+#ifdef DEVELOP // it's safe to do this only because PLAYERINFO isn't read by the game itself
+ % 3
+#endif
+ );
+
+ // Extra data
+ netbuffer->u.playerinfo[i].data = 0; //players[i].skincolor;
+
+ if (players[i].pflags & PF_TAGIT)
+ netbuffer->u.playerinfo[i].data |= 0x20;
+
+ if (players[i].gotflag)
+ netbuffer->u.playerinfo[i].data |= 0x40;
+
+ if (players[i].powers[pw_super])
+ netbuffer->u.playerinfo[i].data |= 0x80;
+ }
+
+ HSendPacket(node, false, 0, sizeof(plrinfo) * MAXPLAYERS);
+}
+
+/** Sends a PT_SERVERCFG packet
+ *
+ * \param node The destination
+ * \return True if the packet was successfully sent
+ *
+ */
+static boolean SV_SendServerConfig(INT32 node)
+{
+ boolean waspacketsent;
+
+ netbuffer->packettype = PT_SERVERCFG;
+
+ netbuffer->u.servercfg.version = VERSION;
+ netbuffer->u.servercfg.subversion = SUBVERSION;
+
+ netbuffer->u.servercfg.serverplayer = (UINT8)serverplayer;
+ netbuffer->u.servercfg.totalslotnum = (UINT8)(doomcom->numslots);
+ netbuffer->u.servercfg.gametic = (tic_t)LONG(gametic);
+ netbuffer->u.servercfg.clientnode = (UINT8)node;
+ netbuffer->u.servercfg.gamestate = (UINT8)gamestate;
+ netbuffer->u.servercfg.gametype = (UINT8)gametype;
+ netbuffer->u.servercfg.modifiedgame = (UINT8)modifiedgame;
+
+ memcpy(netbuffer->u.servercfg.server_context, server_context, 8);
+
+ {
+ const size_t len = sizeof (serverconfig_pak);
+
+#ifdef DEBUGFILE
+ if (debugfile)
+ {
+ fprintf(debugfile, "ServerConfig Packet about to be sent, size of packet:%s to node:%d\n",
+ sizeu1(len), node);
+ }
+#endif
+
+ waspacketsent = HSendPacket(node, true, 0, len);
+ }
+
+#ifdef DEBUGFILE
+ if (debugfile)
+ {
+ if (waspacketsent)
+ {
+ fprintf(debugfile, "ServerConfig Packet was sent\n");
+ }
+ else
+ {
+ fprintf(debugfile, "ServerConfig Packet could not be sent right now\n");
+ }
+ }
+#endif
+
+ return waspacketsent;
+}
+
+#ifndef NONET
+#define SAVEGAMESIZE (768*1024)
+
+static boolean SV_ResendingSavegameToAnyone(void)
+{
+ INT32 i;
+
+ for (i = 0; i < MAXNETNODES; i++)
+ if (resendingsavegame[i])
+ return true;
+ return false;
+}
+
+static void SV_SendSaveGame(INT32 node, boolean resending)
+{
+ size_t length, compressedlen;
+ UINT8 *savebuffer;
+ UINT8 *compressedsave;
+ UINT8 *buffertosend;
+
+ // first save it in a malloced buffer
+ savebuffer = (UINT8 *)malloc(SAVEGAMESIZE);
+ if (!savebuffer)
+ {
+ CONS_Alert(CONS_ERROR, M_GetText("No more free memory for savegame\n"));
+ return;
+ }
+
+ // Leave room for the uncompressed length.
+ save_p = savebuffer + sizeof(UINT32);
+
+ P_SaveNetGame(resending);
+
+ length = save_p - savebuffer;
+ if (length > SAVEGAMESIZE)
+ {
+ free(savebuffer);
+ save_p = NULL;
+ I_Error("Savegame buffer overrun");
+ }
+
+ // Allocate space for compressed save: one byte fewer than for the
+ // uncompressed data to ensure that the compression is worthwhile.
+ compressedsave = malloc(length - 1);
+ if (!compressedsave)
+ {
+ CONS_Alert(CONS_ERROR, M_GetText("No more free memory for savegame\n"));
+ return;
+ }
+
+ // Attempt to compress it.
+ if((compressedlen = lzf_compress(savebuffer + sizeof(UINT32), length - sizeof(UINT32), compressedsave + sizeof(UINT32), length - sizeof(UINT32) - 1)))
+ {
+ // Compressing succeeded; send compressed data
+
+ free(savebuffer);
+
+ // State that we're compressed.
+ buffertosend = compressedsave;
+ WRITEUINT32(compressedsave, length - sizeof(UINT32));
+ length = compressedlen + sizeof(UINT32);
+ }
+ else
+ {
+ // Compression failed to make it smaller; send original
+
+ free(compressedsave);
+
+ // State that we're not compressed
+ buffertosend = savebuffer;
+ WRITEUINT32(savebuffer, 0);
+ }
+
+ AddRamToSendQueue(node, buffertosend, length, SF_RAM, 0);
+ save_p = NULL;
+
+ // Remember when we started sending the savegame so we can handle timeouts
+ sendingsavegame[node] = true;
+ freezetimeout[node] = I_GetTime() + jointimeout + length / 1024; // 1 extra tic for each kilobyte
+}
+
+#ifdef DUMPCONSISTENCY
+#define TMPSAVENAME "badmath.sav"
+static consvar_t cv_dumpconsistency = CVAR_INIT ("dumpconsistency", "Off", CV_SAVE|CV_NETVAR, CV_OnOff, NULL);
+
+static void SV_SavedGame(void)
+{
+ size_t length;
+ UINT8 *savebuffer;
+ char tmpsave[256];
+
+ if (!cv_dumpconsistency.value)
+ return;
+
+ sprintf(tmpsave, "%s" PATHSEP TMPSAVENAME, srb2home);
+
+ // first save it in a malloced buffer
+ save_p = savebuffer = (UINT8 *)malloc(SAVEGAMESIZE);
+ if (!save_p)
+ {
+ CONS_Alert(CONS_ERROR, M_GetText("No more free memory for savegame\n"));
+ return;
+ }
+
+ P_SaveNetGame(false);
+
+ length = save_p - savebuffer;
+ if (length > SAVEGAMESIZE)
+ {
+ free(savebuffer);
+ save_p = NULL;
+ I_Error("Savegame buffer overrun");
+ }
+
+ // then save it!
+ if (!FIL_WriteFile(tmpsave, savebuffer, length))
+ CONS_Printf(M_GetText("Didn't save %s for netgame"), tmpsave);
+
+ free(savebuffer);
+ save_p = NULL;
+}
+
+#undef TMPSAVENAME
+#endif
+#define TMPSAVENAME "$$$.sav"
+
+
+static void CL_LoadReceivedSavegame(boolean reloading)
+{
+ UINT8 *savebuffer = NULL;
+ size_t length, decompressedlen;
+ char tmpsave[256];
+
+ sprintf(tmpsave, "%s" PATHSEP TMPSAVENAME, srb2home);
+
+ length = FIL_ReadFile(tmpsave, &savebuffer);
+
+ CONS_Printf(M_GetText("Loading savegame length %s\n"), sizeu1(length));
+ if (!length)
+ {
+ I_Error("Can't read savegame sent");
+ return;
+ }
+
+ save_p = savebuffer;
+
+ // Decompress saved game if necessary.
+ decompressedlen = READUINT32(save_p);
+ if(decompressedlen > 0)
+ {
+ UINT8 *decompressedbuffer = Z_Malloc(decompressedlen, PU_STATIC, NULL);
+ lzf_decompress(save_p, length - sizeof(UINT32), decompressedbuffer, decompressedlen);
+ Z_Free(savebuffer);
+ save_p = savebuffer = decompressedbuffer;
+ }
+
+ paused = false;
+ demoplayback = false;
+ titlemapinaction = TITLEMAP_OFF;
+ titledemo = false;
+ automapactive = false;
+
+ // load a base level
+ if (P_LoadNetGame(reloading))
+ {
+ const UINT8 actnum = mapheaderinfo[gamemap-1]->actnum;
+ CONS_Printf(M_GetText("Map is now \"%s"), G_BuildMapName(gamemap));
+ if (strcmp(mapheaderinfo[gamemap-1]->lvlttl, ""))
+ {
+ CONS_Printf(": %s", mapheaderinfo[gamemap-1]->lvlttl);
+ if (!(mapheaderinfo[gamemap-1]->levelflags & LF_NOZONE))
+ CONS_Printf(M_GetText(" Zone"));
+ if (actnum > 0)
+ CONS_Printf(" %2d", actnum);
+ }
+ CONS_Printf("\"\n");
+ }
+ else
+ {
+ CONS_Alert(CONS_ERROR, M_GetText("Can't load the level!\n"));
+ Z_Free(savebuffer);
+ save_p = NULL;
+ if (unlink(tmpsave) == -1)
+ CONS_Alert(CONS_ERROR, M_GetText("Can't delete %s\n"), tmpsave);
+ return;
+ }
+
+ // done
+ Z_Free(savebuffer);
+ save_p = NULL;
+ if (unlink(tmpsave) == -1)
+ CONS_Alert(CONS_ERROR, M_GetText("Can't delete %s\n"), tmpsave);
+ consistancy[gametic%BACKUPTICS] = Consistancy();
+ CON_ToggleOff();
+
+ // Tell the server we have received and reloaded the gamestate
+ // so they know they can resume the game
+ netbuffer->packettype = PT_RECEIVEDGAMESTATE;
+ HSendPacket(servernode, true, 0, 0);
+}
+
+static void CL_ReloadReceivedSavegame(void)
+{
+ INT32 i;
+
+ for (i = 0; i < MAXPLAYERS; i++)
+ {
+#ifdef HAVE_BLUA
+ LUA_InvalidatePlayer(&players[i]);
+#endif
+ sprintf(player_names[i], "Player %d", i + 1);
+ }
+
+ CL_LoadReceivedSavegame(true);
+
+ if (neededtic < gametic)
+ neededtic = gametic;
+ maketic = neededtic;
+
+ ticcmd_oldangleturn[0] = players[consoleplayer].oldrelangleturn;
+ P_ForceLocalAngle(&players[consoleplayer], (angle_t)(players[consoleplayer].angleturn << 16));
+ if (splitscreen)
+ {
+ ticcmd_oldangleturn[1] = players[secondarydisplayplayer].oldrelangleturn;
+ P_ForceLocalAngle(&players[secondarydisplayplayer], (angle_t)(players[secondarydisplayplayer].angleturn << 16));
+ }
+
+ camera.subsector = R_PointInSubsector(camera.x, camera.y);
+ camera2.subsector = R_PointInSubsector(camera2.x, camera2.y);
+
+ cl_redownloadinggamestate = false;
+
+ CONS_Printf(M_GetText("Game state reloaded\n"));
+}
+#endif
+
+#ifndef NONET
+static void SendAskInfo(INT32 node)
+{
+ const tic_t asktime = I_GetTime();
+ netbuffer->packettype = PT_ASKINFO;
+ netbuffer->u.askinfo.version = VERSION;
+ netbuffer->u.askinfo.time = (tic_t)LONG(asktime);
+
+ // Even if this never arrives due to the host being firewalled, we've
+ // now allowed traffic from the host to us in, so once the MS relays
+ // our address to the host, it'll be able to speak to us.
+ HSendPacket(node, false, 0, sizeof (askinfo_pak));
+}
+
+serverelem_t serverlist[MAXSERVERLIST];
+UINT32 serverlistcount = 0;
+
+#define FORCECLOSE 0x8000
+
+static void SL_ClearServerList(INT32 connectedserver)
+{
+ UINT32 i;
+
+ for (i = 0; i < serverlistcount; i++)
+ if (connectedserver != serverlist[i].node)
+ {
+ Net_CloseConnection(serverlist[i].node|FORCECLOSE);
+ serverlist[i].node = 0;
+ }
+ serverlistcount = 0;
+}
+
+static UINT32 SL_SearchServer(INT32 node)
+{
+ UINT32 i;
+ for (i = 0; i < serverlistcount; i++)
+ if (serverlist[i].node == node)
+ return i;
+
+ return UINT32_MAX;
+}
+
+static void SL_InsertServer(serverinfo_pak* info, SINT8 node)
+{
+ UINT32 i;
+
+ // search if not already on it
+ i = SL_SearchServer(node);
+ if (i == UINT32_MAX)
+ {
+ // not found add it
+ if (serverlistcount >= MAXSERVERLIST)
+ return; // list full
+
+ if (info->_255 != 255)
+ return;/* old packet format */
+
+ if (info->packetversion != PACKETVERSION)
+ return;/* old new packet format */
+
+ if (info->version != VERSION)
+ return; // Not same version.
+
+ if (info->subversion != SUBVERSION)
+ return; // Close, but no cigar.
+
+ if (strcmp(info->application, SRB2APPLICATION))
+ return;/* that's a different mod */
+
+ i = serverlistcount++;
+ }
+
+ serverlist[i].info = *info;
+ serverlist[i].node = node;
+
+ // resort server list
+ M_SortServerList();
+}
+
+#if defined (MASTERSERVER) && defined (HAVE_THREADS)
+struct Fetch_servers_ctx
+{
+ int room;
+ int id;
+};
+
+static void
+Fetch_servers_thread (struct Fetch_servers_ctx *ctx)
+{
+ msg_server_t *server_list;
+
+ server_list = GetShortServersList(ctx->room, ctx->id);
+
+ if (server_list)
+ {
+ I_lock_mutex(&ms_QueryId_mutex);
+ {
+ if (ctx->id != ms_QueryId)
+ {
+ free(server_list);
+ server_list = NULL;
+ }
+ }
+ I_unlock_mutex(ms_QueryId_mutex);
+
+ if (server_list)
+ {
+ I_lock_mutex(&m_menu_mutex);
+ {
+ if (m_waiting_mode == M_WAITING_SERVERS)
+ m_waiting_mode = M_NOT_WAITING;
+ }
+ I_unlock_mutex(m_menu_mutex);
+
+ I_lock_mutex(&ms_ServerList_mutex);
+ {
+ ms_ServerList = server_list;
+ }
+ I_unlock_mutex(ms_ServerList_mutex);
+ }
+ }
+
+ free(ctx);
+}
+#endif/*defined (MASTERSERVER) && defined (HAVE_THREADS)*/
+
+void CL_QueryServerList (msg_server_t *server_list)
+{
+ INT32 i;
+
+ for (i = 0; server_list[i].header.buffer[0]; i++)
+ {
+ // Make sure MS version matches our own, to
+ // thwart nefarious servers who lie to the MS.
+
+ /* lol bruh, that version COMES from the servers */
+ //if (strcmp(version, server_list[i].version) == 0)
+ {
+ INT32 node = I_NetMakeNodewPort(server_list[i].ip, server_list[i].port);
+ if (node == -1)
+ break; // no more node free
+ SendAskInfo(node);
+ // Force close the connection so that servers can't eat
+ // up nodes forever if we never get a reply back from them
+ // (usually when they've not forwarded their ports).
+ //
+ // Don't worry, we'll get in contact with the working
+ // servers again when they send SERVERINFO to us later!
+ //
+ // (Note: as a side effect this probably means every
+ // server in the list will probably be using the same node (e.g. node 1),
+ // not that it matters which nodes they use when
+ // the connections are closed afterwards anyway)
+ // -- Monster Iestyn 12/11/18
+ Net_CloseConnection(node|FORCECLOSE);
+ }
+ }
+}
+
+void CL_UpdateServerList(boolean internetsearch, INT32 room)
+{
+ (void)internetsearch;
+ (void)room;
+
+ SL_ClearServerList(0);
+
+ if (!netgame && I_NetOpenSocket)
+ {
+ if (I_NetOpenSocket())
+ {
+ netgame = true;
+ multiplayer = true;
+ }
+ }
+
+ // search for local servers
+ if (netgame)
+ SendAskInfo(BROADCASTADDR);
+
+#ifdef MASTERSERVER
+ if (internetsearch)
+ {
+#ifdef HAVE_THREADS
+ struct Fetch_servers_ctx *ctx;
+
+ ctx = malloc(sizeof *ctx);
+
+ /* This called from M_Refresh so I don't use a mutex */
+ m_waiting_mode = M_WAITING_SERVERS;
+
+ I_lock_mutex(&ms_QueryId_mutex);
+ {
+ ctx->id = ms_QueryId;
+ }
+ I_unlock_mutex(ms_QueryId_mutex);
+
+ ctx->room = room;
+
+ I_spawn_thread("fetch-servers", (I_thread_fn)Fetch_servers_thread, ctx);
+#else
+ msg_server_t *server_list;
+
+ server_list = GetShortServersList(room, 0);
+
+ if (server_list)
+ {
+ CL_QueryServerList(server_list);
+ free(server_list);
+ }
+#endif
+ }
+#endif/*MASTERSERVER*/
+}
+
+#endif // ifndef NONET
+
+/** Called by CL_ServerConnectionTicker
+ *
+ * \param asksent The last time we asked the server to join. We re-ask every second in case our request got lost in transmit.
+ * \return False if the connection was aborted
+ * \sa CL_ServerConnectionTicker
+ * \sa CL_ConnectToServer
+ *
+ */
+static boolean CL_ServerConnectionSearchTicker(tic_t *asksent)
+{
+#ifndef NONET
+ INT32 i;
+
+ // serverlist is updated by GetPacket function
+ if (serverlistcount > 0)
+ {
+ // this can be a responce to our broadcast request
+ if (servernode == -1 || servernode >= MAXNETNODES)
+ {
+ i = 0;
+ servernode = serverlist[i].node;
+ CONS_Printf(M_GetText("Found, "));
+ }
+ else
+ {
+ i = SL_SearchServer(servernode);
+ if (i < 0)
+ return true;
+ }
+
+ // Quit here rather than downloading files and being refused later.
+ if (serverlist[i].info.refusereason)
+ {
+ D_QuitNetGame();
+ CL_Reset();
+ D_StartTitle();
+ if (serverlist[i].info.refusereason == 1)
+ M_StartMessage(M_GetText("The server is not accepting\njoins for the moment.\n\nPress ESC\n"), NULL, MM_NOTHING);
+ else if (serverlist[i].info.refusereason == 2)
+ M_StartMessage(va(M_GetText("Maximum players reached: %d\n\nPress ESC\n"), serverlist[i].info.maxplayer), NULL, MM_NOTHING);
+ else
+ M_StartMessage(M_GetText("You can't join.\nI don't know why,\nbut you can't join.\n\nPress ESC\n"), NULL, MM_NOTHING);
+ return false;
+ }
+
+ if (client)
+ {
+ D_ParseFileneeded(serverlist[i].info.fileneedednum,
+ serverlist[i].info.fileneeded);
+ CONS_Printf(M_GetText("Checking files...\n"));
+ i = CL_CheckFiles();
+ if (i == 3) // too many files
+ {
+ D_QuitNetGame();
+ CL_Reset();
+ D_StartTitle();
+ M_StartMessage(M_GetText(
+ "You have too many WAD files loaded\n"
+ "to add ones the server is using.\n"
+ "Please restart SRB2 before connecting.\n\n"
+ "Press ESC\n"
+ ), NULL, MM_NOTHING);
+ return false;
+ }
+ else if (i == 2) // cannot join for some reason
+ {
+ D_QuitNetGame();
+ CL_Reset();
+ D_StartTitle();
+ M_StartMessage(M_GetText(
+ "You have the wrong addons loaded.\n\n"
+ "To play on this server, restart\n"
+ "the game and don't load any addons.\n"
+ "SRB2 will automatically add\n"
+ "everything you need when you join.\n\n"
+ "Press ESC\n"
+ ), NULL, MM_NOTHING);
+ return false;
+ }
+ else if (i == 1)
+ cl_mode = CL_ASKJOIN;
+ else
+ {
+ // must download something
+ // can we, though?
+ if (!CL_CheckDownloadable()) // nope!
+ {
+ D_QuitNetGame();
+ CL_Reset();
+ D_StartTitle();
+ M_StartMessage(M_GetText(
+ "You cannot connect to this server\n"
+ "because you cannot download the files\n"
+ "that you are missing from the server.\n\n"
+ "See the console or log file for\n"
+ "more details.\n\n"
+ "Press ESC\n"
+ ), NULL, MM_NOTHING);
+ return false;
+ }
+ // no problem if can't send packet, we will retry later
+ if (CL_SendFileRequest())
+ {
+ cl_mode = CL_DOWNLOADFILES;
+#ifndef NONET
+ Snake_Initialise();
+#endif
+ }
+ }
+ }
+ else
+ cl_mode = CL_ASKJOIN; // files need not be checked for the server.
+
+ return true;
+ }
+
+ // Ask the info to the server (askinfo packet)
+ if (*asksent + NEWTICRATE < I_GetTime())
+ {
+ SendAskInfo(servernode);
+ *asksent = I_GetTime();
+ }
+#else
+ (void)asksent;
+ // No netgames, so we skip this state.
+ cl_mode = CL_ASKJOIN;
+#endif // ifndef NONET/else
+
+ return true;
+}
+
+/** Called by CL_ConnectToServer
+ *
+ * \param tmpsave The name of the gamestate file???
+ * \param oldtic Used for knowing when to poll events and redraw
+ * \param asksent ???
+ * \return False if the connection was aborted
+ * \sa CL_ServerConnectionSearchTicker
+ * \sa CL_ConnectToServer
+ *
+ */
+static boolean CL_ServerConnectionTicker(const char *tmpsave, tic_t *oldtic, tic_t *asksent)
+{
+ boolean waitmore;
+ INT32 i;
+
+#ifdef NONET
+ (void)tmpsave;
+#endif
+
+ switch (cl_mode)
+ {
+ case CL_SEARCHING:
+ if (!CL_ServerConnectionSearchTicker(asksent))
+ return false;
+ break;
+
+ case CL_DOWNLOADFILES:
+ waitmore = false;
+ for (i = 0; i < fileneedednum; i++)
+ if (fileneeded[i].status == FS_DOWNLOADING
+ || fileneeded[i].status == FS_REQUESTED)
+ {
+ waitmore = true;
+ break;
+ }
+ if (waitmore)
+ break; // exit the case
+
+#ifndef NONET
+ if (snake)
+ {
+ free(snake);
+ snake = NULL;
+ }
+#endif
+
+ cl_mode = CL_ASKJOIN; // don't break case continue to cljoin request now
+ /* FALLTHRU */
+
+ case CL_ASKJOIN:
+ CL_LoadServerFiles();
+#ifndef NONET
+ // prepare structures to save the file
+ // WARNING: this can be useless in case of server not in GS_LEVEL
+ // but since the network layer doesn't provide ordered packets...
+ CL_PrepareDownloadSaveGame(tmpsave);
+#endif
+ if (CL_SendJoin())
+ cl_mode = CL_WAITJOINRESPONSE;
+ break;
+
+#ifndef NONET
+ case CL_DOWNLOADSAVEGAME:
+ // At this state, the first (and only) needed file is the gamestate
+ if (fileneeded[0].status == FS_FOUND)
+ {
+ // Gamestate is now handled within CL_LoadReceivedSavegame()
+ CL_LoadReceivedSavegame(false);
+ cl_mode = CL_CONNECTED;
+ } // don't break case continue to CL_CONNECTED
+ else
+ break;
+#endif
+
+ case CL_WAITJOINRESPONSE:
+ case CL_CONNECTED:
+ default:
+ break;
+
+ // Connection closed by cancel, timeout or refusal.
+ case CL_ABORTED:
+ cl_mode = CL_SEARCHING;
+ return false;
+
+ }
+
+ GetPackets();
+ Net_AckTicker();
+
+ // Call it only once by tic
+ if (*oldtic != I_GetTime())
+ {
+ I_OsPolling();
+ for (; eventtail != eventhead; eventtail = (eventtail+1) & (MAXEVENTS-1))
+ G_MapEventsToControls(&events[eventtail]);
+
+ if (gamekeydown[KEY_ESCAPE] || gamekeydown[KEY_JOY1+1])
+ {
+ CONS_Printf(M_GetText("Network game synchronization aborted.\n"));
+// M_StartMessage(M_GetText("Network game synchronization aborted.\n\nPress ESC\n"), NULL, MM_NOTHING);
+
+#ifndef NONET
+ if (snake)
+ {
+ free(snake);
+ snake = NULL;
+ }
+#endif
+
+ D_QuitNetGame();
+ CL_Reset();
+ D_StartTitle();
+ memset(gamekeydown, 0, NUMKEYS);
+ return false;
+ }
+#ifndef NONET
+ else if (cl_mode == CL_DOWNLOADFILES && snake)
+ Snake_Handle();
+#endif
+
+ if (client && (cl_mode == CL_DOWNLOADFILES || cl_mode == CL_DOWNLOADSAVEGAME))
+ FileReceiveTicker();
+
+ // why are these here? this is for servers, we're a client
+ //if (key == 's' && server)
+ // doomcom->numnodes = (INT16)pnumnodes;
+ //FileSendTicker();
+ *oldtic = I_GetTime();
+
+#ifndef NONET
+ if (client && cl_mode != CL_CONNECTED && cl_mode != CL_ABORTED)
+ {
+ if (cl_mode != CL_DOWNLOADFILES && cl_mode != CL_DOWNLOADSAVEGAME)
+ {
+ F_MenuPresTicker(true); // title sky
+ F_TitleScreenTicker(true);
+ F_TitleScreenDrawer();
+ }
+ CL_DrawConnectionStatus();
+ I_UpdateNoVsync(); // page flip or blit buffer
+ if (moviemode)
+ M_SaveFrame();
+ S_UpdateSounds();
+ S_UpdateClosedCaptions();
+ }
+#else
+ CON_Drawer();
+ I_UpdateNoVsync();
+#endif
+ }
+ else
+ I_Sleep();
+
+ return true;
+}
+
+/** Use adaptive send using net_bandwidth and stat.sendbytes
+ *
+ * \todo Better description...
+ *
+ */
+static void CL_ConnectToServer(void)
+{
+ INT32 pnumnodes, nodewaited = doomcom->numnodes, i;
+ tic_t oldtic;
+#ifndef NONET
+ tic_t asksent;
+ char tmpsave[256];
+
+ sprintf(tmpsave, "%s" PATHSEP TMPSAVENAME, srb2home);
+
+ lastfilenum = -1;
+#endif
+
+ cl_mode = CL_SEARCHING;
+
+#ifndef NONET
+ // Don't get a corrupt savegame error because tmpsave already exists
+ if (FIL_FileExists(tmpsave) && unlink(tmpsave) == -1)
+ I_Error("Can't delete %s\n", tmpsave);
+#endif
+
+ if (netgame)
+ {
+ if (servernode < 0 || servernode >= MAXNETNODES)
+ CONS_Printf(M_GetText("Searching for a server...\n"));
+ else
+ CONS_Printf(M_GetText("Contacting the server...\n"));
+ }
+
+ if (gamestate == GS_INTERMISSION)
+ Y_EndIntermission(); // clean up intermission graphics etc
+
+ DEBFILE(va("waiting %d nodes\n", doomcom->numnodes));
+ G_SetGamestate(GS_WAITINGPLAYERS);
+ wipegamestate = GS_WAITINGPLAYERS;
+
+ ClearAdminPlayers();
+ pnumnodes = 1;
+ oldtic = I_GetTime() - 1;
+#ifndef NONET
+ asksent = (tic_t) - TICRATE;
+
+ i = SL_SearchServer(servernode);
+
+ if (i != -1)
+ {
+ char *gametypestr = serverlist[i].info.gametypename;
+ CONS_Printf(M_GetText("Connecting to: %s\n"), serverlist[i].info.servername);
+ gametypestr[sizeof serverlist[i].info.gametypename - 1] = '\0';
+ CONS_Printf(M_GetText("Gametype: %s\n"), gametypestr);
+ CONS_Printf(M_GetText("Version: %d.%d.%u\n"), serverlist[i].info.version/100,
+ serverlist[i].info.version%100, serverlist[i].info.subversion);
+ }
+ SL_ClearServerList(servernode);
+#endif
+
+ do
+ {
+ // If the connection was aborted for some reason, leave
+#ifndef NONET
+ if (!CL_ServerConnectionTicker(tmpsave, &oldtic, &asksent))
+#else
+ if (!CL_ServerConnectionTicker((char*)NULL, &oldtic, (tic_t *)NULL))
+#endif
+ return;
+
+ if (server)
+ {
+ pnumnodes = 0;
+ for (i = 0; i < MAXNETNODES; i++)
+ if (nodeingame[i])
+ pnumnodes++;
+ }
+ }
+ while (!(cl_mode == CL_CONNECTED && (client || (server && nodewaited <= pnumnodes))));
+
+ DEBFILE(va("Synchronisation Finished\n"));
+
+ displayplayer = consoleplayer;
+}
+
+#ifndef NONET
+typedef struct banreason_s
+{
+ char *reason;
+ struct banreason_s *prev; //-1
+ struct banreason_s *next; //+1
+} banreason_t;
+
+static banreason_t *reasontail = NULL; //last entry, use prev
+static banreason_t *reasonhead = NULL; //1st entry, use next
+
+static void Command_ShowBan(void) //Print out ban list
+{
+ size_t i;
+ const char *address, *mask;
+ banreason_t *reasonlist = reasonhead;
+
+ if (I_GetBanAddress)
+ CONS_Printf(M_GetText("Ban List:\n"));
+ else
+ return;
+
+ for (i = 0;(address = I_GetBanAddress(i)) != NULL;i++)
+ {
+ if (!I_GetBanMask || (mask = I_GetBanMask(i)) == NULL)
+ CONS_Printf("%s: %s ", sizeu1(i+1), address);
+ else
+ CONS_Printf("%s: %s/%s ", sizeu1(i+1), address, mask);
+
+ if (reasonlist && reasonlist->reason)
+ CONS_Printf("(%s)\n", reasonlist->reason);
+ else
+ CONS_Printf("\n");
+
+ if (reasonlist) reasonlist = reasonlist->next;
+ }
+
+ if (i == 0 && !address)
+ CONS_Printf(M_GetText("(empty)\n"));
+}
+
+void D_SaveBan(void)
+{
+ FILE *f;
+ size_t i;
+ banreason_t *reasonlist = reasonhead;
+ const char *address, *mask;
+
+ if (!reasonhead)
+ return;
+
+ f = fopen(va("%s"PATHSEP"%s", srb2home, "ban.txt"), "w");
+
+ if (!f)
+ {
+ CONS_Alert(CONS_WARNING, M_GetText("Could not save ban list into ban.txt\n"));
+ return;
+ }
+
+ for (i = 0;(address = I_GetBanAddress(i)) != NULL;i++)
+ {
+ if (!I_GetBanMask || (mask = I_GetBanMask(i)) == NULL)
+ fprintf(f, "%s 0", address);
+ else
+ fprintf(f, "%s %s", address, mask);
+
+ if (reasonlist && reasonlist->reason)
+ fprintf(f, " %s\n", reasonlist->reason);
+ else
+ fprintf(f, " %s\n", "NA");
+
+ if (reasonlist) reasonlist = reasonlist->next;
+ }
+
+ fclose(f);
+}
+
+static void Ban_Add(const char *reason)
+{
+ banreason_t *reasonlist = malloc(sizeof(*reasonlist));
+
+ if (!reasonlist)
+ return;
+ if (!reason)
+ reason = "NA";
+
+ reasonlist->next = NULL;
+ reasonlist->reason = Z_StrDup(reason);
+ if ((reasonlist->prev = reasontail) == NULL)
+ reasonhead = reasonlist;
+ else
+ reasontail->next = reasonlist;
+ reasontail = reasonlist;
+}
+
+static void Command_ClearBans(void)
+{
+ banreason_t *temp;
+
+ if (!I_ClearBans)
+ return;
+
+ I_ClearBans();
+ D_SaveBan();
+ reasontail = NULL;
+ while (reasonhead)
+ {
+ temp = reasonhead->next;
+ Z_Free(reasonhead->reason);
+ free(reasonhead);
+ reasonhead = temp;
+ }
+}
+
+static void Ban_Load_File(boolean warning)
+{
+ FILE *f;
+ size_t i;
+ const char *address, *mask;
+ char buffer[MAX_WADPATH];
+
+ f = fopen(va("%s"PATHSEP"%s", srb2home, "ban.txt"), "r");
+
+ if (!f)
+ {
+ if (warning)
+ CONS_Alert(CONS_WARNING, M_GetText("Could not open ban.txt for ban list\n"));
+ return;
+ }
+
+ if (I_ClearBans)
+ Command_ClearBans();
+ else
+ {
+ fclose(f);
+ return;
+ }
+
+ for (i=0; fgets(buffer, (int)sizeof(buffer), f); i++)
+ {
+ address = strtok(buffer, " \t\r\n");
+ mask = strtok(NULL, " \t\r\n");
+
+ I_SetBanAddress(address, mask);
+
+ Ban_Add(strtok(NULL, "\r\n"));
+ }
+
+ fclose(f);
+}
+
+static void Command_ReloadBan(void) //recheck ban.txt
+{
+ Ban_Load_File(true);
+}
+
+static void Command_connect(void)
+{
+ if (COM_Argc() < 2 || *COM_Argv(1) == 0)
+ {
+ CONS_Printf(M_GetText(
+ "Connect <serveraddress> (port): connect to a server\n"
+ "Connect ANY: connect to the first lan server found\n"
+ //"Connect SELF: connect to your own server.\n"
+ ));
+ return;
+ }
+
+ if (Playing() || titledemo)
+ {
+ CONS_Printf(M_GetText("You cannot connect while in a game. End this game first.\n"));
+ return;
+ }
+
+ // modified game check: no longer handled
+ // we don't request a restart unless the filelist differs
+
+ server = false;
+/*
+ if (!stricmp(COM_Argv(1), "self"))
+ {
+ servernode = 0;
+ server = true;
+ /// \bug should be but...
+ //SV_SpawnServer();
+ }
+ else
+*/
+ {
+ // used in menu to connect to a server in the list
+ if (netgame && !stricmp(COM_Argv(1), "node"))
+ {
+ servernode = (SINT8)atoi(COM_Argv(2));
+ }
+ else if (netgame)
+ {
+ CONS_Printf(M_GetText("You cannot connect while in a game. End this game first.\n"));
+ return;
+ }
+ else if (I_NetOpenSocket)
+ {
+ I_NetOpenSocket();
+ netgame = true;
+ multiplayer = true;
+
+ if (!stricmp(COM_Argv(1), "any"))
+ servernode = BROADCASTADDR;
+ else if (I_NetMakeNodewPort)
+ {
+ if (COM_Argc() >= 3) // address AND port
+ servernode = I_NetMakeNodewPort(COM_Argv(1), COM_Argv(2));
+ else // address only, or address:port
+ servernode = I_NetMakeNode(COM_Argv(1));
+ }
+ else
+ {
+ CONS_Alert(CONS_ERROR, M_GetText("There is no server identification with this network driver\n"));
+ D_CloseConnection();
+ return;
+ }
+ }
+ else
+ CONS_Alert(CONS_ERROR, M_GetText("There is no network driver\n"));
+ }
+
+ splitscreen = false;
+ SplitScreen_OnChange();
+ botingame = false;
+ botskin = 0;
+ CL_ConnectToServer();
+}
+#endif
+
+static void ResetNode(INT32 node);
+
+//
+// CL_ClearPlayer
+//
+// Clears the player data so that a future client can use this slot
+//
+void CL_ClearPlayer(INT32 playernum)
+{
+ if (players[playernum].mo)
+ P_RemoveMobj(players[playernum].mo);
+ memset(&players[playernum], 0, sizeof (player_t));
+ memset(playeraddress[playernum], 0, sizeof(*playeraddress));
+}
+
+//
+// CL_RemovePlayer
+//
+// Removes a player from the current game
+//
+static void CL_RemovePlayer(INT32 playernum, kickreason_t reason)
+{
+ // Sanity check: exceptional cases (i.e. c-fails) can cause multiple
+ // kick commands to be issued for the same player.
+ if (!playeringame[playernum])
+ return;
+
+ if (server && !demoplayback && playernode[playernum] != UINT8_MAX)
+ {
+ INT32 node = playernode[playernum];
+ playerpernode[node]--;
+ if (playerpernode[node] <= 0)
+ {
+ nodeingame[node] = false;
+ Net_CloseConnection(node);
+ ResetNode(node);
+ }
+ }
+
+ if (gametyperules & GTR_TEAMFLAGS)
+ P_PlayerFlagBurst(&players[playernum], false); // Don't take the flag with you!
+
+ // If in a special stage, redistribute the player's spheres across
+ // the remaining players.
+ if (G_IsSpecialStage(gamemap))
+ {
+ INT32 i, count, sincrement, spheres, rincrement, rings;
+
+ for (i = 0, count = 0; i < MAXPLAYERS; i++)
+ {
+ if (playeringame[i])
+ count++;
+ }
+
+ count--;
+ sincrement = spheres = players[playernum].spheres;
+ rincrement = rings = players[playernum].rings;
+
+ if (count)
+ {
+ sincrement /= count;
+ rincrement /= count;
+ }
+
+ for (i = 0; i < MAXPLAYERS; i++)
+ {
+ if (playeringame[i] && i != playernum)
+ {
+ if (spheres < 2*sincrement)
+ {
+ P_GivePlayerSpheres(&players[i], spheres);
+ spheres = 0;
+ }
+ else
+ {
+ P_GivePlayerSpheres(&players[i], sincrement);
+ spheres -= sincrement;
+ }
+
+ if (rings < 2*rincrement)
+ {
+ P_GivePlayerRings(&players[i], rings);
+ rings = 0;
+ }
+ else
+ {
+ P_GivePlayerRings(&players[i], rincrement);
+ rings -= rincrement;
+ }
+ }
+ }
+ }
+
+ LUAh_PlayerQuit(&players[playernum], reason); // Lua hook for player quitting
+
+ // don't look through someone's view who isn't there
+ if (playernum == displayplayer)
+ {
+ // Call ViewpointSwitch hooks here.
+ // The viewpoint was forcibly changed.
+ LUAh_ViewpointSwitch(&players[consoleplayer], &players[consoleplayer], true);
+ displayplayer = consoleplayer;
+ }
+
+ // Reset player data
+ CL_ClearPlayer(playernum);
+
+ // remove avatar of player
+ playeringame[playernum] = false;
+ playernode[playernum] = UINT8_MAX;
+ while (!playeringame[doomcom->numslots-1] && doomcom->numslots > 1)
+ doomcom->numslots--;
+
+ // Reset the name
+ sprintf(player_names[playernum], "Player %d", playernum+1);
+
+ player_name_changes[playernum] = 0;
+
+ if (IsPlayerAdmin(playernum))
+ {
+ RemoveAdminPlayer(playernum); // don't stay admin after you're gone
+ }
+
+ LUA_InvalidatePlayer(&players[playernum]);
+
+ if (G_TagGametype()) //Check if you still have a game. Location flexible. =P
+ P_CheckSurvivors();
+ else if (gametyperules & GTR_RACE)
+ P_CheckRacers();
+}
+
+void CL_Reset(void)
+{
+ if (metalrecording)
+ G_StopMetalRecording(false);
+ if (metalplayback)
+ G_StopMetalDemo();
+ if (demorecording)
+ G_CheckDemoStatus();
+
+ // reset client/server code
+ DEBFILE(va("\n-=-=-=-=-=-=-= Client reset =-=-=-=-=-=-=-\n\n"));
+
+ if (servernode > 0 && servernode < MAXNETNODES)
+ {
+ nodeingame[(UINT8)servernode] = false;
+ Net_CloseConnection(servernode);
+ }
+ D_CloseConnection(); // netgame = false
+ multiplayer = false;
+ servernode = 0;
+ server = true;
+ doomcom->numnodes = 1;
+ doomcom->numslots = 1;
+ SV_StopServer();
+ SV_ResetServer();
+ CV_RevertNetVars();
+
+ // make sure we don't leave any fileneeded gunk over from a failed join
+ fileneedednum = 0;
+ memset(fileneeded, 0, sizeof(fileneeded));
+
+ // D_StartTitle should get done now, but the calling function will handle it
+}
+
+#ifndef NONET
+static void Command_GetPlayerNum(void)
+{
+ INT32 i;
+
+ for (i = 0; i < MAXPLAYERS; i++)
+ if (playeringame[i])
+ {
+ if (serverplayer == i)
+ CONS_Printf(M_GetText("num:%2d node:%2d %s\n"), i, playernode[i], player_names[i]);
+ else
+ CONS_Printf(M_GetText("\x82num:%2d node:%2d %s\n"), i, playernode[i], player_names[i]);
+ }
+}
+
+SINT8 nametonum(const char *name)
+{
+ INT32 playernum, i;
+
+ if (!strcmp(name, "0"))
+ return 0;
+
+ playernum = (SINT8)atoi(name);
+
+ if (playernum < 0 || playernum >= MAXPLAYERS)
+ return -1;
+
+ if (playernum)
+ {
+ if (playeringame[playernum])
+ return (SINT8)playernum;
+ else
+ return -1;
+ }
+
+ for (i = 0; i < MAXPLAYERS; i++)
+ if (playeringame[i] && !stricmp(player_names[i], name))
+ return (SINT8)i;
+
+ CONS_Printf(M_GetText("There is no player named \"%s\"\n"), name);
+
+ return -1;
+}
+
+/** Lists all players and their player numbers.
+ *
+ * \sa Command_GetPlayerNum
+ */
+static void Command_Nodes(void)
+{
+ INT32 i;
+ size_t maxlen = 0;
+ const char *address;
+
+ for (i = 0; i < MAXPLAYERS; i++)
+ {
+ const size_t plen = strlen(player_names[i]);
+ if (playeringame[i] && plen > maxlen)
+ maxlen = plen;
+ }
+
+ for (i = 0; i < MAXPLAYERS; i++)
+ {
+ if (playeringame[i])
+ {
+ CONS_Printf("%.2u: %*s", i, (int)maxlen, player_names[i]);
+
+ if (playernode[i] != UINT8_MAX)
+ {
+ CONS_Printf(" - node %.2d", playernode[i]);
+ if (I_GetNodeAddress && (address = I_GetNodeAddress(playernode[i])) != NULL)
+ CONS_Printf(" - %s", address);
+ }
+
+ if (IsPlayerAdmin(i))
+ CONS_Printf(M_GetText(" (verified admin)"));
+
+ if (players[i].spectator)
+ CONS_Printf(M_GetText(" (spectator)"));
+
+ CONS_Printf("\n");
+ }
+ }
+}
+
+static void Command_Ban(void)
+{
+ if (COM_Argc() < 2)
+ {
+ CONS_Printf(M_GetText("Ban <playername/playernum> <reason>: ban and kick a player\n"));
+ return;
+ }
+
+ if (!netgame) // Don't kick Tails in splitscreen!
+ {
+ CONS_Printf(M_GetText("This only works in a netgame.\n"));
+ return;
+ }
+
+ if (server || IsPlayerAdmin(consoleplayer))
+ {
+ UINT8 buf[3 + MAX_REASONLENGTH];
+ UINT8 *p = buf;
+ const SINT8 pn = nametonum(COM_Argv(1));
+ const INT32 node = playernode[(INT32)pn];
+
+ if (pn == -1 || pn == 0)
+ return;
+
+ WRITEUINT8(p, pn);
+
+ if (server && I_Ban && !I_Ban(node)) // only the server is allowed to do this right now
+ {
+ CONS_Alert(CONS_WARNING, M_GetText("Too many bans! Geez, that's a lot of people you're excluding...\n"));
+ WRITEUINT8(p, KICK_MSG_GO_AWAY);
+ SendNetXCmd(XD_KICK, &buf, 2);
+ }
+ else
+ {
+ if (server) // only the server is allowed to do this right now
+ {
+ Ban_Add(COM_Argv(2));
+ D_SaveBan(); // save the ban list
+ }
+
+ if (COM_Argc() == 2)
+ {
+ WRITEUINT8(p, KICK_MSG_BANNED);
+ SendNetXCmd(XD_KICK, &buf, 2);
+ }
+ else
+ {
+ size_t i, j = COM_Argc();
+ char message[MAX_REASONLENGTH];
+
+ //Steal from the motd code so you don't have to put the reason in quotes.
+ strlcpy(message, COM_Argv(2), sizeof message);
+ for (i = 3; i < j; i++)
+ {
+ strlcat(message, " ", sizeof message);
+ strlcat(message, COM_Argv(i), sizeof message);
+ }
+
+ WRITEUINT8(p, KICK_MSG_CUSTOM_BAN);
+ WRITESTRINGN(p, message, MAX_REASONLENGTH);
+ SendNetXCmd(XD_KICK, &buf, p - buf);
+ }
+ }
+ }
+ else
+ CONS_Printf(M_GetText("Only the server or a remote admin can use this.\n"));
+
+}
+
+static void Command_BanIP(void)
+{
+ if (COM_Argc() < 2)
+ {
+ CONS_Printf(M_GetText("banip <ip> <reason>: ban an ip address\n"));
+ return;
+ }
+
+ if (server) // Only the server can use this, otherwise does nothing.
+ {
+ const char *address = (COM_Argv(1));
+ const char *reason;
+
+ if (COM_Argc() == 2)
+ reason = NULL;
+ else
+ reason = COM_Argv(2);
+
+
+ if (I_SetBanAddress && I_SetBanAddress(address, NULL))
+ {
+ if (reason)
+ CONS_Printf("Banned IP address %s for: %s\n", address, reason);
+ else
+ CONS_Printf("Banned IP address %s\n", address);
+
+ Ban_Add(reason);
+ D_SaveBan();
+ }
+ else
+ {
+ return;
+ }
+ }
+}
+
+static void Command_Kick(void)
+{
+ if (COM_Argc() < 2)
+ {
+ CONS_Printf(M_GetText("kick <playername/playernum> <reason>: kick a player\n"));
+ return;
+ }
+
+ //if (!netgame) // Don't kick Tails in splitscreen!
+ //{
+ // CONS_Printf(M_GetText("This only works in a netgame.\n"));
+ // return;
+ //}
+
+ if (server || IsPlayerAdmin(consoleplayer))
+ {
+ UINT8 buf[3 + MAX_REASONLENGTH];
+ UINT8 *p = buf;
+ const SINT8 pn = nametonum(COM_Argv(1));
+
+ if (splitscreen && (pn == 0 || pn == 1))
+ {
+ CONS_Printf(M_GetText("Splitscreen players cannot be kicked.\n"));
+ return;
+ }
+ if (pn == -1 || pn == 0)
+ return;
+
+ // Special case if we are trying to kick a player who is downloading the game state:
+ // trigger a timeout instead of kicking them, because a kick would only
+ // take effect after they have finished downloading
+ if (server && playernode[pn] != UINT8_MAX && sendingsavegame[playernode[pn]])
+ {
+ Net_ConnectionTimeout(playernode[pn]);
+ return;
+ }
+
+ WRITESINT8(p, pn);
+
+ if (COM_Argc() == 2)
+ {
+ WRITEUINT8(p, KICK_MSG_GO_AWAY);
+ SendNetXCmd(XD_KICK, &buf, 2);
+ }
+ else
+ {
+ size_t i, j = COM_Argc();
+ char message[MAX_REASONLENGTH];
+
+ //Steal from the motd code so you don't have to put the reason in quotes.
+ strlcpy(message, COM_Argv(2), sizeof message);
+ for (i = 3; i < j; i++)
+ {
+ strlcat(message, " ", sizeof message);
+ strlcat(message, COM_Argv(i), sizeof message);
+ }
+
+ WRITEUINT8(p, KICK_MSG_CUSTOM_KICK);
+ WRITESTRINGN(p, message, MAX_REASONLENGTH);
+ SendNetXCmd(XD_KICK, &buf, p - buf);
+ }
+ }
+ else
+ CONS_Printf(M_GetText("Only the server or a remote admin can use this.\n"));
+}
+#endif
+
+static void Got_KickCmd(UINT8 **p, INT32 playernum)
+{
+ INT32 pnum, msg;
+ char buf[3 + MAX_REASONLENGTH];
+ char *reason = buf;
+ kickreason_t kickreason = KR_KICK;
+ boolean keepbody;
+
+ pnum = READUINT8(*p);
+ msg = READUINT8(*p);
+ keepbody = (msg & KICK_MSG_KEEP_BODY) != 0;
+ msg &= ~KICK_MSG_KEEP_BODY;
+
+ if (pnum == serverplayer && IsPlayerAdmin(playernum))
+ {
+ CONS_Printf(M_GetText("Server is being shut down remotely. Goodbye!\n"));
+
+ if (server)
+ COM_BufAddText("quit\n");
+
+ return;
+ }
+
+ // Is playernum authorized to make this kick?
+ if (playernum != serverplayer && !IsPlayerAdmin(playernum)
+ && !(playernode[playernum] != UINT8_MAX && playerpernode[playernode[playernum]] == 2
+ && nodetoplayer2[playernode[playernum]] == pnum))
+ {
+ // We received a kick command from someone who isn't the
+ // server or admin, and who isn't in splitscreen removing
+ // player 2. Thus, it must be someone with a modified
+ // binary, trying to kick someone but without having
+ // authorization.
+
+ // We deal with this by changing the kick reason to
+ // "consistency failure" and kicking the offending user
+ // instead.
+
+ // Note: Splitscreen in netgames is broken because of
+ // this. Only the server has any idea of which players
+ // are using splitscreen on the same computer, so
+ // clients cannot always determine if a kick is
+ // legitimate.
+
+ CONS_Alert(CONS_WARNING, M_GetText("Illegal kick command received from %s for player %d\n"), player_names[playernum], pnum);
+
+ // In debug, print a longer message with more details.
+ // TODO Callum: Should we translate this?
+/*
+ CONS_Debug(DBG_NETPLAY,
+ "So, you must be asking, why is this an illegal kick?\n"
+ "Well, let's take a look at the facts, shall we?\n"
+ "\n"
+ "playernum (this is the guy who did it), he's %d.\n"
+ "pnum (the guy he's trying to kick) is %d.\n"
+ "playernum's node is %d.\n"
+ "That node has %d players.\n"
+ "Player 2 on that node is %d.\n"
+ "pnum's node is %d.\n"
+ "That node has %d players.\n"
+ "Player 2 on that node is %d.\n"
+ "\n"
+ "If you think this is a bug, please report it, including all of the details above.\n",
+ playernum, pnum,
+ playernode[playernum], playerpernode[playernode[playernum]],
+ nodetoplayer2[playernode[playernum]],
+ playernode[pnum], playerpernode[playernode[pnum]],
+ nodetoplayer2[playernode[pnum]]);
+*/
+ pnum = playernum;
+ msg = KICK_MSG_CON_FAIL;
+ keepbody = true;
+ }
+
+ //CONS_Printf("\x82%s ", player_names[pnum]);
+
+ // If a verified admin banned someone, the server needs to know about it.
+ // If the playernum isn't zero (the server) then the server needs to record the ban.
+ if (server && playernum && (msg == KICK_MSG_BANNED || msg == KICK_MSG_CUSTOM_BAN))
+ {
+ if (I_Ban && !I_Ban(playernode[(INT32)pnum]))
+ CONS_Alert(CONS_WARNING, M_GetText("Too many bans! Geez, that's a lot of people you're excluding...\n"));
+#ifndef NONET
+ else
+ Ban_Add(reason);
+#endif
+ }
+
+ switch (msg)
+ {
+ case KICK_MSG_GO_AWAY:
+ if (!players[pnum].quittime)
+ HU_AddChatText(va("\x82*%s has been kicked (Go away)", player_names[pnum]), false);
+ kickreason = KR_KICK;
+ break;
+ case KICK_MSG_PING_HIGH:
+ HU_AddChatText(va("\x82*%s left the game (Broke ping limit)", player_names[pnum]), false);
+ kickreason = KR_PINGLIMIT;
+ break;
+ case KICK_MSG_CON_FAIL:
+ HU_AddChatText(va("\x82*%s left the game (Synch Failure)", player_names[pnum]), false);
+ kickreason = KR_SYNCH;
+
+ if (M_CheckParm("-consisdump")) // Helps debugging some problems
+ {
+ INT32 i;
+
+ CONS_Printf(M_GetText("Player kicked is #%d, dumping consistency...\n"), pnum);
+
+ for (i = 0; i < MAXPLAYERS; i++)
+ {
+ if (!playeringame[i])
+ continue;
+ CONS_Printf("-------------------------------------\n");
+ CONS_Printf("Player %d: %s\n", i, player_names[i]);
+ CONS_Printf("Skin: %d\n", players[i].skin);
+ CONS_Printf("Color: %d\n", players[i].skincolor);
+ CONS_Printf("Speed: %d\n",players[i].speed>>FRACBITS);
+ if (players[i].mo)
+ {
+ if (!players[i].mo->skin)
+ CONS_Printf("Mobj skin: NULL!\n");
+ else
+ CONS_Printf("Mobj skin: %s\n", ((skin_t *)players[i].mo->skin)->name);
+ CONS_Printf("Position: %d, %d, %d\n", players[i].mo->x, players[i].mo->y, players[i].mo->z);
+ if (!players[i].mo->state)
+ CONS_Printf("State: S_NULL\n");
+ else
+ CONS_Printf("State: %d\n", (statenum_t)(players[i].mo->state-states));
+ }
+ else
+ CONS_Printf("Mobj: NULL\n");
+ CONS_Printf("-------------------------------------\n");
+ }
+ }
+ break;
+ case KICK_MSG_TIMEOUT:
+ HU_AddChatText(va("\x82*%s left the game (Connection timeout)", player_names[pnum]), false);
+ kickreason = KR_TIMEOUT;
+ break;
+ case KICK_MSG_PLAYER_QUIT:
+ if (netgame && !players[pnum].quittime) // not splitscreen/bots or soulless body
+ HU_AddChatText(va("\x82*%s left the game", player_names[pnum]), false);
+ kickreason = KR_LEAVE;
+ break;
+ case KICK_MSG_BANNED:
+ HU_AddChatText(va("\x82*%s has been banned (Don't come back)", player_names[pnum]), false);
+ kickreason = KR_BAN;
+ break;
+ case KICK_MSG_CUSTOM_KICK:
+ READSTRINGN(*p, reason, MAX_REASONLENGTH+1);
+ HU_AddChatText(va("\x82*%s has been kicked (%s)", player_names[pnum], reason), false);
+ kickreason = KR_KICK;
+ break;
+ case KICK_MSG_CUSTOM_BAN:
+ READSTRINGN(*p, reason, MAX_REASONLENGTH+1);
+ HU_AddChatText(va("\x82*%s has been banned (%s)", player_names[pnum], reason), false);
+ kickreason = KR_BAN;
+ break;
+ }
+
+ if (pnum == consoleplayer)
+ {
+ if (Playing())
+ LUAh_GameQuit();
+#ifdef DUMPCONSISTENCY
+ if (msg == KICK_MSG_CON_FAIL) SV_SavedGame();
+#endif
+ D_QuitNetGame();
+ CL_Reset();
+ D_StartTitle();
+ if (msg == KICK_MSG_CON_FAIL)
+ M_StartMessage(M_GetText("Server closed connection\n(synch failure)\nPress ESC\n"), NULL, MM_NOTHING);
+ else if (msg == KICK_MSG_PING_HIGH)
+ M_StartMessage(M_GetText("Server closed connection\n(Broke ping limit)\nPress ESC\n"), NULL, MM_NOTHING);
+ else if (msg == KICK_MSG_BANNED)
+ M_StartMessage(M_GetText("You have been banned by the server\n\nPress ESC\n"), NULL, MM_NOTHING);
+ else if (msg == KICK_MSG_CUSTOM_KICK)
+ M_StartMessage(va(M_GetText("You have been kicked\n(%s)\nPress ESC\n"), reason), NULL, MM_NOTHING);
+ else if (msg == KICK_MSG_CUSTOM_BAN)
+ M_StartMessage(va(M_GetText("You have been banned\n(%s)\nPress ESC\n"), reason), NULL, MM_NOTHING);
+ else
+ M_StartMessage(M_GetText("You have been kicked by the server\n\nPress ESC\n"), NULL, MM_NOTHING);
+ }
+ else if (keepbody)
+ {
+ if (server && !demoplayback && playernode[pnum] != UINT8_MAX)
+ {
+ INT32 node = playernode[pnum];
+ playerpernode[node]--;
+ if (playerpernode[node] <= 0)
+ {
+ nodeingame[node] = false;
+ Net_CloseConnection(node);
+ ResetNode(node);
+ }
+ }
+
+ playernode[pnum] = UINT8_MAX;
+
+ players[pnum].quittime = 1;
+ }
+ else
+ CL_RemovePlayer(pnum, kickreason);
+}
+
+static void Command_ResendGamestate(void)
+{
+ SINT8 playernum;
+
+ if (COM_Argc() == 1)
+ {
+ CONS_Printf(M_GetText("resendgamestate <playername/playernum>: resend the game state to a player\n"));
+ return;
+ }
+ else if (client)
+ {
+ CONS_Printf(M_GetText("Only the server can use this.\n"));
+ return;
+ }
+
+ playernum = nametonum(COM_Argv(1));
+ if (playernum == -1 || playernum == 0)
+ return;
+
+ // Send a PT_WILLRESENDGAMESTATE packet to the client so they know what's going on
+ netbuffer->packettype = PT_WILLRESENDGAMESTATE;
+ if (!HSendPacket(playernode[playernum], true, 0, 0))
+ {
+ CONS_Alert(CONS_ERROR, M_GetText("A problem occured, please try again.\n"));
+ return;
+ }
+}
+
+static CV_PossibleValue_t netticbuffer_cons_t[] = {{0, "MIN"}, {3, "MAX"}, {0, NULL}};
+consvar_t cv_netticbuffer = CVAR_INIT ("netticbuffer", "1", CV_SAVE, netticbuffer_cons_t, NULL);
+
+consvar_t cv_allownewplayer = CVAR_INIT ("allowjoin", "On", CV_SAVE|CV_NETVAR, CV_OnOff, NULL);
+consvar_t cv_joinnextround = CVAR_INIT ("joinnextround", "Off", CV_SAVE|CV_NETVAR, CV_OnOff, NULL); /// \todo not done
+static CV_PossibleValue_t maxplayers_cons_t[] = {{2, "MIN"}, {32, "MAX"}, {0, NULL}};
+consvar_t cv_maxplayers = CVAR_INIT ("maxplayers", "8", CV_SAVE|CV_NETVAR, maxplayers_cons_t, NULL);
+static CV_PossibleValue_t joindelay_cons_t[] = {{1, "MIN"}, {3600, "MAX"}, {0, "Off"}, {0, NULL}};
+consvar_t cv_joindelay = CVAR_INIT ("joindelay", "10", CV_SAVE|CV_NETVAR, joindelay_cons_t, NULL);
+static CV_PossibleValue_t rejointimeout_cons_t[] = {{1, "MIN"}, {60 * FRACUNIT, "MAX"}, {0, "Off"}, {0, NULL}};
+consvar_t cv_rejointimeout = CVAR_INIT ("rejointimeout", "Off", CV_SAVE|CV_NETVAR|CV_FLOAT, rejointimeout_cons_t, NULL);
+
+static CV_PossibleValue_t resynchattempts_cons_t[] = {{1, "MIN"}, {20, "MAX"}, {0, "No"}, {0, NULL}};
+consvar_t cv_resynchattempts = CVAR_INIT ("resynchattempts", "10", CV_SAVE|CV_NETVAR, resynchattempts_cons_t, NULL);
+consvar_t cv_blamecfail = CVAR_INIT ("blamecfail", "Off", CV_SAVE|CV_NETVAR, CV_OnOff, NULL);
+
+// max file size to send to a player (in kilobytes)
+static CV_PossibleValue_t maxsend_cons_t[] = {{0, "MIN"}, {51200, "MAX"}, {0, NULL}};
+consvar_t cv_maxsend = CVAR_INIT ("maxsend", "4096", CV_SAVE|CV_NETVAR, maxsend_cons_t, NULL);
+consvar_t cv_noticedownload = CVAR_INIT ("noticedownload", "Off", CV_SAVE|CV_NETVAR, CV_OnOff, NULL);
+
+// Speed of file downloading (in packets per tic)
+static CV_PossibleValue_t downloadspeed_cons_t[] = {{0, "MIN"}, {32, "MAX"}, {0, NULL}};
+consvar_t cv_downloadspeed = CVAR_INIT ("downloadspeed", "16", CV_SAVE|CV_NETVAR, downloadspeed_cons_t, NULL);
+
+static void Got_AddPlayer(UINT8 **p, INT32 playernum);
+
+// called one time at init
+void D_ClientServerInit(void)
+{
+ DEBFILE(va("- - -== SRB2 v%d.%.2d.%d "VERSIONSTRING" debugfile ==- - -\n",
+ VERSION/100, VERSION%100, SUBVERSION));
+
+#ifndef NONET
+ COM_AddCommand("getplayernum", Command_GetPlayerNum);
+ COM_AddCommand("kick", Command_Kick);
+ COM_AddCommand("ban", Command_Ban);
+ COM_AddCommand("banip", Command_BanIP);
+ COM_AddCommand("clearbans", Command_ClearBans);
+ COM_AddCommand("showbanlist", Command_ShowBan);
+ COM_AddCommand("reloadbans", Command_ReloadBan);
+ COM_AddCommand("connect", Command_connect);
+ COM_AddCommand("nodes", Command_Nodes);
+ COM_AddCommand("resendgamestate", Command_ResendGamestate);
+#ifdef PACKETDROP
+ COM_AddCommand("drop", Command_Drop);
+ COM_AddCommand("droprate", Command_Droprate);
+#endif
+#ifdef _DEBUG
+ COM_AddCommand("numnodes", Command_Numnodes);
+#endif
+#endif
+
+ RegisterNetXCmd(XD_KICK, Got_KickCmd);
+ RegisterNetXCmd(XD_ADDPLAYER, Got_AddPlayer);
+#ifndef NONET
+#ifdef DUMPCONSISTENCY
+ CV_RegisterVar(&cv_dumpconsistency);
+#endif
+ Ban_Load_File(false);
+#endif
+
+ gametic = 0;
+ localgametic = 0;
+
+ // do not send anything before the real begin
+ SV_StopServer();
+ SV_ResetServer();
+ if (dedicated)
+ SV_SpawnServer();
+}
+
+static void ResetNode(INT32 node)
+{
+ nodeingame[node] = false;
+ nodewaiting[node] = 0;
+
+ nettics[node] = gametic;
+ supposedtics[node] = gametic;
+
+ nodetoplayer[node] = -1;
+ nodetoplayer2[node] = -1;
+ playerpernode[node] = 0;
+
+ sendingsavegame[node] = false;
+ resendingsavegame[node] = false;
+ savegameresendcooldown[node] = 0;
+}
+
+void SV_ResetServer(void)
+{
+ INT32 i;
+
+ // +1 because this command will be executed in com_executebuffer in
+ // tryruntic so gametic will be incremented, anyway maketic > gametic
+ // is not an issue
+
+ maketic = gametic + 1;
+ neededtic = maketic;
+ tictoclear = maketic;
+
+ joindelay = 0;
+
+ for (i = 0; i < MAXNETNODES; i++)
+ ResetNode(i);
+
+ for (i = 0; i < MAXPLAYERS; i++)
+ {
+ LUA_InvalidatePlayer(&players[i]);
+ playeringame[i] = false;
+ playernode[i] = UINT8_MAX;
+ memset(playeraddress[i], 0, sizeof(*playeraddress));
+ sprintf(player_names[i], "Player %d", i + 1);
+ adminplayers[i] = -1; // Populate the entire adminplayers array with -1.
+ }
+
+ memset(player_name_changes, 0, sizeof player_name_changes);
+
+ mynode = 0;
+ cl_packetmissed = false;
+ cl_redownloadinggamestate = false;
+
+ if (dedicated)
+ {
+ nodeingame[0] = true;
+ serverplayer = 0;
+ }
+ else
+ serverplayer = consoleplayer;
+
+ if (server)
+ servernode = 0;
+
+ doomcom->numslots = 0;
+
+ // clear server_context
+ memset(server_context, '-', 8);
+
+ DEBFILE("\n-=-=-=-=-=-=-= Server Reset =-=-=-=-=-=-=-\n\n");
+}
+
+static inline void SV_GenContext(void)
+{
+ UINT8 i;
+ // generate server_context, as exactly 8 bytes of randomly mixed A-Z and a-z
+ // (hopefully M_Random is initialized!! if not this will be awfully silly!)
+ for (i = 0; i < 8; i++)
+ {
+ const char a = M_RandomKey(26*2);
+ if (a < 26) // uppercase
+ server_context[i] = 'A'+a;
+ else // lowercase
+ server_context[i] = 'a'+(a-26);
+ }
+}
+
+//
+// D_QuitNetGame
+// Called before quitting to leave a net game
+// without hanging the other players
+//
+void D_QuitNetGame(void)
+{
+ if (!netgame || !netbuffer)
+ return;
+
+ DEBFILE("===========================================================================\n"
+ " Quitting Game, closing connection\n"
+ "===========================================================================\n");
+
+ // abort send/receive of files
+ CloseNetFile();
+ RemoveAllLuaFileTransfers();
+ waitingforluafiletransfer = false;
+ waitingforluafilecommand = false;
+
+ if (server)
+ {
+ INT32 i;
+
+ netbuffer->packettype = PT_SERVERSHUTDOWN;
+ for (i = 0; i < MAXNETNODES; i++)
+ if (nodeingame[i])
+ HSendPacket(i, true, 0, 0);
+#ifdef MASTERSERVER
+ if (serverrunning && ms_RoomId > 0)
+ UnregisterServer();
+#endif
+ }
+ else if (servernode > 0 && servernode < MAXNETNODES && nodeingame[(UINT8)servernode])
+ {
+ netbuffer->packettype = PT_CLIENTQUIT;
+ HSendPacket(servernode, true, 0, 0);
+ }
+
+ D_CloseConnection();
+ ClearAdminPlayers();
+
+ DEBFILE("===========================================================================\n"
+ " Log finish\n"
+ "===========================================================================\n");
+#ifdef DEBUGFILE
+ if (debugfile)
+ {
+ fclose(debugfile);
+ debugfile = NULL;
+ }
+#endif
+}
+
+// Adds a node to the game (player will follow at map change or at savegame....)
+static inline void SV_AddNode(INT32 node)
+{
+ nettics[node] = gametic;
+ supposedtics[node] = gametic;
+ // little hack because the server connects to itself and puts
+ // nodeingame when connected not here
+ if (node)
+ nodeingame[node] = true;
+}
+
+// Xcmd XD_ADDPLAYER
+static void Got_AddPlayer(UINT8 **p, INT32 playernum)
+{
+ INT16 node, newplayernum;
+ boolean splitscreenplayer;
+ boolean rejoined;
+ player_t *newplayer;
+
+ if (playernum != serverplayer && !IsPlayerAdmin(playernum))
+ {
+ // protect against hacked/buggy client
+ CONS_Alert(CONS_WARNING, M_GetText("Illegal add player command received from %s\n"), player_names[playernum]);
+ if (server)
+ SendKick(playernum, KICK_MSG_CON_FAIL | KICK_MSG_KEEP_BODY);
+ return;
+ }
+
+ node = READUINT8(*p);
+ newplayernum = READUINT8(*p);
+ splitscreenplayer = newplayernum & 0x80;
+ newplayernum &= ~0x80;
+
+ rejoined = playeringame[newplayernum];
+
+ if (!rejoined)
+ {
+ // Clear player before joining, lest some things get set incorrectly
+ // HACK: don't do this for splitscreen, it relies on preset values
+ if (!splitscreen && !botingame)
+ CL_ClearPlayer(newplayernum);
+ playeringame[newplayernum] = true;
+ G_AddPlayer(newplayernum);
+ if (newplayernum+1 > doomcom->numslots)
+ doomcom->numslots = (INT16)(newplayernum+1);
+
+ if (server && I_GetNodeAddress)
+ {
+ const char *address = I_GetNodeAddress(node);
+ char *port = NULL;
+ if (address) // MI: fix msvcrt.dll!_mbscat crash?
+ {
+ strcpy(playeraddress[newplayernum], address);
+ port = strchr(playeraddress[newplayernum], ':');
+ if (port)
+ *port = '\0';
+ }
+ }
+ }
+
+ newplayer = &players[newplayernum];
+
+ newplayer->jointime = 0;
+ newplayer->quittime = 0;
+
+ READSTRINGN(*p, player_names[newplayernum], MAXPLAYERNAME);
+
+ // the server is creating my player
+ if (node == mynode)
+ {
+ playernode[newplayernum] = 0; // for information only
+ if (!splitscreenplayer)
+ {
+ consoleplayer = newplayernum;
+ displayplayer = newplayernum;
+ secondarydisplayplayer = newplayernum;
+ DEBFILE("spawning me\n");
+ ticcmd_oldangleturn[0] = newplayer->oldrelangleturn;
+ }
+ else
+ {
+ secondarydisplayplayer = newplayernum;
+ DEBFILE("spawning my brother\n");
+ if (botingame)
+ newplayer->bot = 1;
+ ticcmd_oldangleturn[1] = newplayer->oldrelangleturn;
+ }
+ P_ForceLocalAngle(newplayer, (angle_t)(newplayer->angleturn << 16));
+ D_SendPlayerConfig();
+ addedtogame = true;
+
+ if (rejoined)
+ {
+ if (newplayer->mo)
+ {
+ newplayer->viewheight = 41*newplayer->height/48;
+
+ if (newplayer->mo->eflags & MFE_VERTICALFLIP)
+ newplayer->viewz = newplayer->mo->z + newplayer->mo->height - newplayer->viewheight;
+ else
+ newplayer->viewz = newplayer->mo->z + newplayer->viewheight;
+ }
+
+ // wake up the status bar
+ ST_Start();
+ // wake up the heads up text
+ HU_Start();
+
+ if (camera.chase && !splitscreenplayer)
+ P_ResetCamera(newplayer, &camera);
+ if (camera2.chase && splitscreenplayer)
+ P_ResetCamera(newplayer, &camera2);
+ }
+ }
+
+ if (netgame)
+ {
+ char joinmsg[256];
+
+ if (rejoined)
+ strcpy(joinmsg, M_GetText("\x82*%s has rejoined the game (player %d)"));
+ else
+ strcpy(joinmsg, M_GetText("\x82*%s has joined the game (player %d)"));
+ strcpy(joinmsg, va(joinmsg, player_names[newplayernum], newplayernum));
+
+ // Merge join notification + IP to avoid clogging console/chat
+ if (server && cv_showjoinaddress.value && I_GetNodeAddress)
+ {
+ const char *address = I_GetNodeAddress(node);
+ if (address)
+ strcat(joinmsg, va(" (%s)", address));
+ }
+
+ HU_AddChatText(joinmsg, false);
+ }
+
+ if (server && multiplayer && motd[0] != '\0')
+ COM_BufAddText(va("sayto %d %s\n", newplayernum, motd));
+
+ if (!rejoined)
+ LUAh_PlayerJoin(newplayernum);
+}
+
+static boolean SV_AddWaitingPlayers(const char *name, const char *name2)
+{
+ INT32 node, n, newplayer = false;
+ UINT8 buf[2 + MAXPLAYERNAME];
+ UINT8 *p;
+ INT32 newplayernum;
+
+ for (node = 0; node < MAXNETNODES; node++)
+ {
+ // splitscreen can allow 2 player in one node
+ for (; nodewaiting[node] > 0; nodewaiting[node]--)
+ {
+ newplayer = true;
+
+ newplayernum = FindRejoinerNum(node);
+ if (newplayernum == -1)
+ {
+ // search for a free playernum
+ // we can't use playeringame since it is not updated here
+ for (newplayernum = dedicated ? 1 : 0; newplayernum < MAXPLAYERS; newplayernum++)
+ {
+ if (playeringame[newplayernum])
+ continue;
+ for (n = 0; n < MAXNETNODES; n++)
+ if (nodetoplayer[n] == newplayernum || nodetoplayer2[n] == newplayernum)
+ break;
+ if (n == MAXNETNODES)
+ break;
+ }
+ }
+
+ // should never happen since we check the playernum
+ // before accepting the join
+ I_Assert(newplayernum < MAXPLAYERS);
+
+ playernode[newplayernum] = (UINT8)node;
+
+ p = buf + 2;
+ buf[0] = (UINT8)node;
+ buf[1] = newplayernum;
+ if (playerpernode[node] < 1)
+ {
+ nodetoplayer[node] = newplayernum;
+ WRITESTRINGN(p, name, MAXPLAYERNAME);
+ }
+ else
+ {
+ nodetoplayer2[node] = newplayernum;
+ buf[1] |= 0x80;
+ WRITESTRINGN(p, name2, MAXPLAYERNAME);
+ }
+ playerpernode[node]++;
+
+ SendNetXCmd(XD_ADDPLAYER, &buf, p - buf);
+
+ DEBFILE(va("Server added player %d node %d\n", newplayernum, node));
+ }
+ }
+
+ return newplayer;
+}
+
+void CL_AddSplitscreenPlayer(void)
+{
+ if (cl_mode == CL_CONNECTED)
+ CL_SendJoin();
+}
+
+void CL_RemoveSplitscreenPlayer(void)
+{
+ if (cl_mode != CL_CONNECTED)
+ return;
+
+ SendKick(secondarydisplayplayer, KICK_MSG_PLAYER_QUIT);
+}
+
+// is there a game running
+boolean Playing(void)
+{
+ return (server && serverrunning) || (client && cl_mode == CL_CONNECTED);
+}
+
+boolean SV_SpawnServer(void)
+{
+ if (demoplayback)
+ G_StopDemo(); // reset engine parameter
+ if (metalplayback)
+ G_StopMetalDemo();
+
+ if (!serverrunning)
+ {
+ CONS_Printf(M_GetText("Starting Server....\n"));
+ serverrunning = true;
+ SV_ResetServer();
+ SV_GenContext();
+ if (netgame && I_NetOpenSocket)
+ {
+ I_NetOpenSocket();
+#ifdef MASTERSERVER
+ if (ms_RoomId > 0)
+ RegisterServer();
+#endif
+ }
+
+ // non dedicated server just connect to itself
+ if (!dedicated)
+ CL_ConnectToServer();
+ else doomcom->numslots = 1;
+ }
+
+ return SV_AddWaitingPlayers(cv_playername.zstring, cv_playername2.zstring);
+}
+
+void SV_StopServer(void)
+{
+ tic_t i;
+
+ if (gamestate == GS_INTERMISSION)
+ Y_EndIntermission();
+ gamestate = wipegamestate = GS_NULL;
+
+ localtextcmd[0] = 0;
+ localtextcmd2[0] = 0;
+
+ for (i = firstticstosend; i < firstticstosend + BACKUPTICS; i++)
+ D_Clearticcmd(i);
+
+ consoleplayer = 0;
+ cl_mode = CL_SEARCHING;
+ maketic = gametic+1;
+ neededtic = maketic;
+ serverrunning = false;
+}
+
+// called at singleplayer start and stopdemo
+void SV_StartSinglePlayerServer(void)
+{
+ server = true;
+ netgame = false;
+ multiplayer = false;
+ G_SetGametype(GT_COOP);
+
+ // no more tic the game with this settings!
+ SV_StopServer();
+
+ if (splitscreen)
+ multiplayer = true;
+}
+
+static void SV_SendRefuse(INT32 node, const char *reason)
+{
+ strcpy(netbuffer->u.serverrefuse.reason, reason);
+
+ netbuffer->packettype = PT_SERVERREFUSE;
+ HSendPacket(node, true, 0, strlen(netbuffer->u.serverrefuse.reason) + 1);
+ Net_CloseConnection(node);
+}
+
+// used at txtcmds received to check packetsize bound
+static size_t TotalTextCmdPerTic(tic_t tic)
+{
+ INT32 i;
+ size_t total = 1; // num of textcmds in the tic (ntextcmd byte)
+
+ for (i = 0; i < MAXPLAYERS; i++)
+ {
+ UINT8 *textcmd = D_GetExistingTextcmd(tic, i);
+ if ((!i || playeringame[i]) && textcmd)
+ total += 2 + textcmd[0]; // "+2" for size and playernum
+ }
+
+ return total;
+}
+
+/** Called when a PT_CLIENTJOIN packet is received
+ *
+ * \param node The packet sender
+ *
+ */
+static void HandleConnect(SINT8 node)
+{
+ char names[MAXSPLITSCREENPLAYERS][MAXPLAYERNAME + 1];
+ INT32 rejoinernum;
+ INT32 i;
+
+ rejoinernum = FindRejoinerNum(node);
+
+ if (bannednode && bannednode[node])
+ SV_SendRefuse(node, M_GetText("You have been banned\nfrom the server."));
+ else if (netbuffer->u.clientcfg._255 != 255 ||
+ netbuffer->u.clientcfg.packetversion != PACKETVERSION)
+ SV_SendRefuse(node, "Incompatible packet formats.");
+ else if (strncmp(netbuffer->u.clientcfg.application, SRB2APPLICATION,
+ sizeof netbuffer->u.clientcfg.application))
+ SV_SendRefuse(node, "Different SRB2 modifications\nare not compatible.");
+ else if (netbuffer->u.clientcfg.version != VERSION
+ || netbuffer->u.clientcfg.subversion != SUBVERSION)
+ SV_SendRefuse(node, va(M_GetText("Different SRB2 versions cannot\nplay a netgame!\n(server version %d.%d.%d)"), VERSION/100, VERSION%100, SUBVERSION));
+ else if (!cv_allownewplayer.value && node && rejoinernum == -1)
+ SV_SendRefuse(node, M_GetText("The server is not accepting\njoins for the moment."));
+ else if (D_NumPlayers() >= cv_maxplayers.value && rejoinernum == -1)
+ SV_SendRefuse(node, va(M_GetText("Maximum players reached: %d"), cv_maxplayers.value));
+ else if (netgame && netbuffer->u.clientcfg.localplayers > 1) // Hacked client?
+ SV_SendRefuse(node, M_GetText("Too many players from\nthis node."));
+ else if (netgame && !netbuffer->u.clientcfg.localplayers) // Stealth join?
+ SV_SendRefuse(node, M_GetText("No players from\nthis node."));
+ else if (luafiletransfers)
+ SV_SendRefuse(node, M_GetText("The server is broadcasting a file\nrequested by a Lua script.\nPlease wait a bit and then\ntry rejoining."));
+ else if (netgame && joindelay > 2 * (tic_t)cv_joindelay.value * TICRATE)
+ SV_SendRefuse(node, va(M_GetText("Too many people are connecting.\nPlease wait %d seconds and then\ntry rejoining."),
+ (joindelay - 2 * cv_joindelay.value * TICRATE) / TICRATE));
+ else
+ {
+#ifndef NONET
+ boolean newnode = false;
+#endif
+
+ for (i = 0; i < netbuffer->u.clientcfg.localplayers - playerpernode[node]; i++)
+ {
+ strlcpy(names[i], netbuffer->u.clientcfg.names[i], MAXPLAYERNAME + 1);
+ if (!EnsurePlayerNameIsGood(names[i], rejoinernum))
+ {
+ SV_SendRefuse(node, "Bad player name");
+ return;
+ }
+ }
+
+ // client authorised to join
+ nodewaiting[node] = (UINT8)(netbuffer->u.clientcfg.localplayers - playerpernode[node]);
+ if (!nodeingame[node])
+ {
+ gamestate_t backupstate = gamestate;
+#ifndef NONET
+ newnode = true;
+#endif
+ SV_AddNode(node);
+
+ if (cv_joinnextround.value && gameaction == ga_nothing)
+ G_SetGamestate(GS_WAITINGPLAYERS);
+ if (!SV_SendServerConfig(node))
+ {
+ G_SetGamestate(backupstate);
+ /// \note Shouldn't SV_SendRefuse be called before ResetNode?
+ ResetNode(node);
+ SV_SendRefuse(node, M_GetText("Server couldn't send info, please try again"));
+ /// \todo fix this !!!
+ return; // restart the while
+ }
+ //if (gamestate != GS_LEVEL) // GS_INTERMISSION, etc?
+ // SV_SendPlayerConfigs(node); // send bare minimum player info
+ G_SetGamestate(backupstate);
+ DEBFILE("new node joined\n");
+ }
+#ifndef NONET
+ if (nodewaiting[node])
+ {
+ if ((gamestate == GS_LEVEL || gamestate == GS_INTERMISSION) && newnode)
+ {
+ SV_SendSaveGame(node, false); // send a complete game state
+ DEBFILE("send savegame\n");
+ }
+ SV_AddWaitingPlayers(names[0], names[1]);
+ joindelay += cv_joindelay.value * TICRATE;
+ player_joining = true;
+ }
+#endif
+ }
+}
+
+/** Called when a PT_SERVERSHUTDOWN packet is received
+ *
+ * \param node The packet sender (should be the server)
+ *
+ */
+static void HandleShutdown(SINT8 node)
+{
+ (void)node;
+ if (Playing())
+ LUAh_GameQuit();
+ D_QuitNetGame();
+ CL_Reset();
+ D_StartTitle();
+ M_StartMessage(M_GetText("Server has shutdown\n\nPress Esc\n"), NULL, MM_NOTHING);
+}
+
+/** Called when a PT_NODETIMEOUT packet is received
+ *
+ * \param node The packet sender (should be the server)
+ *
+ */
+static void HandleTimeout(SINT8 node)
+{
+ (void)node;
+ if (Playing())
+ LUAh_GameQuit();
+ D_QuitNetGame();
+ CL_Reset();
+ D_StartTitle();
+ M_StartMessage(M_GetText("Server Timeout\n\nPress Esc\n"), NULL, MM_NOTHING);
+}
+
+#ifndef NONET
+/** Called when a PT_SERVERINFO packet is received
+ *
+ * \param node The packet sender
+ * \note What happens if the packet comes from a client or something like that?
+ *
+ */
+static void HandleServerInfo(SINT8 node)
+{
+ // compute ping in ms
+ const tic_t ticnow = I_GetTime();
+ const tic_t ticthen = (tic_t)LONG(netbuffer->u.serverinfo.time);
+ const tic_t ticdiff = (ticnow - ticthen)*1000/NEWTICRATE;
+ netbuffer->u.serverinfo.time = (tic_t)LONG(ticdiff);
+ netbuffer->u.serverinfo.servername[MAXSERVERNAME-1] = 0;
+ netbuffer->u.serverinfo.application
+ [sizeof netbuffer->u.serverinfo.application - 1] = '\0';
+ netbuffer->u.serverinfo.gametypename
+ [sizeof netbuffer->u.serverinfo.gametypename - 1] = '\0';
+
+ SL_InsertServer(&netbuffer->u.serverinfo, node);
+}
+#endif
+
+static void PT_WillResendGamestate(void)
+{
+ char tmpsave[256];
+
+ if (server || cl_redownloadinggamestate)
+ return;
+
+ // Send back a PT_CANRECEIVEGAMESTATE packet to the server
+ // so they know they can start sending the game state
+ netbuffer->packettype = PT_CANRECEIVEGAMESTATE;
+ if (!HSendPacket(servernode, true, 0, 0))
+ return;
+
+ CONS_Printf(M_GetText("Reloading game state...\n"));
+
+ sprintf(tmpsave, "%s" PATHSEP TMPSAVENAME, srb2home);
+
+ // Don't get a corrupt savegame error because tmpsave already exists
+ if (FIL_FileExists(tmpsave) && unlink(tmpsave) == -1)
+ I_Error("Can't delete %s\n", tmpsave);
+
+ CL_PrepareDownloadSaveGame(tmpsave);
+
+ cl_redownloadinggamestate = true;
+}
+
+static void PT_CanReceiveGamestate(SINT8 node)
+{
+ if (client || sendingsavegame[node])
+ return;
+
+ CONS_Printf(M_GetText("Resending game state to %s...\n"), player_names[nodetoplayer[node]]);
+
+ SV_SendSaveGame(node, true); // Resend a complete game state
+ resendingsavegame[node] = true;
+}
+
+/** Handles a packet received from a node that isn't in game
+ *
+ * \param node The packet sender
+ * \todo Choose a better name, as the packet can also come from the server apparently?
+ * \sa HandlePacketFromPlayer
+ * \sa GetPackets
+ *
+ */
+static void HandlePacketFromAwayNode(SINT8 node)
+{
+ if (node != servernode)
+ DEBFILE(va("Received packet from unknown host %d\n", node));
+
+// macro for packets that should only be sent by the server
+// if it is NOT from the server, bail out and close the connection!
+#define SERVERONLY \
+ if (node != servernode) \
+ { \
+ Net_CloseConnection(node); \
+ break; \
+ }
+ switch (netbuffer->packettype)
+ {
+ case PT_ASKINFOVIAMS:
+#if 0
+ if (server && serverrunning)
+ {
+ INT32 clientnode;
+ if (ms_RoomId < 0) // ignore if we're not actually on the MS right now
+ {
+ Net_CloseConnection(node); // and yes, close connection
+ return;
+ }
+ clientnode = I_NetMakeNode(netbuffer->u.msaskinfo.clientaddr);
+ if (clientnode != -1)
+ {
+ SV_SendServerInfo(clientnode, (tic_t)LONG(netbuffer->u.msaskinfo.time));
+ SV_SendPlayerInfo(clientnode); // Send extra info
+ Net_CloseConnection(clientnode);
+ // Don't close connection to MS...
+ }
+ else
+ Net_CloseConnection(node); // ...unless the IP address is not valid
+ }
+ else
+ Net_CloseConnection(node); // you're not supposed to get it, so ignore it
+#else
+ Net_CloseConnection(node);
+#endif
+ break;
+
+ case PT_ASKINFO:
+ if (server && serverrunning)
+ {
+ SV_SendServerInfo(node, (tic_t)LONG(netbuffer->u.askinfo.time));
+ SV_SendPlayerInfo(node); // Send extra info
+ }
+ Net_CloseConnection(node);
+ break;
+
+ case PT_SERVERREFUSE: // Negative response of client join request
+ if (server && serverrunning)
+ { // But wait I thought I'm the server?
+ Net_CloseConnection(node);
+ break;
+ }
+ SERVERONLY
+ if (cl_mode == CL_WAITJOINRESPONSE)
+ {
+ // Save the reason so it can be displayed after quitting the netgame
+ char *reason = strdup(netbuffer->u.serverrefuse.reason);
+ if (!reason)
+ I_Error("Out of memory!\n");
+
+ D_QuitNetGame();
+ CL_Reset();
+ D_StartTitle();
+
+ M_StartMessage(va(M_GetText("Server refuses connection\n\nReason:\n%s"),
+ reason), NULL, MM_NOTHING);
+
+ free(reason);
+
+ // Will be reset by caller. Signals refusal.
+ cl_mode = CL_ABORTED;
+ }
+ break;
+
+ case PT_SERVERCFG: // Positive response of client join request
+ {
+ if (server && serverrunning && node != servernode)
+ { // but wait I thought I'm the server?
+ Net_CloseConnection(node);
+ break;
+ }
+ SERVERONLY
+ /// \note how would this happen? and is it doing the right thing if it does?
+ if (cl_mode != CL_WAITJOINRESPONSE)
+ break;
+
+ if (client)
+ {
+ maketic = gametic = neededtic = (tic_t)LONG(netbuffer->u.servercfg.gametic);
+ G_SetGametype(netbuffer->u.servercfg.gametype);
+ modifiedgame = netbuffer->u.servercfg.modifiedgame;
+ memcpy(server_context, netbuffer->u.servercfg.server_context, 8);
+ }
+
+ nodeingame[(UINT8)servernode] = true;
+ serverplayer = netbuffer->u.servercfg.serverplayer;
+ doomcom->numslots = SHORT(netbuffer->u.servercfg.totalslotnum);
+ mynode = netbuffer->u.servercfg.clientnode;
+ if (serverplayer >= 0)
+ playernode[(UINT8)serverplayer] = servernode;
+
+ if (netgame)
+#ifndef NONET
+ CONS_Printf(M_GetText("Join accepted, waiting for complete game state...\n"));
+#else
+ CONS_Printf(M_GetText("Join accepted, waiting for next level change...\n"));
+#endif
+ DEBFILE(va("Server accept join gametic=%u mynode=%d\n", gametic, mynode));
+
+#ifndef NONET
+ /// \note Wait. What if a Lua script uses some global custom variables synched with the NetVars hook?
+ /// Shouldn't them be downloaded even at intermission time?
+ /// Also, according to HandleConnect, the server will send the savegame even during intermission...
+ if (netbuffer->u.servercfg.gamestate == GS_LEVEL/* ||
+ netbuffer->u.servercfg.gamestate == GS_INTERMISSION*/)
+ cl_mode = CL_DOWNLOADSAVEGAME;
+ else
+#endif
+ cl_mode = CL_CONNECTED;
+ break;
+ }
+
+ // Handled in d_netfil.c
+ case PT_FILEFRAGMENT:
+ if (server)
+ { // But wait I thought I'm the server?
+ Net_CloseConnection(node);
+ break;
+ }
+ SERVERONLY
+ PT_FileFragment();
+ break;
+
+ case PT_FILEACK:
+ if (server)
+ PT_FileAck();
+ break;
+
+ case PT_FILERECEIVED:
+ if (server)
+ PT_FileReceived();
+ break;
+
+ case PT_REQUESTFILE:
+ if (server)
+ {
+ if (!cv_downloading.value || !PT_RequestFile(node))
+ Net_CloseConnection(node); // close connection if one of the requested files could not be sent, or you disabled downloading anyway
+ }
+ else
+ Net_CloseConnection(node); // nope
+ break;
+
+ case PT_NODETIMEOUT:
+ case PT_CLIENTQUIT:
+ if (server)
+ Net_CloseConnection(node);
+ break;
+
+ case PT_CLIENTCMD:
+ break; // This is not an "unknown packet"
+
+ case PT_SERVERTICS:
+ // Do not remove my own server (we have just get a out of order packet)
+ if (node == servernode)
+ break;
+ /* FALLTHRU */
+
+ default:
+ DEBFILE(va("unknown packet received (%d) from unknown host\n",netbuffer->packettype));
+ Net_CloseConnection(node);
+ break; // Ignore it
+
+ }
+#undef SERVERONLY
+}
+
+/** Handles a packet received from a node that is in game
+ *
+ * \param node The packet sender
+ * \todo Choose a better name
+ * \sa HandlePacketFromAwayNode
+ * \sa GetPackets
+ *
+ */
+static void HandlePacketFromPlayer(SINT8 node)
+{
+ INT32 netconsole;
+ tic_t realend, realstart;
+ UINT8 *pak, *txtpak, numtxtpak;
+#ifndef NOMD5
+ UINT8 finalmd5[16];/* Well, it's the cool thing to do? */
+#endif
+
+ txtpak = NULL;
+
+ if (dedicated && node == 0)
+ netconsole = 0;
+ else
+ netconsole = nodetoplayer[node];
+#ifdef PARANOIA
+ if (netconsole >= MAXPLAYERS)
+ I_Error("bad table nodetoplayer: node %d player %d", doomcom->remotenode, netconsole);
+#endif
+
+ switch (netbuffer->packettype)
+ {
+// -------------------------------------------- SERVER RECEIVE ----------
+ case PT_CLIENTCMD:
+ case PT_CLIENT2CMD:
+ case PT_CLIENTMIS:
+ case PT_CLIENT2MIS:
+ case PT_NODEKEEPALIVE:
+ case PT_NODEKEEPALIVEMIS:
+ if (client)
+ break;
+
+ // To save bytes, only the low byte of tic numbers are sent
+ // Use ExpandTics to figure out what the rest of the bytes are
+ realstart = ExpandTics(netbuffer->u.clientpak.client_tic, node);
+ realend = ExpandTics(netbuffer->u.clientpak.resendfrom, node);
+
+ if (netbuffer->packettype == PT_CLIENTMIS || netbuffer->packettype == PT_CLIENT2MIS
+ || netbuffer->packettype == PT_NODEKEEPALIVEMIS
+ || supposedtics[node] < realend)
+ {
+ supposedtics[node] = realend;
+ }
+ // Discard out of order packet
+ if (nettics[node] > realend)
+ {
+ DEBFILE(va("out of order ticcmd discarded nettics = %u\n", nettics[node]));
+ break;
+ }
+
+ // Update the nettics
+ nettics[node] = realend;
+
+ // Don't do anything for packets of type NODEKEEPALIVE?
+ if (netconsole == -1 || netbuffer->packettype == PT_NODEKEEPALIVE
+ || netbuffer->packettype == PT_NODEKEEPALIVEMIS)
+ break;
+
+ // As long as clients send valid ticcmds, the server can keep running, so reset the timeout
+ /// \todo Use a separate cvar for that kind of timeout?
+ freezetimeout[node] = I_GetTime() + connectiontimeout;
+
+ // Copy ticcmd
+ G_MoveTiccmd(&netcmds[maketic%BACKUPTICS][netconsole], &netbuffer->u.clientpak.cmd, 1);
+
+ // Check ticcmd for "speed hacks"
+ if (netcmds[maketic%BACKUPTICS][netconsole].forwardmove > MAXPLMOVE || netcmds[maketic%BACKUPTICS][netconsole].forwardmove < -MAXPLMOVE
+ || netcmds[maketic%BACKUPTICS][netconsole].sidemove > MAXPLMOVE || netcmds[maketic%BACKUPTICS][netconsole].sidemove < -MAXPLMOVE)
+ {
+ CONS_Alert(CONS_WARNING, M_GetText("Illegal movement value received from node %d\n"), netconsole);
+ //D_Clearticcmd(k);
+
+ SendKick(netconsole, KICK_MSG_CON_FAIL);
+ break;
+ }
+
+ // Splitscreen cmd
+ if ((netbuffer->packettype == PT_CLIENT2CMD || netbuffer->packettype == PT_CLIENT2MIS)
+ && nodetoplayer2[node] >= 0)
+ G_MoveTiccmd(&netcmds[maketic%BACKUPTICS][(UINT8)nodetoplayer2[node]],
+ &netbuffer->u.client2pak.cmd2, 1);
+
+ // Check player consistancy during the level
+ if (realstart <= gametic && realstart + BACKUPTICS - 1 > gametic && gamestate == GS_LEVEL
+ && consistancy[realstart%BACKUPTICS] != SHORT(netbuffer->u.clientpak.consistancy)
+ && !resendingsavegame[node] && savegameresendcooldown[node] <= I_GetTime()
+ && !SV_ResendingSavegameToAnyone())
+ {
+ if (cv_resynchattempts.value)
+ {
+ // Tell the client we are about to resend them the gamestate
+ netbuffer->packettype = PT_WILLRESENDGAMESTATE;
+ HSendPacket(node, true, 0, 0);
+
+ resendingsavegame[node] = true;
+
+ if (cv_blamecfail.value)
+ CONS_Printf(M_GetText("Synch failure for player %d (%s); expected %hd, got %hd\n"),
+ netconsole+1, player_names[netconsole],
+ consistancy[realstart%BACKUPTICS],
+ SHORT(netbuffer->u.clientpak.consistancy));
+ DEBFILE(va("Restoring player %d (synch failure) [%update] %d!=%d\n",
+ netconsole, realstart, consistancy[realstart%BACKUPTICS],
+ SHORT(netbuffer->u.clientpak.consistancy)));
+ break;
+ }
+ else
+ {
+ SendKick(netconsole, KICK_MSG_CON_FAIL | KICK_MSG_KEEP_BODY);
+ DEBFILE(va("player %d kicked (synch failure) [%u] %d!=%d\n",
+ netconsole, realstart, consistancy[realstart%BACKUPTICS],
+ SHORT(netbuffer->u.clientpak.consistancy)));
+ break;
+ }
+ }
+ break;
+ case PT_TEXTCMD2: // splitscreen special
+ netconsole = nodetoplayer2[node];
+ /* FALLTHRU */
+ case PT_TEXTCMD:
+ if (client)
+ break;
+
+ if (netconsole < 0 || netconsole >= MAXPLAYERS)
+ Net_UnAcknowledgePacket(node);
+ else
+ {
+ size_t j;
+ tic_t tic = maketic;
+ UINT8 *textcmd;
+
+ // ignore if the textcmd has a reported size of zero
+ // this shouldn't be sent at all
+ if (!netbuffer->u.textcmd[0])
+ {
+ DEBFILE(va("GetPacket: Textcmd with size 0 detected! (node %u, player %d)\n",
+ node, netconsole));
+ Net_UnAcknowledgePacket(node);
+ break;
+ }
+
+ // ignore if the textcmd size var is actually larger than it should be
+ // BASEPACKETSIZE + 1 (for size) + textcmd[0] should == datalength
+ if (netbuffer->u.textcmd[0] > (size_t)doomcom->datalength-BASEPACKETSIZE-1)
+ {
+ DEBFILE(va("GetPacket: Bad Textcmd packet size! (expected %d, actual %s, node %u, player %d)\n",
+ netbuffer->u.textcmd[0], sizeu1((size_t)doomcom->datalength-BASEPACKETSIZE-1),
+ node, netconsole));
+ Net_UnAcknowledgePacket(node);
+ break;
+ }
+
+ // check if tic that we are making isn't too large else we cannot send it :(
+ // doomcom->numslots+1 "+1" since doomcom->numslots can change within this time and sent time
+ j = software_MAXPACKETLENGTH
+ - (netbuffer->u.textcmd[0]+2+BASESERVERTICSSIZE
+ + (doomcom->numslots+1)*sizeof(ticcmd_t));
+
+ // search a tic that have enougth space in the ticcmd
+ while ((textcmd = D_GetExistingTextcmd(tic, netconsole)),
+ (TotalTextCmdPerTic(tic) > j || netbuffer->u.textcmd[0] + (textcmd ? textcmd[0] : 0) > MAXTEXTCMD)
+ && tic < firstticstosend + BACKUPTICS)
+ tic++;
+
+ if (tic >= firstticstosend + BACKUPTICS)
+ {
+ DEBFILE(va("GetPacket: Textcmd too long (max %s, used %s, mak %d, "
+ "tosend %u, node %u, player %d)\n", sizeu1(j), sizeu2(TotalTextCmdPerTic(maketic)),
+ maketic, firstticstosend, node, netconsole));
+ Net_UnAcknowledgePacket(node);
+ break;
+ }
+
+ // Make sure we have a buffer
+ if (!textcmd) textcmd = D_GetTextcmd(tic, netconsole);
+
+ DEBFILE(va("textcmd put in tic %u at position %d (player %d) ftts %u mk %u\n",
+ tic, textcmd[0]+1, netconsole, firstticstosend, maketic));
+
+ M_Memcpy(&textcmd[textcmd[0]+1], netbuffer->u.textcmd+1, netbuffer->u.textcmd[0]);
+ textcmd[0] += (UINT8)netbuffer->u.textcmd[0];
+ }
+ break;
+ case PT_LOGIN:
+ if (client)
+ break;
+
+#ifndef NOMD5
+ if (doomcom->datalength < 16)/* ignore partial sends */
+ break;
+
+ if (!adminpasswordset)
+ {
+ CONS_Printf(M_GetText("Password from %s failed (no password set).\n"), player_names[netconsole]);
+ break;
+ }
+
+ // Do the final pass to compare with the sent md5
+ D_MD5PasswordPass(adminpassmd5, 16, va("PNUM%02d", netconsole), &finalmd5);
+
+ if (!memcmp(netbuffer->u.md5sum, finalmd5, 16))
+ {
+ CONS_Printf(M_GetText("%s passed authentication.\n"), player_names[netconsole]);
+ COM_BufInsertText(va("promote %d\n", netconsole)); // do this immediately
+ }
+ else
+ CONS_Printf(M_GetText("Password from %s failed.\n"), player_names[netconsole]);
+#endif
+ break;
+ case PT_NODETIMEOUT:
+ case PT_CLIENTQUIT:
+ if (client)
+ break;
+
+ // nodeingame will be put false in the execution of kick command
+ // this allow to send some packets to the quitting client to have their ack back
+ nodewaiting[node] = 0;
+ if (netconsole != -1 && playeringame[netconsole])
+ {
+ UINT8 kickmsg;
+
+ if (netbuffer->packettype == PT_NODETIMEOUT)
+ kickmsg = KICK_MSG_TIMEOUT;
+ else
+ kickmsg = KICK_MSG_PLAYER_QUIT;
+ kickmsg |= KICK_MSG_KEEP_BODY;
+
+ SendKick(netconsole, kickmsg);
+ nodetoplayer[node] = -1;
+
+ if (nodetoplayer2[node] != -1 && nodetoplayer2[node] >= 0
+ && playeringame[(UINT8)nodetoplayer2[node]])
+ {
+ SendKick(nodetoplayer2[node], kickmsg);
+ nodetoplayer2[node] = -1;
+ }
+ }
+ Net_CloseConnection(node);
+ nodeingame[node] = false;
+ break;
+ case PT_CANRECEIVEGAMESTATE:
+ PT_CanReceiveGamestate(node);
+ break;
+ case PT_ASKLUAFILE:
+ if (server && luafiletransfers && luafiletransfers->nodestatus[node] == LFTNS_ASKED)
+ AddLuaFileToSendQueue(node, luafiletransfers->realfilename);
+ break;
+ case PT_HASLUAFILE:
+ if (server && luafiletransfers && luafiletransfers->nodestatus[node] == LFTNS_SENDING)
+ SV_HandleLuaFileSent(node);
+ break;
+ case PT_RECEIVEDGAMESTATE:
+ sendingsavegame[node] = false;
+ resendingsavegame[node] = false;
+ savegameresendcooldown[node] = I_GetTime() + 15 * TICRATE;
+ break;
+// -------------------------------------------- CLIENT RECEIVE ----------
+ case PT_SERVERTICS:
+ // Only accept PT_SERVERTICS from the server.
+ if (node != servernode)
+ {
+ CONS_Alert(CONS_WARNING, M_GetText("%s received from non-host %d\n"), "PT_SERVERTICS", node);
+ if (server)
+ SendKick(netconsole, KICK_MSG_CON_FAIL | KICK_MSG_KEEP_BODY);
+ break;
+ }
+
+ realstart = netbuffer->u.serverpak.starttic;
+ realend = realstart + netbuffer->u.serverpak.numtics;
+
+ if (!txtpak)
+ txtpak = (UINT8 *)&netbuffer->u.serverpak.cmds[netbuffer->u.serverpak.numslots
+ * netbuffer->u.serverpak.numtics];
+
+ if (realend > gametic + CLIENTBACKUPTICS)
+ realend = gametic + CLIENTBACKUPTICS;
+ cl_packetmissed = realstart > neededtic;
+
+ if (realstart <= neededtic && realend > neededtic)
+ {
+ tic_t i, j;
+ pak = (UINT8 *)&netbuffer->u.serverpak.cmds;
+
+ for (i = realstart; i < realend; i++)
+ {
+ // clear first
+ D_Clearticcmd(i);
+
+ // copy the tics
+ pak = G_ScpyTiccmd(netcmds[i%BACKUPTICS], pak,
+ netbuffer->u.serverpak.numslots*sizeof (ticcmd_t));
+
+ // copy the textcmds
+ numtxtpak = *txtpak++;
+ for (j = 0; j < numtxtpak; j++)
+ {
+ INT32 k = *txtpak++; // playernum
+ const size_t txtsize = txtpak[0]+1;
+
+ if (i >= gametic) // Don't copy old net commands
+ M_Memcpy(D_GetTextcmd(i, k), txtpak, txtsize);
+ txtpak += txtsize;
+ }
+ }
+
+ neededtic = realend;
+ }
+ else
+ {
+ DEBFILE(va("frame not in bound: %u\n", neededtic));
+ /*if (realend < neededtic - 2 * TICRATE || neededtic + 2 * TICRATE < realstart)
+ I_Error("Received an out of order PT_SERVERTICS packet!\n"
+ "Got tics %d-%d, needed tic %d\n\n"
+ "Please report this crash on the Master Board,\n"
+ "IRC or Discord so it can be fixed.\n", (INT32)realstart, (INT32)realend, (INT32)neededtic);*/
+ }
+ break;
+ case PT_PING:
+ // Only accept PT_PING from the server.
+ if (node != servernode)
+ {
+ CONS_Alert(CONS_WARNING, M_GetText("%s received from non-host %d\n"), "PT_PING", node);
+ if (server)
+ SendKick(netconsole, KICK_MSG_CON_FAIL | KICK_MSG_KEEP_BODY);
+ break;
+ }
+
+ //Update client ping table from the server.
+ if (client)
+ {
+ UINT8 i;
+ for (i = 0; i < MAXPLAYERS; i++)
+ if (playeringame[i])
+ playerpingtable[i] = (tic_t)netbuffer->u.pingtable[i];
+
+ servermaxping = (tic_t)netbuffer->u.pingtable[MAXPLAYERS];
+ }
+
+ break;
+ case PT_SERVERCFG:
+ break;
+ case PT_FILEFRAGMENT:
+ // Only accept PT_FILEFRAGMENT from the server.
+ if (node != servernode)
+ {
+ CONS_Alert(CONS_WARNING, M_GetText("%s received from non-host %d\n"), "PT_FILEFRAGMENT", node);
+ if (server)
+ SendKick(netconsole, KICK_MSG_CON_FAIL | KICK_MSG_KEEP_BODY);
+ break;
+ }
+ if (client)
+ PT_FileFragment();
+ break;
+ case PT_FILEACK:
+ if (server)
+ PT_FileAck();
+ break;
+ case PT_FILERECEIVED:
+ if (server)
+ PT_FileReceived();
+ break;
+ case PT_WILLRESENDGAMESTATE:
+ PT_WillResendGamestate();
+ break;
+ case PT_SENDINGLUAFILE:
+ if (client)
+ CL_PrepareDownloadLuaFile();
+ break;
+ default:
+ DEBFILE(va("UNKNOWN PACKET TYPE RECEIVED %d from host %d\n",
+ netbuffer->packettype, node));
+ } // end switch
+}
+
+/** Handles all received packets, if any
+ *
+ * \todo Add details to this description (lol)
+ *
+ */
+static void GetPackets(void)
+{
+ SINT8 node; // The packet sender
+
+ player_joining = false;
+
+ while (HGetPacket())
+ {
+ node = (SINT8)doomcom->remotenode;
+
+ if (netbuffer->packettype == PT_CLIENTJOIN && server)
+ {
+ HandleConnect(node);
+ continue;
+ }
+ if (node == servernode && client && cl_mode != CL_SEARCHING)
+ {
+ if (netbuffer->packettype == PT_SERVERSHUTDOWN)
+ {
+ HandleShutdown(node);
+ continue;
+ }
+ if (netbuffer->packettype == PT_NODETIMEOUT)
+ {
+ HandleTimeout(node);
+ continue;
+ }
+ }
+
+#ifndef NONET
+ if (netbuffer->packettype == PT_SERVERINFO)
+ {
+ HandleServerInfo(node);
+ continue;
+ }
+#endif
+
+ if (netbuffer->packettype == PT_PLAYERINFO)
+ continue; // We do nothing with PLAYERINFO, that's for the MS browser.
+
+ // Packet received from someone already playing
+ if (nodeingame[node])
+ HandlePacketFromPlayer(node);
+ // Packet received from someone not playing
+ else
+ HandlePacketFromAwayNode(node);
+ }
+}
+
+//
+// NetUpdate
+// Builds ticcmds for console player,
+// sends out a packet
+//
+// no more use random generator, because at very first tic isn't yet synchronized
+// Note: It is called consistAncy on purpose.
+//
+static INT16 Consistancy(void)
+{
+ INT32 i;
+ UINT32 ret = 0;
+#ifdef MOBJCONSISTANCY
+ thinker_t *th;
+ mobj_t *mo;
+#endif
+
+ DEBFILE(va("TIC %u ", gametic));
+
+ for (i = 0; i < MAXPLAYERS; i++)
+ {
+ if (!playeringame[i])
+ ret ^= 0xCCCC;
+ else if (!players[i].mo);
+ else
+ {
+ ret += players[i].mo->x;
+ ret -= players[i].mo->y;
+ ret += players[i].powers[pw_shield];
+ ret *= i+1;
+ }
+ }
+ // I give up
+ // Coop desynching enemies is painful
+ if (!G_PlatformGametype())
+ ret += P_GetRandSeed();
+
+#ifdef MOBJCONSISTANCY
+ for (th = thlist[THINK_MOBJ].next; th != &thlist[THINK_MOBJ]; th = th->next)
+ {
+ if (th->function.acp1 == (actionf_p1)P_RemoveThinkerDelayed)
+ continue;
+
+ mo = (mobj_t *)th;
+
+ if (mo->flags & (MF_SPECIAL | MF_SOLID | MF_PUSHABLE | MF_BOSS | MF_MISSILE | MF_SPRING | MF_MONITOR | MF_FIRE | MF_ENEMY | MF_PAIN | MF_STICKY))
+ {
+ ret -= mo->type;
+ ret += mo->x;
+ ret -= mo->y;
+ ret += mo->z;
+ ret -= mo->momx;
+ ret += mo->momy;
+ ret -= mo->momz;
+ ret += mo->angle;
+ ret -= mo->flags;
+ ret += mo->flags2;
+ ret -= mo->eflags;
+ if (mo->target)
+ {
+ ret += mo->target->type;
+ ret -= mo->target->x;
+ ret += mo->target->y;
+ ret -= mo->target->z;
+ ret += mo->target->momx;
+ ret -= mo->target->momy;
+ ret += mo->target->momz;
+ ret -= mo->target->angle;
+ ret += mo->target->flags;
+ ret -= mo->target->flags2;
+ ret += mo->target->eflags;
+ ret -= mo->target->state - states;
+ ret += mo->target->tics;
+ ret -= mo->target->sprite;
+ ret += mo->target->frame;
+ }
+ else
+ ret ^= 0x3333;
+ if (mo->tracer && mo->tracer->type != MT_OVERLAY)
+ {
+ ret += mo->tracer->type;
+ ret -= mo->tracer->x;
+ ret += mo->tracer->y;
+ ret -= mo->tracer->z;
+ ret += mo->tracer->momx;
+ ret -= mo->tracer->momy;
+ ret += mo->tracer->momz;
+ ret -= mo->tracer->angle;
+ ret += mo->tracer->flags;
+ ret -= mo->tracer->flags2;
+ ret += mo->tracer->eflags;
+ ret -= mo->tracer->state - states;
+ ret += mo->tracer->tics;
+ ret -= mo->tracer->sprite;
+ ret += mo->tracer->frame;
+ }
+ else
+ ret ^= 0xAAAA;
+ ret -= mo->state - states;
+ ret += mo->tics;
+ ret -= mo->sprite;
+ ret += mo->frame;
+ }
+ }
+#endif
+
+ DEBFILE(va("Consistancy = %u\n", (ret & 0xFFFF)));
+
+ return (INT16)(ret & 0xFFFF);
+}
+
+// send the client packet to the server
+static void CL_SendClientCmd(void)
+{
+ size_t packetsize = 0;
+
+ netbuffer->packettype = PT_CLIENTCMD;
+
+ if (cl_packetmissed)
+ netbuffer->packettype++;
+ netbuffer->u.clientpak.resendfrom = (UINT8)(neededtic & UINT8_MAX);
+ netbuffer->u.clientpak.client_tic = (UINT8)(gametic & UINT8_MAX);
+
+ if (gamestate == GS_WAITINGPLAYERS)
+ {
+ // Send PT_NODEKEEPALIVE packet
+ netbuffer->packettype += 4;
+ packetsize = sizeof (clientcmd_pak) - sizeof (ticcmd_t) - sizeof (INT16);
+ HSendPacket(servernode, false, 0, packetsize);
+ }
+ else if (gamestate != GS_NULL && (addedtogame || dedicated))
+ {
+ G_MoveTiccmd(&netbuffer->u.clientpak.cmd, &localcmds, 1);
+ netbuffer->u.clientpak.consistancy = SHORT(consistancy[gametic%BACKUPTICS]);
+
+ // Send a special packet with 2 cmd for splitscreen
+ if (splitscreen || botingame)
+ {
+ netbuffer->packettype += 2;
+ G_MoveTiccmd(&netbuffer->u.client2pak.cmd2, &localcmds2, 1);
+ packetsize = sizeof (client2cmd_pak);
+ }
+ else
+ packetsize = sizeof (clientcmd_pak);
+
+ HSendPacket(servernode, false, 0, packetsize);
+ }
+
+ if (cl_mode == CL_CONNECTED || dedicated)
+ {
+ // Send extra data if needed
+ if (localtextcmd[0])
+ {
+ netbuffer->packettype = PT_TEXTCMD;
+ M_Memcpy(netbuffer->u.textcmd,localtextcmd, localtextcmd[0]+1);
+ // All extra data have been sent
+ if (HSendPacket(servernode, true, 0, localtextcmd[0]+1)) // Send can fail...
+ localtextcmd[0] = 0;
+ }
+
+ // Send extra data if needed for player 2 (splitscreen)
+ if (localtextcmd2[0])
+ {
+ netbuffer->packettype = PT_TEXTCMD2;
+ M_Memcpy(netbuffer->u.textcmd, localtextcmd2, localtextcmd2[0]+1);
+ // All extra data have been sent
+ if (HSendPacket(servernode, true, 0, localtextcmd2[0]+1)) // Send can fail...
+ localtextcmd2[0] = 0;
+ }
+ }
+}
+
+// send the server packet
+// send tic from firstticstosend to maketic-1
+static void SV_SendTics(void)
+{
+ tic_t realfirsttic, lasttictosend, i;
+ UINT32 n;
+ INT32 j;
+ size_t packsize;
+ UINT8 *bufpos;
+ UINT8 *ntextcmd;
+
+ // send to all client but not to me
+ // for each node create a packet with x tics and send it
+ // x is computed using supposedtics[n], max packet size and maketic
+ for (n = 1; n < MAXNETNODES; n++)
+ if (nodeingame[n])
+ {
+ // assert supposedtics[n]>=nettics[n]
+ realfirsttic = supposedtics[n];
+ lasttictosend = min(maketic, nettics[n] + CLIENTBACKUPTICS);
+
+ if (realfirsttic >= lasttictosend)
+ {
+ // well we have sent all tics we will so use extrabandwidth
+ // to resent packet that are supposed lost (this is necessary since lost
+ // packet detection work when we have received packet with firsttic > neededtic
+ // (getpacket servertics case)
+ DEBFILE(va("Nothing to send node %u mak=%u sup=%u net=%u \n",
+ n, maketic, supposedtics[n], nettics[n]));
+ realfirsttic = nettics[n];
+ if (realfirsttic >= lasttictosend || (I_GetTime() + n)&3)
+ // all tic are ok
+ continue;
+ DEBFILE(va("Sent %d anyway\n", realfirsttic));
+ }
+ if (realfirsttic < firstticstosend)
+ realfirsttic = firstticstosend;
+
+ // compute the length of the packet and cut it if too large
+ packsize = BASESERVERTICSSIZE;
+ for (i = realfirsttic; i < lasttictosend; i++)
+ {
+ packsize += sizeof (ticcmd_t) * doomcom->numslots;
+ packsize += TotalTextCmdPerTic(i);
+
+ if (packsize > software_MAXPACKETLENGTH)
+ {
+ DEBFILE(va("packet too large (%s) at tic %d (should be from %d to %d)\n",
+ sizeu1(packsize), i, realfirsttic, lasttictosend));
+ lasttictosend = i;
+
+ // too bad: too much player have send extradata and there is too
+ // much data in one tic.
+ // To avoid it put the data on the next tic. (see getpacket
+ // textcmd case) but when numplayer changes the computation can be different
+ if (lasttictosend == realfirsttic)
+ {
+ if (packsize > MAXPACKETLENGTH)
+ I_Error("Too many players: can't send %s data for %d players to node %d\n"
+ "Well sorry nobody is perfect....\n",
+ sizeu1(packsize), doomcom->numslots, n);
+ else
+ {
+ lasttictosend++; // send it anyway!
+ DEBFILE("sending it anyway\n");
+ }
+ }
+ break;
+ }
+ }
+
+ // Send the tics
+ netbuffer->packettype = PT_SERVERTICS;
+ netbuffer->u.serverpak.starttic = realfirsttic;
+ netbuffer->u.serverpak.numtics = (UINT8)(lasttictosend - realfirsttic);
+ netbuffer->u.serverpak.numslots = (UINT8)SHORT(doomcom->numslots);
+ bufpos = (UINT8 *)&netbuffer->u.serverpak.cmds;
+
+ for (i = realfirsttic; i < lasttictosend; i++)
+ {
+ bufpos = G_DcpyTiccmd(bufpos, netcmds[i%BACKUPTICS], doomcom->numslots * sizeof (ticcmd_t));
+ }
+
+ // add textcmds
+ for (i = realfirsttic; i < lasttictosend; i++)
+ {
+ ntextcmd = bufpos++;
+ *ntextcmd = 0;
+ for (j = 0; j < MAXPLAYERS; j++)
+ {
+ UINT8 *textcmd = D_GetExistingTextcmd(i, j);
+ INT32 size = textcmd ? textcmd[0] : 0;
+
+ if ((!j || playeringame[j]) && size)
+ {
+ (*ntextcmd)++;
+ WRITEUINT8(bufpos, j);
+ M_Memcpy(bufpos, textcmd, size + 1);
+ bufpos += size + 1;
+ }
+ }
+ }
+ packsize = bufpos - (UINT8 *)&(netbuffer->u);
+
+ HSendPacket(n, false, 0, packsize);
+ // when tic are too large, only one tic is sent so don't go backward!
+ if (lasttictosend-doomcom->extratics > realfirsttic)
+ supposedtics[n] = lasttictosend-doomcom->extratics;
+ else
+ supposedtics[n] = lasttictosend;
+ if (supposedtics[n] < nettics[n]) supposedtics[n] = nettics[n];
+ }
+ // node 0 is me!
+ supposedtics[0] = maketic;
+}
+
+//
+// TryRunTics
+//
+static void Local_Maketic(INT32 realtics)
+{
+ I_OsPolling(); // I_Getevent
+ D_ProcessEvents(); // menu responder, cons responder,
+ // game responder calls HU_Responder, AM_Responder,
+ // and G_MapEventsToControls
+ if (!dedicated) rendergametic = gametic;
+ // translate inputs (keyboard/mouse/joystick) into game controls
+ G_BuildTiccmd(&localcmds, realtics, 1);
+ if (splitscreen || botingame)
+ G_BuildTiccmd(&localcmds2, realtics, 2);
+
+ localcmds.angleturn |= TICCMD_RECEIVED;
+ localcmds2.angleturn |= TICCMD_RECEIVED;
+}
+
+// create missed tic
+static void SV_Maketic(void)
+{
+ INT32 i;
+
+ for (i = 0; i < MAXPLAYERS; i++)
+ {
+ if (!playeringame[i])
+ continue;
+
+ // We didn't receive this tic
+ if ((netcmds[maketic % BACKUPTICS][i].angleturn & TICCMD_RECEIVED) == 0)
+ {
+ ticcmd_t * ticcmd = &netcmds[(maketic ) % BACKUPTICS][i];
+ ticcmd_t *prevticcmd = &netcmds[(maketic - 1) % BACKUPTICS][i];
+
+ if (players[i].quittime)
+ {
+ // Copy the angle/aiming from the previous tic
+ // and empty the other inputs
+ memset(ticcmd, 0, sizeof(netcmds[0][0]));
+ ticcmd->angleturn = prevticcmd->angleturn | TICCMD_RECEIVED;
+ ticcmd->aiming = prevticcmd->aiming;
+ }
+ else
+ {
+ DEBFILE(va("MISS tic%4d for player %d\n", maketic, i));
+ // Copy the input from the previous tic
+ *ticcmd = *prevticcmd;
+ ticcmd->angleturn &= ~TICCMD_RECEIVED;
+ }
+ }
+ }
+
+ // all tic are now proceed make the next
+ maketic++;
+}
+
+void TryRunTics(tic_t realtics)
+{
+ // the machine has lagged but it is not so bad
+ if (realtics > TICRATE/7) // FIXME: consistency failure!!
+ {
+ if (server)
+ realtics = 1;
+ else
+ realtics = TICRATE/7;
+ }
+
+ if (singletics)
+ realtics = 1;
+
+ if (realtics >= 1)
+ {
+ COM_BufTicker();
+ if (mapchangepending)
+ D_MapChange(-1, 0, ultimatemode, false, 2, false, fromlevelselect); // finish the map change
+ }
+
+ NetUpdate();
+
+ if (demoplayback)
+ {
+ neededtic = gametic + (realtics * cv_playbackspeed.value);
+ // start a game after a demo
+ maketic += realtics;
+ firstticstosend = maketic;
+ tictoclear = firstticstosend;
+ }
+
+ GetPackets();
+
+#ifdef DEBUGFILE
+ if (debugfile && (realtics || neededtic > gametic))
+ {
+ //SoM: 3/30/2000: Need long INT32 in the format string for args 4 & 5.
+ //Shut up stupid warning!
+ fprintf(debugfile, "------------ Tryruntic: REAL:%d NEED:%d GAME:%d LOAD: %d\n",
+ realtics, neededtic, gametic, debugload);
+ debugload = 100000;
+ }
+#endif
+
+ if (player_joining)
+ return;
+
+ if (neededtic > gametic)
+ {
+ if (advancedemo)
+ {
+ if (timedemo_quit)
+ COM_ImmedExecute("quit");
+ else
+ D_StartTitle();
+ }
+ else
+ // run the count * tics
+ while (neededtic > gametic)
+ {
+ DEBFILE(va("============ Running tic %d (local %d)\n", gametic, localgametic));
+
+ ps_tictime = I_GetTimeMicros();
+
+ G_Ticker((gametic % NEWTICRATERATIO) == 0);
+ ExtraDataTicker();
+ gametic++;
+ consistancy[gametic%BACKUPTICS] = Consistancy();
+
+ ps_tictime = I_GetTimeMicros() - ps_tictime;
+
+ // Leave a certain amount of tics present in the net buffer as long as we've ran at least one tic this frame.
+ if (client && gamestate == GS_LEVEL && leveltime > 3 && neededtic <= gametic + cv_netticbuffer.value)
+ break;
+ }
+ }
+}
+
+/*
+Ping Update except better:
+We call this once per second and check for people's pings. If their ping happens to be too high, we increment some timer and kick them out.
+If they're not lagging, decrement the timer by 1. Of course, reset all of this if they leave.
+*/
+
+static INT32 pingtimeout[MAXPLAYERS];
+
+static inline void PingUpdate(void)
+{
+ INT32 i;
+ boolean laggers[MAXPLAYERS];
+ UINT8 numlaggers = 0;
+ memset(laggers, 0, sizeof(boolean) * MAXPLAYERS);
+
+ netbuffer->packettype = PT_PING;
+
+ //check for ping limit breakage.
+ if (cv_maxping.value)
+ {
+ for (i = 1; i < MAXPLAYERS; i++)
+ {
+ if (playeringame[i] && !players[i].quittime
+ && (realpingtable[i] / pingmeasurecount > (unsigned)cv_maxping.value))
+ {
+ if (players[i].jointime > 30 * TICRATE)
+ laggers[i] = true;
+ numlaggers++;
+ }
+ else
+ pingtimeout[i] = 0;
+ }
+
+ //kick lagging players... unless everyone but the server's ping sucks.
+ //in that case, it is probably the server's fault.
+ if (numlaggers < D_NumPlayers() - 1)
+ {
+ for (i = 1; i < MAXPLAYERS; i++)
+ {
+ if (playeringame[i] && laggers[i])
+ {
+ pingtimeout[i]++;
+ // ok your net has been bad for too long, you deserve to die.
+ if (pingtimeout[i] > cv_pingtimeout.value)
+ {
+ pingtimeout[i] = 0;
+ SendKick(i, KICK_MSG_PING_HIGH | KICK_MSG_KEEP_BODY);
+ }
+ }
+ /*
+ you aren't lagging,
+ but you aren't free yet.
+ In case you'll keep spiking,
+ we just make the timer go back down. (Very unstable net must still get kicked).
+ */
+ else
+ pingtimeout[i] = (pingtimeout[i] == 0 ? 0 : pingtimeout[i]-1);
+ }
+ }
+ }
+
+ //make the ping packet and clear server data for next one
+ for (i = 0; i < MAXPLAYERS; i++)
+ {
+ netbuffer->u.pingtable[i] = realpingtable[i] / pingmeasurecount;
+ //server takes a snapshot of the real ping for display.
+ //otherwise, pings fluctuate a lot and would be odd to look at.
+ playerpingtable[i] = realpingtable[i] / pingmeasurecount;
+ realpingtable[i] = 0; //Reset each as we go.
+ }
+
+ // send the server's maxping as last element of our ping table. This is useful to let us know when we're about to get kicked.
+ netbuffer->u.pingtable[MAXPLAYERS] = cv_maxping.value;
+
+ //send out our ping packets
+ for (i = 0; i < MAXNETNODES; i++)
+ if (nodeingame[i])
+ HSendPacket(i, true, 0, sizeof(INT32) * (MAXPLAYERS+1));
+
+ pingmeasurecount = 1; //Reset count
+}
+
+void NetUpdate(void)
+{
+ static tic_t gametime = 0;
+ static tic_t resptime = 0;
+ tic_t nowtime;
+ INT32 i;
+ INT32 realtics;
+
+ nowtime = I_GetTime();
+ realtics = nowtime - gametime;
+
+ if (realtics <= 0) // nothing new to update
+ return;
+ if (realtics > 5)
+ {
+ if (server)
+ realtics = 1;
+ else
+ realtics = 5;
+ }
+
+ gametime = nowtime;
+
+ if (server)
+ {
+ if (netgame && !(gametime % 35)) // update once per second.
+ PingUpdate();
+ // update node latency values so we can take an average later.
+ for (i = 0; i < MAXPLAYERS; i++)
+ if (playeringame[i] && playernode[i] != UINT8_MAX)
+ realpingtable[i] += G_TicsToMilliseconds(GetLag(playernode[i]));
+ pingmeasurecount++;
+ }
+
+ if (client)
+ maketic = neededtic;
+
+ Local_Maketic(realtics); // make local tic, and call menu?
+
+ if (server)
+ CL_SendClientCmd(); // send it
+
+ GetPackets(); // get packet from client or from server
+
+ // client send the command after a receive of the server
+ // the server send before because in single player is beter
+
+#ifdef MASTERSERVER
+ MasterClient_Ticker(); // Acking the Master Server
+#endif
+
+ if (client)
+ {
+ // If the client just finished redownloading the game state, load it
+ if (cl_redownloadinggamestate && fileneeded[0].status == FS_FOUND)
+ CL_ReloadReceivedSavegame();
+
+ CL_SendClientCmd(); // Send tic cmd
+ hu_redownloadinggamestate = cl_redownloadinggamestate;
+ }
+ else
+ {
+ if (!demoplayback)
+ {
+ INT32 counts;
+
+ hu_redownloadinggamestate = false;
+
+ firstticstosend = gametic;
+ for (i = 0; i < MAXNETNODES; i++)
+ if (nodeingame[i] && nettics[i] < firstticstosend)
+ {
+ firstticstosend = nettics[i];
+
+ if (maketic + 1 >= nettics[i] + BACKUPTICS)
+ Net_ConnectionTimeout(i);
+ }
+
+ // Don't erase tics not acknowledged
+ counts = realtics;
+
+ if (maketic + counts >= firstticstosend + BACKUPTICS)
+ counts = firstticstosend+BACKUPTICS-maketic-1;
+
+ for (i = 0; i < counts; i++)
+ SV_Maketic(); // Create missed tics and increment maketic
+
+ for (; tictoclear < firstticstosend; tictoclear++) // Clear only when acknowledged
+ D_Clearticcmd(tictoclear); // Clear the maketic the new tic
+
+ SV_SendTics();
+
+ neededtic = maketic; // The server is a client too
+ }
+ }
+
+ Net_AckTicker();
+
+ // Handle timeouts to prevent definitive freezes from happenning
+ if (server)
+ {
+ for (i = 1; i < MAXNETNODES; i++)
+ if (nodeingame[i] && freezetimeout[i] < I_GetTime())
+ Net_ConnectionTimeout(i);
+
+ // In case the cvar value was lowered
+ if (joindelay)
+ joindelay = min(joindelay - 1, 3 * (tic_t)cv_joindelay.value * TICRATE);
+ }
+
+ nowtime /= NEWTICRATERATIO;
+ if (nowtime > resptime)
+ {
+ resptime = nowtime;
+#ifdef HAVE_THREADS
+ I_lock_mutex(&m_menu_mutex);
+#endif
+ M_Ticker();
+#ifdef HAVE_THREADS
+ I_unlock_mutex(m_menu_mutex);
+#endif
+ CON_Ticker();
+ }
+
+ FileSendTicker();
+}
+
+/** Returns the number of players playing.
+ * \return Number of players. Can be zero if we're running a ::dedicated
+ * server.
+ * \author Graue <graue@oceanbase.org>
+ */
+INT32 D_NumPlayers(void)
+{
+ INT32 num = 0, ix;
+ for (ix = 0; ix < MAXPLAYERS; ix++)
+ if (playeringame[ix])
+ num++;
+ return num;
+}
+
+tic_t GetLag(INT32 node)
+{
+ return gametic - nettics[node];
+}
+
+void D_MD5PasswordPass(const UINT8 *buffer, size_t len, const char *salt, void *dest)
+{
+#ifdef NOMD5
+ (void)buffer;
+ (void)len;
+ (void)salt;
+ memset(dest, 0, 16);
+#else
+ char tmpbuf[256];
+ const size_t sl = strlen(salt);
+
+ if (len > 256-sl)
+ len = 256-sl;
+
+ memcpy(tmpbuf, buffer, len);
+ memmove(&tmpbuf[len], salt, sl);
+ //strcpy(&tmpbuf[len], salt);
+ len += strlen(salt);
+ if (len < 256)
+ memset(&tmpbuf[len],0,256-len);
+
+ // Yes, we intentionally md5 the ENTIRE buffer regardless of size...
+ md5_buffer(tmpbuf, 256, dest);
+#endif
+}