Files
assaultcube-/source/src/server.cpp
T
driAn 3c76d8c48c no message
git-svn-id: svn://svn.code.sf.net/p/actiongame/code/trunk/ac@1320 e016b1c5-ed68-44aa-a2f7-31cac88cffde
2007-10-01 17:13:19 +00:00

2055 lines
57 KiB
C++

// server.cpp: little more than enhanced multicaster
// runs dedicated or as client coroutine
#include "cube.h"
#include "servercontroller.h"
servercontroller *svcctrl = NULL;
#define valid_client(c) (clients.inrange(c) && clients[c]->type!=ST_EMPTY)
#define valid_flag(f) (f >= 0 && f < 2)
static const int DEATHMILLIS = 250;
enum { GE_NONE = 0, GE_SHOT, GE_EXPLODE, GE_HIT, GE_AKIMBO, GE_RELOAD, GE_SUICIDE, GE_PICKUP };
enum { ST_EMPTY, ST_LOCAL, ST_TCPIP };
int mastermode = MM_OPEN;
struct shotevent
{
int type;
int millis;
int gun;
float from[3], to[3];
};
struct explodeevent
{
int type;
int millis;
int gun;
int id;
};
struct hitevent
{
int type;
int target;
int lifesequence;
union
{
int info;
float dist;
};
float dir[3];
};
struct suicideevent
{
int type;
};
struct pickupevent
{
int type;
int ent;
};
struct akimboevent
{
int type;
int millis;
};
struct reloadevent
{
int type;
int millis;
int gun;
};
union gameevent
{
int type;
shotevent shot;
explodeevent explode;
hitevent hit;
suicideevent suicide;
pickupevent pickup;
akimboevent akimbo;
reloadevent reload;
};
template <int N>
struct projectilestate
{
int projs[N];
int numprojs;
projectilestate() : numprojs(0) {}
void reset() { numprojs = 0; }
void add(int val)
{
if(numprojs>=N) numprojs = 0;
projs[numprojs++] = val;
}
bool remove(int val)
{
loopi(numprojs) if(projs[i]==val)
{
projs[i] = projs[--numprojs];
return true;
}
return false;
}
};
struct clientstate : playerstate
{
vec o;
int state;
int lastdeath, lastspawn, lifesequence;
int lastshot;
projectilestate<8> grenades;
int akimbos, akimbomillis;
int flagscore, frags;
clientstate() : state(CS_DEAD) {}
bool isalive(int gamemillis)
{
return state==CS_ALIVE || (state==CS_DEAD && gamemillis - lastdeath <= DEATHMILLIS);
}
bool waitexpired(int gamemillis)
{
int wait = gamemillis - lastshot;
loopi(NUMGUNS) if(wait < gunwait[i]) return false;
return true;
}
void reset()
{
state = CS_DEAD;
lifesequence = -1;
grenades.reset();
akimbos = 0;
akimbomillis = 0;
flagscore = frags = 0;
respawn();
}
void respawn()
{
playerstate::respawn();
o = vec(-1e10f, -1e10f, -1e10f);
lastdeath = 0;
lastspawn = -1;
lastshot = 0;
akimbos = 0;
akimbomillis = 0;
}
};
struct savedscore
{
string name;
uint ip;
int frags, flagscore, lifesequence;
void save(clientstate &cs)
{
frags = cs.frags;
flagscore = cs.flagscore;
lifesequence = cs.lifesequence;
}
void restore(clientstate &cs)
{
cs.frags = frags;
cs.flagscore = flagscore;
cs.lifesequence = lifesequence;
}
};
static vector<savedscore> scores;
struct client // server side version of "dynent" type
{
int type;
int clientnum;
ENetPeer *peer;
string hostname;
string name, team;
int vote;
int role;
bool isauthed; // for passworded servers
bool timesync;
int gameoffset, lastevent, lastvotecall;
clientstate state;
vector<gameevent> events;
vector<uchar> position, messages;
gameevent &addevent()
{
static gameevent dummy;
if(events.length()>100) return dummy;
return events.add();
}
void mapchange()
{
//mapvote[0] = 0; // fixme,ah
vote = VOTE_NEUTRAL;
state.reset();
events.setsizenodelete(0);
timesync = false;
lastevent = 0;
lastvotecall = 0;
}
void reset()
{
name[0] = 0;
position.setsizenodelete(0);
messages.setsizenodelete(0);
isauthed = false;
role = CR_DEFAULT;
mapchange();
}
};
vector<client *> clients;
struct worldstate
{
enet_uint32 uses;
vector<uchar> positions, messages;
};
vector<worldstate *> worldstates;
void cleanworldstate(ENetPacket *packet)
{
loopv(worldstates)
{
worldstate *ws = worldstates[i];
if(packet->data >= ws->positions.getbuf() && packet->data <= &ws->positions.last()) ws->uses--;
else if(packet->data >= ws->messages.getbuf() && packet->data <= &ws->messages.last()) ws->uses--;
else continue;
if(!ws->uses)
{
delete ws;
worldstates.remove(i);
}
break;
}
}
int bsend = 0, brec = 0, laststatus = 0, lastsec = 0;
void sendpacket(int n, int chan, ENetPacket *packet, int exclude = -1)
{
if(n<0)
{
loopv(clients) if(i!=exclude) sendpacket(i, chan, packet);
return;
}
switch(clients[n]->type)
{
case ST_TCPIP:
{
enet_peer_send(clients[n]->peer, chan, packet);
bsend += (int)packet->dataLength;
break;
}
case ST_LOCAL:
localservertoclient(chan, packet->data, (int)packet->dataLength);
break;
}
}
static bool reliablemessages = false;
bool buildworldstate()
{
static struct { int posoff, msgoff, msglen; } pkt[MAXCLIENTS];
worldstate &ws = *new worldstate;
loopv(clients)
{
client &c = *clients[i];
if(c.type!=ST_TCPIP) continue;
if(c.position.empty()) pkt[i].posoff = -1;
else
{
pkt[i].posoff = ws.positions.length();
loopvj(c.position) ws.positions.add(c.position[j]);
}
if(c.messages.empty()) pkt[i].msgoff = -1;
else
{
pkt[i].msgoff = ws.messages.length();
ucharbuf p = ws.messages.reserve(16);
putint(p, SV_CLIENT);
putint(p, c.clientnum);
putuint(p, c.messages.length());
ws.messages.addbuf(p);
loopvj(c.messages) ws.messages.add(c.messages[j]);
pkt[i].msglen = ws.messages.length()-pkt[i].msgoff;
}
}
int psize = ws.positions.length(), msize = ws.messages.length();
loopi(psize) { uchar c = ws.positions[i]; ws.positions.add(c); }
loopi(msize) { uchar c = ws.messages[i]; ws.messages.add(c); }
ws.uses = 0;
loopv(clients)
{
client &c = *clients[i];
if(c.type!=ST_TCPIP) continue;
ENetPacket *packet;
if(psize && (pkt[i].posoff<0 || psize-c.position.length()>0))
{
packet = enet_packet_create(&ws.positions[pkt[i].posoff<0 ? 0 : pkt[i].posoff+c.position.length()],
pkt[i].posoff<0 ? psize : psize-c.position.length(),
ENET_PACKET_FLAG_NO_ALLOCATE);
sendpacket(c.clientnum, 0, packet);
if(!packet->referenceCount) enet_packet_destroy(packet);
else { ++ws.uses; packet->freeCallback = cleanworldstate; }
}
c.position.setsizenodelete(0);
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; }
}
c.messages.setsizenodelete(0);
}
reliablemessages = false;
if(!ws.uses)
{
delete &ws;
return false;
}
else
{
worldstates.add(&ws);
return true;
}
}
int maxclients = DEFAULTCLIENTS, scorethreshold = -5;
string smapname;
char *adminpasswd = NULL, *motd = NULL;
int numclients()
{
int num = 0;
loopv(clients) if(clients[i]->type!=ST_EMPTY) num++;
return num;
}
int numnonlocalclients()
{
int nonlocalclients = 0;
loopv(clients) if(clients[i]->type==ST_TCPIP) nonlocalclients++;
return nonlocalclients;
}
void zapclient(int c)
{
if(!clients.inrange(c)) return;
clients[c]->type = ST_EMPTY;
clients[c]->isauthed = false;
clients[c]->role = CR_DEFAULT;
}
int freeteam()
{
int teamsize[2] = {0, 0};
loopv(clients) if(clients[i]->type!=ST_EMPTY) teamsize[team_int(clients[i]->team)]++;
if(teamsize[0] == teamsize[1]) return rnd(2);
return teamsize[0] < teamsize[1] ? 0 : 1;
}
savedscore *findscore(client &c, bool insert)
{
if(c.type!=ST_TCPIP) return NULL;
if(!insert) loopv(clients)
{
client &o = *clients[i];
if(o.type!=ST_TCPIP) 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);
return &curscore;
}
}
loopv(scores)
{
savedscore &sc = scores[i];
if(!strcmp(sc.name, c.name) && sc.ip==c.peer->address.host) return &sc;
}
if(!insert) return NULL;
savedscore &sc = scores.add();
s_strcpy(sc.name, c.name);
sc.ip = c.peer->address.host;
return &sc;
}
struct server_entity // server side version of "entity" type
{
int type;
bool spawned;
int spawntime;
};
vector<server_entity> sents;
bool notgotitems = true; // true when map has changed and waiting for clients to send item
// allows the gamemode macros to work with the server mode
#define gamemode smode
int smode = 0;
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;
}
}
static int interm = 0, minremain = 0, gamemillis = 0, gamelimit = 0;
static bool mapreload = false, autoteam = true;
static string serverpassword = "";
bool isdedicated;
ENetHost *serverhost = NULL;
void process(ENetPacket *packet, int sender, int chan);
void checkvotes(bool forceend=false);
void sendf(int cn, int chan, const char *format, ...)
{
int exclude = -1;
bool reliable = false;
if(*format=='r') { reliable = true; ++format; }
ENetPacket *packet = enet_packet_create(NULL, MAXTRANS, reliable ? ENET_PACKET_FLAG_RELIABLE : 0);
ucharbuf p(packet->data, packet->dataLength);
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);
enet_packet_resize(packet, packet->dataLength+n);
p.buf = packet->data;
p.maxlen += n;
p.put(va_arg(args, uchar *), n);
break;
}
}
va_end(args);
enet_packet_resize(packet, p.length());
sendpacket(cn, chan, packet, exclude);
if(packet->referenceCount==0) enet_packet_destroy(packet);
}
void sendservmsg(char *msg, int client=-1)
{
sendf(client, 1, "ris", SV_SERVMSG, msg);
}
void spawnstate(client *c)
{
clientstate &gs = c->state;
gs.spawnstate(smode);
gs.lifesequence++;
}
void sendspawn(client *c)
{
clientstate &gs = c->state;
spawnstate(c);
sendf(c->clientnum, 1, "ri6vv", SV_SPAWNSTATE, gs.lifesequence,
gs.health, gs.armour,
gs.primary, gs.gunselect,
NUMGUNS, gs.ammo, NUMGUNS, gs.mag);
gs.lastspawn = gamemillis;
}
struct sflaginfo
{
int state;
int actor_cn;
float pos[3];
int lastupdate;
} sflaginfos[2];
void sendflaginfo(int flag, int action, int cn = -1)
{
sflaginfo &f = sflaginfos[flag];
ENetPacket *packet = enet_packet_create(NULL, MAXTRANS, ENET_PACKET_FLAG_RELIABLE);
ucharbuf p(packet->data, packet->dataLength);
putint(p, SV_FLAGINFO);
putint(p, flag);
putint(p, f.state);
putint(p, action);
if(f.state==CTFF_STOLEN || action==SV_FLAGRETURN) putint(p, f.actor_cn);
else if(f.state==CTFF_DROPPED) loopi(3) putint(p, int(f.pos[i]*DMF));
enet_packet_resize(packet, p.length());
sendpacket(cn, 1, packet);
if(packet->referenceCount==0) enet_packet_destroy(packet);
}
void flagaction(int flag, int action, int sender)
{
if(!valid_flag(flag)) return;
sflaginfo &f = sflaginfos[flag];
switch(action)
{
case SV_FLAGPICKUP:
{
if(f.state == CTFF_STOLEN) return;
f.state = CTFF_STOLEN;
f.actor_cn = sender;
break;
}
case SV_FLAGDROP:
{
if(f.state!=CTFF_STOLEN || (sender != -1 && f.actor_cn != sender)) return;
f.state = CTFF_DROPPED;
loopi(3) f.pos[i] = clients[sender]->state.o[i];
break;
}
case SV_FLAGRETURN:
{
if(f.state!=CTFF_DROPPED) return;
f.state = CTFF_INBASE;
f.actor_cn = sender;
break;
}
case SV_FLAGRESET:
{
if(sender != -1 && f.actor_cn != sender) return;
f.state = CTFF_INBASE;
break;
}
case SV_FLAGSCORE:
{
if(f.state != CTFF_STOLEN) return;
f.state = CTFF_INBASE;
break;
}
default: return;
}
f.lastupdate = gamemillis;
sendflaginfo(flag, action);
}
void ctfreset()
{
loopi(2)
{
sflaginfos[i].actor_cn = 0;
sflaginfos[i].state = CTFF_INBASE;
sflaginfos[i].lastupdate = -1;
}
}
bool canspawn(client *c, bool connecting = false)
{
if(m_arena)
{
if(connecting && numnonlocalclients()<=2) return true;
return false;
}
return true;
}
int arenaround = 0;
void arenacheck()
{
if(!m_arena || interm || gamemillis<arenaround || clients.empty()) return;
if(arenaround)
{
arenaround = 0;
loopv(clients) if(clients[i]->type!=ST_EMPTY)
{
clients[i]->state.respawn();
sendspawn(clients[i]);
}
return;
}
#ifndef STANDALONE
if(m_botmode && clients[0]->type==ST_LOCAL)
{
bool alive = false, dead = false;
loopv(players) if(players[i])
{
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;
loopv(clients)
{
client &c = *clients[i];
if(c.type==ST_EMPTY) continue;
if(c.state.state==CS_ALIVE || (c.state.state==CS_DEAD && c.state.lastspawn>=0))
{
if(!alive) alive = &c;
else if(!m_teammode || strcmp(alive->team, c.team)) return;
}
else if(c.state.state==CS_DEAD) dead = true;
}
if(!dead) return;
sendf(-1, 1, "ri2", SV_ARENAWIN, !alive ? -1 : alive->clientnum);
arenaround = gamemillis+5000;
}
void sendteamtext(char *text, int sender)
{
if(!m_teammode || !clients[sender]->team[0]) return;
ENetPacket *packet = enet_packet_create(NULL, MAXTRANS, ENET_PACKET_FLAG_RELIABLE);
ucharbuf p(packet->data, packet->dataLength);
putint(p, SV_TEAMTEXT);
putint(p, sender);
sendstring(text, p);
enet_packet_resize(packet, p.length());
loopv(clients) if(i!=sender && !strcmp(clients[i]->team, clients[sender]->team)) sendpacket(i, 1, packet);
if(packet->referenceCount==0) enet_packet_destroy(packet);
}
const char *disc_reason(int reason)
{
static char *disc_reasons[] = { "normal", "end of packet", "client num", "kicked by server operator", "banned by server operator", "tag type", "connection refused due to ban", "wrong password", "failed admin login", "server FULL - maxclients", "server mastermode is \"private\"", "auto kick - did your score drop below the threshold?" };
return reason >= 0 && (size_t)reason < sizeof(disc_reasons)/sizeof(disc_reasons[0]) ? disc_reasons[reason] : "unknown";
}
void disconnect_client(int n, int reason = -1)
{
if(!clients.inrange(n) || clients[n]->type!=ST_TCPIP) return;
if(m_ctf) loopi(2) if(sflaginfos[i].state==CTFF_STOLEN && sflaginfos[i].actor_cn==n) flagaction(i, SV_FLAGDROP, n);
client &c = *clients[n];
savedscore *sc = findscore(c, true);
if(sc) sc->save(c.state);
if(reason>=0) printf("disconnecting client (%s) [%s]\n", c.hostname, disc_reason(reason));
else printf("disconnected client (%s)\n", c.hostname);
c.peer->data = (void *)-1;
if(reason>=0) enet_peer_disconnect(c.peer, reason);
zapclient(n);
sendf(-1, 1, "rii", SV_CDIS, n);
checkvotes();
}
void resetitems() { sents.setsize(0); notgotitems = true; }
int spawntime(int type)
{
int np = 0;
loopv(clients) if(clients[i]) np++;
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:
case I_GRENADE: sec = np*2; break;
case I_HEALTH: sec = np*5; break;
case I_ARMOUR: sec = 20; 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
{
if(!sents.inrange(i)) return false;
server_entity &e = sents[i];
if(!e.spawned) 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)) return false;
}
sendf(-1, 1, "ri3", SV_ITEMACC, i, sender);
cl->state.pickup(sents[i].type);
}
e.spawned = false;
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))
{
clientstate &ts = target->state;
ts.dodamage(damage);
sendf(-1, 1, "ri6", gib ? SV_GIBDAMAGE : SV_DAMAGE, target->clientnum, actor->clientnum, damage, ts.armour, ts.health);
if(target!=actor && !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)
{
if(target!=actor && !isteam(target->team, actor->team)) actor->state.frags += gib ? 2 : 1;
else actor->state.frags--;
sendf(-1, 1, "ri4", gib ? SV_GIBDIED : SV_DIED, target->clientnum, actor->clientnum, actor->state.frags);
target->position.setsizenodelete(0);
ts.state = CS_DEAD;
ts.lastdeath = gamemillis;
// don't issue respawn yet until DEATHMILLIS has elapsed
// ts.respawn();
if(actor->state.frags < scorethreshold) disconnect_client(actor->clientnum, DISC_AUTOKICK);
}
}
void processevent(client *c, explodeevent &e)
{
clientstate &gs = c->state;
switch(e.gun)
{
case GUN_GRENADE:
if(!gs.grenades.remove(e.id)) return;
break;
default:
return;
}
for(int i = 1; i<c->events.length() && c->events[i].type==GE_HIT; i++)
{
hitevent &h = c->events[i].hit;
if(!clients.inrange(h.target)) continue;
client *target = clients[h.target];
if(target->type==ST_EMPTY || target->state.state!=CS_ALIVE || h.lifesequence!=target->state.lifesequence || h.dist<0 || h.dist>EXPDAMRAD) continue;
int j = 1;
for(j = 1; j<i; j++) if(c->events[j].hit.target==h.target) break;
if(j<i) continue;
int damage = int(guns[e.gun].damage*(1-h.dist/EXPDAMRAD));
serverdamage(target, c, damage, e.gun, true, h.dir);
}
}
void processevent(client *c, shotevent &e)
{
clientstate &gs = c->state;
int wait = e.millis - gs.lastshot;
if(!gs.isalive(gamemillis) ||
e.gun<GUN_KNIFE || e.gun>=NUMGUNS ||
wait<gs.gunwait[e.gun] ||
gs.mag[e.gun]<=0)
return;
if(e.gun!=GUN_KNIFE) gs.mag[e.gun]--;
loopi(NUMGUNS) if(gs.gunwait[i]) gs.gunwait[i] = max(gs.gunwait[i] - (e.millis-gs.lastshot), 0);
gs.lastshot = e.millis;
gs.gunwait[e.gun] = attackdelay(e.gun);
if(e.gun==GUN_PISTOL && gs.akimbomillis>gamemillis) gs.gunwait[e.gun] /= 2;
sendf(-1, 1, "ri9x", SV_SHOTFX, c->clientnum, e.gun,
int(e.from[0]*DMF), int(e.from[1]*DMF), int(e.from[2]*DMF),
int(e.to[0]*DMF), int(e.to[1]*DMF), int(e.to[2]*DMF),
c->clientnum);
switch(e.gun)
{
case GUN_GRENADE: gs.grenades.add(e.millis); break;
default:
{
int totalrays = 0, maxrays = e.gun==GUN_SHOTGUN ? SGRAYS : 1;
for(int i = 1; i<c->events.length() && c->events[i].type==GE_HIT; i++)
{
hitevent &h = c->events[i].hit;
if(!clients.inrange(h.target)) continue;
client *target = clients[h.target];
if(target->type==ST_EMPTY || target->state.state!=CS_ALIVE || h.lifesequence!=target->state.lifesequence) continue;
int rays = e.gun==GUN_SHOTGUN ? h.info : 1;
if(rays<1) continue;
totalrays += rays;
if(totalrays>maxrays) continue;
bool gib = false;
if(e.gun==GUN_KNIFE) gib = true;
else if(e.gun==GUN_SNIPER) gib = h.info!=0;
int damage = rays*guns[e.gun].damage;
if(e.gun==GUN_SNIPER && gib) damage *= 3;
serverdamage(target, c, damage, e.gun, gib, h.dir);
}
break;
}
}
}
void processevent(client *c, suicideevent &e)
{
clientstate &gs = c->state;
if(gs.state!=CS_ALIVE) return;
gs.frags--;
sendf(-1, 1, "ri4", SV_DIED, c->clientnum, c->clientnum, gs.frags);
c->position.setsizenodelete(0);
gs.state = CS_DEAD;
gs.respawn();
}
void processevent(client *c, pickupevent &e)
{
clientstate &gs = c->state;
if(m_mp(gamemode) && !gs.isalive(gamemillis)) return;
serverpickup(e.ent, c->clientnum);
}
void processevent(client *c, reloadevent &e)
{
clientstate &gs = c->state;
if(!gs.isalive(gamemillis) ||
e.gun<GUN_KNIFE || e.gun>=NUMGUNS ||
!reloadable_gun(e.gun) ||
gs.ammo[e.gun]<=0)
return;
bool akimbo = e.gun==GUN_PISTOL && gs.akimbomillis>e.millis;
int mag = (akimbo ? 2 : 1) * magsize(e.gun), numbullets = min(gs.ammo[e.gun], mag - gs.mag[e.gun]);
if(numbullets<=0) return;
gs.mag[e.gun] += numbullets;
gs.ammo[e.gun] -= numbullets;
int wait = e.millis - gs.lastshot;
if(gs.gunwait[e.gun] && wait<gs.gunwait[e.gun]) gs.gunwait[e.gun] += reloadtime(e.gun);
else
{
loopi(NUMGUNS) if(gs.gunwait[i]) gs.gunwait[i] = max(gs.gunwait[i] - (e.millis-gs.lastshot), 0);
gs.lastshot = e.millis;
gs.gunwait[e.gun] += reloadtime(e.gun);
}
}
void processevent(client *c, akimboevent &e)
{
clientstate &gs = c->state;
if(!gs.isalive(gamemillis) || gs.akimbos<=0) return;
gs.akimbos--;
gs.akimbomillis = e.millis+30000;
}
void clearevent(client *c)
{
int n = 1;
while(n<c->events.length() && c->events[n].type==GE_HIT) n++;
c->events.remove(0, n);
}
void processevents()
{
loopv(clients)
{
client *c = clients[i];
if(c->type==ST_EMPTY) continue;
while(c->events.length())
{
gameevent &e = c->events[0];
if(e.type<GE_SUICIDE)
{
if(e.shot.millis>gamemillis) break;
if(e.shot.millis<c->lastevent) { clearevent(c); continue; }
c->lastevent = e.shot.millis;
}
switch(e.type)
{
case GE_SHOT: processevent(c, e.shot); break;
case GE_EXPLODE: processevent(c, e.explode); break;
case GE_AKIMBO: processevent(c, e.akimbo); break;
case GE_RELOAD: processevent(c, e.reload); break;
// untimed events
case GE_SUICIDE: processevent(c, e.suicide); break;
case GE_PICKUP: processevent(c, e.pickup); break;
}
clearevent(c);
}
}
}
struct configset
{
string mapname;
int mode;
int time;
bool vote;
};
vector<configset> configsets;
int curcfgset = -1;
void readscfg(char *cfg)
{
configsets.setsize(0);
string s;
s_strcpy(s, cfg);
char *buf = loadfile(path(s), NULL);
if(!buf) return;
char *p, *l;
p = buf;
while((p = strstr(p, "//")) != NULL) // remove comments
while(p[0] != '\n' && p[0] != '\0') p++[0] = ' ';
l = buf;
bool lastline = false;
while((p = strstr(l, "\n")) != NULL || (l[0] && (lastline=true))) // remove empty/invalid lines
{
size_t len = lastline ? strlen(l) : p-l;
string line;
s_strncpy(line, l, len+1);
char *d = line;
int n = 0;
while((p = strstr(d, ":")) != NULL) { d = p+1; n++; }
if(n!=3) memset(l, ' ', len+1);
if(lastline) { l[len+1] = 0; break; }
l += len+1;
}
configset c;
int argc = 0;
string argv[4];
p = strtok(buf, ":\n\0");
while(p != NULL)
{
strcpy(argv[argc], p);
if(++argc==4)
{
int numspaces;
for(numspaces = 0; argv[0][numspaces]==' '; numspaces++){} // ingore space crap
strcpy(c.mapname, argv[0]+numspaces);
c.mode = atoi(argv[1]);
c.time = atoi(argv[2]);
c.vote = atoi(argv[3]) > 0;
configsets.add(c);
argc = 0;
}
p = strtok(NULL, ":\n\0");
}
}
void resetvotes()
{
//loopv(clients) clients[i]->mapvote[0] = 0; // fixme,ah
loopv(clients) clients[i]->vote = VOTE_NEUTRAL;
}
void forceteam(int client, int team)
{
if(!valid_client(client) || team < 0 || team > 1) return;
sendf(client, 1, "rii", SV_FORCETEAM, team);
}
void shuffleteams()
{
int numplayers = numclients();
int teamsize[2] = {0, 0};
loopv(clients) if(clients[i]->type!=ST_EMPTY)
{
int team = rnd(2);
if(teamsize[team] >= numplayers/2) team = team_opposite(team);
forceteam(i, team);
teamsize[team]++;
}
}
void resetmap(const char *newname, int newmode, int newtime = -1, bool notify = true)
{
bool lastteammode = m_teammode;
smode = newmode;
s_strcpy(smapname, newname);
minremain = newtime >= 0 ? newtime : (m_teammode ? 15 : 10);
gamemillis = 0;
gamelimit = minremain*60000;
mapreload = false;
interm = 0;
laststatus = lastsec-61;
resetvotes();
resetitems();
scores.setsize(0);
ctfreset();
if(notify)
{
sendf(-1, 1, "risi", SV_MAPCHANGE, smapname, smode);
if(smode>1 || (smode==0 && numnonlocalclients()>0)) sendf(-1, 1, "ri2", SV_TIMEUP, minremain);
}
if(m_teammode && !lastteammode) shuffleteams();
if(m_arena) arenaround = 0;
if(notify)
{
loopv(clients) if(clients[i]->type!=ST_EMPTY)
{
client *c = clients[i];
c->mapchange();
if(m_mp(smode)) sendspawn(c);
}
}
}
void nextcfgset(bool notify = true) // load next maprotation set
{
curcfgset++;
if(curcfgset>=configsets.length() || curcfgset<0) curcfgset=0;
configset &c = configsets[curcfgset];
resetmap(c.mapname, c.mode, c.time, notify);
}
struct ban
{
ENetAddress address;
int secs;
};
vector<ban> bans;
bool isbanned(int cn)
{
if(!valid_client(cn)) return false;
client &c = *clients[cn];
loopv(bans)
{
ban &b = bans[i];
if(b.secs < lastsec) { bans.remove(i--); }
if(b.address.host == c.peer->address.host) { return true; }
}
return false;
}
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);
}
void changeclientrole(int client, int role, char *pwd = NULL, bool force=false)
{
if(!isdedicated || !valid_client(client)) return;
int serverop = serveroperator();
if(force || role == CR_DEFAULT || (role == CR_MASTER && serverop < 0) || (role == CR_ADMIN && pwd && pwd[0] && adminpasswd && !strcmp(adminpasswd, pwd)))
{
if(role == clients[client]->role) return;
if(role > CR_DEFAULT) loopv(clients) clients[i]->role = CR_DEFAULT;
clients[client]->role = role;
sendserveropinfo(-1);
}
else if(pwd && pwd[0]) disconnect_client(client, DISC_SOPLOGINFAIL); // avoid brute-force
}
struct serveraction
{
int type, role;
bool dedicated;
virtual ~serveraction() {}
virtual void perform() = 0;
virtual bool isvalid() { return true; }
};
struct mapaction : serveraction
{
char *map;
int mode;
void perform() { resetmap(map, mode); }
mapaction(char *map, int mode) : map(map), mode(mode) { type = SA_MAP; role = CR_MASTER; dedicated = false; }
~mapaction() { DELETEA(map); }
};
struct playeraction : serveraction
{
int cn;
void disconnect(int reason) { disconnect_client(cn, reason); }
bool isvalid() { return valid_client(cn); }
playeraction(int cn) : cn(cn) {}
};
struct forceteamaction : playeraction
{
void perform() { forceteam(cn, team_opposite(team_int(clients[cn]->team))); }
forceteamaction(int cn) : playeraction(cn) { type = SA_FORCETEAM; role = CR_MASTER; dedicated = true; }
};
struct givemasteraction : playeraction
{
void perform() { changeclientrole(cn, CR_MASTER, NULL, true); }
givemasteraction(int cn) : playeraction(cn) { type = SA_GIVEMASTER; role = CR_ADMIN; dedicated = true; }
};
struct kickaction : playeraction
{
void perform() { disconnect(DISC_MKICK); }
kickaction(int cn) : playeraction(cn) { type = SA_KICK; role = CR_MASTER; dedicated = true; }
};
struct banaction : playeraction
{
void perform()
{
ban b = { clients[cn]->peer->address, lastsec+20*60 };
bans.add(b);
disconnect(DISC_MBAN);
}
banaction(int cn) : playeraction(cn) { type = SA_BAN; role = CR_MASTER; dedicated = true; }
};
struct removebansaction : serveraction
{
void perform() { bans.setsize(0); }
removebansaction() { type = SA_REMBANS; role = CR_MASTER; dedicated = true; }
};
struct mastermodeaction : serveraction
{
int mode;
void perform() { mastermode = mode; }
bool isvalid() { return mode >= 0 && mode < MM_NUM; }
mastermodeaction(int mode) : mode(mode) { type = SA_MASTERMODE; role = CR_MASTER; dedicated = true; }
};
struct autoteamaction : serveraction
{
bool enabled;
void perform()
{
sendf(-1, 1, "ri2", SV_AUTOTEAM, (autoteam = enabled) == 1 ? 1 : 0);
if(m_teammode) shuffleteams();
}
autoteamaction(bool enabled) : enabled(enabled) { type = SA_AUTOTEAM; role = CR_MASTER; dedicated = true; }
};
struct voteinfo
{
int owner, secs;
serveraction *action;
void pass() { if(action) action->perform(); }
bool isvalid() { return valid_client(owner) && action != NULL && action->isvalid(); }
bool isalive() { return secs > lastsec; }
};
static voteinfo *curvote = NULL;
void checkvotes(bool forceend)
{
if(!curvote) return;
int stats[VOTE_NUM] = {0};
loopv(clients) if(clients[i]->type!=ST_EMPTY) { stats[clients[i]->vote]++; };
int total = stats[VOTE_NO]+stats[VOTE_YES]+stats[VOTE_NEUTRAL];
const float requiredcount = 0.51f;
if(stats[VOTE_YES]/(float)total > requiredcount)
{
sendf(-1, 1, "ri2", SV_VOTERESULT, VOTE_YES);
curvote->pass();
}
else if(forceend || stats[VOTE_NO]/(float)total > requiredcount)
{
sendf(-1, 1, "ri2", SV_VOTERESULT, VOTE_NO);
}
else return;
resetvotes();
DELETEP(curvote);
}
bool vote(int sender, int vote) // 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
{
clients[sender]->vote = vote;
checkvotes();
return true;
}
}
bool callvote(voteinfo *v) // true if a regular vote was called
{
if(!v || !v->isvalid()) return false;
if(!isdedicated)
{
if(v->action->dedicated) // available on ded servers only
{
sendf(v->owner, 1, "ri2", SV_CALLVOTEERR, VOTEE_DED);
}
else if(clients[v->owner]->type == ST_LOCAL) // allow op commands locally
{
v->action->perform();
}
return false;
}
else
{
if(clients[v->owner]->role >= v->action->role) // pass server op commands
{
v->action->perform();
return false;
}
else // regular vote
{
if(curvote)
{
sendf(v->owner, 1, "ri2", SV_CALLVOTEERR, VOTEE_CUR);
return false;
}
else if(configsets.length() && curcfgset < configsets.length() && !configsets[curcfgset].vote && clients[v->owner]->role == CR_DEFAULT)
{
sendf(v->owner, 1, "ri2", SV_CALLVOTEERR, VOTEE_DISABLED);
return false;
}
else if(clients[v->owner]->lastvotecall && lastsec - clients[v->owner]->lastvotecall < 120)
{
sendf(v->owner, 1, "ri2", SV_CALLVOTEERR, VOTEE_MAX);
return false;
}
else
{
curvote = v;
clients[v->owner]->lastvotecall = lastsec;
return true;
}
}
}
}
// sending of maps between clients
string copyname;
int copysize;
uchar *copydata = NULL;
void sendmapserv(int n, string mapname, int mapsize, uchar *mapdata)
{
if(!mapname[0] || mapsize <= 0 || mapsize > 256*256) return;
s_strcpy(copyname, mapname);
copysize = mapsize;
DELETEA(copydata);
copydata = new uchar[mapsize];
memcpy(copydata, mapdata, mapsize);
}
ENetPacket *getmapserv(int n)
{
if(!copydata) return NULL;
ENetPacket *packet = enet_packet_create(NULL, MAXTRANS + copysize, ENET_PACKET_FLAG_RELIABLE);
ucharbuf p(packet->data, packet->dataLength);
putint(p, SV_RECVMAP);
sendstring(copyname, p);
putint(p, copysize);
p.put(copydata, copysize);
enet_packet_resize(packet, p.length());
return packet;
}
void sendwelcome(int n)
{
ENetPacket *packet = enet_packet_create(NULL, MAXTRANS, ENET_PACKET_FLAG_RELIABLE);
ucharbuf p(packet->data, packet->dataLength);
putint(p, SV_INITS2C);
putint(p, n);
putint(p, PROTOCOL_VERSION);
if(!smapname[0] && configsets.length()) nextcfgset(false);
int numcl = numclients();
putint(p, smapname[0] ? numcl : -1);
putint(p, serverpassword[0] ? 1 : 0);
if(smapname[0])
{
putint(p, SV_MAPCHANGE);
sendstring(smapname, p);
putint(p, smode);
if(smode>1 || (smode==0 && numnonlocalclients()>0))
{
putint(p, SV_TIMEUP);
putint(p, minremain);
}
if(!configsets.length() || numcl > 1)
{
putint(p, SV_ITEMLIST);
loopv(sents) if(sents[i].spawned)
{
putint(p, i);
putint(p, sents[i].type);
}
putint(p, -1);
}
}
client *c = clients[n];
if(c->type == ST_TCPIP && serveroperator() != -1) sendserveropinfo(n);
if(autoteam && numcl>1)
{
putint(p, SV_FORCETEAM);
putint(p, freeteam());
}
if(m_mp(smode))
{
if(!canspawn(c, true))
{
putint(p, SV_FORCEDEATH);
putint(p, n);
sendf(-1, 1, "ri2x", SV_FORCEDEATH, n, n);
}
else
{
clientstate &gs = c->state;
spawnstate(c);
putint(p, SV_SPAWNSTATE);
putint(p, gs.lifesequence);
putint(p, gs.health);
putint(p, gs.armour);
putint(p, gs.primary);
putint(p, gs.gunselect);
loopi(NUMGUNS) putint(p, gs.ammo[i]);
loopi(NUMGUNS) putint(p, gs.mag[i]);
gs.lastspawn = gamemillis;
}
}
if(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.gunselect);
putint(p, c.state.flagscore);
putint(p, c.state.frags);
}
putint(p, -1);
}
// fixme,ah
putint(p, SV_AUTOTEAM);
putint(p, autoteam);
if(motd)
{
putint(p, SV_TEXT);
sendstring(motd, p);
}
enet_packet_resize(packet, p.length());
sendpacket(n, 1, packet);
if(smapname[0] && m_ctf) loopi(2) sendflaginfo(i, -1, n);
}
int checktype(int type, client *cl)
{
if(cl && cl->type==ST_LOCAL) return type;
// only allow edit messages in coop-edit mode
static int edittypes[] = { SV_EDITENT, SV_EDITH, SV_EDITT, SV_EDITS, SV_EDITD, SV_EDITE };
if(cl && smode!=1) loopi(sizeof(edittypes)/sizeof(int)) if(type == edittypes[i]) return -1;
// server only messages
static int servtypes[] = { SV_INITS2C, SV_MAPRELOAD, SV_SERVMSG, SV_GIBDAMAGE, SV_DAMAGE, SV_HITPUSH, SV_SHOTFX, SV_DIED, SV_SPAWNSTATE, SV_FORCEDEATH, SV_ITEMACC, SV_ITEMSPAWN, SV_TIMEUP, SV_CDIS, SV_PONG, SV_RESUME, SV_FLAGINFO, SV_ARENAWIN, SV_CLIENT, SV_VOTERESULT };
if(cl) loopi(sizeof(servtypes)/sizeof(int)) if(type == servtypes[i]) return -1;
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) // sender may be -1
{
ucharbuf p(packet->data, packet->dataLength);
char text[MAXTRANS];
client *cl = sender>=0 ? clients[sender] : NULL;
int type;
if(cl && !cl->isauthed)
{
if(chan==0) return;
else if(chan!=1 || getint(p)!=SV_CONNECT) disconnect_client(sender, DISC_TAGT);
else
{
int nonlocalclients = numnonlocalclients();
getstring(text, p);
cl->state.nextprimary = getint(p);
if(adminpasswd && adminpasswd[0] && !strcmp(text, adminpasswd)) // pass admins always through
{
cl->isauthed = true;
changeclientrole(sender, CR_ADMIN, NULL, true);
loopv(bans) if(bans[i].address.host == cl->peer->address.host) { bans.remove(i); break; } // remove admin bans
if(nonlocalclients>maxclients) loopi(nonlocalclients) if(i != sender && clients[i]->type==ST_TCPIP)
{
disconnect_client(i, DISC_MAXCLIENTS); // disconnect someone else to fit maxclients again
break;
}
}
else if(serverpassword[0])
{
if(!strcmp(text, serverpassword)) cl->isauthed = true;
else disconnect_client(sender, DISC_WRONGPW);
}
else if(mastermode==MM_PRIVATE) disconnect_client(sender, DISC_MASTERMODE);
else if(nonlocalclients>maxclients) disconnect_client(sender, DISC_MAXCLIENTS);
else if(isbanned(sender)) disconnect_client(sender, DISC_MBAN);
else cl->isauthed = true;
}
if(!cl->isauthed) return;
sendwelcome(sender);
}
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_INT(n) { if(cl->type==ST_TCPIP) { curmsg = p.length(); ucharbuf buf = cl->messages.reserve(5); putint(buf, n); cl->messages.addbuf(buf); } }
#define QUEUE_STR(text) { if(cl->type==ST_TCPIP) { curmsg = p.length(); ucharbuf buf = cl->messages.reserve(2*(int)strlen(text)+1); sendstring(text, buf); cl->messages.addbuf(buf); } }
int curmsg;
while((curmsg = p.length()) < p.maxlen) switch(type = checktype(getint(p), cl))
{
case SV_TEAMTEXT:
getstring(text, p);
filtertext(text, text);
sendteamtext(text, sender);
break;
case SV_TEXT:
QUEUE_MSG;
getstring(text, p);
filtertext(text, text);
QUEUE_STR(text);
break;
case SV_INITC2S:
{
QUEUE_MSG;
bool newclient = false;
if(!cl->name[0]) newclient = true;
getstring(text, p);
filtertext(text, text, false, MAXNAMELEN);
if(!text[0]) s_strcpy(text, "unarmed");
QUEUE_STR(text);
s_strncpy(cl->name, text, MAXNAMELEN+1);
if(newclient && cl->type==ST_TCPIP)
{
savedscore *sc = findscore(*cl, false);
if(sc)
{
sc->restore(cl->state);
sendf(-1, 1, "ri8", SV_RESUME, sender, cl->state.state, cl->state.lifesequence, cl->state.gunselect, sc->flagscore, sc->frags, -1);
}
}
getstring(text, p);
filtertext(cl->team, text, false, MAXTEAMLEN);
QUEUE_STR(text);
getint(p);
QUEUE_MSG;
break;
}
case SV_ITEMLIST:
{
int n;
while((n = getint(p))!=-1) if(notgotitems)
{
server_entity se = { getint(p), false, 0 };
while(sents.length()<=n) sents.add(se);
sents[n].spawned = true;
}
notgotitems = false;
QUEUE_MSG;
break;
}
case SV_ITEMPICKUP:
{
int n = getint(p);
gameevent &pickup = cl->addevent();
pickup.type = GE_PICKUP;
pickup.pickup.ent = n;
break;
}
case SV_WEAPCHANGE:
{
int gunselect = getint(p);
cl->state.gunselect = gunselect;
QUEUE_MSG;
break;
}
case SV_PRIMARYWEAP:
{
int nextprimary = getint(p);
cl->state.nextprimary = nextprimary;
QUEUE_MSG;
break;
}
case SV_TRYSPAWN:
if(cl->state.state!=CS_DEAD || cl->state.lastspawn>=0 || !canspawn(cl)) break;
if(cl->state.lastdeath) cl->state.respawn();
sendspawn(cl);
break;
case SV_SPAWN:
{
int ls = getint(p), gunselect = getint(p);
if((cl->state.state!=CS_ALIVE && cl->state.state!=CS_DEAD) || ls!=cl->state.lifesequence || cl->state.lastspawn<0) break;
cl->state.lastspawn = -1;
cl->state.state = CS_ALIVE;
cl->state.gunselect = gunselect;
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) \
{ \
if(!cl->timesync || (cl->events.length()==1 && cl->state.waitexpired(gamemillis))) \
{ \
cl->timesync = true; \
cl->gameoffset = gamemillis - getint(p); \
event.millis = gamemillis; \
} \
else event.millis = cl->gameoffset + getint(p); \
}
seteventmillis(shot.shot);
shot.shot.gun = getint(p);
loopk(3) shot.shot.from[k] = getint(p)/DMF;
loopk(3) shot.shot.to[k] = getint(p)/DMF;
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.info = getint(p);
loopk(3) hit.hit.dir[k] = getint(p)/DNF;
}
break;
}
case SV_EXPLODE:
{
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;
}
case SV_PING:
sendf(sender, 1, "ii", SV_PONG, getint(p));
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) clients[cn]->state.o[i] = getuint(p)/DMF;
getuint(p);
loopi(6) getint(p);
if(cl->type==ST_TCPIP && (cl->state.state==CS_ALIVE || cl->state.state==CS_EDITING))
{
cl->position.setsizenodelete(0);
while(curmsg<p.length()) cl->position.add(p.buf[curmsg++]);
}
break;
}
case SV_SENDMAP:
{
getstring(text, p);
filtertext(text, text);
int mapsize = getint(p);
if(p.remaining() < mapsize)
{
p.forceoverread();
break;
}
sendmapserv(sender, text, mapsize, &p.buf[p.len]);
p.len += mapsize;
break;
}
case SV_RECVMAP:
{
ENetPacket *mappacket = getmapserv(sender);
if(mappacket) sendpacket(sender, 2, mappacket);
else sendservmsg("no map to get", sender);
break;
}
case SV_FLAGPICKUP:
case SV_FLAGDROP:
case SV_FLAGRETURN:
case SV_FLAGSCORE:
case SV_FLAGRESET:
{
flagaction(getint(p), type, sender);
break;
}
case SV_FLAGS:
cl->state.flagscore = getint(p);
QUEUE_MSG;
break;
case SV_SETMASTER:
{
changeclientrole(sender, getint(p) != 0 ? CR_MASTER : CR_DEFAULT, NULL);
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;
switch(getint(p))
{
case SA_MAP:
getstring(text, p);
filtertext(text, text);
vi->action = new mapaction(newstring(text), getint(p));
break;
case SA_KICK:
vi->action = new kickaction(getint(p));
break;
case SA_BAN:
vi->action = new banaction(getint(p));
break;
case SA_REMBANS:
vi->action = new removebansaction();
break;
case SA_MASTERMODE:
vi->action = new mastermodeaction(getint(p));
break;
case SA_AUTOTEAM:
vi->action = new autoteamaction(getint(p) > 0);
break;
case SA_GIVEMASTER:
vi->action = new givemasteraction(getint(p) > 0);
break;
}
vi->owner = sender;
vi->secs = lastsec+60;
if(callvote(vi)) { QUEUE_MSG; sendf(sender, 1, "ri", SV_CALLVOTESUC); }
else delete vi;
break;
}
case SV_VOTE:
{
if(vote(sender, getint(p))) QUEUE_MSG;
break;
}
default:
{
int size = msgsizelookup(type);
if(size==-1) { 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);
}
void localclienttoserver(int chan, ENetPacket *packet)
{
process(packet, 0, chan);
if(!packet->referenceCount) enet_packet_destroy(packet);
}
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 ? 0 : (gamelimit - gamemillis + 60000 - 1)/60000;
sendf(-1, 1, "ri2", SV_TIMEUP, minremain);
}
if(!interm && minremain<=0) interm = gamemillis+10000;
}
/*void startintermission() { minremain = 0; checkintermission(); }*/
void resetserverifempty()
{
loopv(clients) if(clients[i]->type!=ST_EMPTY) return;
//clients.setsize(0);
resetmap("", 0, 10, false);
mastermode = MM_OPEN;
autoteam = true;
}
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);
}
static int servmillis = 0;
void serverslice(uint timeout) // main server update, called from cube main loop in sp, or dedicated server loop
{
#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;
if(minremain>0)
{
processevents();
checkitemspawns(diff);
if(m_ctf) loopi(2)
{
sflaginfo &f = sflaginfos[i];
if(f.state==CTFF_DROPPED && gamemillis-f.lastupdate>30000) flagaction(i, SV_FLAGRESET, -1);
}
if(m_arena) arenacheck();
}
if(curvote && !curvote->isalive()) checkvotes(true);
int nonlocalclients = numnonlocalclients();
if((smode>1 || (gamemode==0 && nonlocalclients)) && gamemillis-diff>0 && gamemillis/60000!=(gamemillis-diff)/60000)
checkintermission();
if(interm && gamemillis>interm)
{
interm = 0;
if(configsets.length()) nextcfgset();
else loopv(clients) if(clients[i]->type!=ST_EMPTY)
{
sendf(i, 1, "rii", SV_MAPRELOAD, 0); // ask a client to trigger map reload
mapreload = true;
break;
}
}
resetserverifempty();
if(!isdedicated) return; // below is network only
serverms(smode, numclients(), minremain, smapname, servmillis, serverhost->address.port);
if(servmillis-laststatus>60*1000) // display bandwidth stats, useful for server ops
{
laststatus = servmillis;
if(nonlocalclients || bsend || brec)
{
printf("status: %d remote clients, %.1f send, %.1f rec (K/sec)\n", nonlocalclients, bsend/60.0f/1024, brec/60.0f/1024);
#ifdef _DEBUG
fflush(stdout);
#endif
}
bsend = brec = 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;
char hn[1024];
s_strcpy(c.hostname, (enet_address_get_host_ip(&c.peer->address, hn, sizeof(hn))==0) ? hn : "unknown");
printf("client connected (%s)\n", c.hostname);
break;
}
case ENET_EVENT_TYPE_RECEIVE:
{
brec += (int)event.packet->dataLength;
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);
if(svcctrl) svcctrl->stop();
}
#ifndef STANDALONE
void localdisconnect()
{
loopv(clients) if(clients[i]->type==ST_LOCAL) zapclient(i);
}
void localconnect()
{
client &c = addclient();
c.type = ST_LOCAL;
s_strcpy(c.hostname, "local");
sendintro();
}
#endif
void initserver(bool dedicated, int uprate, char *sdesc, char *ip, int serverport, char *master, char *passwd, int maxcl, char *maprot, char *adminpwd, char *srvmsg, int scthreshold)
{
if(passwd) s_strcpy(serverpassword, passwd);
maxclients = maxcl > 0 ? min(maxcl, MAXCLIENTS) : DEFAULTCLIENTS;
servermsinit(master ? master : "masterserver.cubers.net/cgi-bin/actioncube.pl/", ip, CUBE_SERVINFO_PORT(serverport), sdesc, dedicated);
if(isdedicated = dedicated)
{
ENetAddress address = { ENET_HOST_ANY, serverport };
if(*ip && enet_address_set_host(&address, ip)<0) printf("WARNING: server ip not resolved");
serverhost = enet_host_create(&address, maxclients+1, 0, uprate);
if(!serverhost) fatal("could not create server host\n");
loopi(maxclients) serverhost->peers[i].data = (void *)-1;
if(!maprot || !maprot[0]) maprot = newstring("config/maprot.cfg");
readscfg(path(maprot));
if(adminpwd && adminpwd[0]) adminpasswd = adminpwd;
if(srvmsg && srvmsg[0]) motd = srvmsg;
scorethreshold = min(-1, scthreshold);
}
resetserverifempty();
if(isdedicated) // do not return, this becomes main loop
{
#ifdef WIN32
SetPriorityClass(GetCurrentProcess(), HIGH_PRIORITY_CLASS);
#endif
printf("dedicated server started, waiting for clients...\nCtrl-C to exit\n\n");
atexit(enet_deinitialize);
atexit(cleanupserver);
for(;;) serverslice(5);
}
}
#ifdef STANDALONE
void localservertoclient(int chan, uchar *buf, int len) {}
void fatal(char *s, char *o) { cleanupserver(); printf("fatal: %s\n", s); exit(EXIT_FAILURE); }
int main(int argc, char **argv)
{
int uprate = 0, maxcl = DEFAULTCLIENTS, scthreshold = -5, port = 0;
char *sdesc = "", *ip = "", *master = NULL, *passwd = "", *maprot = "", *adminpasswd = NULL, *srvmsg = NULL;
bool service = false;
for(int i = 1; i<argc; i++)
{
char *a = &argv[i][2];
if(argv[i][0]=='-') switch(argv[i][1])
{
case 'u': uprate = atoi(a); break;
case 'n': sdesc = a; break;
case 'i': ip = a; break;
case 'm': master = a; break;
case 'p': passwd = a; break;
case 'c': maxcl = atoi(a); break;
case 'r': maprot = a; break;
case 'x': adminpasswd = a; break;
case 'o': srvmsg = a; break;
case 'k': scthreshold = atoi(a); break;
case 's': service = true; break;
case 'f': port = atoi(a); break;
default: printf("WARNING: unknown commandline option\n");
}
}
if(service && !svcctrl)
{
#ifdef WIN32
svcctrl = new winservice();
#endif
if(svcctrl)
{
svcctrl->argc = argc; svcctrl->argv = argv;
svcctrl->start();
}
}
if(enet_initialize()<0) fatal("Unable to initialise network module");
initserver(true, uprate, sdesc, ip, port > 0 ? port : CUBE_DEFAULT_SERVER_PORT, master, passwd, maxcl, maprot, adminpasswd, srvmsg, scthreshold);
return EXIT_SUCCESS;
}
#endif