dvr/app/jni/prboom/d_server.c
2016-03-03 22:28:59 +00:00

759 lines
22 KiB
C

/* Emacs style mode select -*- C++ -*-
*-----------------------------------------------------------------------------
*
*
* PrBoom: a Doom port merged with LxDoom and LSDLDoom
* based on BOOM, a modified and improved DOOM engine
* Copyright (C) 1999 by
* id Software, Chi Hoang, Lee Killough, Jim Flynn, Rand Phares, Ty Halderman
* Copyright (C) 1999-2004 by
* Jess Haas, Nicolas Kalkhof, Colin Phipps, Florian Schulze
* Copyright 2005, 2006 by
* Florian Schulze, Colin Phipps, Neil Stevens, Andrey Budko
*
* This program is free software; you can redistribute it and/or
* modify it under the terms of the GNU General Public License
* as published by the Free Software Foundation; either version 2
* of the License, or (at your option) any later version.
*
* This program is distributed in the hope that it will be useful,
* but WITHOUT ANY WARRANTY; without even the implied warranty of
* MERCHANTABILITY or FITNESS FOR A PARTICULAR PURPOSE. See the
* GNU General Public License for more details.
*
* You should have received a copy of the GNU General Public License
* along with this program; if not, write to the Free Software
* Foundation, Inc., 59 Temple Place - Suite 330, Boston, MA
* 02111-1307, USA.
*
* DESCRIPTION:
* Network game server code
* New for LxDoom, but drawing ideas and code fragments from the
* earlier net code
*-----------------------------------------------------------------------------
*/
#ifdef HAVE_CONFIG_H
#include "config.h"
#endif
#include <stdio.h>
#include <stdlib.h>
#include <time.h>
#include <limits.h>
#include <string.h>
#ifdef HAVE_UNISTD_H
#include <unistd.h>
#endif
#include <stdarg.h>
#include <fcntl.h>
#include <signal.h>
#include <sys/types.h>
// Vladimir
#include <sys/socket.h>
#ifdef USE_SDL_NET
// Vladimir #include "SDL.h"
#endif
#include "doomtype.h"
#include "protocol.h"
#include "i_network.h"
#ifndef PRBOOM_SERVER
#include "m_fixed.h"
#endif
#include "i_system.h"
#include "m_swap.h"
#ifndef HAVE_NET
int server_main(void)
{
fprintf(stderr,
PACKAGE "-server: You must compile with networking enabled!\n");
exit(1);
return 1;
}
#else
#ifndef HAVE_GETOPT
/* The following code for getopt is from the libc-source of FreeBSD,
* it might be changed a little bit.
* Florian Schulze (florian.schulze@gmx.net)
*/
/*
* Copyright (c) 1987, 1993, 1994
* The Regents of the University of California. All rights reserved.
*
* Redistribution and use in source and binary forms, with or without
* modification, are permitted provided that the following conditions
* are met:
* 1. Redistributions of source code must retain the above copyright
* notice, this list of conditions and the following disclaimer.
* 2. Redistributions in binary form must reproduce the above copyright
* notice, this list of conditions and the following disclaimer in the
* documentation and/or other materials provided with the distribution.
* 3. All advertising materials mentioning features or use of this software
* must display the following acknowledgement:
* This product includes software developed by the University of
* California, Berkeley and its contributors.
* 4. Neither the name of the University nor the names of its contributors
* may be used to endorse or promote products derived from this software
* without specific prior written permission.
*
* THIS SOFTWARE IS PROVIDED BY THE REGENTS AND CONTRIBUTORS ``AS IS'' AND
* ANY EXPRESS OR IMPLIED WARRANTIES, INCLUDING, BUT NOT LIMITED TO, THE
* IMPLIED WARRANTIES OF MERCHANTABILITY AND FITNESS FOR A PARTICULAR PURPOSE
* ARE DISCLAIMED. IN NO EVENT SHALL THE REGENTS OR CONTRIBUTORS BE LIABLE
* FOR ANY DIRECT, INDIRECT, INCIDENTAL, SPECIAL, EXEMPLARY, OR CONSEQUENTIAL
* DAMAGES (INCLUDING, BUT NOT LIMITED TO, PROCUREMENT OF SUBSTITUTE GOODS
* OR SERVICES; LOSS OF USE, DATA, OR PROFITS; OR BUSINESS INTERRUPTION)
* HOWEVER CAUSED AND ON ANY THEORY OF LIABILITY, WHETHER IN CONTRACT, STRICT
* LIABILITY, OR TORT (INCLUDING NEGLIGENCE OR OTHERWISE) ARISING IN ANY WAY
* OUT OF THE USE OF THIS SOFTWARE, EVEN IF ADVISED OF THE POSSIBILITY OF
* SUCH DAMAGE.
*/
#if defined(LIBC_SCCS) && !defined(lint)
#if 0
static char sccsid[] = "@(#)getopt.c 8.3 (Berkeley) 4/27/95";
#endif
static const char rcsid[] = "$FreeBSD$";
#endif /* LIBC_SCCS and not lint */
int opterr = 1, /* if error message should be printed */
optind = 1, /* index into parent argv vector */
optopt, /* character checked for validity */
optreset; /* reset getopt */
char *optarg; /* argument associated with option */
#define BADCH (int)'?'
#define BADARG (int)':'
#define EMSG ""
char *__progname="prboom_server";
/*
* getopt --
* Parse argc/argv argument vector.
*/
int
getopt(nargc, nargv, ostr)
int nargc;
char * const *nargv;
const char *ostr;
{
extern char *__progname;
static char *place = EMSG; /* option letter processing */
char *oli; /* option letter list index */
int ret;
if (optreset || !*place) { /* update scanning pointer */
optreset = 0;
if (optind >= nargc || *(place = nargv[optind]) != '-') {
place = EMSG;
return (-1);
}
if (place[1] && *++place == '-') { /* found "--" */
++optind;
place = EMSG;
return (-1);
}
} /* option letter okay? */
if ((optopt = (int)*place++) == (int)':' ||
!(oli = strchr(ostr, optopt))) {
/*
* if the user didn't specify '-' as an option,
* assume it means -1.
*/
if (optopt == (int)'-')
return (-1);
if (!*place)
++optind;
if (opterr && *ostr != ':')
(void)fprintf(stderr,
"%s: illegal option -- %c\n", __progname, optopt);
return (BADCH);
}
if (*++oli != ':') { /* don't need argument */
optarg = NULL;
if (!*place)
++optind;
}
else { /* need an argument */
if (*place) /* no white space */
optarg = place;
else if (nargc <= ++optind) { /* no arg */
place = EMSG;
if (*ostr == ':')
ret = BADARG;
else
ret = BADCH;
if (opterr)
(void)fprintf(stderr,
"%s: option requires an argument -- %c\n",
__progname, optopt);
return (ret);
}
else /* white space */
optarg = nargv[optind];
place = EMSG;
++optind;
}
return (optopt); /* dump back option letter */
}
#else
#include <unistd.h>
#endif
#define MAXPLAYERS 4
#define BACKUPTICS 12
// Dummies to forfill l_udp.c unused client stuff
// Vladimir int M_CheckParm(const char* p) { p = NULL; return 1; }
int myargc;
char** myargv;
/* vladimir
void NORETURN I_Error(const char *error, ...) // killough 3/20/98: add const
{
va_list argptr;
va_start(argptr,error);
vfprintf(stderr,error,argptr);
va_end(argptr);
exit(-1);
}
*/
int playerjoingame[MAXPLAYERS], playerleftgame[MAXPLAYERS];
UDP_CHANNEL remoteaddr[MAXPLAYERS];
enum { pc_unused, pc_connected, pc_ready, pc_confirmedready, pc_playing, pc_quit } playerstate[MAXPLAYERS];
int displaycounter;
boolean n_players_in_state(int n, int ps) {
int i,j;
for (i=j=0;i<MAXPLAYERS;i++)
if (playerstate[i] == ps) j++;
return (j == n);
}
void BroadcastPacket(packet_header_t *packet, size_t len)
{
int i;
for (i=0; i<MAXPLAYERS; i++)
if (playerstate[i] != pc_unused && playerstate[i] != pc_quit)
I_SendPacketTo(packet, len, &remoteaddr[i]);
}
byte def_game_options[GAME_OPTIONS_SIZE] = \
{ // cf g_game.c:G_WriteOptions()
1, // monsters remember
1, // friction
0, // weapon recoil
1, // pushers
0, // reserved/unused
1, // player bobbing
0, 0, 0, // respawn, fast, nomonsters
1, // demo insurance
0, 0, 0, 0, // 4 bytes of random number seed
1, 0, 0, 0,
0, 128, /* distfriend */
0, 1, 1, 1, 1, 0,
/* Zeroes for all compatibility stuff */
};
#define nosuch "NOSUCHCONFIGITEM"
const char* gameopt_config_names[] = {
"monsters_remember",nosuch,"weapon_recoil",nosuch,nosuch,"player_bobbing",nosuch,nosuch,nosuch,"demo_insurance",
nosuch,nosuch,nosuch,nosuch, // RNG seed
"monster_infighting","player_helpers",nosuch,nosuch,
nosuch,nosuch, // distfriend
"monster_backing","monster_avoid_hazards","monster_friction","help_friends","dog_jumping","monkeys",
"comp_telefrag","comp_dropoff","comp_vile","comp_pain","comp_skull","comp_blazing","comp_doorlight","comp_model","comp_god","comp_falloff","comp_floors","comp_skymap","comp_pursuit","comp_doorstuck","comp_staylift","comp_zombie","comp_stairs","comp_infcheat","comp_zerotags","comp_moveblock","comp_respawn","comp_sound" };
const int num_gameopts = sizeof gameopt_config_names / sizeof gameopt_config_names[0];
int verbose;
void NORETURN sig_handler(int signum)
{
char buf[80];
I_SigString(buf,80,signum);
printf("Received signal: %s\n", buf);
// Any signal is fatal
exit(1);
}
void doexit(void)
{
packet_header_t packet;
// Send "downed" packet
packet_set(&packet, PKT_DOWN, 0);
BroadcastPacket(&packet, sizeof packet);
}
#ifndef USE_SDL_NET
static void I_InitSockets(int v4port)
{
v4socket = socket(PF_INET, SOCK_DGRAM, IPPROTO_UDP);
I_SetupSocket(v4socket, v4port, AF_INET);
}
#else
static void I_InitSockets(Uint16 port)
{
I_InitNetwork();
udp_socket = I_Socket(port);
if (!udp_socket) I_Error("I_InitSockets: failed to open UDP port %d\n",port);
}
#endif
long int ptic(packet_header_t* p)
{
return doom_ntohl(p->tic);
}
void read_config_file(FILE* fp, struct setup_packet_s* sp)
{
byte* gameopt = sp->game_options;
while (!feof(fp)) {
char def[80];
char strparm[100];
if (fscanf (fp, "%79s %99[^\n]\n", def, strparm) == 2) {
int v = atoi(strparm);
if (!strcmp(def,"default_skill")) {
if (verbose) printf("config file sets default_skill to %d\n",v);
sp->skill = v-1;
} else if (!strcmp(def,"default_compatibility_level")) {
if (verbose) printf("config file sets compatibility_level to %d\n",v);
if (v == -1) v = MAX_COMPATIBILITY_LEVEL-1; //e6y: -1 => maxcompat
sp->complevel = v;
} else {
int i;
for (i=0; i<num_gameopts; i++) {
if (!!strcmp(gameopt_config_names[i],def)) continue;
if (verbose) printf("config file sets %s to %d\n",def,v);
gameopt[i] = v;
}
}
}
}
}
static int badplayer(int n) { return (n < 0 || n >= MAXPLAYERS); }
int server_main(int argc, char** argv)
{
#ifndef USE_SDL_NET
int localport = 5030;
#else
Uint16 localport = 5030;
#endif
int numplayers = 2, xtratics = 0, ticdup = 1;
int exectics = 0; // gametics completed
struct setup_packet_s setupinfo = { 2, 0, 1, 1, 1, 0, best_compatibility, 0, 0};
char**wadname = NULL;
char**wadget = NULL;
int numwads = 0;
{
int opt;
byte *gameopt = setupinfo.game_options;
memcpy(gameopt, &def_game_options, sizeof (setupinfo.game_options));
while ((opt = getopt(argc, argv, "c:t:x:p:e:l:adrfns:N:vw:")) != EOF)
switch (opt) {
case 'c':
{
FILE *cf = fopen(optarg,"r");
if (!cf) { perror("fopen"); return -1; }
read_config_file(cf,&setupinfo);
fclose(cf);
}
break;
case 't':
if (optarg) ticdup = atoi(optarg);
break;
case 'x':
if (optarg) xtratics = atoi(optarg);
break;
case 'p':
if (optarg) localport = atoi(optarg);
break;
case 'e':
if (optarg) setupinfo.episode = atoi(optarg);
break;
case 'l':
if (optarg) setupinfo.level = atoi(optarg);
break;
case 'a':
setupinfo.deathmatch = 2;
break;
case 'd':
setupinfo.deathmatch = 1;
break;
case 'r':
setupinfo.game_options[6] = 1;
break;
case 'f':
setupinfo.game_options[7] = 1;
break;
case 'n':
setupinfo.game_options[8] = 1;
break;
case 's':
if (optarg) setupinfo.skill = atoi(optarg)-1;
break;
case 'N':
if (optarg) setupinfo.players = numplayers = atoi(optarg);
break;
case 'v':
verbose++;
break;
case 'w':
if (optarg) {
char *p;
wadname = realloc(wadname, ++numwads * sizeof *wadname);
wadget = realloc(wadget , numwads * sizeof *wadget );
wadname[numwads-1] = strdup(optarg);
if ((p = strchr(wadname[numwads-1], ','))) {
*p++ = 0; wadget[numwads-1] = p;
} else wadget[numwads-1] = NULL;
}
break;
}
}
setupinfo.ticdup = ticdup; setupinfo.extratic = xtratics;
{ /* Random number seed
* Mirrors the corresponding code in G_ReadOptions */
int rngseed = (int)time(NULL);
setupinfo.game_options[13] = rngseed & 0xff;
rngseed >>= 8;
setupinfo.game_options[12] = rngseed & 0xff;
rngseed >>= 8;
setupinfo.game_options[11] = rngseed & 0xff;
rngseed >>= 8;
setupinfo.game_options[10] = rngseed & 0xff;
}
I_InitSockets(localport);
printf("Listening on port %d, waiting for %d players\n", localport, numplayers);
{ // no players initially
int i;
for (i=0; i<MAXPLAYERS; i++) {
playerjoingame[i] = INT_MAX;
playerleftgame[i] = 0;
playerstate[i] = pc_unused;
}
// Print wads
for (i=0; i<numwads; i++)
printf("Wad %s (%s)\n", wadname[i], wadget[i] ? wadget[i] : "");
}
// Exit and signal handling
atexit(doexit); // heh
// signal(SIGTERM, sig_handler);
//signal(SIGINT , sig_handler);
#ifndef USE_SDL_NET
//signal(SIGQUIT, sig_handler);
//signal(SIGKILL, sig_handler);
//signal(SIGHUP , sig_handler);
#endif
{
int remoteticfrom[MAXPLAYERS] = { 0, 0, 0, 0 };
int remoteticto[MAXPLAYERS] = { 0, 0, 0, 0 };
int backoffcounter[MAXPLAYERS] = { 0, 0, 0, 0 };
int curplayers = 0;
int confirming = 0;
boolean ingame = false;
ticcmd_t netcmds[MAXPLAYERS][BACKUPTICS];
while (1) {
packet_header_t *packet = malloc(10000);
size_t len;
I_WaitForPacket(120*1000);
while ((len = I_GetPacket(packet, 10000))) {
if (verbose>2) printf("Received packet:");
switch (packet->type) {
case PKT_INIT:
if (!ingame) {
{
int n;
struct setup_packet_s *sinfo = (void*)(packet+1);
/* Find player number and add to the game */
n = *(short*)(packet+1);
if (badplayer(n) || playerstate[n] != pc_unused)
for (n=0; n<numplayers; n++)
if (playerstate[n] == pc_unused) break;
if (n == numplayers) break; // Full game
playerstate[n] = pc_connected;
#ifndef USE_SDL_NET
remoteaddr[n] = sentfrom;
#else
if (sentfrom==-1)
remoteaddr[n]=I_RegisterPlayer(&sentfrom_addr);
#endif
printf("Join by ");
I_PrintAddress(stdout, &remoteaddr[n]);
#ifdef USE_SDL_NET
printf(" (channel %d)",remoteaddr[n]);
#endif
printf(" as player %d\n",n);
{
int i;
size_t extrabytes = 0;
// Send setup packet
packet_set(packet, PKT_SETUP, 0);
memcpy(sinfo, &setupinfo, sizeof setupinfo);
sinfo->yourplayer = n;
sinfo->numwads = numwads;
for (i=0; i<numwads; i++) {
strcpy(sinfo->wadnames + extrabytes, wadname[i]);
extrabytes += strlen(wadname[i]) + 1;
}
I_SendPacketTo(packet, sizeof *packet + sizeof setupinfo + extrabytes,
remoteaddr+n);
I_uSleep(10000);
I_SendPacketTo(packet, sizeof *packet + sizeof setupinfo + extrabytes,
remoteaddr+n);
}
}
}
break;
case PKT_GO:
if (!ingame) {
int from = *(byte*)(packet+1);
if (badplayer(from) || playerstate[from] == pc_unused) break;
if (confirming) {
if (playerstate[from] != pc_confirmedready) curplayers++;
playerstate[from] = pc_confirmedready;
} else
playerstate[from] = pc_ready;
}
break;
case PKT_TICC:
{
byte tics = *(byte*)(packet+1);
int from = *(((byte*)(packet+1))+1);
if (badplayer(from)) break;
if (verbose>2)
printf("tics %ld - %ld from %d\n", ptic(packet), ptic(packet) + tics - 1, from);
if (ptic(packet) > remoteticfrom[from]) {
// Missed tics, so request a resend
packet_set(packet, PKT_RETRANS, remoteticfrom[from]);
I_SendPacketTo(packet, sizeof *packet, remoteaddr+from);
} else {
ticcmd_t *newtic = (void*)(((byte*)(packet+1))+2);
if (ptic(packet) + tics < remoteticfrom[from]) break; // Won't help
remoteticfrom[from] = ptic(packet);
while (tics--)
netcmds[from][remoteticfrom[from]++%BACKUPTICS] = *newtic++;
}
}
break;
case PKT_RETRANS:
{
int from = *(byte*)(packet+1);
if (badplayer(from)) break;
if (verbose>2) printf("%d requests resend from %ld\n", from, ptic(packet));
remoteticto[from] = ptic(packet);
}
break;
case PKT_QUIT:
{
int from = *(byte*)(packet+1);
if (badplayer(from)) break;
if (!ingame && playerstate[from] != pc_unused) {
// If we already got a PKT_GO, we have to remove this player frmo the count of ready players. And we then flag this player slot as vacant.
printf("player %d pulls out\n", from);
if (playerstate[from] == pc_confirmedready) curplayers--;
playerstate[from] = pc_unused;
} else
if (playerleftgame[from] == INT_MAX) { // In the game
playerleftgame[from] = ptic(packet);
--curplayers;
if (verbose) printf("%d quits at %ld (%d left)\n", from, ptic(packet),curplayers);
if (ingame && !curplayers) exit(0); // All players have exited
}
}
// Fall through and broadcast it
case PKT_EXTRA:
BroadcastPacket(packet, len);
if (packet->type == PKT_EXTRA) {
if (verbose>2) printf("misc from %d\n", *(((byte*)(packet+1))+1));
}
break;
case PKT_WAD:
{
int i;
int from = *(byte*)(packet+1);
char *name = 1 + (char*)(packet+1);
size_t size = sizeof(packet_header_t);
packet_header_t *reply;
if (badplayer(from) || playerstate[from] != pc_unused) break;
if (verbose) printf("Request for %s ", name);
for (i=0; i<numwads; i++)
if (!strcasecmp(name, wadname[i]))
break;
if ((i==numwads) || !wadget[i]) {
if (verbose) printf("n/a\n");
*(char*)(packet+1) = 0;
I_SendPacketTo(packet, size+1, remoteaddr + from);
} else {
size += strlen(wadname[i]) + strlen(wadget[i]) + 2;
reply = malloc(size);
packet_set(reply, PKT_WAD, 0);
strcpy((char*)(reply+1), wadname[i]);
strcpy((char*)(reply+1) + strlen(wadname[i]) + 1, wadget[i]);
printf("sending %s\n", wadget[i]);
I_SendPacketTo(reply, size, remoteaddr + from);
free(reply);
}
}
break;
default:
printf("Unrecognised packet type %d\n", packet->type);
break;
}
}
free(packet);
if (!ingame && n_players_in_state(numplayers,pc_confirmedready)) {
int i;
packet_header_t gopacket;
packet = &gopacket;
ingame=true;
printf("All players joined, beginning game.\n");
for (i=0; i<MAXPLAYERS; i++) {
if (playerstate[i] == pc_confirmedready) {
playerjoingame[i] = 0;
playerleftgame[i] = INT_MAX;
playerstate[i] = pc_playing;
}
}
packet_set(packet, PKT_GO, 0);
BroadcastPacket(packet, sizeof *packet);
I_uSleep(10000);
BroadcastPacket(packet, sizeof *packet);
I_uSleep(10000);
}
if (confirming && !--confirming && !ingame) {
int i;
curplayers = 0;
for (i=0; i<MAXPLAYERS; i++) {
if (playerstate[i] == pc_ready) {
playerstate[i] = pc_unused;
printf("Player %d dropped, no PKT_GO received in confirmation\n", i);
}
if (playerstate[i] == pc_confirmedready) playerstate[i] = pc_ready;
}
}
if (!ingame && n_players_in_state(numplayers,pc_ready)) {
printf("All players ready, now confirming.\n");
confirming = 100;
}
if (ingame) { // Run some tics
int lowtic = INT_MAX;
int i;
for (i=0; i<MAXPLAYERS; i++)
if (playerstate[i] == pc_playing || playerstate[i] == pc_quit) {
if (remoteticfrom[i] < playerleftgame[i]-1 && remoteticfrom[i]<lowtic)
lowtic = remoteticfrom[i];
}
if (verbose>1) printf("%d new tics can be run\n", lowtic - exectics);
if (lowtic > exectics)
exectics = lowtic; // count exec'ed tics
// Now send all tics up to lowtic
for (i=0; i<MAXPLAYERS; i++)
if (playerstate[i] == pc_playing) {
int tics;
if (lowtic <= remoteticto[i]) continue;
if ((remoteticto[i] -= xtratics) < 0) remoteticto[i] = 0;
tics = lowtic - remoteticto[i];
{
byte *p;
packet = malloc(sizeof(packet_header_t) + 1 +
tics * (1 + numplayers * (1 + sizeof(ticcmd_t))));
p = (void*)(packet+1);
packet_set(packet, PKT_TICS, remoteticto[i]);
*p++ = tics;
if (verbose>1) printf("sending %d tics to %d\n", tics, i);
while (tics--) {
int j, playersthistic = 0;
byte *q = p++;
for (j=0; j<MAXPLAYERS; j++)
if ((playerjoingame[j] <= remoteticto[i]) &&
(playerleftgame[j] > remoteticto[i])) {
*p++ = j;
memcpy(p, &netcmds[j][remoteticto[i]%BACKUPTICS], sizeof(ticcmd_t));
p += sizeof(ticcmd_t);
playersthistic++;
}
*q = playersthistic;
remoteticto[i]++;
}
I_SendPacketTo(packet, p - ((byte*)packet), remoteaddr+i);
free(packet);
}
{
if (remoteticfrom[i] == remoteticto[i]) {
backoffcounter[i] = 0;
} else if (remoteticfrom[i] > remoteticto[i]+1) {
if ((backoffcounter[i] += remoteticfrom[i] - remoteticto[i] - 1) > 35) {
packet_header_t *packet = malloc(sizeof(packet_header_t));
packet_set(packet, PKT_BACKOFF, remoteticto[i]);
I_SendPacketTo(packet,sizeof *packet,remoteaddr+i);
backoffcounter[i] = 0;
if (verbose) printf("telling client %d to back off\n",i);
free(packet);
}
}
}
}
}
if (!((ingame ? 0xff : 0xf) & displaycounter++)) {
int i;
fprintf(stderr,"Player states: [");
for (i=0;i<MAXPLAYERS;i++) {
switch (playerstate[i]) {
case pc_unused: fputc(' ',stderr); break;
case pc_connected: fputc('c',stderr); break;
case pc_ready: fputc('r',stderr); break;
case pc_confirmedready: fputc('g',stderr); break;
case pc_playing: fputc('p',stderr); break;
case pc_quit: fputc('x',stderr); break;
}
}
fprintf(stderr,"]\n");
}
}
}
}
#endif // HAVE_NET