Files
assaultcube-/source/src/server.cpp
T

3998 lines
142 KiB
C++

// server.cpp: little more than enhanced multicaster
// runs dedicated or as client coroutine
#include "cube.h"
#define DEBUGCOND (true)
#include "server.h"
#include "servercontroller.h"
#include "serverfiles.h"
// config
servercontroller *svcctrl = NULL;
servercommandline scl;
servermaprot maprot;
serveripblacklist ipblacklist;
servernickblacklist nickblacklist;
serverforbiddenlist forbiddenlist;
serverpasswords passwords;
serverinfofile infofiles;
// server state
bool isdedicated = false;
ENetHost *serverhost = NULL;
int nextstatus = 0, servmillis = 0, lastfillup = 0;
vector<client *> clients;
vector<worldstate *> worldstates;
vector<savedscore> savedscores;
vector<ban> bans;
vector<demofile> demofiles;
int mastermode = MM_OPEN;
static bool autoteam = true;
int matchteamsize = 0;
long int incoming_size = 0;
static bool forceintermission = false;
string servdesc_current;
ENetAddress servdesc_caller;
bool custom_servdesc = false;
// current game
string smapname, nextmapname;
int smode = 0, nextgamemode;
int interm = 0;
static int minremain = 0, gamemillis = 0, gamelimit = 0, /*lmsitemtype = 0,*/ nextsendscore = 0;
mapstats smapstats;
vector<server_entity> sents;
char *maplayout = NULL, *testlayout = NULL;
int maplayout_factor, testlayout_factor, maplayoutssize;
servermapbuffer mapbuffer;
// cmod
char *global_name;
int totalclients = 0;
int cn2boot;
int servertime = 0, serverlagged = 0;
bool valid_client(int cn)
{
return clients.inrange(cn) && clients[cn]->type != ST_EMPTY;
}
void cleanworldstate(ENetPacket *packet)
{
loopv(worldstates)
{
worldstate *ws = worldstates[i];
if(ws->positions.inbuf(packet->data) || ws->messages.inbuf(packet->data)) ws->uses--;
else continue;
if(!ws->uses)
{
delete ws;
worldstates.remove(i);
}
break;
}
}
void sendpacket(int n, int chan, ENetPacket *packet, int exclude)
{
if(n<0)
{
recordpacket(chan, packet->data, (int)packet->dataLength);
loopv(clients) if(i!=exclude && (clients[i]->type!=ST_TCPIP || clients[i]->isauthed)) sendpacket(i, chan, packet);
return;
}
switch(clients[n]->type)
{
case ST_TCPIP:
{
enet_peer_send(clients[n]->peer, chan, packet);
break;
}
case ST_LOCAL:
localservertoclient(chan, packet->data, (int)packet->dataLength);
break;
}
}
static bool reliablemessages = false;
bool buildworldstate()
{
static struct { int posoff, poslen, msgoff, msglen; } pkt[MAXCLIENTS];
worldstate &ws = *new worldstate;
loopv(clients)
{
client &c = *clients[i];
if(c.type!=ST_TCPIP || !c.isauthed) continue;
c.overflow = 0;
if(c.position.empty()) pkt[i].posoff = -1;
else
{
pkt[i].posoff = ws.positions.length();
ws.positions.put(c.position.getbuf(), c.position.length());
pkt[i].poslen = ws.positions.length() - pkt[i].posoff;
c.position.setsize(0);
}
if(c.messages.empty()) pkt[i].msgoff = -1;
else
{
pkt[i].msgoff = ws.messages.length();
putint(ws.messages, SV_CLIENT);
putint(ws.messages, c.clientnum);
putuint(ws.messages, c.messages.length());
ws.messages.put(c.messages.getbuf(), c.messages.length());
pkt[i].msglen = ws.messages.length() - pkt[i].msgoff;
c.messages.setsize(0);
}
}
int psize = ws.positions.length(), msize = ws.messages.length();
if(psize)
{
recordpacket(0, ws.positions.getbuf(), psize);
ucharbuf p = ws.positions.reserve(psize);
p.put(ws.positions.getbuf(), psize);
ws.positions.addbuf(p);
}
if(msize)
{
recordpacket(1, ws.messages.getbuf(), msize);
ucharbuf p = ws.messages.reserve(msize);
p.put(ws.messages.getbuf(), msize);
ws.messages.addbuf(p);
}
ws.uses = 0;
loopv(clients)
{
client &c = *clients[i];
if(c.type!=ST_TCPIP || !c.isauthed) continue;
ENetPacket *packet;
if(psize && (pkt[i].posoff<0 || psize-pkt[i].poslen>0))
{
packet = enet_packet_create(&ws.positions[pkt[i].posoff<0 ? 0 : pkt[i].posoff+pkt[i].poslen],
pkt[i].posoff<0 ? psize : psize-pkt[i].poslen,
ENET_PACKET_FLAG_NO_ALLOCATE);
sendpacket(c.clientnum, 0, packet);
if(!packet->referenceCount) enet_packet_destroy(packet);
else { ++ws.uses; packet->freeCallback = cleanworldstate; }
}
if(msize && (pkt[i].msgoff<0 || msize-pkt[i].msglen>0))
{
packet = enet_packet_create(&ws.messages[pkt[i].msgoff<0 ? 0 : pkt[i].msgoff+pkt[i].msglen],
pkt[i].msgoff<0 ? msize : msize-pkt[i].msglen,
(reliablemessages ? ENET_PACKET_FLAG_RELIABLE : 0) | ENET_PACKET_FLAG_NO_ALLOCATE);
sendpacket(c.clientnum, 1, packet);
if(!packet->referenceCount) enet_packet_destroy(packet);
else { ++ws.uses; packet->freeCallback = cleanworldstate; }
}
}
reliablemessages = false;
if(!ws.uses)
{
delete &ws;
return false;
}
else
{
worldstates.add(&ws);
return true;
}
}
int countclients(int type, bool exclude = false)
{
int num = 0;
loopv(clients) if((clients[i]->type!=type)==exclude) num++;
return num;
}
int numclients() { return countclients(ST_EMPTY, true); }
int numlocalclients() { return countclients(ST_LOCAL); }
int numnonlocalclients() { return countclients(ST_TCPIP); }
int numauthedclients()
{
int num = 0;
loopv(clients) if(clients[i]->type!=ST_EMPTY && clients[i]->isauthed) num++;
return num;
}
int numactiveclients()
{
int num = 0;
loopv(clients) if(clients[i]->type!=ST_EMPTY && clients[i]->isauthed && clients[i]->isonrightmap && team_isactive(clients[i]->team)) num++;
return num;
}
int *numteamclients(int exclude = -1)
{
static int num[TEAM_NUM];
loopi(TEAM_NUM) num[i] = 0;
loopv(clients) if(i != exclude && clients[i]->type!=ST_EMPTY && clients[i]->isauthed && clients[i]->isonrightmap && team_isvalid(clients[i]->team)) num[clients[i]->team]++;
return num;
}
int sendservermode(bool send = true)
{
int sm = (autoteam ? AT_ENABLED : AT_DISABLED) | ((mastermode & MM_MASK) << 2) | (matchteamsize << 4);
if(send) sendf(-1, 1, "ri2", SV_SERVERMODE, sm);
return sm;
}
void changematchteamsize(int newteamsize)
{
if(newteamsize < 0) return;
if(matchteamsize != newteamsize)
{
matchteamsize = newteamsize;
sendservermode();
}
if(mastermode == MM_MATCH && matchteamsize && m_teammode)
{
int size[2] = { 0 };
loopv(clients) if(clients[i]->type!=ST_EMPTY && clients[i]->isauthed && clients[i]->isonrightmap)
{
if(team_isactive(clients[i]->team))
{
if(++size[clients[i]->team] > matchteamsize) updateclientteam(i, team_tospec(clients[i]->team), FTR_SILENTFORCE);
}
}
}
}
void changemastermode(int newmode)
{
if(mastermode != newmode)
{
mastermode = newmode;
senddisconnectedscores(-1);
if(mastermode != MM_MATCH)
{
loopv(clients) if(clients[i]->type!=ST_EMPTY && clients[i]->isauthed)
{
if(clients[i]->team == TEAM_CLA_SPECT || clients[i]->team == TEAM_RVSF_SPECT) updateclientteam(i, TEAM_SPECT, FTR_SILENTFORCE);
}
}
else if(matchteamsize) changematchteamsize(matchteamsize);
sendservermode();
}
}
int findcnbyaddress(ENetAddress *address)
{
loopv(clients)
{
if(clients[i]->type == ST_TCPIP && clients[i]->peer->address.host == address->host && clients[i]->peer->address.port == address->port)
return i;
}
return -1;
}
savedscore *findscore(client &c, bool insert)
{
if(c.type!=ST_TCPIP) return NULL;
enet_uint32 mask = ENET_HOST_TO_NET_32(mastermode == MM_MATCH ? 0xFFFF0000 : 0xFFFFFFFF); // in match mode, reconnecting from /16 subnet is allowed
if(!insert)
{
loopv(clients)
{
client &o = *clients[i];
if(o.type!=ST_TCPIP || !o.isauthed) continue;
if(o.clientnum!=c.clientnum && o.peer->address.host==c.peer->address.host && !strcmp(o.name, c.name))
{
static savedscore curscore;
curscore.save(o.state, o.team);
return &curscore;
}
}
}
loopv(savedscores)
{
savedscore &sc = savedscores[i];
if(!strcmp(sc.name, c.name) && (sc.ip & mask) == (c.peer->address.host & mask)) return &sc;
}
if(!insert) return NULL;
savedscore &sc = savedscores.add();
copystring(sc.name, c.name);
sc.ip = c.peer->address.host;
return &sc;
}
void restoreserverstate(vector<entity> &ents) // hack: called from savegame code, only works in SP
{
loopv(sents)
{
sents[i].spawned = ents[i].spawned;
sents[i].spawntime = 0;
}
}
void sendf(int cn, int chan, const char *format, ...)
{
int exclude = -1;
bool reliable = false;
if(*format=='r') { reliable = true; ++format; }
packetbuf p(MAXTRANS, reliable ? ENET_PACKET_FLAG_RELIABLE : 0);
va_list args;
va_start(args, format);
while(*format) switch(*format++)
{
case 'x':
exclude = va_arg(args, int);
break;
case 'v':
{
int n = va_arg(args, int);
int *v = va_arg(args, int *);
loopi(n) putint(p, v[i]);
break;
}
case 'i':
{
int n = isdigit(*format) ? *format++-'0' : 1;
loopi(n) putint(p, va_arg(args, int));
break;
}
case 's': sendstring(va_arg(args, const char *), p); break;
case 'm':
{
int n = va_arg(args, int);
p.put(va_arg(args, uchar *), n);
break;
}
}
va_end(args);
sendpacket(cn, chan, p.finalize(), exclude);
}
void sendextras()
{
if ( gamemillis < nextsendscore ) return;
int count = 0, list[MAXCLIENTS];
loopv(clients)
{
client &c = *clients[i];
if ( c.type!=ST_TCPIP || !c.isauthed || !(c.md.updated && c.md.upmillis < gamemillis) ) continue;
if ( c.md.combosend )
{
sendf(c.clientnum, 1, "ri2", SV_HUDEXTRAS, min(c.md.combo,c.md.combofrags)-1 + HE_COMBO);
c.md.combosend = false;
}
if ( c.md.dpt )
{
list[count] = i;
count++;
}
}
nextsendscore = gamemillis + 160; // about 4 cicles
if ( !count ) return;
packetbuf p(MAXTRANS, ENET_PACKET_FLAG_RELIABLE);
putint(p, SV_POINTS);
putint(p,count);
int *v = list;
loopi(count)
{
client &c = *clients[*v];
putint(p,c.clientnum); putint(p,c.md.dpt); c.md.updated = false; c.md.upmillis = c.md.dpt = 0;
v++;
}
sendpacket(-1, 1, p.finalize());
}
void sendservmsg(const char *msg, int client=-1)
{
sendf(client, 1, "ris", SV_SERVMSG, msg);
}
void sendspawn(client *c)
{
if(team_isspect(c->team)) return;
clientstate &gs = c->state;
gs.respawn();
gs.spawnstate(smode);
gs.lifesequence++;
sendf(c->clientnum, 1, "ri7vv", SV_SPAWNSTATE, gs.lifesequence,
gs.health, gs.armour,
gs.primary, gs.gunselect, m_arena ? c->spawnindex : -1,
NUMGUNS, gs.ammo, NUMGUNS, gs.mag);
gs.lastspawn = gamemillis;
}
// demo
stream *demotmp = NULL, *demorecord = NULL, *demoplayback = NULL;
bool recordpackets = false;
int nextplayback = 0;
void writedemo(int chan, void *data, int len)
{
if(!demorecord) return;
int stamp[3] = { gamemillis, chan, len };
lilswap(stamp, 3);
demorecord->write(stamp, sizeof(stamp));
demorecord->write(data, len);
}
void recordpacket(int chan, void *data, int len)
{
if(recordpackets) writedemo(chan, data, len);
}
void recordpacket(int chan, ENetPacket *packet)
{
if(recordpackets) writedemo(chan, packet->data, (int)packet->dataLength);
}
void enddemorecord()
{
if(!demorecord) return;
delete demorecord;
recordpackets = false;
demorecord = NULL;
if(!demotmp) return;
if(gamemillis < DEMO_MINTIME)
{
delete demotmp;
demotmp = NULL;
logline(ACLOG_INFO, "Demo discarded.");
return;
}
int len = demotmp->size();
demotmp->seek(0, SEEK_SET);
if(demofiles.length() >= scl.maxdemos)
{
delete[] demofiles[0].data;
demofiles.remove(0);
}
int mr = gamemillis >= gamelimit ? 0 : (gamelimit - gamemillis + 60000 - 1)/60000;
demofile &d = demofiles.add();
//flowtron 2010oct10 suggests : formatstring(d.info)("%s, %s, %.2f%s", modestr(gamemode), smapname, len > 1024*1024 ? len/(1024*1024.f) : len/1024.0f, len > 1024*1024 ? "MB" : "kB"); // the datetime bit is pretty useless in the servmesg, no?!
formatstring(d.info)("%s: %s, %s, %.2f%s", asctime(), modestr(gamemode), smapname, len > 1024*1024 ? len/(1024*1024.f) : len/1024.0f, len > 1024*1024 ? "MB" : "kB");
//formatstring(d.file)("%s_%s_%s", timestring(), behindpath(smapname), modestr(gamemode, true)); // 20100522_10.08.48_ac_mines_DM.dmo
formatstring(d.file)( "%s_%s_%s", modestr(gamemode, true), behindpath(smapname), timestring( true, "%Y.%m.%d_%H%M")); // DM_ac_mines.2010.05.22_1008.dmo
if(mr) { concatformatstring(d.info, ", %d mr", mr); concatformatstring(d.file, "_%dmr", mr); }
defformatstring(msg)("Demo \"%s\" recorded\nPress F10 to download it from the server..", d.info);
sendservmsg(msg);
logline(ACLOG_INFO, "Demo \"%s\" recorded.", d.info);
d.data = new uchar[len];
d.len = len;
demotmp->read(d.data, len);
delete demotmp;
demotmp = NULL;
if(scl.demopath[0])
{
formatstring(msg)("%s%s.dmo", scl.demopath, d.file);
path(msg);
stream *demo = openfile(msg, "wb");
if(demo)
{
int wlen = (int) demo->write(d.data, d.len);
delete demo;
logline(ACLOG_INFO, "demo written to file \"%s\" (%d bytes)", msg, wlen);
}
else
{
logline(ACLOG_INFO, "failed to write demo to file \"%s\"", msg);
}
}
}
void setupdemorecord()
{
if(numlocalclients() || !m_mp(gamemode) || gamemode == GMODE_COOPEDIT) return;
demotmp = opentempfile("demos/demorecord", "w+b");
if(!demotmp) return;
stream *f = opengzfile(NULL, "wb", demotmp);
if(!f)
{
delete demotmp;
demotmp = NULL;
return;
}
sendservmsg("recording demo");
logline(ACLOG_INFO, "Demo recording started.");
demorecord = f;
recordpackets = false;
demoheader hdr;
memcpy(hdr.magic, DEMO_MAGIC, sizeof(hdr.magic));
hdr.version = DEMO_VERSION;
hdr.protocol = SERVER_PROTOCOL_VERSION;
lilswap(&hdr.version, 1);
lilswap(&hdr.protocol, 1);
memset(hdr.desc, 0, DHDR_DESCCHARS);
defformatstring(desc)("%s, %s, %s %s", modestr(gamemode, false), behindpath(smapname), asctime(), servdesc_current);
if(strlen(desc) > DHDR_DESCCHARS)
formatstring(desc)("%s, %s, %s %s", modestr(gamemode, true), behindpath(smapname), asctime(), servdesc_current);
desc[DHDR_DESCCHARS - 1] = '\0';
strcpy(hdr.desc, desc);
memset(hdr.plist, 0, DHDR_PLISTCHARS);
const char *bl = "";
loopv(clients)
{
client *ci = clients[i];
if(ci->type==ST_EMPTY) continue;
if(strlen(hdr.plist) + strlen(ci->name) < DHDR_PLISTCHARS - 2) { strcat(hdr.plist, bl); strcat(hdr.plist, ci->name); }
bl = " ";
}
demorecord->write(&hdr, sizeof(demoheader));
packetbuf p(MAXTRANS, ENET_PACKET_FLAG_RELIABLE);
welcomepacket(p, -1);
writedemo(1, p.buf, p.len);
}
void listdemos(int cn)
{
packetbuf p(MAXTRANS, ENET_PACKET_FLAG_RELIABLE);
putint(p, SV_SENDDEMOLIST);
putint(p, demofiles.length());
loopv(demofiles) sendstring(demofiles[i].info, p);
sendpacket(cn, 1, p.finalize());
}
static void cleardemos(int n)
{
if(!n)
{
loopv(demofiles) delete[] demofiles[i].data;
demofiles.shrink(0);
sendservmsg("cleared all demos");
}
else if(demofiles.inrange(n-1))
{
delete[] demofiles[n-1].data;
demofiles.remove(n-1);
defformatstring(msg)("cleared demo %d", n);
sendservmsg(msg);
}
}
bool sending_demo = false;
void senddemo(int cn, int num)
{
client *cl = cn>=0 ? clients[cn] : NULL;
bool is_admin = (cl && cl->role == CR_ADMIN);
if(scl.demo_interm && (!interm || totalclients > 2) && !is_admin)
{
sendservmsg("\f3sorry, but this server only sends demos at intermission.\n wait the end of this game, please", cn);
return;
}
if(!num) num = demofiles.length();
if(!demofiles.inrange(num-1))
{
if(demofiles.empty()) sendservmsg("no demos available", cn);
else
{
defformatstring(msg)("no demo %d available", num);
sendservmsg(msg, cn);
}
return;
}
if (interm) sending_demo = true;
demofile &d = demofiles[num-1];
packetbuf p(MAXTRANS + d.len, ENET_PACKET_FLAG_RELIABLE);
putint(p, SV_SENDDEMO);
sendstring(d.file, p);
putint(p, d.len);
p.put(d.data, d.len);
sendpacket(cn, 2, p.finalize());
}
void enddemoplayback()
{
if(!demoplayback) return;
delete demoplayback;
demoplayback = NULL;
loopv(clients) sendf(i, 1, "ri3", SV_DEMOPLAYBACK, 0, i);
sendservmsg("demo playback finished");
loopv(clients) sendwelcome(clients[i]);
}
void setupdemoplayback()
{
demoheader hdr;
string msg;
msg[0] = '\0';
defformatstring(file)("demos/%s.dmo", smapname);
path(file);
demoplayback = opengzfile(file, "rb");
if(!demoplayback) formatstring(msg)("could not read demo \"%s\"", file);
else if(demoplayback->read(&hdr, sizeof(demoheader))!=sizeof(demoheader) || memcmp(hdr.magic, DEMO_MAGIC, sizeof(hdr.magic)))
formatstring(msg)("\"%s\" is not a demo file", file);
else
{
lilswap(&hdr.version, 1);
lilswap(&hdr.protocol, 1);
if(hdr.version!=DEMO_VERSION) formatstring(msg)("demo \"%s\" requires an %s version of AssaultCube", file, hdr.version<DEMO_VERSION ? "older" : "newer");
else if(hdr.protocol != PROTOCOL_VERSION && !(hdr.protocol < 0 && hdr.protocol == -PROTOCOL_VERSION)) formatstring(msg)("demo \"%s\" requires an %s version of AssaultCube", file, hdr.protocol<PROTOCOL_VERSION ? "older" : "newer");
}
if(msg[0])
{
if(demoplayback) { delete demoplayback; demoplayback = NULL; }
sendservmsg(msg);
return;
}
formatstring(msg)("playing demo \"%s\"", file);
sendservmsg(msg);
sendf(-1, 1, "ri3", SV_DEMOPLAYBACK, 1, -1);
if(demoplayback->read(&nextplayback, sizeof(nextplayback))!=sizeof(nextplayback))
{
enddemoplayback();
return;
}
lilswap(&nextplayback, 1);
}
void readdemo()
{
if(!demoplayback) return;
while(gamemillis>=nextplayback)
{
int chan, len;
if(demoplayback->read(&chan, sizeof(chan))!=sizeof(chan) ||
demoplayback->read(&len, sizeof(len))!=sizeof(len))
{
enddemoplayback();
return;
}
lilswap(&chan, 1);
lilswap(&len, 1);
ENetPacket *packet = enet_packet_create(NULL, len, 0);
if(!packet || demoplayback->read(packet->data, len)!=len)
{
if(packet) enet_packet_destroy(packet);
enddemoplayback();
return;
}
sendpacket(-1, chan, packet);
if(!packet->referenceCount) enet_packet_destroy(packet);
if(demoplayback->read(&nextplayback, sizeof(nextplayback))!=sizeof(nextplayback))
{
enddemoplayback();
return;
}
lilswap(&nextplayback, 1);
}
}
struct sflaginfo
{
int state;
int actor_cn;
float pos[3];
int lastupdate;
int stolentime;
short x, y; // flag entity location
sflaginfo() { actor_cn = -1; }
} sflaginfos[2];
void putflaginfo(packetbuf &p, int flag)
{
sflaginfo &f = sflaginfos[flag];
putint(p, SV_FLAGINFO);
putint(p, flag);
putint(p, f.state);
switch(f.state)
{
case CTFF_STOLEN:
putint(p, f.actor_cn);
break;
case CTFF_DROPPED:
loopi(3) putuint(p, (int)(f.pos[i]*DMF));
break;
}
}
inline void send_item_list(packetbuf &p)
{
putint(p, SV_ITEMLIST);
loopv(sents) if(sents[i].spawned) putint(p, i);
putint(p, -1);
if(m_flags) loopi(2) putflaginfo(p, i);
}
#include "serverchecks.h"
bool flagdistance(sflaginfo &f, int cn)
{
if(!valid_client(cn) || m_demo) return false;
client &c = *clients[cn];
vec v(-1, -1, c.state.o.z);
switch(f.state)
{
case CTFF_INBASE:
v.x = f.x; v.y = f.y;
break;
case CTFF_DROPPED:
v.x = f.pos[0]; v.y = f.pos[1];
break;
}
if(v.x < 0) return true;
float dist = c.state.o.dist(v);
int pdist = check_pdist(&c,dist);
if(pdist)
{
c.farpickups++;
logline(ACLOG_INFO, "[%s] %s %s the %s flag at distance %.2f (%d)",
c.hostname, c.name, (pdist==2?"tried to touch":"touched"), team_string(&f == sflaginfos + 1), dist, c.farpickups);
if (pdist==2) return false;
}
return true;
}
void sendflaginfo(int flag = -1, int cn = -1)
{
packetbuf p(MAXTRANS, ENET_PACKET_FLAG_RELIABLE);
if(flag >= 0) putflaginfo(p, flag);
else loopi(2) putflaginfo(p, i);
sendpacket(cn, 1, p.finalize());
}
void flagmessage(int flag, int message, int actor, int cn = -1)
{
if(message == FM_KTFSCORE)
sendf(cn, 1, "riiiii", SV_FLAGMSG, flag, message, actor, (gamemillis - sflaginfos[flag].stolentime) / 1000);
else
sendf(cn, 1, "riiii", SV_FLAGMSG, flag, message, actor);
}
void flagaction(int flag, int action, int actor)
{
if(!valid_flag(flag)) return;
sflaginfo &f = sflaginfos[flag];
sflaginfo &of = sflaginfos[team_opposite(flag)];
bool deadactor = valid_client(actor) ? clients[actor]->state.state != CS_ALIVE || team_isspect(clients[actor]->team): true;
int abort = 0;
int score = 0;
int message = -1;
if(m_ctf || m_htf)
{
switch(action)
{
case FA_PICKUP: // ctf: f = enemy team htf: f = own team
case FA_STEAL:
{
if(deadactor || f.state != (action == FA_STEAL ? CTFF_INBASE : CTFF_DROPPED) || !flagdistance(f, actor)) { abort = 10; break; }
int team = team_base(clients[actor]->team);
if(m_ctf) team = team_opposite(team);
if(team != flag) { abort = 11; break; }
f.state = CTFF_STOLEN;
f.actor_cn = actor;
message = FM_PICKUP;
break;
}
case FA_LOST:
if(actor == -1) actor = f.actor_cn;
case FA_DROP:
if(f.state!=CTFF_STOLEN || f.actor_cn != actor) { abort = 12; break; }
f.state = CTFF_DROPPED;
loopi(3) f.pos[i] = clients[actor]->state.o[i];
message = action == FA_LOST ? FM_LOST : FM_DROP;
break;
case FA_RETURN:
if(f.state!=CTFF_DROPPED || m_htf) { abort = 13; break; }
f.state = CTFF_INBASE;
message = FM_RETURN;
break;
case FA_SCORE: // ctf: f = carried by actor flag, htf: f = hunted flag (run over by actor)
if(m_ctf)
{
if(f.state != CTFF_STOLEN || f.actor_cn != actor || of.state != CTFF_INBASE || !flagdistance(of, actor)) { abort = 14; break; }
score = 1;
message = FM_SCORE;
}
else // m_htf
{
if(f.state != CTFF_DROPPED || !flagdistance(f, actor)) { abort = 15; break; }
score = (of.state == CTFF_STOLEN) ? 1 : 0;
message = score ? FM_SCORE : FM_SCOREFAIL;
if(of.actor_cn == actor) score *= 2;
}
f.state = CTFF_INBASE;
break;
case FA_RESET:
f.state = CTFF_INBASE;
message = FM_RESET;
break;
}
}
else if(m_ktf) // f: active flag, of: idle flag
{
switch(action)
{
case FA_STEAL:
if(deadactor || f.state != CTFF_INBASE || !flagdistance(f, actor)) { abort = 20; break; }
f.state = CTFF_STOLEN;
f.actor_cn = actor;
f.stolentime = gamemillis;
message = FM_PICKUP;
break;
case FA_SCORE: // f = carried by actor flag
if(actor != -1 || f.state != CTFF_STOLEN) { abort = 21; break; } // no client msg allowed here
if(valid_client(f.actor_cn) && clients[f.actor_cn]->state.state == CS_ALIVE && !team_isspect(clients[f.actor_cn]->team))
{
actor = f.actor_cn;
score = 1;
message = FM_KTFSCORE;
break;
}
case FA_LOST:
if(actor == -1) actor = f.actor_cn;
case FA_DROP:
if(f.actor_cn != actor || f.state != CTFF_STOLEN) { abort = 22; break; }
case FA_RESET:
if(f.state == CTFF_STOLEN)
{
actor = f.actor_cn;
message = FM_LOST;
}
f.state = CTFF_IDLE;
of.state = CTFF_INBASE;
sendflaginfo(team_opposite(flag));
break;
}
}
if(abort)
{
logline(ACLOG_DEBUG,"aborting flagaction(flag %d, action %d, actor %d), reason %d, resending flag states", flag, action, actor, abort); // FIXME: remove this logline after some time - it will only show a few bad ping effects
sendflaginfo();
return;
}
if(score)
{
client *c = clients[actor];
c->state.flagscore += score;
sendf(-1, 1, "riii", SV_FLAGCNT, actor, c->state.flagscore);
if (m_teammode) computeteamwork(c->team, c->clientnum); /** WIP */
}
if(valid_client(actor))
{
client &c = *clients[actor];
switch(message)
{
case FM_PICKUP:
logline(ACLOG_INFO,"[%s] %s %s the flag", c.hostname, c.name, action == FA_STEAL ? "stole" : "picked up");
break;
case FM_DROP:
case FM_LOST:
logline(ACLOG_INFO,"[%s] %s %s the flag", c.hostname, c.name, message == FM_LOST ? "lost" : "dropped");
break;
case FM_RETURN:
logline(ACLOG_INFO,"[%s] %s returned the flag", c.hostname, c.name);
break;
case FM_SCORE:
logline(ACLOG_INFO, "[%s] %s scored with the flag for %s, new score %d", c.hostname, c.name, team_string(c.team), c.state.flagscore);
break;
case FM_KTFSCORE:
logline(ACLOG_INFO, "[%s] %s scored, carrying for %d seconds, new score %d", c.hostname, c.name, (gamemillis - f.stolentime) / 1000, c.state.flagscore);
break;
case FM_SCOREFAIL:
logline(ACLOG_INFO, "[%s] %s failed to score", c.hostname, c.name);
break;
default:
logline(ACLOG_INFO, "flagaction %d, actor %d, flag %d, message %d", action, actor, flag, message);
break;
}
flagpoints (&c, message);
}
else
{
switch(message)
{
case FM_RESET:
logline(ACLOG_INFO,"the server reset the flag for team %s", team_string(flag));
break;
default:
logline(ACLOG_INFO, "flagaction %d with invalid actor cn %d, flag %d, message %d", action, actor, flag, message);
break;
}
}
f.lastupdate = gamemillis;
sendflaginfo(flag);
if(message >= 0)
flagmessage(flag, message, valid_client(actor) ? actor : -1);
}
int clienthasflag(int cn)
{
if(m_flags && valid_client(cn))
{
loopi(2) { if(sflaginfos[i].state==CTFF_STOLEN && sflaginfos[i].actor_cn==cn) return i; }
}
return -1;
}
void ctfreset()
{
int idleflag = m_ktf ? rnd(2) : -1;
loopi(2)
{
sflaginfos[i].actor_cn = -1;
sflaginfos[i].state = i == idleflag ? CTFF_IDLE : CTFF_INBASE;
sflaginfos[i].lastupdate = -1;
}
}
void sdropflag(int cn)
{
int fl = clienthasflag(cn);
if(fl >= 0) flagaction(fl, FA_LOST, cn);
}
void resetflag(int cn)
{
int fl = clienthasflag(cn);
if(fl >= 0) flagaction(fl, FA_RESET, -1);
}
void htf_forceflag(int flag)
{
sflaginfo &f = sflaginfos[flag];
int besthealth = 0, numbesthealth = 0;
loopv(clients) if(clients[i]->type!=ST_EMPTY)
{
if(clients[i]->state.state == CS_ALIVE && team_base(clients[i]->team) == flag)
{
if(clients[i]->state.health == besthealth)
numbesthealth++;
else
{
if(clients[i]->state.health > besthealth)
{
besthealth = clients[i]->state.health;
numbesthealth = 1;
}
}
}
}
if(numbesthealth)
{
int pick = rnd(numbesthealth);
loopv(clients) if(clients[i]->type!=ST_EMPTY)
{
if(clients[i]->state.state == CS_ALIVE && team_base(clients[i]->team) == flag && --pick < 0)
{
f.state = CTFF_STOLEN;
f.actor_cn = i;
sendflaginfo(flag);
flagmessage(flag, FM_PICKUP, i);
logline(ACLOG_INFO,"[%s] %s got forced to pickup the flag", clients[i]->hostname, clients[i]->name);
break;
}
}
}
f.lastupdate = gamemillis;
}
int arenaround = 0, arenaroundstartmillis = 0;
struct twoint { int index, value; };
int cmpscore(const int *a, const int *b) { return clients[*a]->at3_score - clients[*b]->at3_score; }
int cmptwoint(const struct twoint *a, const struct twoint *b) { return a->value - b->value; }
vector<int> tdistrib;
vector<twoint> sdistrib;
void distributeteam(int team)
{
int numsp = team == 100 ? smapstats.spawns[2] : smapstats.spawns[team];
if(!numsp) numsp = 30; // no spawns: try to distribute anyway
twoint ti;
tdistrib.shrink(0);
loopv(clients) if(clients[i]->type!=ST_EMPTY)
{
if(team == 100 || team == clients[i]->team)
{
tdistrib.add(i);
clients[i]->at3_score = rand();
}
}
tdistrib.sort(cmpscore); // random player order
sdistrib.shrink(0);
loopi(numsp)
{
ti.index = i;
ti.value = rand();
sdistrib.add(ti);
}
sdistrib.sort(cmptwoint); // random spawn order
int x = 0;
loopv(tdistrib)
{
clients[tdistrib[i]]->spawnindex = sdistrib[x++].index;
x %= sdistrib.length();
}
}
void distributespawns()
{
loopv(clients) if(clients[i]->type!=ST_EMPTY)
{
clients[i]->spawnindex = -1;
}
if(m_teammode)
{
distributeteam(0);
distributeteam(1);
}
else
{
distributeteam(100);
}
}
bool items_blocked = false;
bool free_items(int n)
{
client *c = clients[n];
int waitspawn = min(c->ping,200) + c->state.spawn; // flowtron to Brahma: can't this be removed now? (re: rev. 5270)
return !items_blocked && (waitspawn < gamemillis);
}
void checkitemspawns(int);
void arenacheck()
{
if(!m_arena || interm || gamemillis<arenaround || !numactiveclients()) return;
if(arenaround)
{ // start new arena round
arenaround = 0;
arenaroundstartmillis = gamemillis;
distributespawns();
checkitemspawns(60*1000); // the server will respawn all items now
loopv(clients) if(clients[i]->type!=ST_EMPTY && clients[i]->isauthed)
{
if(clients[i]->isonrightmap && team_isactive(clients[i]->team))
sendspawn(clients[i]);
}
items_blocked = false;
return;
}
#ifndef STANDALONE
if(m_botmode && clients[0]->type==ST_LOCAL)
{
bool alive = false, dead = false;
loopv(players) if(players[i])
{
if(!team_isspect(players[i]->team))
{
if(players[i]->state==CS_DEAD) dead = true;
else alive = true;
}
}
if((dead && !alive) || player1->state==CS_DEAD)
{
sendf(-1, 1, "ri2", SV_ARENAWIN, player1->state==CS_ALIVE ? getclientnum() : (alive ? -2 : -1));
arenaround = gamemillis+5000;
}
return;
}
#endif
client *alive = NULL;
bool dead = false;
int lastdeath = 0;
loopv(clients)
{
client &c = *clients[i];
if(c.type==ST_EMPTY || !c.isauthed || !c.isonrightmap || team_isspect(c.team)) continue;
if(c.state.state==CS_ALIVE || (c.state.state==CS_DEAD && c.state.lastspawn>=0))
{
if(!alive) alive = &c;
else if(!m_teammode || alive->team != c.team) return;
}
else if(c.state.state==CS_DEAD)
{
dead = true;
lastdeath = max(lastdeath, c.state.lastdeath);
}
}
if(!dead || gamemillis < lastdeath + 500) return;
items_blocked = true;
sendf(-1, 1, "ri2", SV_ARENAWIN, alive ? alive->clientnum : -1);
arenaround = gamemillis+5000;
if(autoteam && m_teammode) refillteams(true);
}
#define SPAMREPEATINTERVAL 20 // detect doubled lines only if interval < 20 seconds
#define SPAMMAXREPEAT 3 // 4th time is SPAM
#define SPAMCHARPERMINUTE 220 // good typist
#define SPAMCHARINTERVAL 30 // allow 20 seconds typing at maxspeed
bool spamdetect(client *cl, char *text) // checks doubled lines and average typing speed
{
if(cl->type != ST_TCPIP || cl->role == CR_ADMIN) return false;
bool spam = false;
int pause = servmillis - cl->lastsay;
if(pause < 0 || pause > 90*1000) pause = 90*1000;
cl->saychars -= (SPAMCHARPERMINUTE * pause) / (60*1000);
cl->saychars += (int)strlen(text);
if(cl->saychars < 0) cl->saychars = 0;
if(text[0] && !strcmp(text, cl->lastsaytext) && servmillis - cl->lastsay < SPAMREPEATINTERVAL*1000)
{
spam = ++cl->spamcount > SPAMMAXREPEAT;
}
else
{
copystring(cl->lastsaytext, text);
cl->spamcount = 0;
}
cl->lastsay = servmillis;
if(cl->saychars > (SPAMCHARPERMINUTE * SPAMCHARINTERVAL) / 60)
spam = true;
return spam;
}
// chat message distribution matrix:
//
// /------------------------ common chat C c C c c C C c C
// |/----------------------- RVSF chat T
// ||/---------------------- CLA chat T
// |||/--------------------- spect chat t t t T t T
// |||| | | | | | | | | |
// |||| | | | | | | | | | C: normal chat
// |||| team modes: chat goes to | | | | | | | | | T: team chat
// XX --> RVSF players >-----/ | | | | | | | | c: normal chat in all mastermodes except 'match'
// XX X --> RVSF spect players >-------/ | | | | | | | t: all chat in mastermode 'match', otherwise only team chat
// X X --> CLA players >---------/ | | | | | |
// X XX --> CLA spect players >-----------/ | | | | |
// X X --> SPECTATORs >-------------/ | | | |
// XXXX --> SPECTATORs (admin) >---------------/ | | |
// ffa modes: | | |
// X --> any player (ffa mode) >-----------------/ | |
// X X --> any spectator (ffa mode) >-------------------/ |
// X X --> admin spectator >---------------------/
// purpose:
// a) give spects a possibility to chat without annoying the players (even in ffa),
// b) no hidden messages from spects to active teams,
// c) no spect talk to players during 'match'
void sendteamtext(char *text, int sender, int msgtype)
{
if(!valid_client(sender) || clients[sender]->team == TEAM_VOID) return;
packetbuf p(MAXTRANS, ENET_PACKET_FLAG_RELIABLE);
putint(p, msgtype);
putint(p, sender);
sendstring(text, p);
ENetPacket *packet = p.finalize();
recordpacket(1, packet);
int &st = clients[sender]->team;
loopv(clients) if(i!=sender)
{
int &rt = clients[i]->team;
if((rt == TEAM_SPECT && clients[i]->role == CR_ADMIN) || // spect-admin reads all
(team_isactive(st) && st == team_group(rt)) || // player to own team + own spects
(team_isspect(st) && team_isspect(rt))) // spectator to other spectators
sendpacket(i, 1, packet);
}
}
void sendvoicecomteam(int sound, int sender)
{
if(!valid_client(sender) || clients[sender]->team == TEAM_VOID) return;
packetbuf p(MAXTRANS, ENET_PACKET_FLAG_RELIABLE);
putint(p, SV_VOICECOMTEAM);
putint(p, sender);
putint(p, sound);
ENetPacket *packet = p.finalize();
loopv(clients) if(i!=sender)
{
if(clients[i]->team == clients[sender]->team || !m_teammode)
sendpacket(i, 1, packet);
}
}
int spawntime(int type)
{
int np = numclients();
np = np<3 ? 4 : (np>4 ? 2 : 3); // spawn times are dependent on number of players
int sec = 0;
switch(type)
{
case I_CLIPS:
case I_AMMO: sec = np*2; break;
case I_GRENADE: sec = np + 5; break;
case I_HEALTH: sec = np*5; break;
case I_HELMET:
case I_ARMOUR: sec = 25; break;
case I_AKIMBO: sec = 60; break;
}
return sec*1000;
}
bool serverpickup(int i, int sender) // server side item pickup, acknowledge first client that gets it
{
const char *hn = sender >= 0 && clients[sender]->type == ST_TCPIP ? clients[sender]->hostname : NULL;
if(!sents.inrange(i))
{
if(hn) logline(ACLOG_INFO, "[%s] tried to pick up entity #%d - doesn't exist on this map", hn, i);
return false;
}
server_entity &e = sents[i];
if(!e.spawned)
{
if(!e.legalpickup && hn && !m_demo) logline(ACLOG_INFO, "[%s] tried to pick up entity #%d (%s) - can't be picked up in this gamemode or at all", hn, i, entnames[e.type]);
return false;
}
if(sender>=0)
{
client *cl = clients[sender];
if(cl->type==ST_TCPIP)
{
if( cl->state.state!=CS_ALIVE || !cl->state.canpickup(e.type) || ( m_arena && !free_items(sender) ) ) return false;
vec v(e.x, e.y, cl->state.o.z);
float dist = cl->state.o.dist(v);
int pdist = check_pdist(cl,dist);
if (pdist)
{
cl->farpickups++;
if (!m_demo) logline(ACLOG_INFO, "[%s] %s %s up entity #%d (%s), distance %.2f (%d)",
cl->hostname, cl->name, (pdist==2?"tried to pick":"picked"), i, entnames[e.type], dist, cl->farpickups);
if (pdist==2) return false;
}
}
sendf(-1, 1, "ri3", SV_ITEMACC, i, sender);
cl->state.pickup(sents[i].type);
if (m_lss && sents[i].type == I_GRENADE) cl->state.pickup(sents[i].type); // get two nades at lss
}
e.spawned = false;
if(!m_lms) e.spawntime = spawntime(e.type);
return true;
}
void checkitemspawns(int diff)
{
if(!diff) return;
loopv(sents) if(sents[i].spawntime)
{
sents[i].spawntime -= diff;
if(sents[i].spawntime<=0)
{
sents[i].spawntime = 0;
sents[i].spawned = true;
sendf(-1, 1, "ri2", SV_ITEMSPAWN, i);
}
}
}
void serverdamage(client *target, client *actor, int damage, int gun, bool gib, const vec &hitpush = vec(0, 0, 0))
{
if (!m_demo && !m_coop && !validdamage(target, actor, damage, gun, gib)) return;
if ( m_arena && gun == GUN_GRENADE && arenaroundstartmillis + 2000 > gamemillis && target != actor ) return;
clientstate &ts = target->state;
ts.dodamage(damage);
if(damage < INT_MAX)
{
actor->state.damage += damage;
sendf(-1, 1, "ri7", gib ? SV_GIBDAMAGE : SV_DAMAGE, target->clientnum, actor->clientnum, gun, damage, ts.armour, ts.health);
if(target!=actor)
{
checkcombo (target, actor, damage, gun);
if(!hitpush.iszero())
{
vec v(hitpush);
if(!v.iszero()) v.normalize();
sendf(target->clientnum, 1, "ri6", SV_HITPUSH, gun, damage,
int(v.x*DNF), int(v.y*DNF), int(v.z*DNF));
}
}
}
if(ts.health<=0)
{
int targethasflag = clienthasflag(target->clientnum);
bool tk = false, suic = false;
target->state.deaths++;
checkfrag(target, actor, gun, gib);
if(target!=actor)
{
if(!isteam(target->team, actor->team)) actor->state.frags += gib && gun != GUN_GRENADE && gun != GUN_SHOTGUN ? 2 : 1;
else
{
actor->state.frags--;
actor->state.teamkills++;
tk = true;
}
}
else
{ // suicide
actor->state.frags--;
suic = true;
logline(ACLOG_INFO, "[%s] %s suicided", actor->hostname, actor->name);
}
sendf(-1, 1, "ri5", gib ? SV_GIBDIED : SV_DIED, target->clientnum, actor->clientnum, actor->state.frags, gun);
if((suic || tk) && (m_htf || m_ktf) && targethasflag >= 0)
{
actor->state.flagscore--;
sendf(-1, 1, "riii", SV_FLAGCNT, actor->clientnum, actor->state.flagscore);
}
target->position.setsize(0);
ts.state = CS_DEAD;
ts.lastdeath = gamemillis;
if(!suic) logline(ACLOG_INFO, "[%s] %s %s%s %s", actor->hostname, actor->name, gib ? gib_message(gun) : "fragged", tk ? " his teammate" : "", target->name);
if(m_flags && targethasflag >= 0)
{
if(m_ctf)
flagaction(targethasflag, tk ? FA_RESET : FA_LOST, -1);
else if(m_htf)
flagaction(targethasflag, FA_LOST, -1);
else // ktf || tktf
flagaction(targethasflag, FA_RESET, -1);
}
// don't issue respawn yet until DEATHMILLIS has elapsed
// ts.respawn();
if(isdedicated && actor->type == ST_TCPIP && tk)
{
if( actor->state.frags < scl.banthreshold ||
/** teamkilling more than 6 (defaults), more than 2 per minute and less than 4 frags per tk */
( actor->state.teamkills >= -scl.banthreshold &&
actor->state.teamkills * 30 * 1000 > gamemillis &&
actor->state.frags < 4 * actor->state.teamkills ) )
{
ban b = { actor->peer->address, servmillis+20*60*1000 };
bans.add(b);
disconnect_client(actor->clientnum, DISC_AUTOBAN);
}
else if( actor->state.frags < scl.kickthreshold ||
/** teamkilling more than 5 (defaults), more than 1 tk per minute and less than 4 frags per tk */
( actor->state.teamkills >= -scl.kickthreshold &&
actor->state.teamkills * 60 * 1000 > gamemillis &&
actor->state.frags < 4 * actor->state.teamkills ) ) disconnect_client(actor->clientnum, DISC_AUTOKICK);
}
} else if ( target!=actor && isteam(target->team, actor->team) ) check_ffire (target, actor, damage); // friendly fire counter
}
#include "serverevents.h"
bool updatedescallowed(void) { return scl.servdesc_pre[0] || scl.servdesc_suf[0]; }
void updatesdesc(const char *newdesc, ENetAddress *caller = NULL)
{
if(!newdesc || !newdesc[0] || !updatedescallowed())
{
copystring(servdesc_current, scl.servdesc_full);
custom_servdesc = false;
}
else
{
formatstring(servdesc_current)("%s%s%s", scl.servdesc_pre, newdesc, scl.servdesc_suf);
custom_servdesc = true;
if(caller) servdesc_caller = *caller;
}
}
int canspawn(client *c) // beware: canspawn() doesn't check m_arena!
{
if(!c || c->type == ST_EMPTY || !c->isauthed || !team_isvalid(c->team) ||
(servmillis - c->connectmillis < 5000 + c->state.reconnections && gamemillis > 10000 && totalclients > 3) ) return -1;
if(!c->isonrightmap) return SP_WRONGMAP;
if(mastermode == MM_MATCH && matchteamsize)
{
if(c->team == TEAM_SPECT || (team_isspect(c->team) && !m_teammode)) return SP_SPECT;
if(c->team == TEAM_CLA_SPECT || c->team == TEAM_RVSF_SPECT)
{
if(numteamclients()[team_base(c->team)] >= matchteamsize) return SP_SPECT;
else return SP_REFILLMATCH;
}
}
return SP_OK;
}
/** FIXME: this function is unnecessarily complicated */
bool updateclientteam(int cln, int newteam, int ftr)
{
if(!valid_client(cln)) return false;
if(!team_isvalid(newteam) && newteam != TEAM_ANYACTIVE) newteam = TEAM_SPECT;
client &cl = *clients[cln];
if(cl.team == newteam && ftr != FTR_AUTOTEAM) return true; // no change
int *teamsizes = numteamclients(cln);
if( mastermode == MM_OPEN && cl.state.forced && ftr == FTR_PLAYERWISH &&
newteam < TEAM_SPECT && team_base(cl.team) != team_base(newteam) ) return false; // no free will changes to forced people
if(newteam == TEAM_ANYACTIVE) // when spawning from spect
{
if(mastermode == MM_MATCH && cl.team < TEAM_SPECT)
{
newteam = team_base(cl.team);
}
else
{
if(autoteam && teamsizes[TEAM_CLA] != teamsizes[TEAM_RVSF]) newteam = teamsizes[TEAM_CLA] < teamsizes[TEAM_RVSF] ? TEAM_CLA : TEAM_RVSF;
else
{ // join weaker team
int teamscore[2] = {0, 0}, sum = calcscores();
loopv(clients) if(clients[i]->type!=ST_EMPTY && i != cln && clients[i]->isauthed && clients[i]->team != TEAM_SPECT)
{
teamscore[team_base(clients[i]->team)] += clients[i]->at3_score;
}
newteam = sum > 200 ? (teamscore[TEAM_CLA] < teamscore[TEAM_RVSF] ? TEAM_CLA : TEAM_RVSF) : rnd(2);
}
}
}
if(ftr == FTR_PLAYERWISH)
{
if(mastermode == MM_MATCH && matchteamsize && m_teammode)
{
if(newteam != TEAM_SPECT && (team_base(newteam) != team_base(cl.team) || !m_teammode)) return false; // no switching sides in match mode when teamsize is set
}
if(team_isactive(newteam))
{
if(!m_teammode && cl.state.state == CS_ALIVE) return false; // no comments
if(mastermode == MM_MATCH)
{
if(m_teammode && matchteamsize && teamsizes[newteam] >= matchteamsize) return false; // ensure maximum team size
}
else
{
if(m_teammode && autoteam && teamsizes[newteam] > teamsizes[team_opposite(newteam)]) return false; // don't switch to an already bigger team
}
}
else
{
if(team_isactive(cl.team) && cl.state.state != CS_DEAD) return false; // you need to be dead to change to spectator
if(mastermode != MM_MATCH || !m_teammode) newteam = TEAM_SPECT; // only match mode (team) has more than one spect team
}
}
if(cl.team == newteam && ftr != FTR_AUTOTEAM) return true; // no change
if(cl.team != newteam) sdropflag(cl.clientnum);
if(ftr != FTR_INFO && (team_isspect(newteam) || (team_isactive(newteam) && team_isactive(cl.team)))) forcedeath(&cl);
sendf(-1, 1, "riii", SV_SETTEAM, cln, newteam | ((ftr == FTR_SILENTFORCE ? FTR_INFO : ftr) << 4));
if(ftr != FTR_INFO && !team_isspect(newteam) && team_isspect(cl.team)) sendspawn(&cl);
if (team_isspect(newteam)) cl.state.state = CS_SPECTATE;
cl.team = newteam;
return true;
}
int calcscores() // skill eval
{
int sum = 0;
loopv(clients) if(clients[i]->type!=ST_EMPTY)
{
clientstate &cs = clients[i]->state;
sum += clients[i]->at3_score = cs.points > 0 ? ufSqrt((float)cs.points) : -ufSqrt((float)-cs.points);
}
return sum;
}
vector<int> shuffle;
void shuffleteams(int ftr = FTR_AUTOTEAM)
{
int numplayers = numclients();
int team, sums = calcscores();
if(gamemillis < 2 * 60 *1000)
{ // random
int teamsize[2] = {0, 0};
loopv(clients) if(clients[i]->type!=ST_EMPTY && clients[i]->isonrightmap && !team_isspect(clients[i]->team)) // only shuffle active players
{
sums += rnd(1000);
team = sums & 1;
if(teamsize[team] >= numplayers/2) team = team_opposite(team);
updateclientteam(i, team, ftr);
teamsize[team]++;
sums >>= 1;
}
}
else
{ // skill sorted
shuffle.shrink(0);
sums /= 4 * numplayers + 2;
team = rnd(2);
loopv(clients) if(clients[i]->type!=ST_EMPTY && clients[i]->isonrightmap && !team_isspect(clients[i]->team))
{
clients[i]->at3_score += rnd(sums | 1);
shuffle.add(i);
}
shuffle.sort(cmpscore);
loopi(shuffle.length())
{
updateclientteam(shuffle[i], team, ftr);
team = !team;
}
}
}
bool balanceteams(int ftr) // pro vs noobs never more
{
if(mastermode != MM_OPEN || totalclients < 3 ) return true;
int tsize[2] = {0, 0}, tscore[2] = {0, 0};
int totalscore = 0, nplayers = 0;
int flagmult = (m_ctf ? 50 : (m_htf ? 25 : 12));
loopv(clients) if(clients[i]->type!=ST_EMPTY)
{
client *c = clients[i];
if(c->isauthed && team_isactive(c->team))
{
int time = servmillis - c->connectmillis + 5000;
if ( time > gamemillis ) time = gamemillis + 5000;
tsize[c->team]++;
// effective score per minute, thanks to wtfthisgame for the nice idea
// in a normal game, normal players will do 500 points in 10 minutes
c->eff_score = c->state.points * 60 * 1000 / time + c->state.points / 6 + c->state.flagscore * flagmult;
tscore[c->team] += c->eff_score;
nplayers++;
totalscore += c->state.points;
}
}
int h = 0, l = 1;
if ( tscore[1] > tscore[0] ) { h = 1; l = 0; }
if ( 2 * tscore[h] < 3 * tscore[l] || totalscore < nplayers * 100 ) return true;
if ( tscore[h] > 3 * tscore[l] && tscore[h] > 150 * nplayers )
{
// sendf(-1, 1, "ri2", SV_SERVERMODE, sendservermode(false) | AT_SHUFFLE);
shuffleteams();
return true;
}
float diffscore = tscore[h] - tscore[l];
int besth = 0, hid = -1;
int bestdiff = 0, bestpair[2] = {-1, -1};
if ( tsize[h] - tsize[l] > 0 ) // the h team has more players, so we will force only one player
{
loopv(clients) if( clients[i]->type!=ST_EMPTY )
{
client *c = clients[i]; // loop for h
// client from the h team, not forced in this game, and without the flag
if( c->isauthed && c->team == h && !c->state.forced && clienthasflag(i) < 0 )
{
// do not exchange in the way that weaker team becomes the stronger or the change is less than 20% effective
if ( 2 * c->eff_score <= diffscore && 10 * c->eff_score >= diffscore && c->eff_score > besth )
{
besth = c->eff_score;
hid = i;
}
}
}
if ( hid >= 0 )
{
updateclientteam(hid, l, ftr);
clients[hid]->at3_lastforce = gamemillis;
clients[hid]->state.forced = true;
return true;
}
} else { // the h score team has less or the same player number, so, lets exchange
loopv(clients) if(clients[i]->type!=ST_EMPTY)
{
client *c = clients[i]; // loop for h
if( c->isauthed && c->team == h && !c->state.forced && clienthasflag(i) < 0 )
{
loopvj(clients) if(clients[j]->type!=ST_EMPTY && j != i )
{
client *cj = clients[j]; // loop for l
if( cj->isauthed && cj->team == l && !cj->state.forced && clienthasflag(j) < 0 )
{
int pairdiff = 2 * (c->eff_score - cj->eff_score);
if ( pairdiff <= diffscore && 5 * pairdiff >= diffscore && pairdiff > bestdiff )
{
bestdiff = pairdiff;
bestpair[h] = i;
bestpair[l] = j;
}
}
}
}
}
if ( bestpair[h] >= 0 && bestpair[l] >= 0 )
{
updateclientteam(bestpair[h], l, ftr);
updateclientteam(bestpair[l], h, ftr);
clients[bestpair[h]]->at3_lastforce = clients[bestpair[l]]->at3_lastforce = gamemillis;
clients[bestpair[h]]->state.forced = clients[bestpair[l]]->state.forced = true;
return true;
}
}
return false;
}
int lastbalance = 0, waitbalance = 2 * 60 * 1000;
bool refillteams(bool now, int ftr) // force only minimal amounts of players
{
if(mastermode == MM_MATCH) return false;
static int lasttime_eventeams = 0;
int teamsize[2] = {0, 0}, teamscore[2] = {0, 0}, moveable[2] = {0, 0};
bool switched = false;
calcscores();
loopv(clients) if(clients[i]->type!=ST_EMPTY) // playerlist stocktaking
{
client *c = clients[i];
c->at3_dontmove = true;
if(c->isauthed)
{
if(team_isactive(c->team)) // only active players count
{
teamsize[c->team]++;
teamscore[c->team] += c->at3_score;
if(clienthasflag(i) < 0)
{
c->at3_dontmove = false;
moveable[c->team]++;
}
}
}
}
int bigteam = teamsize[1] > teamsize[0];
int allplayers = teamsize[0] + teamsize[1];
int diffnum = teamsize[bigteam] - teamsize[!bigteam];
int diffscore = teamscore[bigteam] - teamscore[!bigteam];
if(lasttime_eventeams > gamemillis) lasttime_eventeams = 0;
if(diffnum > 1)
{
if(now || gamemillis - lasttime_eventeams > 8000 + allplayers * 1000 || diffnum > 2 + allplayers / 10)
{
// time to even out teams
loopv(clients) if(clients[i]->type!=ST_EMPTY && clients[i]->team != bigteam) clients[i]->at3_dontmove = true; // dont move small team players
while(diffnum > 1 && moveable[bigteam] > 0)
{
// pick best fitting cn
int pick = -1;
int bestfit = 1000000000;
int targetscore = diffscore / (diffnum & ~1);
loopv(clients) if(clients[i]->type!=ST_EMPTY && !clients[i]->at3_dontmove) // try all still movable players
{
int fit = targetscore - clients[i]->at3_score;
if(fit < 0 ) fit = -(fit * 15) / 10; // avoid too good players
int forcedelay = clients[i]->at3_lastforce ? (1000 - (gamemillis - clients[i]->at3_lastforce) / (5 * 60)) : 0;
if(forcedelay > 0) fit += (fit * forcedelay) / 600; // avoid lately forced players
if(fit < bestfit + fit * rnd(100) / 400) // search 'almost' best fit
{
bestfit = fit;
pick = i;
}
}
if(pick < 0) break; // should really never happen
// move picked player
clients[pick]->at3_dontmove = true;
moveable[bigteam]--;
if(updateclientteam(pick, !bigteam, ftr))
{
diffnum -= 2;
diffscore -= 2 * clients[pick]->at3_score;
clients[pick]->at3_lastforce = gamemillis; // try not to force this player again for the next 5 minutes
switched = true;
}
}
}
}
if(diffnum < 2)
{
if ( ( gamemillis - lastbalance ) > waitbalance && ( gamelimit - gamemillis ) > 4*60*1000 )
{
if ( balanceteams (ftr) )
{
waitbalance = 2 * 60 * 1000 + gamemillis / 3;
switched = true;
}
else waitbalance = 20 * 1000;
lastbalance = gamemillis;
}
else if ( lastbalance > gamemillis )
{
lastbalance = 0;
waitbalance = 2 * 60 * 1000;
}
lasttime_eventeams = gamemillis;
}
return switched;
}
void resetserver(const char *newname, int newmode, int newtime)
{
if(m_demo) enddemoplayback();
else enddemorecord();
smode = newmode;
copystring(smapname, newname);
minremain = newtime >= 0 ? newtime : (m_teammode ? 15 : 10);
gamemillis = 0;
gamelimit = minremain*60000;
arenaround = arenaroundstartmillis = 0;
memset(&smapstats, 0, sizeof(smapstats));
interm = nextsendscore = 0;
lastfillup = servmillis;
sents.shrink(0);
if(mastermode == MM_PRIVATE)
{
loopv(savedscores) savedscores[i].valid = false;
}
else savedscores.shrink(0);
ctfreset();
nextmapname[0] = '\0';
forceintermission = false;
}
void startdemoplayback(const char *newname)
{
if(isdedicated) return;
resetserver(newname, GMODE_DEMO, -1);
setupdemoplayback();
}
void startgame(const char *newname, int newmode, int newtime, bool notify)
{
if(!newname || !*newname || (newmode == GMODE_DEMO && isdedicated)) fatal("startgame() abused");
if(newmode == GMODE_DEMO)
{
startdemoplayback(newname);
}
else
{
bool lastteammode = m_teammode;
resetserver(newname, newmode, newtime); // beware: may clear *newname
if(custom_servdesc && findcnbyaddress(&servdesc_caller) < 0)
{
updatesdesc(NULL);
if(notify)
{
sendservmsg("server description reset to default");
logline(ACLOG_INFO, "server description reset to '%s'", servdesc_current);
}
}
int maploc = MAP_VOID;
mapstats *ms = getservermapstats(smapname, isdedicated, &maploc);
mapbuffer.clear();
if(isdedicated && distributablemap(maploc)) mapbuffer.load();
if(ms)
{
smapstats = *ms;
loopi(2)
{
sflaginfo &f = sflaginfos[i];
if(smapstats.flags[i] == 1) // don't check flag positions, if there is more than one flag per team
{
short *fe = smapstats.entposs + smapstats.flagents[i] * 3;
f.x = *fe;
fe++;
f.y = *fe;
}
else f.x = f.y = -1;
}
entity e;
loopi(smapstats.hdr.numents)
{
e.type = smapstats.enttypes[i];
e.transformtype(smode);
server_entity se = { e.type, false, false, false, 0, smapstats.entposs[i * 3], smapstats.entposs[i * 3 + 1]};
sents.add(se);
if(e.fitsmode(smode)) sents[i].spawned = sents[i].legalpickup = true;
}
mapbuffer.setrevision();
logline(ACLOG_INFO, "Map height density information for %s: H = %.2f V = %d, A = %d and MA = %d", smapname, Mheight, Mvolume, Marea, Mopen);
items_blocked = false;
}
else if(isdedicated) sendservmsg("\f3server error: map not found - please start another map or send this map to the server");
if(notify)
{
// change map
sendf(-1, 1, "risiii", SV_MAPCHANGE, smapname, smode, mapbuffer.available(), mapbuffer.revision);
if(smode>1 || (smode==0 && numnonlocalclients()>0)) sendf(-1, 1, "ri3", SV_TIMEUP, gamemillis, gamelimit);
}
packetbuf q(MAXTRANS, ENET_PACKET_FLAG_RELIABLE);
send_item_list(q); // always send the item list when a game starts
sendpacket(-1, 1, q.finalize());
defformatstring(gsmsg)("Game start: %s on %s, %d players, %d minutes, mastermode %d, ", modestr(smode), smapname, numclients(), minremain, mastermode);
if(mastermode == MM_MATCH) concatformatstring(gsmsg, "teamsize %d, ", matchteamsize);
if(ms) concatformatstring(gsmsg, "(map rev %d/%d, %s, 'getmap' %sprepared)", smapstats.hdr.maprevision, smapstats.cgzsize, maplocstr[maploc], mapbuffer.available() ? "" : "not ");
else concatformatstring(gsmsg, "error: failed to preload map (map: %s)", maplocstr[maploc]);
logline(ACLOG_INFO, "\n%s", gsmsg);
if(m_arena) distributespawns();
if(notify)
{
// shuffle if previous mode wasn't a team-mode
if(m_teammode)
{
if(!lastteammode)
shuffleteams(FTR_INFO);
else if(autoteam)
refillteams(true, FTR_INFO);
}
// prepare spawns; players will spawn, once they've loaded the correct map
loopv(clients) if(clients[i]->type!=ST_EMPTY)
{
client *c = clients[i];
c->mapchange();
forcedeath(c);
}
}
if(numnonlocalclients() > 0) setupdemorecord();
if(notify && m_ktf) sendflaginfo();
if(notify) senddisconnectedscores(-1);
}
}
struct gbaninfo
{
enet_uint32 ip, mask;
};
vector<gbaninfo> gbans;
void cleargbans()
{
gbans.shrink(0);
}
bool checkgban(uint ip)
{
loopv(gbans) if((ip & gbans[i].mask) == gbans[i].ip) return true;
return false;
}
void addgban(const char *name)
{
union { uchar b[sizeof(enet_uint32)]; enet_uint32 i; } ip, mask;
ip.i = 0;
mask.i = 0;
loopi(4)
{
char *end = NULL;
int n = strtol(name, &end, 10);
if(!end) break;
if(end > name) { ip.b[i] = n; mask.b[i] = 0xFF; }
name = end;
while(*name && *name++ != '.');
}
gbaninfo &ban = gbans.add();
ban.ip = ip.i;
ban.mask = mask.i;
loopvrev(clients)
{
client &c = *clients[i];
if(c.type!=ST_TCPIP || c.role >= CR_ADMIN) continue;
if(checkgban(c.peer->address.host)) disconnect_client(c.clientnum, DISC_BANREFUSE);
}
}
bool isbanned(int cn)
{
if(!valid_client(cn)) return false;
client &c = *clients[cn];
if(c.type==ST_LOCAL) return false;
loopv(bans)
{
ban &b = bans[i];
if(b.millis < servmillis) { bans.remove(i--); }
if(b.address.host == c.peer->address.host) { return true; }
}
return checkgban(c.peer->address.host) || ipblacklist.check(c.peer->address.host);
}
int serveroperator()
{
loopv(clients) if(clients[i]->type!=ST_EMPTY && clients[i]->role > CR_DEFAULT) return i;
return -1;
}
void sendserveropinfo(int receiver)
{
int op = serveroperator();
sendf(receiver, 1, "riii", SV_SERVOPINFO, op, op >= 0 ? clients[op]->role : -1);
}
#include "serveractions.h"
struct voteinfo
{
int boot;
int owner, callmillis, result, num, type;
char text[MAXTRANS];
serveraction *action;
bool gonext;
enet_uint32 host;
voteinfo() : boot(0), owner(0), callmillis(0), result(VOTE_NEUTRAL), action(NULL), gonext(false), host(0) {}
~voteinfo() { delete action; }
void end(int result)
{
if(action && !action->isvalid()) result = VOTE_NO; // don't perform() invalid votes
sendf(-1, 1, "ri2", SV_VOTERESULT, result);
this->result = result;
if(result == VOTE_YES)
{
if(valid_client(owner)) clients[owner]->lastvotecall = 0;
if(action) action->perform();
}
loopv(clients) clients[i]->vote = VOTE_NEUTRAL;
}
bool isvalid() { return valid_client(owner) && action != NULL && action->isvalid(); }
bool isalive() { return servmillis - callmillis < 30*1000; }
void evaluate(bool forceend = false)
{
if(result!=VOTE_NEUTRAL) return; // block double action
if(action && !action->isvalid()) end(VOTE_NO);
int stats[VOTE_NUM] = {0};
int adminvote = VOTE_NEUTRAL;
loopv(clients)
if(clients[i]->type!=ST_EMPTY /*&& clients[i]->connectmillis < callmillis*/) // new connected people will vote now
{
stats[clients[i]->vote]++;
if(clients[i]->role==CR_ADMIN) adminvote = clients[i]->vote;
};
bool admin = clients[owner]->role==CR_ADMIN || (!isdedicated && clients[owner]->type==ST_LOCAL);
int total = stats[VOTE_NO]+stats[VOTE_YES]+stats[VOTE_NEUTRAL];
const float requiredcount = 0.51f;
bool min_time = servmillis - callmillis > 10*1000;
#define yes_condition ((min_time && stats[VOTE_YES] - stats[VOTE_NO] > 0.34f*total && totalclients > 4) || stats[VOTE_YES] > requiredcount*total)
#define no_condition (forceend || !valid_client(owner) || stats[VOTE_NO] >= stats[VOTE_YES]+stats[VOTE_NEUTRAL] || adminvote == VOTE_NO)
#define boot_condition (!boot || (boot && valid_client(num) && clients[num]->peer->address.host == host))
if( (yes_condition || admin || adminvote == VOTE_YES) && boot_condition ) end(VOTE_YES);
else if( no_condition || (min_time && !boot_condition)) end(VOTE_NO);
else return;
#undef boot_condition
#undef no_condition
#undef yes_condition
}
};
static voteinfo *curvote = NULL;
bool svote(int sender, int vote, ENetPacket *msg) // true if the vote was placed successfully
{
if(!curvote || !valid_client(sender) || vote < VOTE_YES || vote > VOTE_NO) return false;
if(clients[sender]->vote != VOTE_NEUTRAL)
{
sendf(sender, 1, "ri2", SV_CALLVOTEERR, VOTEE_MUL);
return false;
}
else
{
sendpacket(-1, 1, msg, sender);
clients[sender]->vote = vote;
logline(ACLOG_DEBUG,"[%s] client %s voted %s", clients[sender]->hostname, clients[sender]->name, vote == VOTE_NO ? "no" : "yes");
curvote->evaluate();
return true;
}
}
void scallvotesuc(voteinfo *v)
{
if(!v->isvalid()) return;
DELETEP(curvote);
curvote = v;
clients[v->owner]->lastvotecall = servmillis;
clients[v->owner]->nvotes--; // successful votes do not count as abuse
sendf(v->owner, 1, "ri", SV_CALLVOTESUC);
logline(ACLOG_INFO, "[%s] client %s called a vote: %s", clients[v->owner]->hostname, clients[v->owner]->name, v->action->desc ? v->action->desc : "[unknown]");
}
void scallvoteerr(voteinfo *v, int error)
{
if(!valid_client(v->owner)) return;
sendf(v->owner, 1, "ri2", SV_CALLVOTEERR, error);
logline(ACLOG_INFO, "[%s] client %s failed to call a vote: %s (%s)", clients[v->owner]->hostname, clients[v->owner]->name, v->action->desc ? v->action->desc : "[unknown]", voteerrorstr(error));
}
bool map_queued = false;
void callvotepacket (int, voteinfo *);
bool scallvote(voteinfo *v, ENetPacket *msg) // true if a regular vote was called
{
int area = isdedicated ? EE_DED_SERV : EE_LOCAL_SERV;
int error = -1;
client *c = clients[v->owner], *b = ( v->boot ? clients[cn2boot] : NULL );
v->host = v->boot ? b->peer->address.host : 0;
int time = servmillis - c->lastvotecall;
if ( c->nvotes > 0 && time > 4*60*1000 ) c->nvotes -= time/(4*60*1000);
if ( c->nvotes < 0 || c->role == CR_ADMIN ) c->nvotes = 0;
c->nvotes++;
if( !v || !v->isvalid() || (v->boot && (!b || cn2boot == v->owner) ) ) error = VOTEE_INVALID;
else if( v->action->role > c->role ) error = VOTEE_PERMISSION;
else if( !(area & v->action->area) ) error = VOTEE_AREA;
else if( curvote && curvote->result==VOTE_NEUTRAL ) error = VOTEE_CUR;
else if( v->type == SA_MAP && v->num >= GMODE_NUM && map_queued ) error = VOTEE_NEXT;
else if( c->role == CR_DEFAULT && v->action->isdisabled() ) error = VOTEE_DISABLED;
else if( (c->lastvotecall && servmillis - c->lastvotecall < 60*1000 && c->role != CR_ADMIN && numclients()>1) || c->nvotes > 3 ) error = VOTEE_MAX;
else if( ( ( v->boot == 1 && c->role < roleconf('w') ) || ( v->boot == 2 && c->role < roleconf('X') ) )
&& !is_lagging(b) && !b->mute && b->spamcount < 2 )
{
/** not same team, with low ratio, not lagging, and not spamming... so, why to kick? */
if ( !isteam(c->team, b->team) && b->state.frags < ( b->state.deaths > 0 ? b->state.deaths : 1 ) * 3 ) error = VOTEE_WEAK;
/** same team, with low tk, not lagging, and not spamming... so, why to kick? */
else if ( isteam(c->team, b->team) && b->state.teamkills < c->state.teamkills ) error = VOTEE_WEAK;
}
if(error>=0)
{
scallvoteerr(v, error);
return false;
}
else
{
if ( v->type == SA_MAP && v->num >= GMODE_NUM )
{
map_queued = true;
nextgamemode = v->num-GMODE_NUM;
copystring(nextmapname, v->text);
}
if (!v->gonext) sendpacket(-1, 1, msg, v->owner); // FIXME in fact, all votes should go to the server, registered, and then go back to the clients
else callvotepacket (-1, v); // also, no vote should exclude the caller... these would provide many code advantages/facilities
scallvotesuc(v); // but we cannot change the vote system now for compatibility issues... so, TODO
return true;
}
}
void callvotepacket (int cn, voteinfo *v = curvote)
{ // FIXME, it would be far smart if the msg buffer from SV_CALLVOTE was simply saved
int n_yes = 0, n_no = 0;
loopv(clients) if(clients[i]->type!=ST_EMPTY)
{
if ( clients[i]->vote == VOTE_YES ) n_yes++;
else if ( clients[i]->vote == VOTE_NO ) n_no++;
}
packetbuf q(MAXTRANS, ENET_PACKET_FLAG_RELIABLE);
putint(q, SV_CALLVOTE);
putint(q, -1);
putint(q, v->owner);
putint(q, n_yes);
putint(q, n_no);
putint(q, v->type);
switch(v->type)
{
case SA_KICK:
case SA_BAN:
putint(q, v->num);
sendstring(v->text, q);
break;
case SA_MAP:
sendstring(v->text, q);
putint(q, v->num);
break;
case SA_SERVERDESC:
sendstring(v->text, q);
break;
case SA_STOPDEMO:
case SA_REMBANS:
case SA_SHUFFLETEAMS:
break;
default:
putint(q, v->num);
break;
}
sendpacket(cn, 1, q.finalize());
}
// TODO: use AUTH code
void changeclientrole(int client, int role, char *pwd, bool force)
{
pwddetail pd;
if(!isdedicated || !valid_client(client)) return;
pd.line = -1;
if(force || role == CR_DEFAULT || (role == CR_ADMIN && pwd && pwd[0] && passwords.check(clients[client]->name, pwd, clients[client]->salt, &pd) && !pd.denyadmin))
{
if(role == clients[client]->role) return;
if(role > CR_DEFAULT)
{
loopv(clients) clients[i]->role = CR_DEFAULT;
}
clients[client]->role = role;
sendserveropinfo(-1);
if(pd.line > -1)
logline(ACLOG_INFO,"[%s] player %s used admin password in line %d", clients[client]->hostname, clients[client]->name[0] ? clients[client]->name : "[unnamed]", pd.line);
logline(ACLOG_INFO,"[%s] set role of player %s to %s", clients[client]->hostname, clients[client]->name[0] ? clients[client]->name : "[unnamed]", role == CR_ADMIN ? "admin" : "normal player"); // flowtron : connecting players haven't got a name yet (connectadmin)
}
else if(pwd && pwd[0]) disconnect_client(client, DISC_SOPLOGINFAIL); // avoid brute-force
if(curvote) curvote->evaluate();
}
void senddisconnectedscores(int cn)
{
packetbuf p(MAXTRANS, ENET_PACKET_FLAG_RELIABLE);
putint(p, SV_DISCSCORES);
if(mastermode == MM_MATCH)
{
loopv(savedscores)
{
savedscore &sc = savedscores[i];
if(sc.valid)
{
putint(p, sc.team);
sendstring(sc.name, p);
putint(p, sc.flagscore);
putint(p, sc.frags);
putint(p, sc.deaths);
putint(p, sc.points);
}
}
}
putint(p, -1);
sendpacket(cn, 1, p.finalize());
}
const char *disc_reason(int reason)
{
static const char *disc_reasons[] = { "normal", "error - end of packet", "error - client num", "vote-kicked from the server", "vote-banned from the server", "error - tag type", "connection refused - you have been banned from this server", "incorrect password", "unsuccessful administrator login", "the server is FULL - try again later", "servers mastermode is \"private\" - wait until the servers mastermode is \"open\"", "auto-kick - your score dropped below the servers threshold", "auto-ban - your score dropped below the servers threshold", "duplicate connection", "inappropriate nickname", "error - overflow", "auto-kick - excess spam detected", "auto-kick - inactivity detected", "auto-kick - team killing detected", "auto-kick - abnormal client behavior detected" };
return reason >= 0 && (size_t)reason < sizeof(disc_reasons)/sizeof(disc_reasons[0]) ? disc_reasons[reason] : "unknown";
}
void disconnect_client(int n, int reason)
{
if(!clients.inrange(n) || clients[n]->type!=ST_TCPIP) return;
sdropflag(n);
client &c = *clients[n];
if (c.state.state == CS_ALIVE) c.state.lastdisc = servmillis;
const char *scoresaved = "";
if(c.haswelcome)
{
savedscore *sc = findscore(c, true);
if(sc)
{
sc->save(c.state, c.team);
scoresaved = ", score saved";
}
}
int sp = (servmillis - c.connectmillis) / 1000;
if(reason>=0) logline(ACLOG_INFO, "[%s] disconnecting client %s (%s) cn %d, %d seconds played%s", c.hostname, c.name, disc_reason(reason), n, sp, scoresaved);
else logline(ACLOG_INFO, "[%s] disconnected client %s cn %d, %d seconds played%s", c.hostname, c.name, n, sp, scoresaved);
totalclients--;
c.peer->data = (void *)-1;
if(reason>=0) enet_peer_disconnect(c.peer, reason);
clients[n]->zap();
sendf(-1, 1, "rii", SV_CDIS, n);
if(curvote) curvote->evaluate();
if(*scoresaved && mastermode == MM_MATCH) senddisconnectedscores(-1);
}
// for AUTH: WIP
client *findauth(uint id)
{
loopv(clients) if(clients[i]->authreq == id) return clients[i];
return NULL;
}
void authfailed(uint id)
{
client *cl = findauth(id);
if(!cl) return;
cl->authreq = 0;
}
void authsucceeded(uint id)
{
client *cl = findauth(id);
if(!cl) return;
cl->authreq = 0;
//setmaster(cl, true, "", ci->authname);//TODO? compare to sauerbraten
}
void authchallenged(uint id, const char *val)
{
client *cl = findauth(id);
if(!cl) return;
sendf(cl->clientnum, 1, "risis", SV_AUTHCHAL, "", id, val);
}
uint nextauthreq = 0;
void tryauth(client *cl, const char *user)
{
extern bool requestmasterf(const char *fmt, ...);
if(!nextauthreq) nextauthreq = 1;
cl->authreq = nextauthreq++;
filtertext(cl->authname, user, false, 100);
if(!requestmasterf("reqauth %u %s\n", cl->authreq, cl->authname))
{
cl->authreq = 0;
sendf(cl->clientnum, 1, "ris", SV_SERVMSG, "not connected to authentication server");
}
}
void answerchallenge(client *cl, uint id, char *val)
{
if(cl->authreq != id) return;
extern bool requestmasterf(const char *fmt, ...);
for(char *s = val; *s; s++)
{
if(!isxdigit(*s)) { *s = '\0'; break; }
}
if(!requestmasterf("confauth %u %s\n", id, val))
{
cl->authreq = 0;
sendf(cl->clientnum, 1, "ris", SV_SERVMSG, "not connected to authentication server");
}
}
// :for AUTH
void sendwhois(int sender, int cn)
{
if( !valid_client(sender) ) return;
if ( cn == -1 && clients[sender]->role == CR_ADMIN )
{
loopv(clients) if ( valid_client(i) && clients[i]->type == ST_TCPIP && i != sender ) sendwhois(sender, i);
return;
}
if( !valid_client(cn) ) return;
if( clients[cn]->type == ST_TCPIP )
{
uint ip = clients[cn]->peer->address.host;
if(clients[sender]->role != CR_ADMIN) ip &= 0xFFFFFF; // only admin gets full IP
sendf(sender, 1, "ri3", SV_WHOISINFO, cn, ip);
}
}
void sendresume(client &c, bool broadcast)
{
sendf(broadcast ? -1 : c.clientnum, 1, "ri3i9vvi", SV_RESUME,
c.clientnum,
c.state.state,
c.state.lifesequence,
c.state.primary,
c.state.gunselect,
c.state.flagscore,
c.state.frags,
c.state.deaths,
c.state.health,
c.state.armour,
c.state.points,
NUMGUNS, c.state.ammo,
NUMGUNS, c.state.mag,
-1);
}
bool restorescore(client &c)
{
//if(ci->local) return false;
savedscore *sc = findscore(c, false);
if(sc && sc->valid)
{
sc->restore(c.state);
sc->valid = false;
if ( c.connectmillis - sc->lastdisc < 5000 && (++c.state.reconnections >= 3) ) c.state.deaths++;
return true;
}
return false;
}
void sendservinfo(client &c)
{
sendf(c.clientnum, 1, "ri5", SV_SERVINFO, c.clientnum, isdedicated ? SERVER_PROTOCOL_VERSION : PROTOCOL_VERSION, c.salt, scl.serverpassword[0] ? 1 : 0);
}
void putinitclient(client &c, packetbuf &p)
{
putint(p, SV_INITCLIENT);
putint(p, c.clientnum);
sendstring(c.name, p);
putint(p, c.skin[TEAM_CLA]);
putint(p, c.skin[TEAM_RVSF]);
putint(p, c.team);
}
void sendinitclient(client &c)
{
packetbuf p(MAXTRANS, ENET_PACKET_FLAG_RELIABLE);
putinitclient(c, p);
sendpacket(-1, 1, p.finalize(), c.clientnum);
}
void welcomeinitclient(packetbuf &p, int exclude = -1)
{
loopv(clients)
{
client &c = *clients[i];
if(c.type!=ST_TCPIP || !c.isauthed || c.clientnum == exclude) continue;
putinitclient(c, p);
}
}
void welcomepacket(packetbuf &p, int n)
{
if(!smapname[0]) maprot.next(false);
client *c = valid_client(n) ? clients[n] : NULL;
int numcl = numclients();
putint(p, SV_WELCOME);
putint(p, smapname[0] && !m_demo ? numcl : -1);
if(smapname[0] && !m_demo)
{
putint(p, SV_MAPCHANGE);
sendstring(smapname, p);
putint(p, smode);
putint(p, mapbuffer.available());
putint(p, mapbuffer.revision);
if(smode>1 || (smode==0 && numnonlocalclients()>0))
{
putint(p, SV_TIMEUP);
putint(p, (gamemillis>=gamelimit || forceintermission) ? gamelimit : gamemillis);
putint(p, gamelimit);
//putint(p, minremain*60);
}
send_item_list(p); // this includes the flags
}
savedscore *sc = NULL;
if(c)
{
if(c->type == ST_TCPIP && serveroperator() != -1) sendserveropinfo(n);
c->team = mastermode == MM_MATCH && sc ? team_tospec(sc->team) : TEAM_SPECT;
putint(p, SV_SETTEAM);
putint(p, n);
putint(p, c->team | (FTR_INFO << 4));
putint(p, SV_FORCEDEATH);
putint(p, n);
sendf(-1, 1, "ri2x", SV_FORCEDEATH, n, n);
}
if(!c || clients.length()>1)
{
putint(p, SV_RESUME);
loopv(clients)
{
client &c = *clients[i];
if(c.type!=ST_TCPIP || c.clientnum==n) continue;
putint(p, c.clientnum);
putint(p, c.state.state);
putint(p, c.state.lifesequence);
putint(p, c.state.primary);
putint(p, c.state.gunselect);
putint(p, c.state.flagscore);
putint(p, c.state.frags);
putint(p, c.state.deaths);
putint(p, c.state.health);
putint(p, c.state.armour);
putint(p, c.state.points);
loopi(NUMGUNS) putint(p, c.state.ammo[i]);
loopi(NUMGUNS) putint(p, c.state.mag[i]);
}
putint(p, -1);
welcomeinitclient(p, n);
}
putint(p, SV_SERVERMODE);
putint(p, sendservermode(false));
const char *motd = scl.motd[0] ? scl.motd : infofiles.getmotd(c ? c->lang : "");
if(motd)
{
putint(p, SV_TEXT);
sendstring(motd, p);
}
}
void sendwelcome(client *cl, int chan)
{
packetbuf p(MAXTRANS, ENET_PACKET_FLAG_RELIABLE);
welcomepacket(p, cl->clientnum);
sendpacket(cl->clientnum, chan, p.finalize());
cl->haswelcome = true;
}
void forcedeath(client *cl)
{
sdropflag(cl->clientnum);
cl->state.state = CS_DEAD;
cl->state.respawn();
sendf(-1, 1, "rii", SV_FORCEDEATH, cl->clientnum);
}
int checktype(int type, client *cl)
{
if(cl && cl->type==ST_LOCAL) return type;
if(type < 0 || type >= SV_NUM) return -1;
// server only messages
static int servtypes[] = { SV_SERVINFO, SV_WELCOME, SV_INITCLIENT, SV_POSN, SV_CDIS, SV_GIBDIED, SV_DIED,
SV_GIBDAMAGE, SV_DAMAGE, SV_HITPUSH, SV_SHOTFX, SV_AUTHREQ, SV_AUTHCHAL,
SV_SPAWNSTATE, SV_SPAWNDENY, SV_FORCEDEATH, SV_RESUME,
SV_DISCSCORES, SV_TIMEUP, SV_ITEMACC, SV_MAPCHANGE, SV_ITEMSPAWN, SV_PONG,
SV_SERVMSG, SV_ITEMLIST, SV_FLAGINFO, SV_FLAGMSG, SV_FLAGCNT,
SV_ARENAWIN, SV_SERVOPINFO,
SV_CALLVOTESUC, SV_CALLVOTEERR, SV_VOTERESULT,
SV_SETTEAM, SV_TEAMDENY, SV_SERVERMODE, SV_WHOISINFO,
SV_SENDDEMOLIST, SV_SENDDEMO, SV_DEMOPLAYBACK,
SV_CLIENT, SV_HUDEXTRAS, SV_POINTS };
// only allow edit messages in coop-edit mode
static int edittypes[] = { SV_EDITENT, SV_EDITH, SV_EDITT, SV_EDITS, SV_EDITD, SV_EDITE, SV_NEWMAP };
if(cl)
{
loopi(sizeof(servtypes)/sizeof(int)) if(type == servtypes[i]) return -1;
loopi(sizeof(edittypes)/sizeof(int)) if(type == edittypes[i]) return smode==GMODE_COOPEDIT ? type : -1;
if(++cl->overflow >= 200) return -2;
}
return type;
}
// server side processing of updates: does very little and most state is tracked client only
// could be extended to move more gameplay to server (at expense of lag)
void process(ENetPacket *packet, int sender, int chan)
{
ucharbuf p(packet->data, packet->dataLength);
char text[MAXTRANS];
client *cl = sender>=0 ? clients[sender] : NULL;
pwddetail pd;
int type;
if(cl && !cl->isauthed)
{
int clientrole = CR_DEFAULT;
if(chan==0) return;
else if(chan!=1 || getint(p)!=SV_CONNECT) disconnect_client(sender, DISC_TAGT);
else
{
cl->acversion = getint(p);
cl->acbuildtype = getint(p);
defformatstring(tags)(", AC: %d|%x", cl->acversion, cl->acbuildtype);
getstring(text, p);
filtertext(text, text, 0, MAXNAMELEN);
if(!text[0]) copystring(text, "unarmed");
copystring(cl->name, text, MAXNAMELEN+1);
getstring(text, p);
copystring(cl->pwd, text);
getstring(text, p);
filterlang(cl->lang, text);
int wantrole = getint(p);
cl->state.nextprimary = getint(p);
loopi(2) cl->skin[i] = getint(p);
bool banned = isbanned(sender);
bool srvfull = numnonlocalclients() > scl.maxclients;
bool srvprivate = mastermode == MM_PRIVATE || mastermode == MM_MATCH;
bool matchreconnect = mastermode == MM_MATCH && findscore(*cl, false);
int bl = 0, wl = nickblacklist.checkwhitelist(*cl);
if(wl == NWL_PASS) concatstring(tags, ", nickname whitelist match");
if(wl == NWL_UNLISTED) bl = nickblacklist.checkblacklist(cl->name);
if(matchreconnect && !banned)
{ // former player reconnecting to a server in match mode
cl->isauthed = true;
logline(ACLOG_INFO, "[%s] %s logged in (reconnect to match)%s", cl->hostname, cl->name, tags);
}
else if(wl == NWL_IPFAIL || wl == NWL_PWDFAIL)
{ // nickname matches whitelist, but IP is not in the required range or PWD doesn't match
logline(ACLOG_INFO, "[%s] '%s' matches nickname whitelist: wrong %s%s", cl->hostname, cl->name, wl == NWL_IPFAIL ? "IP" : "PWD", tags);
disconnect_client(sender, DISC_BADNICK);
}
else if(bl > 0)
{ // nickname matches blacklist
logline(ACLOG_INFO, "[%s] '%s' matches nickname blacklist line %d%s", cl->hostname, cl->name, bl, tags);
disconnect_client(sender, DISC_BADNICK);
}
else if(passwords.check(cl->name, cl->pwd, cl->salt, &pd, (cl->type==ST_TCPIP ? cl->peer->address.host : 0)) && (!pd.denyadmin || (banned && !srvfull && !srvprivate))) // pass admins always through
{ // admin (or deban) password match
cl->isauthed = true;
if(!pd.denyadmin && wantrole == CR_ADMIN) clientrole = CR_ADMIN;
if(banned)
{
loopv(bans) if(bans[i].address.host == cl->peer->address.host) { bans.remove(i); concatstring(tags, ", ban removed"); break; } // remove admin bans
}
if(srvfull)
{
loopv(clients) if(i != sender && clients[i]->type==ST_TCPIP)
{
disconnect_client(i, DISC_MAXCLIENTS); // disconnect someone else to fit maxclients again
break;
}
}
logline(ACLOG_INFO, "[%s] %s logged in using the admin password in line %d%s", cl->hostname, cl->name, pd.line, tags);
}
else if(scl.serverpassword[0] && !(srvprivate || srvfull || banned))
{ // server password required
if(!strcmp(genpwdhash(cl->name, scl.serverpassword, cl->salt), cl->pwd))
{
cl->isauthed = true;
logline(ACLOG_INFO, "[%s] %s client logged in (using serverpassword)%s", cl->hostname, cl->name, tags);
}
else disconnect_client(sender, DISC_WRONGPW);
}
else if(srvprivate) disconnect_client(sender, DISC_MASTERMODE);
else if(srvfull) disconnect_client(sender, DISC_MAXCLIENTS);
else if(banned) disconnect_client(sender, DISC_BANREFUSE);
else
{
cl->isauthed = true;
logline(ACLOG_INFO, "[%s] %s logged in (default)%s", cl->hostname, cl->name, tags);
}
}
if(!cl->isauthed) return;
if(cl->type==ST_TCPIP)
{
loopv(clients) if(i != sender)
{
client *dup = clients[i];
if(dup->type==ST_TCPIP && dup->peer->address.host==cl->peer->address.host && dup->peer->address.port==cl->peer->address.port)
disconnect_client(i, DISC_DUP);
}
}
sendwelcome(cl);
if(restorescore(*cl)) { sendresume(*cl, true); senddisconnectedscores(-1); }
else if(cl->type==ST_TCPIP) senddisconnectedscores(sender);
sendinitclient(*cl);
if(clientrole != CR_DEFAULT) changeclientrole(sender, clientrole, NULL, true);
if( curvote && curvote->result == VOTE_NEUTRAL ) callvotepacket (cl->clientnum);
}
if(!cl) { logline(ACLOG_ERROR, "<NULL> client in process()"); return; } // should never happen anyway
if(packet->flags&ENET_PACKET_FLAG_RELIABLE) reliablemessages = true;
#define QUEUE_MSG { if(cl->type==ST_TCPIP) while(curmsg<p.length()) cl->messages.add(p.buf[curmsg++]); }
#define QUEUE_BUF(body) \
{ \
if(cl->type==ST_TCPIP) \
{ \
curmsg = p.length(); \
{ body; } \
} \
}
#define QUEUE_INT(n) QUEUE_BUF(putint(cl->messages, n))
#define QUEUE_UINT(n) QUEUE_BUF(putuint(cl->messages, n))
#define QUEUE_STR(text) QUEUE_BUF(sendstring(text, cl->messages))
#define MSG_PACKET(packet) \
packetbuf buf(16 + p.length() - curmsg, ENET_PACKET_FLAG_RELIABLE); \
putint(buf, SV_CLIENT); \
putint(buf, cl->clientnum); \
putuint(buf, p.length() - curmsg); \
buf.put(&p.buf[curmsg], p.length() - curmsg); \
ENetPacket *packet = buf.finalize();
int curmsg;
while((curmsg = p.length()) < p.maxlen)
{
type = checktype(getint(p), cl);
#ifdef _DEBUG
if(type!=SV_POS && type!=SV_POSC && type!=SV_CLIENTPING && type!=SV_PING && type!=SV_CLIENT)
{
DEBUGVAR(cl->name);
ASSERT(type>=0 && type<SV_NUM);
DEBUGVAR(messagenames[type]);
protocoldebug(true);
}
else protocoldebug(false);
#endif
checkmessage(cl,type);
switch(type)
{
case SV_TEAMTEXTME:
case SV_TEAMTEXT:
getstring(text, p);
filtertext(text, text);
trimtrailingwhitespace(text);
if(*text)
{
bool canspeech = forbiddenlist.canspeech(text);
if(!spamdetect(cl, text) && canspeech) // team chat
{
logline(ACLOG_INFO, "[%s] %s%s says to team %s: '%s'", cl->hostname, type == SV_TEAMTEXTME ? "(me) " : "", cl->name, team_string(cl->team), text);
sendteamtext(text, sender, type);
}
else
{
logline(ACLOG_INFO, "[%s] %s%s says to team %s: '%s', %s", cl->hostname, type == SV_TEAMTEXTME ? "(me) " : "",
cl->name, team_string(cl->team), text, canspeech ? "SPAM detected" : "Forbidden speech");
if (canspeech)
{
sendservmsg("\f3please do not spam", sender);
if ( cl->spamcount > SPAMMAXREPEAT + 2 ) disconnect_client(cl->clientnum, DISC_ABUSE);
}
else
{
sendservmsg("\f3watch your language!", sender);
kick_abuser(cl->clientnum, cl->badmillis, cl->badspeech, 3);
}
}
}
break;
case SV_TEXTME:
case SV_TEXT:
{
int mid1 = curmsg, mid2 = p.length();
getstring(text, p);
filtertext(text, text);
trimtrailingwhitespace(text);
if(*text)
{
bool canspeech = forbiddenlist.canspeech(text);
if(!spamdetect(cl, text) && canspeech)
{
if(mastermode != MM_MATCH || !matchteamsize || team_isactive(cl->team) || (cl->team == TEAM_SPECT && cl->role == CR_ADMIN)) // common chat
{
logline(ACLOG_INFO, "[%s] %s%s says: '%s'", cl->hostname, type == SV_TEXTME ? "(me) " : "", cl->name, text);
if(cl->type==ST_TCPIP) while(mid1<mid2) cl->messages.add(p.buf[mid1++]);
QUEUE_STR(text);
}
else // spect chat
{
logline(ACLOG_INFO, "[%s] %s%s says to team %s: '%s'", cl->hostname, type == SV_TEAMTEXTME ? "(me) " : "", cl->name, team_string(cl->team), text);
sendteamtext(text, sender, type == SV_TEXTME ? SV_TEAMTEXTME : SV_TEAMTEXT);
}
}
else
{
logline(ACLOG_INFO, "[%s] %s%s says: '%s', %s", cl->hostname, type == SV_TEXTME ? "(me) " : "",
cl->name, text, canspeech ? "SPAM detected" : "Forbidden speech");
if (canspeech)
{
sendservmsg("\f3please do not spam", sender);
if ( cl->spamcount > SPAMMAXREPEAT + 2 ) disconnect_client(cl->clientnum, DISC_ABUSE);
}
else
{
sendservmsg("\f3watch your language!", sender);
kick_abuser(cl->clientnum, cl->badmillis, cl->badspeech, 3);
}
}
}
break;
}
case SV_VOICECOM:
case SV_VOICECOMTEAM:
{
int s = getint(p);
/* spam filter */
if ( servmillis > cl->mute ) // client is not muted
{
if( s < S_AFFIRMATIVE || s >= S_NULL ) cl->mute = servmillis + 10000; // vc is invalid
else if ( cl->lastvc + 4000 < servmillis ) { if ( cl->spam > 0 ) cl->spam -= (servmillis - cl->lastvc) / 4000; } // no vc in the last 4 seconds
else cl->spam++; // the guy is spamming
if ( cl->spam < 0 ) cl->spam = 0;
cl->lastvc = servmillis; // register
if ( cl->spam > 4 ) { cl->mute = servmillis + 10000; break; } // 5 vcs in less than 20 seconds... shut up please
if ( m_teammode ) checkteamplay(s,sender); // finally here we check the teamplay comm
if ( type == SV_VOICECOM ) { QUEUE_MSG; }
else sendvoicecomteam(s, sender);
}
}
break;
case SV_MAPIDENT:
{
int gzs = getint(p);
int rev = getint(p);
if(!isdedicated || (smapstats.cgzsize == gzs && smapstats.hdr.maprevision == rev))
{ // here any game really starts for a client: spawn, if it's a new game - don't spawn if the game was already running
cl->isonrightmap = true;
int sp = canspawn(cl);
sendf(sender, 1, "rii", SV_SPAWNDENY, sp);
cl->spawnperm = sp;
if(cl->loggedwrongmap) logline(ACLOG_INFO, "[%s] %s is now on the right map: revision %d/%d", cl->hostname, cl->name, rev, gzs);
bool spawn = false;
if(team_isspect(cl->team))
{
if(numclients() < 2 && !m_demo && mastermode != MM_MATCH) // spawn on empty servers
{
spawn = updateclientteam(cl->clientnum, TEAM_ANYACTIVE, FTR_INFO);
}
}
else
{
if((cl->freshgame || numclients() < 2) && !m_demo) spawn = true;
}
cl->freshgame = false;
if(spawn) sendspawn(cl);
}
else
{
forcedeath(cl);
logline(ACLOG_INFO, "[%s] %s is on the wrong map: revision %d/%d", cl->hostname, cl->name, rev, gzs);
cl->loggedwrongmap = true;
sendf(sender, 1, "rii", SV_SPAWNDENY, SP_WRONGMAP);
}
QUEUE_MSG;
break;
}
case SV_ITEMPICKUP:
{
int n = getint(p);
if(!arenaround || arenaround - gamemillis > 2000)
{
gameevent &pickup = cl->addevent();
pickup.type = GE_PICKUP;
pickup.pickup.ent = n;
}
break;
}
case SV_WEAPCHANGE:
{
int gunselect = getint(p);
if(gunselect<0 || gunselect>=NUMGUNS || gunselect == GUN_CPISTOL) break;
if(!m_demo && !m_coop) checkweapon(type,gunselect);
cl->state.gunselect = gunselect;
QUEUE_MSG;
break;
}
case SV_PRIMARYWEAP:
{
int nextprimary = getint(p);
if(nextprimary<0 && nextprimary>=NUMGUNS) break;
cl->state.nextprimary = nextprimary;
break;
}
case SV_SWITCHNAME:
{
QUEUE_MSG;
getstring(text, p);
filtertext(text, text, 0, MAXNAMELEN);
if(!text[0]) copystring(text, "unarmed");
QUEUE_STR(text);
bool namechanged = strcmp(cl->name, text) != 0;
if(namechanged) logline(ACLOG_INFO,"[%s] %s changed name to %s", cl->hostname, cl->name, text);
copystring(cl->name, text, MAXNAMELEN+1);
if(namechanged)
{
switch(nickblacklist.checkwhitelist(*cl))
{
case NWL_PWDFAIL:
case NWL_IPFAIL:
logline(ACLOG_INFO, "[%s] '%s' matches nickname whitelist: wrong IP/PWD", cl->hostname, cl->name);
disconnect_client(sender, DISC_BADNICK);
break;
case NWL_UNLISTED:
{
int l = nickblacklist.checkblacklist(cl->name);
if(l >= 0)
{
logline(ACLOG_INFO, "[%s] '%s' matches nickname blacklist line %d", cl->hostname, cl->name, l);
disconnect_client(sender, DISC_BADNICK);
}
break;
}
}
}
break;
}
case SV_SWITCHTEAM:
{
int t = getint(p);
if(!updateclientteam(sender, team_isvalid(t) ? t : TEAM_SPECT, FTR_PLAYERWISH)) sendf(sender, 1, "rii", SV_TEAMDENY, t);
break;
}
case SV_SWITCHSKIN:
{
loopi(2) cl->skin[i] = getint(p);
QUEUE_MSG;
break;
}
case SV_TRYSPAWN:
if(team_isspect(cl->team) && canspawn(cl) < SP_OK_NUM)
{
updateclientteam(sender, TEAM_ANYACTIVE, FTR_PLAYERWISH);
}
if( !m_arena && canspawn(cl) < SP_OK_NUM && gamemillis > cl->state.lastspawn + 1000 ) sendspawn(cl);
break;
case SV_SPAWN:
{
int ls = getint(p), gunselect = getint(p);
if((cl->state.state!=CS_ALIVE && cl->state.state!=CS_DEAD && cl->state.state!=CS_SPECTATE) ||
ls!=cl->state.lifesequence || cl->state.lastspawn<0 || gunselect<0 || gunselect>=NUMGUNS || gunselect == GUN_CPISTOL) break;
cl->state.lastspawn = -1;
cl->state.spawn = gamemillis;
cl->upspawnp = false;
cl->state.state = CS_ALIVE;
cl->state.gunselect = gunselect;
QUEUE_BUF(
{
putint(cl->messages, SV_SPAWN);
putint(cl->messages, cl->state.lifesequence);
putint(cl->messages, cl->state.health);
putint(cl->messages, cl->state.armour);
putint(cl->messages, cl->state.gunselect);
loopi(NUMGUNS) putint(cl->messages, cl->state.ammo[i]);
loopi(NUMGUNS) putint(cl->messages, cl->state.mag[i]);
});
break;
}
case SV_SPECTCN:
cl->spectcn = getint(p);
logline(ACLOG_DEBUG, "[%s] %s is now spectating cn %d", cl->hostname, cl->name, cl->spectcn); // FIXME: comment out later
QUEUE_MSG;
break;
case SV_SUICIDE:
{
gameevent &suicide = cl->addevent();
suicide.type = GE_SUICIDE;
break;
}
case SV_SHOOT:
{
gameevent &shot = cl->addevent();
shot.type = GE_SHOT;
#define seteventmillis(event) \
{ \
event.id = getint(p); \
if(!cl->timesync || (cl->events.length()==1 && cl->state.waitexpired(gamemillis))) \
{ \
cl->timesync = true; \
cl->gameoffset = gamemillis - event.id; \
event.millis = gamemillis; \
} \
else event.millis = cl->gameoffset + event.id; \
}
seteventmillis(shot.shot);
shot.shot.gun = getint(p);
loopk(3) { shot.shot.from[k] = cl->state.o.v[k] + ( k == 2 ? (((cl->f>>7)&1)?2.2f:4.2f) : 0); }
loopk(3) { float v = getint(p)/DMF; shot.shot.to[k] = ((k<2 && v<0.0f)?0.0f:v); }
int hits = getint(p);
int tcn = -1;
loopk(hits)
{
gameevent &hit = cl->addevent();
hit.type = GE_HIT;
tcn = hit.hit.target = getint(p);
hit.hit.lifesequence = getint(p);
hit.hit.info = getint(p);
loopk(3) hit.hit.dir[k] = getint(p)/DNF;
}
if(!m_demo && !m_coop) checkshoot(sender, shot, hits, tcn);
break;
}
case SV_EXPLODE: // Brahma says: FIXME handle explosion by location and deal damage from server
{
gameevent &exp = cl->addevent();
exp.type = GE_EXPLODE;
seteventmillis(exp.explode);
exp.explode.gun = getint(p);
exp.explode.id = getint(p);
int hits = getint(p);
loopk(hits)
{
gameevent &hit = cl->addevent();
hit.type = GE_HIT;
hit.hit.target = getint(p);
hit.hit.lifesequence = getint(p);
hit.hit.dist = getint(p)/DMF;
loopk(3) hit.hit.dir[k] = getint(p)/DNF;
}
break;
}
case SV_AKIMBO:
{
gameevent &akimbo = cl->addevent();
akimbo.type = GE_AKIMBO;
seteventmillis(akimbo.akimbo);
break;
}
case SV_RELOAD:
{
gameevent &reload = cl->addevent();
reload.type = GE_RELOAD;
seteventmillis(reload.reload);
reload.reload.gun = getint(p);
break;
}
// for AUTH:
case SV_AUTHTRY:
{
string desc, name;
getstring(desc, p, sizeof(desc)); // unused for now
getstring(name, p, sizeof(name));
if(!desc[0]) tryauth(cl, name);
break;
}
case SV_AUTHANS:
{
string desc, ans;
getstring(desc, p, sizeof(desc)); // unused for now
uint id = (uint)getint(p);
getstring(ans, p, sizeof(ans));
if(!desc[0]) answerchallenge(cl, id, ans);
break;
}
case SV_AUTHT:
{
/* int n = getint(p);
loopi(n) getint(p);*/
// if (cl) disconnect_client(cl->clientnum, DISC_TAGT); // remove this in the future, when auth is complete
break;
}
// :for AUTH
case SV_PING:
sendf(sender, 1, "ii", SV_PONG, getint(p));
break;
case SV_CLIENTPING:
{
int ping = getint(p);
if(cl) cl->ping = cl->ping == 9999 ? ping : (cl->ping * 4 + ping) / 5;
QUEUE_MSG;
break;
}
case SV_POS:
{
int cn = getint(p);
if(cn!=sender)
{
disconnect_client(sender, DISC_CN);
#ifndef STANDALONE
conoutf("ERROR: invalid client (msg %i)", type);
#endif
return;
}
loopi(3) cl->state.o[i] = getuint(p)/DMF;
cl->y = getuint(p);
cl->p = getint(p);
cl->g = getuint(p);
loopi(4) if ( (cl->g >> i) & 1 ) getint(p);
cl->f = getuint(p);
if(!cl->isonrightmap) break;
if(cl->type==ST_TCPIP && (cl->state.state==CS_ALIVE || cl->state.state==CS_EDITING))
{
cl->position.setsize(0);
while(curmsg<p.length()) cl->position.add(p.buf[curmsg++]);
}
if(!m_demo && !m_coop) checkmove(cl);
break;
}
case SV_POSC:
{
bitbuf<ucharbuf> q(p);
int cn = q.getbits(5);
if(cn!=sender)
{
disconnect_client(sender, DISC_CN);
#ifndef STANDALONE
conoutf("ERROR: invalid client (msg %i)", type);
#endif
return;
}
int usefactor = q.getbits(2) + 7;
int xt = q.getbits(usefactor + 4);
int yt = q.getbits(usefactor + 4);
cl->y = (q.getbits(9)*360)/512;
cl->p = ((q.getbits(8)-128)*90)/127;
if(!q.getbits(1)) q.getbits(6);
if(!q.getbits(1)) q.getbits(4 + 4 + 4);
cl->f = q.getbits(8);
int negz = q.getbits(1);
int zfull = q.getbits(1);
int s = q.rembits();
if(s < 3) s += 8;
if(zfull) s = 11;
int zt = q.getbits(s);
if(negz) zt = -zt;
int g1 = q.getbits(1); // scoping
int g2 = q.getbits(1); // shooting
cl->g = (g1<<4) | (g2<<5);
if(!cl->isonrightmap || p.remaining() || p.overread()) { p.flags = 0; break; }
if(((cl->f >> 6) & 1) != (cl->state.lifesequence & 1) || usefactor != (smapstats.hdr.sfactor < 7 ? 7 : smapstats.hdr.sfactor)) break;
cl->state.o[0] = xt / DMF;
cl->state.o[1] = yt / DMF;
cl->state.o[2] = zt / DMF;
if(cl->type==ST_TCPIP && (cl->state.state==CS_ALIVE || cl->state.state==CS_EDITING))
{
cl->position.setsize(0);
while(curmsg<p.length()) cl->position.add(p.buf[curmsg++]);
}
if(!m_demo && !m_coop) checkmove(cl);
break;
}
case SV_SENDMAP:
{
getstring(text, p);
filtertext(text, text);
const char *sentmap = behindpath(text), *reject = NULL;
int mapsize = getint(p);
int cfgsize = getint(p);
int cfgsizegz = getint(p);
int revision = getint(p);
if(p.remaining() < mapsize + cfgsizegz || MAXMAPSENDSIZE < mapsize + cfgsizegz)
{
p.forceoverread();
break;
}
int mp = findmappath(sentmap);
if(readonlymap(mp))
{
reject = "map is ro";
defformatstring(msg)("\f3map upload rejected: map %s is readonly", sentmap);
sendservmsg(msg, sender);
}
else if( scl.incoming_limit && ( scl.incoming_limit << 20 ) < incoming_size + mapsize + cfgsizegz )
{
reject = "server incoming achieved its limits";
sendservmsg("\f3server does not support more incomings: limit achieved", sender);
}
else if(mp == MAP_NOTFOUND && strchr(scl.mapperm, 'C') && cl->role < CR_ADMIN)
{
reject = "no permission for initial upload";
sendservmsg("\f3initial map upload rejected: you need to be admin", sender);
}
else if(mp == MAP_TEMP && revision >= mapbuffer.revision && !strchr(scl.mapperm, 'u') && cl->role < CR_ADMIN) // default: only admins can update maps
{
reject = "no permission to update";
sendservmsg("\f3map update rejected: you need to be admin", sender);
}
else if(mp == MAP_TEMP && revision < mapbuffer.revision && !strchr(scl.mapperm, 'r') && cl->role < CR_ADMIN) // default: only admins can revert maps to older revisions
{
reject = "no permission to revert revision";
sendservmsg("\f3map revert to older revision rejected: you need to be admin to upload an older map", sender);
}
else
{
if(mapbuffer.sendmap(sentmap, mapsize, cfgsize, cfgsizegz, &p.buf[p.len]))
{
incoming_size += mapsize + cfgsizegz;
logline(ACLOG_INFO,"[%s] %s sent map %s, rev %d, %d + %d(%d) bytes written",
clients[sender]->hostname, clients[sender]->name, sentmap, revision, mapsize, cfgsize, cfgsizegz);
defformatstring(msg)("%s (%d) up%sed map %s, rev %d%s", clients[sender]->name, sender, mp == MAP_NOTFOUND ? "load": "dat", sentmap, revision,
/*strcmp(sentmap, behindpath(smapname)) || smode == GMODE_COOPEDIT ? "" :*/ "\f3 (restart game to use new map version)");
sendservmsg(msg);
}
else
{
reject = "write failed (no 'incoming'?)";
sendservmsg("\f3map upload failed", sender);
}
}
if (reject)
{
logline(ACLOG_INFO,"[%s] %s sent map %s rev %d, rejected: %s",
clients[sender]->hostname, clients[sender]->name, sentmap, revision, reject);
}
p.len += mapsize + cfgsizegz;
break;
}
case SV_RECVMAP:
{
if(mapbuffer.available())
{
resetflag(cl->clientnum); // drop ctf flag
savedscore *sc = findscore(*cl, true); // save score
if(sc) sc->save(cl->state, cl->team);
mapbuffer.sendmap(cl, 2);
cl->mapchange(true);
sendwelcome(cl, 2); // resend state properly
}
else sendservmsg("no map to get", cl->clientnum);
break;
}
case SV_REMOVEMAP:
{
getstring(text, p);
filtertext(text, text);
string filename;
const char *rmmap = behindpath(text), *reject = NULL;
int mp = findmappath(rmmap);
int reqrole = strchr(scl.mapperm, 'D') ? CR_ADMIN : (strchr(scl.mapperm, 'd') ? CR_DEFAULT : CR_ADMIN + 100);
if(cl->role < reqrole) reject = "no permission";
else if(readonlymap(mp)) reject = "map is readonly";
else if(mp == MAP_NOTFOUND) reject = "map not found";
else
{
formatstring(filename)(SERVERMAP_PATH_INCOMING "%s.cgz", rmmap);
remove(filename);
formatstring(filename)(SERVERMAP_PATH_INCOMING "%s.cfg", rmmap);
remove(filename);
defformatstring(msg)("map '%s' deleted", rmmap);
sendservmsg(msg, sender);
logline(ACLOG_INFO,"[%s] deleted map %s", clients[sender]->hostname, rmmap);
}
if (reject)
{
logline(ACLOG_INFO,"[%s] deleting map %s failed: %s", clients[sender]->hostname, rmmap, reject);
defformatstring(msg)("\f3can't delete map '%s', %s", rmmap, reject);
sendservmsg(msg, sender);
}
break;
}
case SV_FLAGACTION:
{
int action = getint(p);
int flag = getint(p);
if(!m_flags || flag < 0 || flag > 1 || action < 0 || action > FA_NUM) break;
flagaction(flag, action, sender);
break;
}
case SV_SETADMIN:
{
bool claim = getint(p) != 0;
getstring(text, p);
changeclientrole(sender, claim ? CR_ADMIN : CR_DEFAULT, text);
break;
}
case SV_CALLVOTE:
{
voteinfo *vi = new voteinfo;
vi->boot = 0;
vi->type = getint(p);
switch(vi->type)
{
case SA_MAP:
{
getstring(text, p);
filtertext(text, text);
int mode = getint(p);
vi->gonext = text[0]=='+' && text[1]=='1';
if (vi->gonext)
{
int ccs = mode ? maprot.next(false,false) : maprot.get_next();
configset *c = maprot.get(ccs);
if(c)
{
strcpy(vi->text,c->mapname);
mode = vi->num = c->mode;
}
else fatal("unable to get next map in maprot");
}
else
{
strncpy(vi->text,text,MAXTRANS-1);
vi->num = mode;
}
int qmode = (mode >= GMODE_NUM ? mode - GMODE_NUM : mode);
if(mode==GMODE_DEMO) vi->action = new demoplayaction(newstring(text));
else vi->action = new mapaction(newstring(vi->text), qmode, sender, qmode!=mode);
break;
}
case SA_KICK:
{
vi->num = cn2boot = getint(p);
getstring(text, p);
strncpy(vi->text,text,MAXTRANS-1);
filtertext(text, text);
vi->action = new kickaction(cn2boot, newstring(text));
vi->boot = 1;
break;
}
case SA_BAN:
{
vi->num = cn2boot = getint(p);
getstring(text, p);
strncpy(vi->text,text,MAXTRANS-1);
filtertext(text, text);
vi->action = new banaction(cn2boot, newstring(text));
vi->boot = 2;
break;
}
case SA_REMBANS:
vi->action = new removebansaction();
break;
case SA_MASTERMODE:
vi->action = new mastermodeaction(vi->num = getint(p));
break;
case SA_AUTOTEAM:
vi->action = new autoteamaction((vi->num = getint(p)) > 0);
break;
case SA_SHUFFLETEAMS:
vi->action = new shuffleteamaction();
break;
case SA_FORCETEAM:
vi->action = new forceteamaction((vi->num = getint(p)), sender);
break;
case SA_GIVEADMIN:
vi->action = new giveadminaction(vi->num = getint(p));
break;
case SA_RECORDDEMO:
vi->action = new recorddemoaction((vi->num = getint(p))!=0);
break;
case SA_STOPDEMO:
vi->action = new stopdemoaction();
break;
case SA_CLEARDEMOS:
vi->action = new cleardemosaction(vi->num = getint(p));
break;
case SA_SERVERDESC:
getstring(text, p);
strncpy(vi->text,text,MAXTRANS-1);
filtertext(text, text);
vi->action = new serverdescaction(newstring(text), sender);
break;
}
vi->owner = sender;
vi->callmillis = servmillis;
MSG_PACKET(msg);
if(!scallvote(vi, msg)) delete vi;
break;
}
case SV_VOTE:
{
int n = getint(p);
MSG_PACKET(msg);
++msg->referenceCount; // need to increase reference count in case a vote disconnects a player after packet is queued to prevent double-freeing by packetbuf
svote(sender, n, msg);
--msg->referenceCount;
break;
}
case SV_WHOIS:
{
sendwhois(sender, getint(p));
break;
}
case SV_LISTDEMOS:
listdemos(sender);
break;
case SV_GETDEMO:
senddemo(sender, getint(p));
break;
case SV_EXTENSION:
{
// AC server extensions
//
// rules:
// 1. extensions MUST NOT modify gameplay or the behavior of the game in any way
// 2. extensions may ONLY be used to extend or automate server administration tasks
// 3. extensions may ONLY operate on the server and must not send any additional data to the connected clients
// 4. extensions not adhering to these rules may cause the hosting server being banned from the masterserver
//
// also note that there is no guarantee that custom extensions will work in future AC versions
getstring(text, p, 64);
char *ext = text; // extension specifier in the form of OWNER::EXTENSION, see sample below
int n = getint(p); // length of data after the specifier
if(n > 50) return;
// sample
if(!strcmp(ext, "driAn::writelog"))
{
// owner: driAn - [email protected]
// extension: writelog - WriteLog v1.0
// description: writes a custom string to the server log
// access: requires admin privileges
// usage: /serverextension driAn::writelog "your log message here.."
// note: There is a 49 character limit. The server will ignore messages with 50+ characters.
getstring(text, p, n);
if(valid_client(sender) && clients[sender]->role==CR_ADMIN)
{
logline(ACLOG_INFO, "[%s] %s writes to log: %s", cl->hostname, cl->name, text);
sendservmsg("your message has been logged", sender);
}
}
else if(!strcmp(ext, "set::teamsize"))
{
// intermediate solution to set the teamsize (will be voteable)
getstring(text, p, n);
if(valid_client(sender) && clients[sender]->role==CR_ADMIN && mastermode == MM_MATCH)
{
changematchteamsize(atoi(text));
defformatstring(msg)("match team size set to %d", matchteamsize);
sendservmsg(msg, -1);
}
}
// else if()
// add other extensions here
else for(; n > 0; n--) getint(p); // ignore unknown extensions
break;
}
case -1:
disconnect_client(sender, DISC_TAGT);
return;
case -2:
disconnect_client(sender, DISC_OVERFLOW);
return;
default:
{
int size = msgsizelookup(type);
if(size<=0) { if(sender>=0) disconnect_client(sender, DISC_TAGT); return; }
loopi(size-1) getint(p);
QUEUE_MSG;
break;
}
}
}
if(p.overread() && sender>=0) disconnect_client(sender, DISC_EOP);
#ifdef _DEBUG
protocoldebug(false);
#endif
}
void localclienttoserver(int chan, ENetPacket *packet)
{
process(packet, 0, chan);
}
client &addclient()
{
client *c = NULL;
loopv(clients) if(clients[i]->type==ST_EMPTY) { c = clients[i]; break; }
if(!c)
{
c = new client;
c->clientnum = clients.length();
clients.add(c);
}
c->reset();
return *c;
}
void checkintermission()
{
if(minremain>0)
{
minremain = (gamemillis>=gamelimit || forceintermission) ? 0 : (gamelimit - gamemillis + 60000 - 1)/60000;
sendf(-1, 1, "ri3", SV_TIMEUP, (gamemillis>=gamelimit || forceintermission) ? gamelimit : gamemillis, gamelimit);
}
if(!interm && minremain<=0) interm = gamemillis+10000;
forceintermission = false;
}
void resetserverifempty()
{
loopv(clients) if(clients[i]->type!=ST_EMPTY) return;
resetserver("", 0, 10);
matchteamsize = 0;
autoteam = true;
changemastermode(MM_OPEN);
nextmapname[0] = '\0';
}
void sendworldstate()
{
static enet_uint32 lastsend = 0;
if(clients.empty()) return;
enet_uint32 curtime = enet_time_get()-lastsend;
if(curtime<40) return;
bool flush = buildworldstate();
lastsend += curtime - (curtime%40);
if(flush) enet_host_flush(serverhost);
if(demorecord) recordpackets = true; // enable after 'old' worldstate is sent
}
void rereadcfgs(void)
{
maprot.read();
ipblacklist.read();
nickblacklist.read();
forbiddenlist.read();
passwords.read();
}
void loggamestatus(const char *reason)
{
int fragscore[2] = {0, 0}, flagscore[2] = {0, 0}, pnum[2] = {0, 0};
string text;
formatstring(text)("%d minutes remaining", minremain);
logline(ACLOG_INFO, "");
logline(ACLOG_INFO, "Game status: %s on %s, %s, %s, %d clients%c %s",
modestr(gamemode), smapname, reason ? reason : text, mmfullname(mastermode), totalclients, custom_servdesc ? ',' : '\0', servdesc_current);
logline(ACLOG_INFO, "cn name %s%s score frag death %sping role host", m_teammode ? "team " : "", m_flags ? "flag " : "", m_teammode ? "tk " : "");
loopv(clients)
{
client &c = *clients[i];
if(c.type == ST_EMPTY || !c.name[0]) continue;
formatstring(text)("%2d %-16s ", c.clientnum, c.name); // cn name
if(m_teammode) concatformatstring(text, "%-4s ", team_string(c.team, true)); // teamname (abbreviated)
if(m_flags) concatformatstring(text, "%4d ", c.state.flagscore); // flag
concatformatstring(text, "%6d ", c.state.points); // score
concatformatstring(text, "%4d %5d", c.state.frags, c.state.deaths); // frag death
if(m_teammode) concatformatstring(text, " %2d", c.state.teamkills); // tk
logline(ACLOG_INFO, "%s%5d %s %s", text, c.ping, c.role == CR_ADMIN ? "admin " : "normal", c.hostname);
if(c.team != TEAM_SPECT)
{
int t = team_base(c.team);
flagscore[t] += c.state.flagscore;
fragscore[t] += c.state.frags;
pnum[t] += 1;
}
}
if(mastermode == MM_MATCH)
{
loopv(savedscores)
{
savedscore &sc = savedscores[i];
if(sc.valid)
{
formatstring(text)(m_teammode ? "%-4s " : "", team_string(sc.team, true));
if(m_flags) concatformatstring(text, "%4d ", sc.flagscore);
logline(ACLOG_INFO, " %-16s %s%4d %5d%s - disconnected", sc.name, text, sc.frags, sc.deaths, m_teammode ? " -" : "");
if(sc.team != TEAM_SPECT)
{
int t = team_base(sc.team);
flagscore[t] += sc.flagscore;
fragscore[t] += sc.frags;
pnum[t] += 1;
}
}
}
}
if(m_teammode)
{
loopi(2) logline(ACLOG_INFO, "Team %4s:%3d players,%5d frags%c%5d flags", team_string(i), pnum[i], fragscore[i], m_flags ? ',' : '\0', flagscore[i]);
}
logline(ACLOG_INFO, "");
}
static unsigned char chokelog[MAXCLIENTS + 1] = { 0 };
void linequalitystats(int elapsed)
{
static unsigned int chokes[MAXCLIENTS + 1] = { 0 }, spent[MAXCLIENTS + 1] = { 0 }, chokes_raw[MAXCLIENTS + 1] = { 0 }, spent_raw[MAXCLIENTS + 1] = { 0 };
if(elapsed)
{ // collect data
int c1 = 0, c2 = 0, r1 = 0, numc = 0;
loopv(clients)
{
client &c = *clients[i];
if(c.type != ST_TCPIP) continue;
numc++;
enet_uint32 &rtt = c.peer->lastRoundTripTime, &throttle = c.peer->packetThrottle;
if(rtt < c.bottomRTT + c.bottomRTT / 3)
{
if(servmillis - c.connectmillis < 5000)
c.bottomRTT = rtt;
else
c.bottomRTT = (c.bottomRTT * 15 + rtt) / 16; // simple IIR
}
if(throttle < 22) c1++;
if(throttle < 11) c2++;
if(rtt > c.bottomRTT * 2 && rtt - c.bottomRTT > 300) r1++;
}
spent_raw[numc] += elapsed;
int t = numc < 7 ? numc : (numc + 1) / 2 + 3;
chokes_raw[numc] += ((c1 >= t ? c1 + c2 : 0) + (r1 >= t ? r1 : 0)) * elapsed;
}
else
{ // calculate compressed statistics
defformatstring(msg)("Uplink quality [ ");
int ncs = 0;
loopj(scl.maxclients)
{
int i = j + 1;
int nc = chokes_raw[i] / 1000 / i;
chokes[i] += nc;
ncs += nc;
spent[i] += spent_raw[i] / 1000;
chokes_raw[i] = spent_raw[i] = 0;
int s = 0, c = 0;
if(spent[i])
{
frexp((double)spent[i] / 30, &s);
if(s < 0) s = 0;
if(s > 15) s = 15;
if(chokes[i])
{
frexp(((double)chokes[i]) / spent[i], &c);
c = 15 + c;
if(c < 0) c = 0;
if(c > 15) c = 15;
}
}
chokelog[i] = (s << 4) + c;
concatformatstring(msg, "%02X ", chokelog[i]);
}
logline(ACLOG_DEBUG, "%s] +%d", msg, ncs);
}
}
void serverslice(uint timeout) // main server update, called from cube main loop in sp, or dedicated server loop
{
static int msend = 0, mrec = 0, csend = 0, crec = 0, mnum = 0, cnum = 0;
#ifdef STANDALONE
int nextmillis = (int)enet_time_get();
if(svcctrl) svcctrl->keepalive();
#else
int nextmillis = isdedicated ? (int)enet_time_get() : lastmillis;
#endif
int diff = nextmillis - servmillis;
gamemillis += diff;
servmillis = nextmillis;
servertime = ((diff + 3 * servertime)>>2);
if (servertime > 40) serverlagged = servmillis;
if(m_demo) readdemo();
if(minremain>0)
{
processevents();
checkitemspawns(diff);
bool ktfflagingame = false;
if(m_flags) loopi(2)
{
sflaginfo &f = sflaginfos[i];
if(f.state == CTFF_DROPPED && gamemillis-f.lastupdate > (m_ctf ? 30000 : 10000)) flagaction(i, FA_RESET, -1);
if(m_htf && f.state == CTFF_INBASE && gamemillis-f.lastupdate > (smapstats.hasflags ? 10000 : 1000))
{
htf_forceflag(i);
}
if(m_ktf && f.state == CTFF_STOLEN && gamemillis-f.lastupdate > 15000)
{
flagaction(i, FA_SCORE, -1);
}
if(f.state == CTFF_INBASE || f.state == CTFF_STOLEN) ktfflagingame = true;
}
if(m_ktf && !ktfflagingame) flagaction(rnd(2), FA_RESET, -1); // ktf flag watchdog
if(m_arena) arenacheck();
// if(m_lms) lmscheck();
sendextras();
if ( scl.afk_limit && mastermode == MM_OPEN && next_afk_check < servmillis && gamemillis > 20 * 1000 ) check_afk();
}
if(curvote)
{
if(!curvote->isalive()) curvote->evaluate(true);
if(curvote->result!=VOTE_NEUTRAL) DELETEP(curvote);
}
int nonlocalclients = numnonlocalclients();
if(forceintermission || ((smode>1 || (gamemode==0 && nonlocalclients)) && gamemillis-diff>0 && gamemillis/60000!=(gamemillis-diff)/60000))
checkintermission();
if(m_demo && !demoplayback) maprot.restart();
else if(interm && ( (scl.demo_interm && sending_demo) ? gamemillis>(interm<<1) : gamemillis>interm ) )
{
sending_demo = false;
loggamestatus("game finished");
if(demorecord) enddemorecord();
interm = nextsendscore = 0;
//start next game
if(nextmapname[0]) startgame(nextmapname, nextgamemode);
else maprot.next();
nextmapname[0] = '\0';
map_queued = false;
}
resetserverifempty();
if(!isdedicated) return; // below is network only
serverms(smode, numclients(), minremain, smapname, servmillis, serverhost->address, &mnum, &msend, &mrec, &cnum, &csend, &crec, SERVER_PROTOCOL_VERSION);
if(autoteam && m_teammode && !m_arena && !interm && servmillis - lastfillup > 5000 && refillteams()) lastfillup = servmillis;
static unsigned int lastThrottleEpoch = 0;
if(serverhost->bandwidthThrottleEpoch != lastThrottleEpoch)
{
if(lastThrottleEpoch) linequalitystats(serverhost->bandwidthThrottleEpoch - lastThrottleEpoch);
lastThrottleEpoch = serverhost->bandwidthThrottleEpoch;
}
if(servmillis>nextstatus) // display bandwidth stats, useful for server ops
{
nextstatus = servmillis + 60 * 1000;
rereadcfgs();
if(nonlocalclients || serverhost->totalSentData || serverhost->totalReceivedData)
{
if(nonlocalclients) loggamestatus(NULL);
logline(ACLOG_INFO, "Status at %s: %d remote clients, %.1f send, %.1f rec (K/sec);"
" Ping: #%d|%d|%d; CSL: #%d|%d|%d (bytes)",
timestring(true, "%d-%m-%Y %H:%M:%S"), nonlocalclients, serverhost->totalSentData/60.0f/1024, serverhost->totalReceivedData/60.0f/1024,
mnum, msend, mrec, cnum, csend, crec);
mnum = msend = mrec = cnum = csend = crec = 0;
linequalitystats(0);
}
serverhost->totalSentData = serverhost->totalReceivedData = 0;
}
ENetEvent event;
bool serviced = false;
while(!serviced)
{
if(enet_host_check_events(serverhost, &event) <= 0)
{
if(enet_host_service(serverhost, &event, timeout) <= 0) break;
serviced = true;
}
switch(event.type)
{
case ENET_EVENT_TYPE_CONNECT:
{
client &c = addclient();
c.type = ST_TCPIP;
c.peer = event.peer;
c.peer->data = (void *)(size_t)c.clientnum;
c.connectmillis = servmillis;
c.state.state = CS_SPECTATE;
c.salt = rand()*((servmillis%1000)+1);
char hn[1024];
copystring(c.hostname, (enet_address_get_host_ip(&c.peer->address, hn, sizeof(hn))==0) ? hn : "unknown");
logline(ACLOG_INFO,"[%s] client connected", c.hostname);
sendservinfo(c);
totalclients++;
break;
}
case ENET_EVENT_TYPE_RECEIVE:
{
int cn = (int)(size_t)event.peer->data;
if(valid_client(cn)) process(event.packet, cn, event.channelID);
if(event.packet->referenceCount==0) enet_packet_destroy(event.packet);
break;
}
case ENET_EVENT_TYPE_DISCONNECT:
{
int cn = (int)(size_t)event.peer->data;
if(!valid_client(cn)) break;
disconnect_client(cn);
break;
}
default:
break;
}
}
sendworldstate();
}
void cleanupserver()
{
if(serverhost) { enet_host_destroy(serverhost); serverhost = NULL; }
if(svcctrl)
{
svcctrl->stop();
DELETEP(svcctrl);
}
exitlogging();
}
int getpongflags(enet_uint32 ip)
{
int flags = mastermode << PONGFLAG_MASTERMODE;
flags |= scl.serverpassword[0] ? 1 << PONGFLAG_PASSWORD : 0;
loopv(bans) if(bans[i].address.host == ip) { flags |= 1 << PONGFLAG_BANNED; break; }
flags |= ipblacklist.check(ip) ? 1 << PONGFLAG_BLACKLIST : 0;
return flags;
}
void extping_namelist(ucharbuf &p)
{
loopv(clients)
{
if(clients[i]->type == ST_TCPIP && clients[i]->isauthed) sendstring(clients[i]->name, p);
}
sendstring("", p);
}
void extping_serverinfo(ucharbuf &pi, ucharbuf &po)
{
char lang[3];
lang[0] = tolower(getint(pi)); lang[1] = tolower(getint(pi)); lang[2] = '\0';
const char *reslang = lang, *buf = infofiles.getinfo(lang); // try client language
if(!buf) buf = infofiles.getinfo(reslang = "en"); // try english
sendstring(buf ? reslang : "", po);
if(buf)
{
for(const char *c = buf; *c && po.remaining() > MAXINFOLINELEN + 10; c += strlen(c) + 1) sendstring(c, po);
sendstring("", po);
}
}
void extping_maprot(ucharbuf &po)
{
putint(po, CONFIG_MAXPAR);
string text;
bool abort = false;
loopv(maprot.configsets)
{
if(po.remaining() < 100) abort = true;
configset &c = maprot.configsets[i];
filtertext(text, c.mapname, 0);
text[30] = '\0';
sendstring(abort ? "-- list truncated --" : text, po);
loopi(CONFIG_MAXPAR) putint(po, c.par[i]);
if(abort) break;
}
sendstring("", po);
}
void extping_uplinkstats(ucharbuf &po)
{
if(scl.maxclients > 3)
po.put(chokelog + 4, scl.maxclients - 3); // send logs for 4..n used slots
}
void extinfo_cnbuf(ucharbuf &p, int cn)
{
if(cn == -1) // add all available player ids
{
loopv(clients) if(clients[i]->type != ST_EMPTY)
putint(p,clients[i]->clientnum);
}
else if(valid_client(cn)) // add single player only
{
putint(p,clients[cn]->clientnum);
}
}
void extinfo_statsbuf(ucharbuf &p, int pid, int bpos, ENetSocket &pongsock, ENetAddress &addr, ENetBuffer &buf, int len, int *csend)
{
loopv(clients)
{
if(clients[i]->type != ST_TCPIP) continue;
if(pid>-1 && clients[i]->clientnum!=pid) continue;
bool ismatch = mastermode == MM_MATCH;
putint(p,EXT_PLAYERSTATS_RESP_STATS); // send player stats following
putint(p,clients[i]->clientnum); //add player id
putint(p,clients[i]->ping); //Ping
sendstring(clients[i]->name,p); //Name
sendstring(team_string(clients[i]->team),p); //Team
putint(p,clients[i]->state.frags); //Frags
putint(p,clients[i]->state.flagscore); //Flagscore
putint(p,clients[i]->state.deaths); //Death
putint(p,clients[i]->state.teamkills); //Teamkills
putint(p,ismatch ? 0 : clients[i]->state.damage*100/max(clients[i]->state.shotdamage,1)); //Accuracy
putint(p,ismatch ? 0 : clients[i]->state.health); //Health
putint(p,ismatch ? 0 : clients[i]->state.armour); //Armour
putint(p,ismatch ? 0 : clients[i]->state.gunselect); //Gun selected
putint(p,clients[i]->role); //Role
putint(p,clients[i]->state.state); //State (Alive,Dead,Spawning,Lagged,Editing)
uint ip = clients[i]->peer->address.host; // only 3 byte of the ip address (privacy protected)
p.put((uchar*)&ip,3);
buf.dataLength = len + p.length();
enet_socket_send(pongsock, &addr, &buf, 1);
*csend += (int)buf.dataLength;
if(pid>-1) break;
p.len=bpos;
}
}
void extinfo_teamscorebuf(ucharbuf &p)
{
putint(p, m_teammode ? EXT_ERROR_NONE : EXT_ERROR);
putint(p, gamemode);
putint(p, minremain); // possible TODO: use gamemillis, gamelimit here too?
if(!m_teammode) return;
int teamsizes[TEAM_NUM] = { 0 }, fragscores[TEAM_NUM] = { 0 }, flagscores[TEAM_NUM] = { 0 };
loopv(clients) if(clients[i]->type!=ST_EMPTY && team_isvalid(clients[i]->team))
{
teamsizes[clients[i]->team] += 1;
fragscores[clients[i]->team] += clients[i]->state.frags;
flagscores[clients[i]->team] += clients[i]->state.flagscore;
}
loopi(TEAM_NUM) if(teamsizes[i])
{
sendstring(team_string(i), p); // team name
putint(p, fragscores[i]); // add fragscore per team
putint(p, m_flags ? flagscores[i] : -1); // add flagscore per team
putint(p, -1); // ?
}
}
#ifndef STANDALONE
void localdisconnect()
{
loopv(clients) if(clients[i]->type==ST_LOCAL) clients[i]->zap();
}
void localconnect()
{
modprotocol = false;
servstate.reset();
client &c = addclient();
c.type = ST_LOCAL;
c.role = CR_ADMIN;
copystring(c.hostname, "local");
sendservinfo(c);
}
#endif
void processmasterinput(const char *cmd, int cmdlen, const char *args)
{
// AUTH WiP
uint id;
string val;
if(sscanf(cmd, "failauth %u", &id) == 1) authfailed(id);
else if(sscanf(cmd, "succauth %u", &id) == 1) authsucceeded(id);
else if(sscanf(cmd, "chalauth %u %s", &id, val) == 2) authchallenged(id, val);
else if(!strncmp(cmd, "cleargbans", cmdlen)) cleargbans();
else if(sscanf(cmd, "addgban %s", val) == 1) addgban(val);
}
string server_name = "unarmed server";
void initserver(bool dedicated, int argc, char **argv)
{
const char *service = NULL;
for(int i = 1; i<argc; i++)
{
if(!scl.checkarg(argv[i]))
{
char *a = &argv[i][2];
if(!scl.checkarg(argv[i]) && argv[i][0]=='-') switch(argv[i][1])
{
case '-': break;
case 'S': service = a; break;
default: break; /*printf("WARNING: unknown commandline option\n");*/ // less warnings
}
else printf("WARNING: unknown commandline argument\n");
}
}
if(service && !svcctrl)
{
#ifdef WIN32
svcctrl = new winservice(service);
#endif
if(svcctrl)
{
svcctrl->argc = argc; svcctrl->argv = argv;
svcctrl->start();
}
}
if ( strlen(scl.servdesc_full) ) global_name = scl.servdesc_full;
else global_name = server_name;
srand(time(NULL));
smapname[0] = '\0';
string identity;
if(scl.logident[0]) filtertext(identity, scl.logident, 0);
else formatstring(identity)("%s#%d", scl.ip[0] ? scl.ip : "local", scl.serverport);
int conthres = scl.verbose > 1 ? ACLOG_DEBUG : (scl.verbose ? ACLOG_VERBOSE : ACLOG_INFO);
if(dedicated && !initlogging(identity, scl.syslogfacility, conthres, scl.filethres, scl.syslogthres, scl.logtimestamp))
printf("WARNING: logging not started!\n");
logline(ACLOG_INFO, "logging local AssaultCube server (version %d, protocol %d/%d) now..", AC_VERSION, SERVER_PROTOCOL_VERSION, EXT_VERSION);
copystring(servdesc_current, scl.servdesc_full);
servermsinit(scl.master ? scl.master : AC_MASTER_URI, scl.ip, CUBE_SERVINFO_PORT(scl.serverport), dedicated);
if((isdedicated = dedicated))
{
ENetAddress address = { ENET_HOST_ANY, scl.serverport };
if(scl.ip[0] && enet_address_set_host(&address, scl.ip)<0) logline(ACLOG_WARNING, "server ip not resolved!");
serverhost = enet_host_create(&address, scl.maxclients+1, 3, 0, scl.uprate);
if(!serverhost) fatal("could not create server host");
loopi(scl.maxclients) serverhost->peers[i].data = (void *)-1;
maprot.init(scl.maprot);
maprot.next(false, true); // ensure minimum maprot length of '1'
passwords.init(scl.pwdfile, scl.adminpasswd);
ipblacklist.init(scl.blfile);
nickblacklist.init(scl.nbfile);
forbiddenlist.init(scl.forbidden);
infofiles.init(scl.infopath, scl.motdpath);
infofiles.getinfo("en"); // cache 'en' serverinfo
logline(ACLOG_VERBOSE, "holding up to %d recorded demos in memory", scl.maxdemos);
if(scl.demopath[0]) logline(ACLOG_VERBOSE,"all recorded demos will be written to: \"%s\"", scl.demopath);
if(scl.voteperm[0]) logline(ACLOG_VERBOSE,"vote permission string: \"%s\"", scl.voteperm);
if(scl.mapperm[0]) logline(ACLOG_VERBOSE,"map permission string: \"%s\"", scl.mapperm);
logline(ACLOG_VERBOSE,"server description: \"%s\"", scl.servdesc_full);
if(scl.servdesc_pre[0] || scl.servdesc_suf[0]) logline(ACLOG_VERBOSE,"custom server description: \"%sCUSTOMPART%s\"", scl.servdesc_pre, scl.servdesc_suf);
logline(ACLOG_VERBOSE,"maxclients: %d, kick threshold: %d, ban threshold: %d", scl.maxclients, scl.kickthreshold, scl.banthreshold);
if(scl.master) logline(ACLOG_VERBOSE,"master server URL: \"%s\"", scl.master);
if(scl.serverpassword[0]) logline(ACLOG_VERBOSE,"server password: \"%s\"", hiddenpwd(scl.serverpassword));
}
resetserverifempty();
if(isdedicated) // do not return, this becomes main loop
{
#ifdef WIN32
SetPriorityClass(GetCurrentProcess(), HIGH_PRIORITY_CLASS);
#endif
logline(ACLOG_INFO, "dedicated server started, waiting for clients...");
logline(ACLOG_INFO, "Ctrl-C to exit");
atexit(enet_deinitialize);
atexit(cleanupserver);
enet_time_set(0);
for(;;) serverslice(5);
}
}
#ifdef STANDALONE
void localservertoclient(int chan, uchar *buf, int len) {}
void fatal(const char *s, ...)
{
defvformatstring(msg,s,s);
defformatstring(out)("AssaultCube fatal error: %s", msg);
if (logline(ACLOG_ERROR, "%s", out));
else puts(out);
cleanupserver();
exit(EXIT_FAILURE);
}
int main(int argc, char **argv)
{
#ifdef WIN32
//atexit((void (__cdecl *)(void))_CrtDumpMemoryLeaks);
#ifndef _DEBUG
#ifndef __GNUC__
__try {
#endif
#endif
#endif
for(int i = 1; i<argc; i++)
{
if (!strncmp(argv[i],"--wizard",8)) return wizardmain(argc, argv);
}
if(enet_initialize()<0) fatal("Unable to initialise network module");
initserver(true, argc, argv);
return EXIT_SUCCESS;
#if defined(WIN32) && !defined(_DEBUG) && !defined(__GNUC__)
} __except(stackdumper(0, GetExceptionInformation()), EXCEPTION_CONTINUE_SEARCH) { return 0; }
#endif
}
#endif